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FRACTICFAL 

.xxxxx 

SP BIT 1 = 2 UMTS 


RQfe74 


(MAX .S9996) 




HOG 75 

-C- 





IlFCLE 

xxxxx. 

SP ti IT 1 - 1 UM T 


RQ677 


(MAX 16383.) 








... fcE^7fl 

. . ... .... 


i 5 


KG679 

CCL OEGBEfcS 

XXX. XX DEGREES 

SP BIT i * 36U/2 CjEGREES 


RC;66Q 


(RAX 359.99) 

(USES 15 BITS EOF MAGM- 


RQ681 



TUOE AND ?-S COMP. ) 



80662 

-E- 



14 



80683 

ELEVA11CN CEGREtS 

XX. XXX DEGREES 

. SP 

BIT 1 = 90/2 DEGREES 



R 0684 


(MAX 89.999) 












RCoES 

-F- 



14 



RQ6e6 

DECREES (leo) 

XXX. XX DEGREES 

SP 

PIT 1 * 180/2 DEGREES 



80667 


(MAX 179.99) 











80688 

-G- 






8 06 69 

CP OEGFEESISO) 

XX. XXX DEGREES 

CP 

BIT 1 OF LOW REGISTER * 



RC69C 




26 



RC691 




360/2 DECREES 


1 

P0692 

-F- 






PC693 

CP CEGPEES (360) 

XXX. XX DEGREES 

CP 

BIT 1 OF LUM REGISTER » 



R0t94 




28 



R0695 


(MAX 359.99) 


360/2 DEGPEFS 










K0696 

-J- 



15 



RC697 

Y CPI ICS DEGREES 

XX.XXX DEGREES 

SP 

BIT 1 e 9C/2 DEGREES 



K 06 96 


(BIAS OF 19.775 


(USES 15 EITS FOP. MAGM- 



t>Q6 99 


DEGREES ADDED FGP 


TUDE AND 2-S CCMP.) 



8U7C0 


DISPLAY, SUBTRACTED 





80701 


FCa LCAO.) 





K0 7C2 


hCTF: NEGATIVE NDM- 





P0703 


eERS CANNOT GE 





RC7Q4 


llaoed. 




1 




RG?(j5 


r.AO- ACCCllRlS Qf^UKink 

rp AGC PROGRAM CQlOSSUS HV 

NASA 2Q21111-C3J in 7 

AUG. 29.1963 (MAIN) PAGE IS 




1 

AhC CPRR/kTlCN tNFGRMi^TlCN 



USER'S PAGE NO. 16 EO 











on 7 06 

TIPR INR. Rlh. SECi 

OCXXX* HR 

OP 

tiir 1 OF LON rEGISTER 




r\ mJ 4 W V 

RC7G7 


OQOXX- MIN 


-2 




4^ M I W 1 

R n 7 G A 


CXX.XX SEC 


lU stc 




■ - ■ ■ 1 1 M i M W 

RC7C9 


UJhCltAL CMV, 






H071Q 


RAX MM CCRP*5S 






kn7 1 t 


RAX SEC C0RP°59.^S 






-—1 * * 

FUli£ 


RAX CAPACn¥*745 HRS 





pa7 1 3 


39 RIMS 





R0714 


. 5S 

SECS. 





- - *• — *■— * — ^ 

Rw7l5 


WHEM LGACIMGt ALL 3 






P07 le 


CCMPCNEMTS MUST BE 






RQ71 7 


SUPPLIED.) 






-1 M ■ f 1 * — 








R C 7 1 8 

-L- 







RC71S 

T1I»E (RlKySELl 

UXBXX RIM/ SEC 

CP 

BIT 1 OF LnN register * 




RQ72Q 


(B IS A blank 


-2 




P0721 


PGSIIlCMf CECIRAL 


1 U S F C 




R0722 


cmly. display CR 






P0723 


RCMTCR CMLV. CAMMCT 





HO 72^ 


BE LCAOED. 






R0725 


RAX RIM CCRP«5S 






RO 72<> 


RAX SEC CORP-59 






R0727 


VALUES GREATER TEAM 






RC728 


b9 MIN 59 sec 






R0729 


ARE CISPLAYEO AS 






R07 30 


59 MIN 59 SEC.) 














R0731 

-R- 



-2 




f<0732 

TIRE (SEC) 

XXX.XX SEC 

SP 

BIT 1 « 1C SEC 




Ha733 


(RAX 163.83) 







PQ73^ 








K0735 

TIRECSEC'I tP 

XXX. XX SEC 

CP 

BIT 1 CIF LUR REGISTER * 




R073t 




-2 




ft0737 




10 SEC 





‘■<C73 8 

-P- 







Hu7iS 

VtLCCITY 2 

XXXXX. EEET/SEC 

CP 

BIT 1 OF HIGH hLGISTEP = 




RQ74Q 


(MAX 4199A.) 


-7 




R07A1 




2 METERS/CEN7I-SCC 





Rc7<i2 

-C- 







KC7^t3 

PCSITiCK <i 

XXXX.X NAUTICAL RILES CP 

bIT I OF LON REGISTER - 




R07<i<t 




2 METERS 












R07A5 








P0 7A6 

VELCCITY 3 

XXXX.X FT/sec 

CP 

¥IT 1 or HIGH REGISTER * 





_z2 

2 MtTE HS/CfcNlI-SEC 


f C7<ie 
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KC7AS -1 
ROTSii! G 
Afl751 


)«XA.XA G SP BIT 1 » 10 C 

(PAX 163.631 


fiQ7i2 -Ff- __ 

iimj TiUK liGHEES XXX,XX DEG, SP LCW ORDER BIT * 85,AI SEC 

R075^ (PAX 330.691 OF AKC 


PU766 

INERTIA 

xxxxxea. slug ft sq 

SP 

FRACTIONAL PART OF 



HQ757 


(PAX C7733Bd. } 


20 2 



R075e 




2 KG M 










PQ759 

-11- 



20 



RC76C 

TPPISI PtPENT 

XXXXXB8. FT LbS 

SP 

FRACTIONAL PART OF 2 


1 

P07t 1 


(PAX 0773380.) 


NEWTON METER 


. i 








ktilbl 

-JJ- 






K0763 

ptsniCNS 

XXX.XX NAtT Ml 

CP 

BIT 1 OF LOW KECISTER = 



H076A 




2 METERS 



AQ7t5 

-PK- 



16 



F C 766 

MElCh12 

XXXXX. L8S 

SP 

FRACTIONAL PART OF 2 KG 










hC7fa7 

-IL- 






RC76a 

pcsmcNt 

XXXX.X NAUT PII 

DP 

BIT 1 or LOW R EG » 



P0769 




-28 



RQ77t; 




(6.373.338) (2( PI) )X2 



80771 







H0772 




1852 



_ RD773 




NAUT. MI. 










RQ7 7A 

-pp- 






80176 

_ DRAG ACCELERAT ION 

AXX.XX G 

CP 

P IT 1 Of LOW R EGISTER « 


_ 1 

R0776 


PAX (02A.99) 


-28 


1 

FG777 




25X2 G 










RQ77fl 

-FP- 






R077^ 

Z INUCEPS 

♦XX8YY 

CP 

BIT 1 OF HIGH REGISTER = 



- FOIIQ.. 


(B IS A BLANK 


1 UNIT OF XX 



80761 


POSITION. CECIHAL 


BIT 1 OF LOW P EGISTER » 



80782 


CNLY, display OR 


1 UNIT CF VY 



- _PJ3_781 . 


PCNITCR CNLY. CAPNCT 


(EACH REGISTER MUST 



R07flA 


UE LCAOEO.) 


CONTAIN A POSITIVE INTEGER 



80786 


(PAX 99B99) 


LESS THAN ICO) 


- - - 

PG706 

-IE- 






80787 

VELCC nT/2\S 

FEfcT/SEC 

OP 

FRACTIONAL PART OF 



80780 


(PAX 51532.) 


2VS FEET/seC 


1 

80789 




(VS « 25766.1973) 


I 
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L ASSIlLtLl Q_P£RATICh IN FQ R W jlT I CN 


USER'S PAGE NO. 20 


EO 


PflISiij -VX- — 
RIJ791 PCilUCNfl 
SLillBZ 

eC793 

R079^ 

PC1795 

R0796 


NAUT Ml 


CPJBir l OF LOW REGISTE R 

=2e 

A X 6 ,37^ *338 > 2 

185? 

NAUT Ml 


PQ79e PtSniCN 9 

XXX. XX NAUT Ml 

OP BIT 1 CF LDR RFGISTER = 



R0799 

(MAX 283.09) 

-9 




HiliUOLO. 


HlTLRS 


RC8C1 -YY- 

ftuflo? vELcrny a xxxx.x FEFt/SEC op fractional part of 

Ri]a03 (MAX 326.0) METER S/C ENT I -S EC 

RCaCA ThAT-5 A L L Oh THE NCUNS, 


PAGE 


21 
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POeUS ALAPH C QEES P CR 5Q4 

kLilOfe T t^fPORT nPFIClENClES 70 JOHN SUTHERLAKD i MlT 617-d6A-6900 XL458 


HQdfl? *9 ♦I S *6 0 *25 COLUMN 


FCfiL9 

CCCL 

< 7>PE 

SET BY 


ALARM ROUTINE 







nx a iL 

oc uc 

NC MARK SINCE LAST MARK REJECT 

s XT Mark 


ALARM 

HG613 

0G112 

PARK NOT BEING ACCEPTED 

SXTMAP.K 


ALARM 

R0815 

00111 

NC LNeiT< 

SXTMAPK 


ALARM 

huai7 

OCllA 

MARK MADE BUT NUT DESIRED 

SXTMAPK 


ALARM 

poai9 

CC115 

CPTICS TLRCUE RECUbSTklTh SNITCH NUT AT 

EXT VERB 

tPTlCS COU 

ALARM 

R0e2L 


CGC 




P Q8^2 ^ 

a c 1 1 6 

CPTICS SNITCH ALTtPEC EEFCPE 15 SEC 2EHU 

T4PUPT 


ALARM ^ 

■ 

H0a2A 


TIME ELAPSED. 




Rua25 

cci n 

CPTICS TCRCUE RECLESl N ITH CPTICS NCT 

EXT VERB 

CPTICS CDU 

ALARM 



AVAILABLE. LCPUND»~Ul) 




Hceza 

CC12C 

CPTICS TCRCUE PECUEST kITH OPTICS 

lARUT T 


ALARM 

ROSiO 


NOT 2EPCE0 




PC 821 

00121 

ecus AO GCCC AT TIME OP MARK 

SXTMARK 


ALARM 

HC833 

00122 

MARKING NOT CALLED PCH 

SXTMAPK 


ALARM 

P 0825 

0C12A 

P17 TPl SEARCH - NC SAFE PER 1C7R HERE. 

TPI SEARCF 

ALARM 

RCfl37 

002C5 

BAD PIPA REACING. 

SERVICER 


ALARM 

HC839 

cc 2 ce 

2EPC ENCCDE NCT ALLCNEC WITH CCARSE ALIGN 

IMU MODE 

SWITCHING 

ALARM 

hOSAl 


4 GINBAL LCCK 




^08^2 

QC2CT 

ISS TURNCN HEflUEST NCT PRESENT FUR SEC 

tahupt 


ALARM 


oca 10 

IMU NCT CPbRATlNG 

IMU MODE 

SNITCH. IMU-2. R02» P5l 

ALARM. VARALAPM 

h J 0 4 b 

ucaii 

CCAkSE ALIGN ERROR - DRIVE > 2 DEGREES 

IMU MODE 

SWITCH 

ALARM 


OC212 

PIPA FAIL BUT PIPA IS NOT BEING USED 

IMU MODE 

SWITCH# T^iRPT 

ALARM 

p(je5C 

0C213 

IMU NCT OPERATING WITH TURN-ON RtOUEST 

TARUPf 


ALARM 

Ru652 

oca H 

PFOGRAM LSINC IMU WHEN TURNED CFF 

T4RUPT 


ALARM 

KCeSA 

CC215 

PREFERREC GRIENTATICN NCT SPECIFlEC 

P52 tP54 


ALARM 

pcasfc 

ocai7 

BAD RETURN FROM STALL RCUTINES. 

CURTAINS 


ALARM2 * 

80856 

CC220 

IMU NCT aligned - NC REFSMMAT 

RD2 .PSl 


VARALARM 

f<afi6C 

CCAOl 

DESIRED GIMBAL ANGLES YIELD GlMeAL LOCK 

IMF AL IGN 

f IMU““2 

ALARM 

H0862 

OOACA 

TARGET OUT OF VIEN - TRUN ANGLE > 90 DEG 

R5^ 


PRIUL ARM 

•^086^ 

0CAC5 

TkO STARS NOT AVAILABLE 

P52,P5A 


ALARM 

H06<)6 

Q0A06 

REND NAVIGATICN NCT OPERATING 

R21 tR23 


ALARM 

80866 

0C^C7 

ALTC OPTICS REQUEST TRUN ANGLE > 50 DEG. 

ft52 


ALARM 

KQQ7C 

0CA2Q 

THRO CALL TC ORBITAL INTEGRATION 

ALL CALLS 

TO INTEG 

? 

KC672 

C0A21 

N-MATRIX CVERFLOK 

intlgrv 


ALARM 

R067A 

CCfeCS 

NLMBER OF ITERATIONS EXCEECS LOOP MAXIMUM 

P32,P72f 


VARALARM 

kCR76 

oca 11 

NC TIC FCR GIVEN ELtV ANCLE 

P3A,P7A 


VARALARM 

80876 

ocau 

STATE VECTOR IN NRCNG SPHERE CF INFLUENCE 

P37 


VARALARM 

Roaac 

oca 11 

REENTRY ANGLE OUT CF LIMITS 

P37 


VARALARM 

F0883 

01101 

• UNUSED CCS ERANCH EXECUTED 

ABORT 


ALAlvM2 

80885 

Cl lOA 

* DELAY ROLIINE BUSY 

EXEC 


QATLOUT u 

KCe«7 

G11C5 

DCHNLINK TOO FAST 

TARUPT 


ALARM ■ 

Hoaes 

. cnc6 

LFLINK TCC FAST 

TARUPT 


ALARM 
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1 

A<;sf KCL y 

bhU nPERATiGN INfCRH^TlCN 



USER'S PAGE NO. 22 

EO 


1 

Cil_CJ 


PtASE TABLE FALLUPEi ASSU^t 

RESATRT 


ALARM 


-»V U M Ji JU 

Rcesa 

kl1fl494 



EPASAfiLE HEPCRY tS OESTRCYEC 





ni2ni 


EYPtUTIVf GV£RFLCh“NC YAC AREAS 

EXLC 


BfAILOUT 


Rue%6 

R08S8 

POQnn 

01102 


EXECCIIVE GVERFLCW-NC CORE SETS 

EXEC 


BAILOUT 


Q12C3 


kAIlLIST GVEPFLCVt-TCC PANY TASKS 

WAITLIST 


BAILOUT 


fi 1 3 r A 


.SECCNn JOB ATTEMPTS TO GO TO SLEIP 

PINBALL 


POOD 00 


RC9CI2 



UIA KEYBCARC ANC CISPLAY PRCGBAN 





R0903 

012(1 


KC VAC AREA FCfi PARKS 

SXTMARK 


BAILOUT 


c 1 3 f a 

♦ 

IhC PROGRAMS USlhC GEVICE AT SAME TIME 

IMU MODE SWITCH 

PCOOOC 


Ha907 

RG909 

01211 


ILLEGAL IMERRUPT CF EXTENUEC VERB 

sxtmark 


BAILOUT 


013C1 

A 

ARCSIh-ARCCCS INPUT ANGLE TCC LARGE. AdOKT 

INT EKPKET tP 


POODOO 


Huqi 1 

013C2 

n 

SCRT CALLEC kITH NEGATIVE AR GUNENT . AbORT 

INT EPPPtT ER 


PCCOOO 


ROsn 

Oi^CT 


\C INCREASING 

S^t ^ • r 


ALARM 


K 0 9 1 5 

01^26 


IPU UNSATISFACTORY 

Pol» Pfc2 


ALARM 


Roqi? 

CM2? 


1 MJ fl EV E S E G 

P6l. P62 


ALARM 


FiC9lS 

disci 

* 

KEYEOARC ANC DISPLAY ALAhP CURING 

PINBALL 


POODOO 


R0921 



INTERNAL USE (NVSUb). ABORT. 






Q15C2 

4 

ILLEGAL FLASHING CISPLAY 

OUPL AY 


POCOGC 


1^0924 

01S2C 


V37 REUUESl NCT FEBPITTEO AT THIS TIME 

V37 


ALARM 


K0926 

CICCG 


CVEPFLOk IN CRIFT TESf 

OPT PRC align 

CAL lb 

ALARM 


k0928 

ClfcCl 

4 

BAD IPU TCHCUE - ABCPT 

CPT PRE ALIGN 

CAL le 

ALARM 


RU930 

CltC2 


BAD OPTICS DURING VER I F lU A T I CN 

OPTALGN CAL 16 

ICSM) 

ALARM 


f<0932 

oncj 


INSLF. TIME FOR INTEG.t TIG kAS SLIPPED 

R91 


ALARM 


R0934 

G17C6 


STAGE VERIFY CISCRETE OCES NCT AGREE 

KD3 


? 


BQ9i6 

one? 


CFECKLISl 203 NCT PEPFCRMED. 

«6l 


? 


R0938 

C317? 


icOU FAIL CAUSED THE ISS WARNING 

T9RUPT 


VABALARM 


R09^C 

C^?77 


iCDL . PIPA FAILS CAUSEC THE ISS WARNING 

T9RUFT 


varalarm 


KQ9<.2 

017 77 


IPU FAIL CAUSED THE ISS WARNING 

T9HUHT 


VARALAPM 



1C177 


IPU t PIPA FAILS CAUSEC THE ISS WARNING 

T9KUf T 


VARALARM 


R09<.ci 

137 77 


IPU . ICDU FAILS CAUSEC THE ISS WARNING 

T9PUPT 


VARALARM 


P09<»e 

19777 


IPUf ICDU.PIPA FAILS CAUSEC THE ISSWNING 

TAHUPr 


VARALARM 


HC95C 


4 

INDICATES ABCRT TYPE. ALL CTHEPS ARE NON-ABGHT iVL 
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fCSSl ChtCULlSl CUQES FtR 50<» — ^ 

R09S2 PLEASE REPDRI ANY E1£F ICI EhC 1 ES IN TMIS LIST TO JCHN SUTHERLAND 

^ Ra953 ♦!? <2fe CQI.IHN , _ 


RC95^ 

PI CQXE 

At T ION 

tl be EFFECTEC 



RQ955 

QCC14 

KEY IN 

FIN£ ALLGNJILM CPTiCh . 

- 

- — 

RC95t 

QCCU 

f EPFQPP 

CELESTIAL eCCY ACQUISITION 



K\395 7 

occie 

KEY IN 

TERMINATE HARK SEQUENCE 



R09*i£ 

CCC41 

SfelTCh 

CH/IP. StMRATXCA 1C UP _ 



RC959 

0CCE2 

StelTCH 

AGC PCWEP OGhN 



RQ96Q 

OC2C2 

PEPFORP 

QNCS AUTCHATIC HANEUVER 



k \ 

QC2C3 

1 kll CM 

10 CMC^AliTC 


1 

HQ9t2 

Qcac4 

PEFFCRP 

5PS ClMbAL TRIM 


1 

R09e2 

CC403 

Sh ITCH 

CPIICS TC HANUAL CR 26RC 



M 09(3^ 



SWITCH OENCTES CHANGE POSITION OF A CONSC LE SWITCH 



R09fc5 



PERFORN DENCIES ST^HT OR END OF A TASK 



Ru966 



KEY IN DENOTES KEY IN CF DATA THRU THE DSKY 

-- 

^ - — 
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C Ri:\/T«;rON 2 3? fP AGC PRCGPAM 
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1 ir*fc 7 1i 
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iq<jB 

(MAIN ) 

PAGE 

24 



1 

V AAfi nP(-^ilTTrh tKFCfiMilTiCN 



USfcP'S 

PAGE 

NO. 24 

EO 



L 

.J4 ^ « C * -C M- Ui vj f !■ Ill r1! 1 ^ H A.-JLUL — ■ ^,1-1 E!L X A M 9-X 









P 0 Q 7 

CfTION CCDES FGB 504 









r U 3 Q f 

- - w 1 1 > W 1 !._ . as -M- H*— 1 A-^ dK- V . -» - 










PifASt RgPCftT ANY CEFKIENCIES IN THIS LIST TU JOHN SliTHERtAND 


J10969 TH <;PferiFIE D CPTIC N CGOtS WILL BE FLASHtO_lN COHPa_N£NT RI IN __ 
kn<37C C^^JtJ^CTIC^ lilTH VERBQ^NCLA£6 Tfc HfcCl£Sl_ r. H£ A$TRClSjAUT TO LC40 INTC 

KOSTi CC^fC^E^l P2 THE CPT I Q N HE OES IPES. ^ - - _ 



#9 

4 11 


♦ 52 

♦1 1 

♦25 COLUMN 











K097^ 

Cf 1 ION 








* ‘ w X 1 1 

R 0 9 i ^ 

CCC6 

PUFPCSt 


INPUT FOR CUMPCNEM 2 

PROGRAM ( S I 

APPLICABILITY 











R G9 77 

QCCUl 

SPECIFY 

IRU OPIEMATICN 

l^PREF 2=N0M 3«RtfSMMAT 

P50 *S 

ALL 



Rll979 

OCC02 

SPtClF? 

VEHICLE 

1*THIS 2»0THER 

P2l,R30 

ALL 


1 

HQ9B1 

0CCC3 

SPEC lEV 

TRACKING ATTITUDE 

l»PREF£kRED 2*CTHEP 

R 6 3 

ALL 



R 0963 

0CC04 

SPEC IFY 

9 ADAR 

l*RK 2=LK 

P04 

SUNDANCE 

♦ LUMINARY 


R 0965 

OCC C 5 

3^ ^ - — — - 

SPEC IFY 

SCR PHASE 

1-FIRST 2-SECONU 

P38 

COLOSSUS 

4 LUMINARY 


RC9B7 

0CGC6 

SPEC IFY 

RR COARSE ALIGN GPTICN 

1-LOCKON 2=CCNT INUCUS OESIG. 

V4 IN72 

SUNDANCE 

+ LUMINARY 


R C 9 6 9 

G C C C 7 

SPEC IFY 

PROPULSION SYSTEM 

l-SPS 2*RCS 

P37 

COLOSSUS 



RQ991 

OGCIC 

SPECIFY 

ALIGNMENT MCOE 

0-ANV TIME 1-REFSMMAT 

P57 

LUMINARY 



RQ993 




2-TWG BODIES 3=0NE BODY ♦ C 





ROSSA 

UCCll 

SPECIFY 

SEPARATION MCMTCR PHASE 

1-DELTAV 2-STATE VECTOR UPDATF 

P46 

LUMI NARY 



k0996 

00012 

SPEC IFY 

CSM ORBIT OPTION 

l»NC ORBIT CHANCE 2*CHANCt 

P22 

LUMINARY 



R0998 




ORBIT TO PASS OVER LM 
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L TAGS fCB S^^fLllL CAKQS USER'S PAGE NC. 1 EG 


UQCil A A«2 C00 <tA«2C0Q FIXED MEMORY 12CCC C - 167777 

0002 REI i ., CuUNT BA^%KSU^‘ 


RG0CI25 RCCGLE 1 CONTA INS BAAKS G THRQGGH 5 _ 


kinn ^ 



4C0Q 



BLOCK 

02 




C0Q4 



^000 


FFTAGl 

EQUALS 





0005 



^OQO 


FFTAG2 

EQUALS 








ACQO 


FFTAGi 

EQUALS 





OQjOf 



AOOO 


FFTAGA 

EQUAL S 





0008 



4CC0 


fFTAG7 

EQUALS 





QC09 



^000 


FFTAG8 

equals 





0010 



4C 00 


FFTAG9 

EQUALS 





OQll 



<|CC0 


FFT AGIO 

EQUALS 




— j 

0012 



40GC 


FF r AG12 

EQUALS 





001 3 

77 hCPCS LEFT 


5662 

05662 0 


6NKSUN 

02 




0013 



5663 

05663 1 








001^ 




6C00 




B LOCK 

03 


0016 




6000 



FFTAG5 

EQUALS 



0016 




6QC0 



FFTAG6 

EQUALS 



0017 

21 

RQRCS 

LEFT 

7752 

07752 

C 


BNKSUN 

03 


0017 




7753 

07753 

1 



























0018 




0C« 2CC0 




BANK 

00 


0019 




CO. 2000 



CLAYJOb 

EQUAL S 



Q02C 

s 

KRCS 

LEFT 

00.3766 

03766 

C 


BNKSUR 

00 
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1 

E7, 1725 


EBANKc WKKDUFl 



02 53 

REF 

2 LAST 32 

C7,2CC1 

03725 1 EBMRKbUF 

ECAOR MRRBUFl 




0254 

G255 



?4. 2000 


BANK 24 



REF 

1 

E7, 1431 


EBANK“ DVCNTR 




RHF 

2 LAST 32 

24.2COO 

03431 1 CeDVCNTP 

LCAOR DVCNTR 



0257 

REF 

1 

f 7, 1672 


EBANK* PAC'TWP 



025t: 

REF 

2 LAST 32 

24f 2001 

C3672 1 EbP40THP 

tCADR P40TRP 




I 


i 


U259 




3^,2000 



BANK 

34 


0260 

REF 

2 L/ST 

32 

E7, 1A31 



EBANK* 

DVCNTR 


0 261 

REF 

A LAST 

32 

3A,2C00 

C3A31 1 

LBO VCNT 

ECAOR 

DVCNTR 


0 262 

REF 

i 


E 5, lA2e 



EBANK* 

UPLACES 


0263 

REF 

2 LAST 

32 

3^,2COi 

02A26 C 

ebqpla(:e 

ECAOR 

QPl ACES 



U264 




37,2CQO 



BANK 

37 


0265 

REF 

1 


1231 



EBANK* 

RNl 


0266 

REF 

2 LAST 

32 

37,2000 

01231 C 

t dk N 1 

ECADF 

RNl 












P0267 

4444444^444444 44t 44444444444444444111 ) 4 4 4 4 4 4 4 4 4 4 4 ^ 
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1 
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OQG 1 


— ll*.20XiQ 

sue«o 

KILfcRASt 



0002 


37f2C00 

SUtJRQ 

KCOLADE 



w w U 4* 


37- 2 COG 

suttku 

S«0(jCH 



OOL^ 


3T.2C00 

SUBRO 

PANDCFA 



M w liP K- 

QQQ5 


37.2CCG 

SUBkU 

DA PC SP 



QllO/i 


J7.2CG0 

. __SimaQ 

SATP AP 
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ROOUl CChVEMlDKS ANC NCTAllCNS UTILIZED ECE EPASABLE ASSlGNWtNTS. 


PCUAl^S IS USEO Ih ThC WAYS. IT IS OFTEN USED TH CH.A_Uj A GROU P 

00003 O F ASSIGNMENTS SQ THAT THE CROUP M AY BE MQVEL WITH THE 

rOQOA CEANClNli OF ONLY ONE CAPO. EXAMPLE. 


AOOGS * EQUALS START 

>iQ006 Y EQUALS X ♦SIZE-X 

APon? Z LQUALS Y ♦SIZE.Y 


RQGQ8 _()«1 Y* ANC z are CCNSECLTIVE ANC BEGIN AT START. I 

RQQpq (SIZE.X AND SIZE.Y ARE THE RESPECTIVE SIZES CF X ANC Y, 

pQOiO kSUALLY NUMERIC, IE. 1, 2, 6, 180 ETC. ) 


t ftpmsiON ?n OP Ar.c program 


ERASAELE ASSIGNMENTS 


ROOll EtUALS CETEN iMPtlES TEE SHAP INC UF REGISTERS (OIEEEPENT NAMES 

K0012 AN C DIFF E RENT D ATA!. EXAMPLE. 

R00i3 X equal S Y 


fiOQl^ « MEANS that MULTIPLE NAMES EAVE BEEN GIVEN TO THE SAME DATA. 

ROUIS *TH|S IS LOGICAL ECUI VALENCE, NOT SHADING! EXAMP LE. 


AGGIE 


Y 



P0017 TEL SIZE AND (UT 1 L I Z A T I CN _C F AN ERASABLE A«t OFTEN INCLUOfc O IN 

HOCia TEE COMMENTS IN TH E FCL LQWINC fCRM. M(SlZ£»^-_ 


R0019 _ 
EC 020 



RUU22 
«u023 
PQQ2^ 


R0U2:> 

^ IZ£ IS THE 

NUMBER OF REGISTERS INCLUDED BY 

THE SYMBOL. 




P0026 

N INOICATES 

THE NATURE OR PERMANENCE OF T EiE 

CONTENTS. 





N0027 PL MEANS THAT THE CONTENTS ABE PAL) LOADED. 

R0C2e DSP MEANS THAT TEE REGISTER IS USED FOP A DISPLAY. 

kOC29 PRM MEANS THAT TEE REGISTER IS PERMANENT, IE. IT 

RQOaO IS usee DURING THE ENTIRE MISSION TCP ONE 

HQO 3 1 PURPCSfc AND CANNOT BE SHAHLU. 

R0032 TMP MEANS THAT TEE REGISTER IS USLD TEMPCPAPILY OR 

K0a33 IS A SCRATCH REGISTER FOR THfc ROUTINE TO WHICH 

L;003A it is ASSICNEC. teat IS, IT NEEL NCT BE S ET 

H0035 PRICR TO INVOCATION rjE THE RUUTINI NCR DOES IT 

B00J6 CONTAIN USEFUL OUTPUT 10 ANOTHER KGUtlNE. THUS 


M _flEFEPS TO THE MOBIL ITY O F THE ASSIGNMENT. 

a MEANS THAT THE SYMBOL IS REFLPENCEU feY BASIC 

' instructions and thus is e-bank sensitive. 

I means that tee symbol 13 REFEPENCLD CNLY BY 
INTERPRETIVE INSTRUCTIONS, AND IS THUS E-BANX 
INSENSITIVE ANC MAY APPEAR IN ANY E-BANK. 
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Ip (P 






1 

EftiSIlLI ASSIGMMEMS 

USER'S PAGE 

NO. 2 EO S3 



1 

fl 01333 

IT MAY flE SHARED WITH ANY OTHER kCHJTINE WHICH 





R003B 

IS NOT ACTIVE IN PARALLEL. 





R0O39 

IN REAMS INPUT IG THE ROUTINE AND IT IS PROUABLY 





RQO^iL 

TEMPCRARY for a higher-level rout INE/PROGRAM. 





R0041 

OUT MEANS CUTPUT FROM THE ROUTINLt PROBAELY 





RQQ42 

TEMPCRARY FCP A HIGHER-LEVEL F OUT 1 N E/PROGRAM. 













\ 


i 




i ,i 

• '■ r 



. - ■■ I— 1 ^1— 




* - . - - Ht- 

* 

^ 


a .. \i \ : _.iiL^xr!!^:.ig,8rA? 




I 

— ^ — ■■ - ■ r 



✓ 




X 


t- 



i 


t 


X 



n 






I' 

I 


A 





- r 



^ I 


r- 






iv *gE^- ■ 
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V , USER'S PAGE NO. 3 EO S'3 

♦ 







\ 

PflQblJ 

SEECIAL P£GlS?-£Bi. 






• W W 




# 




0000 

A 

EQUALS 

0 



0052 

OOOl 

L 

LQUAl S 

1 

L and Q are both CHANNELS AND REGISTERS. 

» 

0C53 

0002 

. Q.. . 

LUUALS 

2 

/ 


W ^ 

0054 

0003 

EBANK 

EQUAL S. 

3 



C055 

0004 

F8ANK 

EQUALS 

4 



005fc 

OCL05 

1 

EQUALS 

5 

ADJACENT rO EBANK ANO BBANK EUR CXCH 

Z 

0057 

0006 

BUANK 

EQUALS 

6 

(DTCBI and CXCH EBANK (OfCFI. 


AGQSe 




* 

REGISTER 7 IS A ZERO-SCURCt, USED BY 

ZL. 









0010 

ARUPT 

EQUALS 

10 

INTERRUPT STORAGE. 


0060 

OCll 

lrupt 

LQUAL S 

11 



00 tl 

0012 

qrupt 

EQUALS 

12 



0062 

C013 

SAHPT IME 

EQUAL 5 

13 

sampled time 1 C 2 . 


ooti 

0015 

ZRUPT 

EQUAL S 

15 

(13 AND 14 ARE SPARES.! 


0064 

00 16 

eANKRLiPT 

EQUALS 

16 

USUALLY HOLDS EBANK 0^ 3BANK. 



0017 

BRUPT 

equals 

17 

RESUME ADDRESS A^i WELL. 



0066 


D02D 

0067 


0021 

0066 


0C22 

CC6S 


002 3 


CVK EQUALS 20 

i£ equals 21 

CVL _ equals ^ 

EUOP EQU ALS 23 


EDITS INTe*JPREl IVE OPERATION CODE PAIRS 



0070 

0071 




0024 

TIME2 

Equals 

24 







0025 

TlMEl 

EQUAL S 

z 




0072 




0026 

T IMfcJ 

EQUALS 

26 





OUTJ 




00 27 

71864 

EQUALS 

27 





0074 




0030 

TIMES 

EQUAL S 

30 





0075 




0031 

T iME6 

EQUALS 

31 





0vj76 




0032 

CUUX 

EQUALS 

3? 





0077 




0033 

CDUV 

EQUALS 

33 




1 

fJuTB 




0034 

CDUZ 

EQUALS 

34 




1 

i 

0o7s 




0035 

CDUT 

EQUAL S 

35 

JPTICS 

TRUNMCN COU (MAS CPTYI. 



coec 

REF 

1 


0035 

GPTY 

a 

CDUT 





JO 61 




0036 

COUS 

EQUAL S 

36 

CPT ICS 

SHAFT COU (WAS OPTX). 



0062 

R£f 

1 


0036 

CPT X 

■ 

COUS 





00a3 




0037 

P IPAX 

EQUALS 

37 





0UEi4 




0040 

PIPAY 

EQUALS 






0065 




0041 

P I P A Z 

EQUAL $ 

41 





UO B6 




0042 

BHAGX 

EQUALS 

M 2 





0067 




0043 

BMAGY 

equal S 

4 3 





00B6 




0044 

BMAGZ 

EQUAL S 

44 





0069 




0045 

INL INK 

EQUALS 

45 





0090 




0046 

RNRAD 

EQUALS 

46 





0091 




0047 

GYRQCTR 

EQUALS 

47 





0092 




0C47 

GyrdCmo 

EQUALS 

4 7 






Qu93 0050 CDUXCMO EQUALS 50 


OOSA 0051 ' CDUYCHU EQUi^t S 51 


CA P I 
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bO S3 


0095 





0052 

tOUZChO 

tguAi s 

52 




QQ96 





0C53 

COUTtMD 

cOUALS 

53 

OPTICS TRUNMCN COMMAND (VAS OPTYCVr-J. 


n Li Q 7 

RFP 

1 



0053 

OPTVCNO 

a 

CDUTCFO 




G09Q 

BEE 

2 

L^il 

3T 

0033 

TVCYAW 

EgUALS 

CDUTCPD 

SPS YAV( CONNANO IN 

TVC MOoe. 


0QV9 





005A 

LOUSCHO 

EQUALS 

5A 

OPTICS SHAFT COMMAND IWAS CPTXCMDJ. 


1 1 1 0 (1 

RFF 

1 



QQ5A 

T VC Pi TCI- 

4 C 1 A f C 

COUSCPD 

SPS PITCH CCMPANO 

IN TVC NODE. 


QiOl 

KEf 


LA_S1 

3 1 

0<35A 

OPTXCf^O 

a 

CDUSCPO 




CIO^ 





0^55 

EHSC 

~EgUALS 

55 


■ 


lJ 1 tj 





0055 

THRUST 

EQUALS 

55 




QiO^ 





0-05.6 

LEMONM 

EQUALS 

56 




0105 





0057 

OUT L INK 

EQUALS 

57 




0106 




V 

Q060 

ALTM 

EQUALS 

60 





— R Q, 1 OT 


IhT6RPft£TlVg 




RELATIVE TO VAC AP 


EA. 


Cloa • ' 

00A2 

LVSQUARE 

EQUALS 

340 


SQUARE OF VECTOR INPUT 

TO ABVAL AND UNIT 


0109 

OQAA 

LV 

EQUALS 

3 60 


length of VECTOR INPUT 

TO UNIT. 


olio 

OOA 6 

XI 

EQUALS 

360 


INTERPRETIVE SPECIAL REGISTERS RELATIVE 


011 1 

00A7 

X? 

EQUALS 

390 


TC THE WORK AREA. 



0112 

0050 

SI 

EQUALS 

400 





0113 

0C51 

S2 

EQUALS 

410 





QUA 

0052 

CPRFT 

EQUALS 

420 















^ 0 - < 


J. . A 

f--- 



7%1 Cf ACC PHCGRAM 

- < 

r 


hA SA 
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£R^SiieL£ ASSIGNMEMS 


USER»S PAGE MO. 


FO S3 


PQ115 IhKl/CLlPLT C^A^^£LS 


CHANNEL ZERO IS TC BE USED IN AN tNGEXEO CPERATICh ONLY. **♦ 


01152 

REF 1 OOOL 


LCHAN 

EQUALS 

L 



UI15i 

on ft 

RFF 1 OOC2 


CCHAN 

EQUALS 

EQUALS 

Q 



0003 


HlSCALAR 

J 



wm —-m 

0117 

0005 


lOSCAlAR 

EQUALS 

5 



0118 

0CO5 

• 

PYJETS 

EQUALS 

5 



0119 

0006 


RCLLJE rS 

EQUALS 

6 



0120 

0007 


SUPERBNK 

EQUALS 

T 



0121 

0010 


OUTO 

LOUAL S 

10 



0122 

OCll 


CSALMQUT 

EQUALS 

1 1 



0123 

0012 


CHAM2 

EQUALS 

12 



Q12A 

0C13 


CHAN13 

EQUALS 

13 


( 

0125 

0015 


CHAM5 

EQUALS 

15 



0126 

aoi5 


HNKEY IN 

EQUALS 

16 



0127 

0016 


NAVREV IN 

EQUALS 

16 




QC30 


CHAN3J 

equals 

30 



01272 

0031 


CHAN31 

EQUALS 

31 



01273 

GC32 


CHAN32 

equals 

32 


- 

0128 

0033 


CHAN33 

EQUALS 

33 



0129 

0C35 


CNTNl 

equals 

35 



0130 

0035 


CNTH2 

EQUALS 

35 


4 

HQ131 
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P0i35 i^LAtklDRDi. 


RC136 

FLi£itF£C 

S7A1E *il 

(COO-Cl^I 



KG137 

PL^CMPCl 

SlATb 4l 

tOl5-C29 ) 



pn ^ 

fl f Ctafi C2 

STATE +2 

(03C-C^4 } 



R0139 

FLAGRPCi 

S.1ATE 43 

(O^iS-'CSS T 



RCl^O 

FLAC^RC^ 

STATE 

(060-C7A ) 



KQiAl 

f LA CbR£5 

STATE 

l!i75-Ca9J 



kUlSZ 

FL/GWPC6 

STATE 46 

C090-iOA» 



R0143 

FLHRPC? 

STATE 47 

( IC5-US » 



POKiA 

FLACuPCe 

STATE 43D 

tl2C-l3A) 



P0145 

FLAGkiRCS 

STATE 490 

t las-i^s ) 



AOl^e 







FUi^7 SCPTEC LIST CF 

ROi^fi UTEPPniVE imrCH oiX ASSIQ^HE^TS 


ftLlliig lNlERPPkll\£ ShlTCFi BIT ASStGhf*ENTS 


K015Q 

FlAGhCPC 

etc NiJM 

BIT 

4 flag eou I valent flag words 






H0151 

22C <PFLG 

0 22C 

BIT 

13 FLAG 2 

PQ152 

36CS8 

1 3^0 

BIT 

1 flag 8 

R0153 

3A> 1 SFLG 

0E4C 

BIT 

6 FLAG 5 

RQlSfc 

ACVTRK 

125C 

BIT 

1C FLAG 8 

HGlt>7 

APSESk 

1 300 

BIT 

9 FLAG 8 

K0159 

AST8FL AG 

1 cac 

BIT 

12 FLAG 7 

K0161 

ATTCF FLO 

1180 

BIT 

2 FLAG 7 

POU^i 

AVtCFlAG 

0 290 

BIT 

1 FLAG 1 

RGltoS 

AVCHICSh 

1 A9D 

BIT 

1 flag 9 

R Q 1 fc t> 

AVFLAC 

QAOC 

BIT 

5 FLAG 2 

RU169 

CALCRAh2 

0A3C 

BIT 

2 FLAG 2 

P017C 

CALCMAN3 

0A2C 

eiT 

3 FLAG 2 

Kai71 

CPC APAPP 

0930 

BIT 

12 Flag 6 

P0I72 

CPCCNFLG 

123C 

BIT 

12 FLAG 6 

Hgi73 

CP/CSTET 

1C30 

SI T 

2 FLAG 6 

Ron^ 

CCC AFLAC 

1310 

BIT 

9 FLAG a 

80175 

CCPPL lEP 

082C 

BIT 

a FLAG 9 

80176 

CPF IFL AG 

ocoo 

BIT 

15 FLAG 0 

80177 

CllTFLAG 

0S3C 

BIT 

7 FLAG 3 

80178 

CtCLESP 

0 380 

61 T 

10 FLAG 2 

P0179 

OeCPSFLG 

0580 

PIT 

2 FLAG 3 

80180 

CAPBITl 

0900 

ei T 

15 FLAG 6 

80 181 

CApen2 

0910 

en 

lA FLAG 6 

80182 

CIPCFLAC 

059C 

eiT 

1 FLAG 3 

8018^ 

CPEPFLC 

oeiL 

BIT 

9 FLAG 5 

8Q185 

CR IFTF LG 

030C 

BIT 

15 FLAG 2 

80186 

CSKYFLAG 

015C 

BIT 

15 FLAG 5 
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USER'S PAGE NO. 


eo S3 


R02bS NEW in. C 


P.U187 

P0I6S 

ECSk 

ENGIFL AG 

jaiD 

0 lec 

Oil 

bl T 

e r L y o 

12 FLAG 1 

fSlN L; r* Ml r L w 

— _ - ^ — : u ^ ^ 

r ^ jk w j 


019C 

eiT 

11 FLAG 1 



PU191 

e^CCNFLG 

0E3C 

BIT 

7 FLAG 5 



Y ' Hi A M Jk 

k 1 1 m V- ill w V 

£R A CFIAG 

H!! B ^ ^ . — 

0170 

en 

U FLAG 1 



r*. w ^ 

R n 1 Q4 

F18 IFf iC 

0 3 fl C 

fill 

7 FLAG 2 

FlkSTFLG OPTNSk 


RG196 

F28 T£ 

IQD 

017 

5 FLAG 0 



R0197 

UiJl QP 

F lA ALFLG 

029C 

BI7 

6 FLAG 2 



F 18 <;TPir. 

3E0 

BIT 

7 FLAG 2 

LTPIFIAC OPTNSYi 


RQ201 

F8£ EFL AG 

a 120 

en 

3 FLAG 0 



R02C2 

A0204 

c A M: 1 F S hi 

-y ML - w — ■» ■ 

as4C 

BIT 

11 FLAG 6 



GLCKFI IL 

046G 

BIT 

14 FLAG 3 



K0205 

GRECFVSli 

0S50 

en 

1C F L AG ft 

GONEPAST 


RU2C7 

GCKEBV 

1 120 

en 

6 FLAG 7 



»a2 C8 

GChFPiST 

0S50 

en 

1C FLAG 6 

GMBUFVSk 


F02Q9 

80211 

RU212 

G88aK FLC 

0650 

817 

5 FLAG 5 



GLE SSV 

0260 

en 

2 FLAG i 



GYPDlFSli 

1C40 

BIT 

1 FLAG 6 



80213 

•0505^ 

IC2C 

on 

3 FLAG 6 



PQ21<^ 

H18C 

0S9D 

BIT 

6 FLAG 6 




ICLEFA IL 

0 240 

BIT 

6 FLAG 1 



80216 

IClEFlAG 

1130 

BIT 

7 FLAG 7 



RC217 

IGNFLAC 

IC7D 

BIT 

13 FLAG 7 



R021 E 

18FLL <k 

0 360 

e I T 

9 FLAG 2 



8021<> 

18LSE 

0C7C 

en 

a FLAG 0 



K0220 

I8CC8FLG 

0790 

BIT 

11 FLAG 5 



Ra22 1 

INF INFLG 

l2flD 

BIT 

7 FLAG 3 



R0222 

I P 8 L S 8 

ICOO 

BIT 

b FLAG ft 



PQ2221 

I M f L A G 

1510 

BIT 

14 FLAG 10 



KU225 

IM YPFLG 

0560 

BIT 

4 FLAG 3 



R0227 

n 5hi ICF 

1 C60 

BIT 

14 FLAG 7 



8U22S 

KFLAG 

0 140 

BIT 

1 FLAG Q 



80232 

KNCbNFLG 

0970 

BIT 

8 FLAG 6 

tGSW K57FLAC 


8Q23A 

LAI Sh 

1 CIO 

tlT 

4 F L AG ft 



80235 

L8CCRFLG 

1 240 

eiT 

11 FLAG 8 



80236 

LLKAFLAG 

0460 

BIT 

12 FLAG 3 



RL23S5 

MA>C BFLC 

1360 

6 1 T 

12 FLAG 9 



RU2^0 

MCLVFLAG 

0660 

en 

2 flag 5 



802^1 

MiC IFLAC 

1470 

en 

3 FLAG 9 



802^2 

N 1C AVFLG 

1460 

en 

2 flag 9 



802<«3 

81CFL AG 

0C2C 

BIT 

13 flag 0 



8U2AA 

PKCVFLAG 

0720 

BIT 

3 FLAG 4 



802^5 

PCCNFLAG 

0C3D 

BIT 

12 FLAG 0 



80246 

N88 ICFLG 

06CD 

BIT 

15 FLAG 4 



H0247 

PPFhVFLC 

066 0 

ei T 

9 FLAG 4 



KU24 0 

MFLPTFLG 

0700 

61 T 

5 FLAG 4 



80251 

HkA ITf LG 

0640 

BIT 

11 FLAG 4 



80252 

IH 1 

O 

3D 

1 

1440 

BIT 

6 FLAG 9 



80254 

neeclflg 

0C60 

ei T 

9 FLAG 0 




1220 


BIT 13 FLAG b 
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A0236 

NJET-SFLG 

0150 

BIT 

15 FLAG 1 



R025B 

NCCCFLilG 

0440 

BIT 

1 FLAG 2 



r02‘39 

NCFFhCR 

0C4C 

ulT 

11 FLAG 0 



ilQ26Q 

NCFRSI^ 

1100 

BIT 

IQ FLAu 7 



P0261 

NCS^- ItCF 

0980 

PIT 

7 FLAG 6 



RQ2fe5 

■ hFMQFLG 

062C 

■ ■ .en 

13 FLAG 4 



HQ266 


J107C. _ . 

BIT 

e FLAG 4 



RQ267 

NPIFIFLG- 

0710 

BIT 

4 FLAG 4 




NTJRCFLG 

1C2D 

BIT 

3 FLAG 6 



R0269 

N^A ITFLG 

0«50 

BIT 

IC FLAG 4 



R0272 

CPTRSii 

0380 

eiT 

7 FLAG 2 fcTPIFLAG FIRSTFLG 



RQ274 

nii£kFJ^G 

0 540 

__ fill 

6 FLAG 3 . 



Fa275 

QfeCERlVi 

1290 _ _ _ 

BIT 

6 FLAG 0 



PQ2765 

P22PKfLG 

490 

BIT 

11 FLAG i 



R J 2 7 8 

P29y791k 

1260 

BIT 

9 FLAG 8 



F0279. 

pcspflac 

0630 

BIT 

12 FLAG 4 



R0280 

Pf PAlf LG 

041C 

BIT 

4 FLAG 2 



PQ281 

PlKEPf LC 

0 69 0 

BIT 

6 FLAG 4 



F0282 

PPEC IFLG 

0520 

BIT 

e FLAG 3 



P0283 

PPFTPK AT 

0 800 

BIT 

1C FLAG 5 




HOZa^ PPlCDfLG OeiD BU FLAG A 


R0285 PPChVFLG 06aC BIT 7 FLAG ^ 

R0286 QCIIFL^G l^5C BIT 5 FL/iG S 

RU2B7 R21HJRK 031C BIT FLAG 2 

POZee «22(IFLG 1430 BIT 7 FLAG 9 

P,0290 R23FL6 021C BIT 9 FLAG 1 

R02S1 R31FLAG 1460 BIT 4 FLAG 9 

P0293 R;3FLA G 0C 9L SIT 6 FLAG 0 

RQ294 R57PL<C 0970^ _ BIT 6 FLAG 6 KNOKNFLG LCSW 


W0Z96 RtCFLIG 0660 BIT 4 FLAG 5 


PC29 7 

Rtf SMFLG 

0470 

BIT 

13 FLAG 3 


pg297i 

RE IMFLG 

1560 

BIT 

7 FLAG 10 


80298 

RCL VELSk 

0960 

BIT 

9 FLAG 6 


RC299 

RtACkFLC 

0890 

BIT 

1 FLAG 5 


P03U0 

RhCVZFLG 

0C80 

BIT 

7 Flag o 


. .. R03.C14 

PPCf LAG 

1 200 

an 

15 FLAG 6 


RQ30e 

RVSk 

HID 

BIT 

S FLAG 7 


P0J13 

SAVECFLC 

1400 

ei T 

K FLAG 9 


PQ314 

SLCFE5W 

027C 

BIT 

3 FLAG 1 


K0315 

SCLkSk 

0670 

BIT 

3 FLAG 5 


poait 

sclpcflg 

1420 

BIT 

6 FLAG 9 


P03lti 

STATEFLG 

0550 

BIT 

5 FLAG 3 


R0319 

STtEBSk 

0340 

BIT 

11 F LAO ^ 


H0320 

stikflac 

0 16 C 

BIT 

14 FLAG 1 


R03201 

STPLLLSk 

920 

BIT 

13 FLAG 6 


P0321 

SLPFFLAC 

i2’7D 

BIT 

6 FLAG 6 


R0323 

SkTCkEP 

1350 

BIT 

15 FLAG 9 


H0324 

TARClf LG 

0200 

BIT 

1C FLAG 1 

. . J 

P0325 

TAPC2FLC 

VJ210 

BIT 

9 FLAG 1 

1 

K0326 

T ERR I F LG 

IC5C 

BIT 

15 FLAG 7 



ft0327 

PU32B 


RQ3295 

PG330 


P0i34 

PQ339 

R03361 

R03362 

H0337 


R033B 

P033‘5 

P034Q 


pfwiSiriK dP Aac prcgram cqiossus Bv ha^a 2£i2llll-C3i — 


1817 AUC. 24.1968 KILEPASE.CTB PAGP 


ER^S/)eL£ ASSla^Mt^TS 


TBPC3FLG 
TPLhf LAG 

uPn/ifLC 

UFLCCKFL 

V21FI.AG 

WStFLAJG^ 

VeTFLAG 

VeiFPFLC 

VS^FLi-G.- 


VFFLPFLG 
VFP IFLAG 
VFLAG 


2ta 

QllL 

Q73C 
U6C 
IHC 
Q7flO 
I 360 


13 7C 


12^0 


022C 


U7C 

OSCC 


TFf Sk 

119D 

BIT 

1 FLAG 7 

T IFPF LAG 

IC9C 

BIT 

11 FLAG 7 

TBACKtLG 

Q25D 

BIl. 

3 FLAG..1.. 


BIT 


FLAG 1 

BIT 

k 

FLAG 0 

fiJJL 

_L 

FLAG 1 


an ^ FLAG 7 

BIT 6 FLAG 7 
BIT 12 FLAG 5 


on H FLAG 9 
BIT 13 FL AG 9 
BIT 11 FLAG 9 


eiT 6 FLAG 1 
BIT 3 FLAG 7 
BIT IC FLAG 3 


F0341 

VE F PF L AG 

1410 

BIT 

9 

FLAG 

9 

R0 3^3 

V IMFLAG 

057C 

BIT 

3 

FLAG 

3 

KC3<i4 

ACILVFLG 

0370 

BIT 

e 

FLAG 

2 

RU3AS 

KC5PFLAG 

074C 

BIT 

1 

FLAG 

4 


USER'S PAGE NO 


EO S3 


r.AD! 

t REVISION 237 OE ALC PkCGRAM 

COLOSSUS BY NA 

J.4 M 

2021I11-C31 

111? AUG. 24.1960 KlLERASt.078 PAGE 43 









1 

FRA(;ASLF ASSIGKMtMS 




USER'S PAGF MG 

. 10 EtJ S3 

1 

PCJiZ 

IKIFRPRETI^P SkITCH Olt ASSiGhPENTS 






Q353 

REF 

1 0C74 

FLAGMRDO 

& 

state *0 

(000-014) 









t Cl 1 S4 






(SET) 

(RESET) 


Anis*i 





BIT 15 FLAG 0 



0356 


OCOO 

CPHl flag 

s 

OOCD 

OUTPUT OF CALCGA IS 

OUTPUT OF CALCGA IS 

AQ357 






CPHIX 

THETAD 









C35 ?5 

REf 

1 4674 

CPH IQIT 

s 

KIT 15 
















bIT 14 FLAG 0 



C359 


UOO L 

JSW ITCH 

M 

001 U 

INTEGRATICN OF W 

INTEGRATION OF STATE 

AG3tO 






MATRIX 

VECTOR 

1 

03tC5 

Rt.F 

1 4675 

JSWCHB I r 

= 

BIT14 











A C 3 6 1 





BIT 13 FLAG C 



0362 


0C02 

H lUFLAG 


002D 

INTEGRATION WITH 

INTEGRATION WITHOUT 

A0363 






SOLAR PERTURBATIONS 

SOLAR PERTURBATIONS 


0 3635 

REF 

1 4676 

P10PL8IT 

A 

B ITl 3 











AO 3 64 





BIT 12 FLAG 0 



Q365 


0C03 

POONFLAG 

m 

0030 

MOON IS SPHERE CF 

EARTH IS SPHERE OF 

A0366 






INFLUENCE 

influence 


03665 

REF 

1 4677 

POQNBIT 


bIT12 




AC369 





BIT U flag C 



037C 


0C04 

norfhqr 


004 0 

FAR horizon 

NEAR HORIZON 
















■ . 1, 

03 7C5 

REF 

1 47C0 

NORfeiT 

s 

6 IT 1 1 


1 



_ . _• - = — T — 






AC 373 





bIT 10 FLAG 0 



0374 


0005 

ZMEASURE 


0050 

MEASUREMENT PLANET 

MEASUREMENT PLANET 

AQ375 






AND PRIMARY PLANET 

AND PRIMARY PLANET 

AQ376 






DIFFERENT 

SAME 


03775 

REF 

1 4701 

ZMEASe 1 r 

« 

eiTic 











AC3 ?9 





BIT 9 FLAG 0 



C360 


0CC6 

neeclflg 


0060 

TOTAL ATTIOUOE 

A/P FOLLOWING ERROR 

AOiai 






ERROR OISPLAYED 

OISPLAVED 


03815 

REF 

1 4)02 

NfcECLBlT 

* 

6 IT9 










te 

A0382 





BIT B FLAG 0 



0383 


0007 

IMUSE 

A 

0070 

1 MU IN USE 

IMU NCT IN USE 


CA P* ASStf*8 lt 7'M f!F AGC 

L fcRiSA£LE ASSIGMIEMS 


PkCiGRAM Lnin5lj>US BY NASA 2 l2I11 I“-C11 


AUa, 24.iqfefl KILERASl.076 PAGE 
USER'S PAGE NO. 11 EO S3 


q^B %% ft PI 1 4l(L3 IMUSEBIT » 


hlT 7 FLAG 0 






OCIO 

RNDVZFLC ^ 

ooec 


P 20 RUNNING 

P 2 C HOT RUNNING 

^.i 2 JQ V 

REF 

1 


4 1 C 4 

HNDvzen a 

on? 



. 



n c 1 















BIT 6 

FLAG 0 



- Ji U ^ J u 

Q 3 S 1 




OCll 

R 53 FLAG * 

009 D 


V 5 l INITIATED 

V 51 NUT INITIATED 

V ^ ^ 4 i 











f ) a Q 1 ^ 

R F F 

1 


4705 

R 5 JH.BIT « 

BIT 6 





t IT 

— Ji 


_T_ 






A n ^ 






bIT S 

FLAG 0 



C 3 S«i 
AiUQ 7 




0012 

F 2 R 7 E 

oicr 


IN TIRE CRITICAL 

NOT IN T IME CP IT ICAL 








MODE 

MODE 

Ai U J T i ■ 










03975 

R F F 

1 


4 706 

F 2 RTEBIT *• 

3 IT 5 




T 4 It 1 

A - 














BIT 4 

FLAG C 



/7 V j ^ y 

G 3 S 9 

AQ 400 




OC 13 

IRUNFLAG = 

OllD 


driving of TRUNNION 

DRIVING OF TRUNNION 








ALLOWED 

NUT ALLOWED 

W U *i w w 










0 <iCQ 5 

REF 

1 


4 707 

TRUNBIT * 

Bn 4 





Jl^ 








A tj i| Q 3 






bIT 3 

FLAG 0 



Q Af 




0 C 14 

FPEEFLAG * 

0120 


(TEMPORARY FLAG USED IN MANY RUUlINtil 











Q A 5 

REf* 

1 


4710 

FREEFlilT *> 

DIT 3 



- . 


fl W 1 

* 








A 04 O 5 






bit 2 

FLAG 0 



« fcJ T W 

A 04 u 6 





S 

01 3 D 



. 











4040 e 






BIT 1 

FLAG 0 



M M 1 W 

0409 




0016 

KFLAG 

014 D 


SEARCH SECTOR MCRE 

SEARCH SECTOR LESS 

£04 1 0 








THAN 180 DEGREES 

THAN 180 DEGREES 


C 4 105 

REF 

1 


4712 

KBIl ® 

bITl 



, 

w T * ^ ir 

’ ^ fci • 









04 1 1 

Rf'F 

7 

1 i^T 4 ^ 

QC 7 5 

FLAGWRDl = 

STATE 

♦ 1 

(C 13 - 029 ) 



404 12 








( SET I 

(RESET ) 


A 041 3 






BIT 15 FLAG 1 


— V ft ^ 1 * n 1 1 n N 1 

0414 




OOl? 

mjetsflc *= 

015 D 


Two JET rcs Burn 

FOUR JET PCS cUhN 


04145 

REF 

2 

LIST 42 

4674 

NJETSBIT » 

BITl 5 














A C 4 1 5 






BIT 14 FLAG 1 



-T. Jk T Jk — 

04 16 




0020 

STIKFLAG = 

0160 


KHC CONTROL 

CNC CCNTROL 













PmiflfiAM CQIDSSU!. flA^h 2021111-C31 


III? AUG. 2^.1968 KlLfeRAS£:.078 PAGE 


ISSE>£L-i- BEVIS IQ^ ?37 



L feRiSifiLE A SSlCN HEAli 


U>EF*S PAGE NO. 12 EO S3 


> i 4 1 A ^ Rtf 

2 LiKl 43 4675 

STIKBIT » 

0IT1 4 





Ar4i 7 



BIT 13 FLAGl 




Q^ie 

0021 

ERACFLAG » 

017D 

EAPTh, COPPUTE 

EARTH, USE FIXED 


AOAl 9 




FISCHER ELLIPSOID 

RADIUS 


An4 1 9 1 




RADIUS 



AG4 192 




MCON, use FIXED 

MOCN, USE RLS FOP 


A04193 




RADIUS 

LUNAR RADIUS 



0^195 HEf 1 LASI ^2 A676 ERACFei T ” B 1 T 1 3 


AQ4i20 _ BIT 12 FLAG 1 


A0421 







OIBD 









A0422 







BIT 11 

FLAG 1 






042J 



0023 



ENG2FLAG => 

019D 


KCS BURN 

SPS 

BURN 




04235 REf 

2 LAS? 

43 

4700 



ENG2Bn ^ 

B 1 T 1 1 








A0427 







BIT 1C 

FLAG 1 






0426 



0024 



TARGIFLG * 

020D 


SIGHTING L6N 

NOT 

SIGHTING LEM 




04265 REF 

2 LIST 

43 

4 7C1 

TARCIBIT * 

BITIC 











AG429 





BIT 9 FLAG 1 



C430 



0025 

TAR02FLG - 

0210 SIGHTING LANDMARK 

SIGHTING STAR 



04305 REF 

2 LIST 

43 

4 7 02 

TARG2bl7 » 

blT9 




A0431 





BIT 9 FLAG 1 



0432 . _ 



0025 

R23FLG 

0210 

R23 marking 

R21 MARKING 


A0433 


04335 

REF 


LIST 

45 

4702 

R23KIT 

L I T9 

















40434 







BIT 6 

FLAG 

1 



043S 





UC26 

VEMUPFLG * 

C22L 



CSM STATE VECTOR 

LLP STATE VECTOR 

10436 










BEING UPDATED 

BEING UPDATED 












04365 

REF 

i 

LIST 

44 

4 7 C 3 

VLHLPBIT - 

BITS 

















A0437 







BIT 7 

FLAG 

1 



C4 38 





0027 

UPOIIFLO = 

0230 



UPDATING BY HARKS 

UPDATING BY MIRKS 

A0439 










ALLOWED 

NOT allowed 













04395 

REF 

i 

LIST 

44 

4704 

UPOITfllT = 

biT7 
















' ' 1 

* C44 0 







BIT 6 

FLAG 

1 






AlU A4S£»Bl 


NASA 


-C31 


l;i? XLb- 24,.l<?6e KILERASE.OTS PAGE ^6 


ERliAXLl AlSJUMiEJili 


US£f<*S PAGE NG. 13 


EO S3 


Q441X 


■CLQM 


ICLEEAU = 


02^C 


(NHien RAl 


ENABLE R4l iENGFAILI 


044 1 *i 

REf 

2 

1 AST 

44 

4T05 

ICLEbIT 

2 

BIT6 


















AG442 








BIT 5 

FLAG 1 




n4 4 ^ 





0C31 

TRACKELG 

s 

02551 


TRACKING ALLOksED 

TRACKING NOT ALLOHEO 















04435 

REE 

2 

L/ST 

44 

41C6 

TP ACK0IT 

a 

BITS 














BIT 4 

FLAG 1 









0C32 

IPMOiFLC 

s 

2fcL 


PEOUEST TC 

NO RECOEST TO 


0446 

REE 

2 

LAST 

44 

4 707 

TRHOaei T 

a 

eiT4 


TEPHINATE P03 HAS 

TERMINATE P03 HAS 


AQ447 










BEEN ENTERED 

BEEN ENTERED 



AC45C 




6IT 3 FLAG 1 





n Hi V ^ mm 

0451 

OC33 


SLOPES^ = 

2 70 

I lERATE WITH felAS 

ITERATE WITH 

REGULA 


A0452 





METHOD IN ITERATOR 

FALSI METHOD 

IN 


A04521 






ITERATOR 




04525 

REF 

2 

L/ST 

4 4 

4110 

SLQPEbIT 

2 

e IT3 








- — -g -- -1- _ 









A 1 1 ^ ^ 6 








BIT 2 

FLAG 1 




0457 





0C34 

CUE SS n 

2 

02 bO 


NO STARTING VALUE 

STARTING VALUE FQH 


A0458 










FOR ITERATION 

ITERATION EXISTS 















C45dS 

REF 

1 



4711 

GULSSBIT 

2 

&1T2 







-V 











A0454 








BIT 1 

FLAG 1 




C46Q 





0C35 

AVECFLAG 


0290 


AVERAGEG (SERVICER) 

AVERAGEG (SERVICER) 


A04t 1 










TO CONTINUE 

TO CEASE 














1 

04615 

RkF 

2 

L/ST 

4 4 

4712 

AVEGBIT 

a 

bITl 




1 


0462 

REF 

4 

LAST 

44 

0C76 

f LAGWRC2 

S 

STAT t 

+2 

( 030-044) 
















A0463 










< SET) 

(RESET) 



A046^ 



eiT 15 FLAG 2 




046 5 

0036 

OPifTFLO » 

0300 

T3RUPT CALLS GYFO 

T3R0PT DOES NO GVRO 


A J466 




COMPENSATION 

COMPENSAT ION 



04665 

REF 

3 L/ST 

4 4 

4 6 74 

CRFT6IT 

= 

BITl 5 















Au470 







aiT 14 FLAG 2 




0471 




0C37 

R21MARK 

* 

031D 

OPTION ONE FOR 

CPTIUN TWO FOR 


A04 7 2 








MARKRUPT 

MARKRUPT 













04 72 5 

REF 

3 L/ST 

45 

4675 

P21EIT 

* 

P I T 1 4 







|«;irK fif AI.C PR£i^RAM flQLQSSU*; BY NASA 21^21111-03! 


1:17 AUC. 24. 1968 KlLfcHASE.QTB PAGE ^7 


L 

EPiSAELE 

ASSIGNMEMS 





USER'S PACE NO 

. 14 EO S3 












AQhlb 








BIT 13 flag 2 


f 

QA77 





QC4Q 

220SPFLG 

s 

0320 

DISPLAY DRfDV 

00 NOT DlSPt AY DRtCV 






















Q<i775 

REF 

a 

LIST 

AL 

4679 

220SPBn 

a 

B IT 1 3 














AC^ 7 fl 








BIT 12 FLAG 2 



AQA79 







a 

0330 



AQA60 






















AQ^ei 








BIT 11 FLAG 2 



QAiii 





QC42 

STLERSW 

a 

C04L 

STEERING TO BE DONE 

STEERING OMITTED 












0^625 

REF 

3 

LISI 

45 

4 7CC 

STEERBI T 

a 

0IT1 1 









1 

AU^Q3 








BIT IC FLAG 2 


1 

QABA 





0043 

CYCLESW 

a 

0350 

VG CALCULATION TO 

VG CALCULATION 

AQABS 









BE DONE 

OMITTED 












04655 

REF 

3 

LIST 

4 5 

47CI 

CYCLEBIT 

a 

BI TIO 














AQ4e6 








BIT 9 FLAG 2 



0467 





0044 

IHPULSU 

a 

0360 

MININUH IMPULSE 

STEERING BURN (NO 

A04ea 









BURN (CUTOFF TIME 

CUTOFF TIME YET 

AQASS 









SPECIF lEDJ 

AVAILABLE \ 












04095 

REF 


LAST 

45 

4702 

IWPWLBI T 

a 

6IT9 














A0490 








BIT 8 FLAG 2 



CA^l 





0045 

XOEIVFLG 

a 

0370 

EXTERNAL OELTAV VG 

LAMBERT ( AIMPCINT I 

A0492 









COMPUTATION 

VG COMPUTATION 












04925 

REF 

_2 LAST 

45 

4704 

XlEl VfilT 

a 

BIT? 














AC493 








BIT 7 FLAG 2 








0C46 

ITP IFLAG 

a 

0360 

ELEVATION ANGIE 

TPl TIMF SUPPLIED 

A0495 









SUPPLIED FOR P34,74 

FOR P34,74 

__ A0496 








BIT 7 FLAG 2 




0497 

REF 

1 



0046 

F IkSTFLG 

a 

FTFIFLAC 

SUCCEEOING PASS 

FIRST PASS THRU 

AU498 









THRU S4d.9 

S40.9 












C4965 

REF 

4 

LIST 

47 

4704 

F IHST8I T 

a 

t 1T7 




Q5(jl eir 7 FLAG 2 

0502 RLF 2 LAST 4l 00^6 OPTNSM » fc TPI f LAG SOI PHASt P3e/P78 SOP PHASe OF P38/P7B 


f 3 LAST A£ A 705 FINALblT ■ BI T<ii 


A0503 


BIT e FI AC 2 





T<; ION 

P 37 CF 

ACL PACORAM 

cninssus by nasa 

2Q21111>C31 

lii? AOG- 24.1468 KILERASF.07fi PAGE 48 


L 

6RiSA£L£ 

ASSICNMEATS 





USER'S PAGE HO 

. 15 EO S3 


050^ 





QC47 

FINALFLG 

m 

039D 

LSAT PASS THROUGH 

INTERIM PASS THROUGH * 

AOiiOS 









RENDEZVOUS PRCGRAM 

RENDEZVOUS PRCGRAM 

AOinfe 









COMPOTAT IONS 

COMPUTATIONS 


QiflfcS 

REF 

3. 

LAST 

4 6 

4?0t 

AVFLBIT 

m 

BITS 














AC5C7 








eiT 5 FLAG 2 



Q3Lij 





OC50 

AVF LAG 

a 

0400 

L£H IS ACTIVE 

C5M IS ACTIVE 

AGIO'S 









VEHICLE 

VEHICLE 












AOSIC 








BIT 4 FLAG 2 



G511 





0051 

PFR ATFLG 


041 D 

PREFERRED ATTITOOE 

PREFERRED ATTITUDE 

A0S12 









CQ'‘*PLTEO 

NOT COMPUTED 












J 5 1 2 S 

RFF 

*3 

LAST 

_46 

4707 

PFRATei T 


BIT4 


1 


A 05 13 








BIT 3 FLAG 2 



(1514 





QCS2 

CALCRAN3 

a 

042 0 

NO FINAL ROLL 

F INAL ROLL IS 

AQ515 










NECESSARY 













All 


LAST 

A6 

4710 

CALC3eiT 

a 

BIT3 














AOS it) 








BIT 2 FLAG 2 



051.7 





0053 

CALCMAN2 

« 

043 D 

PERFORM maneuver 

BYPASS STARTING 

A05U 









STARTING PROCEDUPt 

PROCEDURE 












051S5 

AM 

2 

LAST 

At 

4711 

CALC2BIT 

a 

8IT2 




AQ519 








BIT 1 FLAG 2 



C52C 





0C54 

NODQFLAG 


044 D 

V17 NOT PERMIT TED 

V37 PERMITTED 












05205 

REF 

2 

LAST 

At 

4712 

NODCBIT 

a 

eiTi 













- u 

Q521 

BEf 


LAST 

At 

0C77 

FLACKR03 

s 

state +3 

{045-0541 

■ ■ n 












40522 









ISETl 

( 'USETI 


A0523 








bIT 15 FLAG 3 



A 0524 







a 

045D 



AQ525 






















A0526 








BIT 14 FLAG 3 



0 527 





0C50 

GLOKFAIL 

a 

U46D 

CIHBAL LOCK HAS 

NOT IN GIM8AL LOCK 

A0526 









OCCURED 













05265 

KEF 

A 

LAST 

4 t 

4675 

GLOKFeiT 

a 

B1T14 




A0529 








BIT 13 f LAG ^ 


H 

C530 





0C57 

REFSHFLG 

8 

U47D 

refshmat gold 

REF5MMAT NO GOOD ■ 




£V.iS 


P&Oa^AH COitlSSllS tiY N ASA 2a2llllr£.3I 


l;17 AUG. 24.l9feg KILER4SE>Q7B PAGE fi9 


L 


EMiSAILE AlS^lGhflEMS 


USER’S PAGE NO, 16 


EO S3 


4053lX 


as32 


AU5i3 

CS3 4 


A0533 


AQ5J7 

osaa 


AC539 


AG540 

ASl^JkL 


40S42 


0563 

A0566 


AQ565 


0566 


Av567 

056b 


A056S 


A055t 
, JlSiJL 


A0552 


A0553 

-0556 


05305 Rtf 6 LAST 6l 


6676 


RtFSMaiT 


BITI 3 


Q06Q 


AFLAC » 


Bll 12 FLAG 3 
06 6 0 


LUNAR LAT-LCNC 


EARTH LAT-LONG 


05325 aU 2 — Li5J iJ. 


6677 


LUNABIT 


dlT12 


QQ61 


P22R ><F .L fa 


blT 11 flag 3 

4,90 P22 DO>»NL INKED PARK P22 DOWLINK HARK 


DATA hAS JUST TAKEN DATA NOT JUST TAKEN 


A LAST 


67CQ 


P22NKBLT 


BITU 


0062 


VFLAG 


BIT 10 FLAG 3 

0500 LESS THAN TwQ STARS ThiO STARS IN FIELD 


IN FIELD OF VIEN 


OF VIEW 


Q5395 fttf 6 LISI 


6701 


VFlAGeiT 


6IT10 


BIT 9 FLAG 3 
0510 


BIT e FLAG 3 


PKECIFLG 


0 520 


CSHPRfcC OR L6MPREC INTEGRA OR INTEGRVS 

CALLED 


CALLED 


Q5665 REf 3 LIST 




6703 


PRECieiT * 


blTa 


BIT 7 FLAG 3 


0065 


CULTFLAG 


053C 


STAR CCCULTEO 


STAR NOT OCCULTED 


05665 REF 5 LAST 6^7 


6706 


CULTBIT 


bI17 


BIT 6 FLAG 3 


0066 


OKBWFLAG 


0560 


W MATRIX VALID FOR W MATRIX INVALID FOR 


ORBITAL NIVIGATION ORBITAL NAVIGATION 


05695 Rif 6 LIST kl 


6 705 


CRBViFeiT 


B IT 6 


0C67 


STATEFLO 


BIT 5 FLAG 3 
05 5 0 


PERMANENT STATE 


VECTOR UPDATED 


PERMANENT ST4TE 
VECTOR NOT UPDATED 


REf 6 LAST 6E 


6706 


STATEHIT * 


tins 


0070 


INTVPFLG * 


blT 6 FLAG 3 
0560 


CONIC INTEGRATION ENCKE INTEGRATION 


05565 REF 6 LAST 6fi 


6707 


INTVBIT 


e IT6 


1 


I 


ASS£l*6lt 23^ t:P AGf PHTGRAM CQLaS^li. S — BY NASA 2Q.211Ii-C3.l 


i: i? 4UG. 2^.19t8 K l k^M.%,^ - 013 PAG£ 


50 


1 

A ir.NMFIlT5 






USER'S PAGF NU. 

17 FO S3 











AQ555 





eiT 2 

FLAG 

3 



U556 



00 71 

VINTFLAG » 

0570 



CSM STATE VECTOR 

LLM STATE VECTOR 

\d ^ 

An‘i»b7 




<r^ 




BEING INTEGRATEC 

BEING INTEGRATED 











05575 

REF 

A LIST Mi 

4tlC 

VINTFblT - 

BIT3 














AQ55a 





BIT 2 

FLAG 

3 



0559 



CC72 

C60R9FLG » 

0560 



CI*'£BSION CF W IS 9 

OIWENSIQN OF R IS 6 

AC560 








FOR INTEGRATICN 

FOR INTEGRATION 











05603 

REF 

2 LAST hJt 

^i711 

06aR9bIT » 

aiT2 















A0561 





BIT i 

FLAG 

3 



Q562 



0073 

CIMOFLAG * 

0590 



W MATRIX IS T( fee 

H MATRIX IS NOT TO 

hQhii2 








USED 

BE USEO 


U S 64 

REF 

5 

LAST 

Mi 

OIQC 

FLAGWR04 « 

STATE +4 

( 060-074 1 



AC565 








< SET > 

(RESET 1 












RFF 

A 

LAST 

4E 

4712 

OIMOeiT * 

8IT1 













AC366 







BIT 15 FLAG 4 



0567 





0C74 

RRKIOFLG » 

0600 

MARK DISPLAY IN 

NO MARK DISPLAY IN 

AQ566 








ENOIDLE 

EN C 1 OL E 











05685 

KEF 

4 

LAST 

Mt 

46 74 

HRKlOeiT - 

eiTi 5 




AQ56S 







PIT 14 FLAG 4 








OC75 

PklODFLG » 

0610 

PRIORITY OISPIAY 

IN NO PRIORI TY DISPLAY 

A0571 








ENOlDLb 

IN tNDIULh 











T33115 

REi 

. 5 

LAST 



467 5 

PRICCeiT = 

B I T 1 4 




405 72 






BIT 13 

FLAG 

4 



0573 




0C76 

NRMICFLG - 

062D 



NORMAL DISPLAY IN 

NO NORMAL DISPLAY 

60574 









ENOIDLE 

IN ENOIDLE 












05745 

RtF 

5 LAST 

4 S 

4676 

KRM1C81T => 

B 1 T 1 3 






A0575 






BIT 12 

FLAG 

4 



0 5 76 




0077 

POSPFLAG » 

U63D 



CAN'T INTERRUPT 

SEE M. HAMILTON 

A0577 









PRIORITY DISPLAY 













U5775 

REF 

3 LAST 

49 

4677 

POSPFBIT * 

BIT12 
















A 05 7 b 






BIT 11 

FLAG 

4 



U579 




0100 

MKAITFLG =» 

0640 



HIGHER PRIORITY 

NO HlGHEB PRIORITY 

A05B0 









DISPLAY OPERATING 

DISPLAY OPERATING 

A05eL 









when mark display 

WHEN HARK DISPLAY 


AOSeS 

AQsat 


DISPLAY OPeHATING 
WHEN NCRMAL 
DISPLAY INITIATED 


DISPLAY OPEPATING 
rtMEN NORMAL DISPLAY 
INITIATED 


, ^ ^ 0 » A 

SStABLt BfcVI&ION 237 jQr ALiL ■ gKUaHAM LH.tJSSUS BY KU< 

li-LJi 

1 f i f rtUUa 

•VI 

NO. IB 




L 

ERASAELE ASSIGNMEMS 


USER'S PAGE 

EG 53 


1 

A 0 5 8 2 



INITIATED 

INI r lATED 



1 










BEf S LAST 4S 4700 MkAlTBll ■ 

iiiiii 














AQSB3 


BIT 10 FLAG 4 






-JliBA 

QlOl NWAITFLG * 

0650 

HIGHER PRIORITY 

NO HIGHER 

PRiCBl TY 




05B75 

REf 

5 

LAST 


^?Cl 

NWAITHIT « 

b I T 1 0 












AOStiB 







BIT 9 FLAG 4 



0589 





0102 

MRKNVFLG a 

0 1>6 0 

ASTRCNAUT USING 

ASTRONAUT NOT USING 

AC59fl 








KEYBOARD WHEN MARK 

KEYBOARD WHEN MARK 

AQ591 








DISPLAY INITIATED 

DISPLAY INITIATED 











CiSRlS 

R£P 

__S_ 

LAST 

A7 

4702 

MRKNVeiT ■ 

BIT9 













A0592 







BIT 8 FLAG 4 



0593 





01U3 

NRMNVFLG - 

0670 

ASTRONAUT USING 

ASTRONAUT NOT USING 

Aa594 








KEYBOARD NHEN 

KEYBOARD WHEN 

A0595 








NORMAL DISPLAY 

NORMAL DISPLAY 

A0596 








INITIATED 

INITIATED 


05965 

REF 

A 

LAST 

4S 

4703 

NRMNVaiT - 

8IT8 













AC597 







BIT 7 

FLAG 

A 



0598 





Ul04 

PKONVFLG - 

0680 



ASTRONAUT USING 

ASTRONAUT NOT USING 

A.0599 










kEYBCARD WHEN 

KEYBOARD WHEN 

AU600 










PRIORITY DISPLAY 

PRIORITY DISPLAY 

AQ601 


— 





- 



INITIATED 

INITIATED 

06UI5 

PEF 

6 

LIST 

A.5 

A704 

PRCNVeiT • 

B 11 7 




1 













A06CJ? 







BIT 6 

FLAG 

A 



0603 





0105 

PiNeRFLG ■ 

0690 



ASTRONAUT HAS 

ASTRONAUT HAS NOT 

AQ604 










INTERFERED WITH 

INTERFERED WITH 












EXISTING DISPLAY 

EXISTING DISPLAY 













Q605S 

REF 

5 

LAST 

9 9 

4705 

FINBRBIT • 

tiIT6 






AQ606 

0607 

A06Qe 

AG6C^ 


ttIT 5 FLAG 

0106 MPUPTFLG ■ 0700 MARK DISPLAY MARK DISPLAY NOT 

INtERPUPTtO BY INTERRUPTED BY 

PRIORITY DISPLAY PRlORltV DISPLAY 



JoQ95 REF *; LAST A706 MRUPTBIT » BITS 


A0610 


BIT A FLAG ^ 


ruD* ACceiiQi c oruiQinN 

2^7 f F 

Af,f PR r ORAM 

rniossiis bil NASA 

2U21111-C31 

l:i7 AUG. 26.1960 KUERASE.078 PAGE 52 










1 

tRASAiLE 

A 5R IGAHFRTS 




USER'S PAGE NO. 

19 EO SJ 

mm 








CihLL 




Q 107 

NkUPTFLG » 

071D 

NORMAL DISPLAY 

NORMAL DISPLAY NOT 

AG612 

AQ6 1 1 







INTERRUPTED 9Y 

INTERRUPTED BY 







PRIORITY OR MARK 

PRIORITY OR MARK 

A061^ 







DISPLAY 

DISPLAY 











RFP « 

L AST 

4 5 

4707 

RRUPTBIT « 

BIT6 




40615 






BIT 3 FLAG 6 



0 61ft 




0 110 

RKOVFLAC s 

072 C 

MARK DISPLAY OVER 

NO MARK DISPLAY GVEP 

AQ617 







NORMAL 

NORMAL 










06175 

REF 5 

LAS1 

5C 

4 lie 

FKUV81T * 

B IT3 




A0617S 






BIT 2 FLAG 6 

DISPLAY BIT 


A061B 





V 

073D 

CLEARFD AT INTERVALS 

1 

1 

T> 

O 

C^ 


















A0670 






BIT 1 FLAG 6 

MARK DISPLAY NOT TO 

NO SPECIAL MARK 

0621 




0112 

XOSPFLAC « 

076D 

BE interrupted 

INFORMATION. 










06215 

REF 5 

1 A5T 

5C 

4712 

XOSP0IT * 

C I T 1 












0622 

REF 6 

LAST 

5C 

0101 

FLACRfiOS » 

STATE *b 

(075-099) 











A062i 







(SET \ 

(RESET ) 










A Q £i / ^ 






BIT 15 FLAG 5 



0625 




Qlli 

CSKYFLAG = 

0 75D 

DISPLAYS SENT TL 

NO DISPLAYS TO DSKY 

AQ626 







OSKY 


AQ626S 


















06 26 5 5 

RCf 5 

LAST 

5C 

6 676 

CSKYBIT ’ 

Bins 




A0627 






BIT 16 FLAG 5 



A0628 





— 

760 




A0630 






BIT 13 flag 5 



A0631 






111 












AQ637 






BIT 12 FLAG 5 



0636 




0116 

V56FLAG * 

0780 

CALIBRATING FOR 

normal marking for 

AQ63q 







P 23 

P 23 


063*3; 

RtF 6 

LAST 

5C 

6677 

V56FLBIT » 

B ITl 2 




AQ64C 






BIT 11 FLAG 5 


0661 




0117 

INCORFLG = 

0790 

FIRST INCORPOFAT ION 

SECOND IMCCRPORATICN 


06615 

REF 6 

LAST 

51 

6700 

INCQPOIT - 

BIT 1 1 




Af.f DP^;f.Biw rnins«;ii<l f^V KA<.A 2 u 21111 -C 3 I IiL? AUG, 24 . 1 ^t.a 


KILERASU.Q76 PAGE 



L EHiSAtLE AS:»lGhM£hTS _____ USER'S PAGE NO. IQ EO S3 

___ _____ _________ 

06^3 0120 RNGSCFLG » ROD ANOTHER FAG FOR PRFTKAT 


AC6A6 UIT 1C FLAG 5 

_ UfjAl RPf I 0 120 PRFTRKAr ■ RNCSCFlC PRFF TRACK ATT »X AXIS TRACK ATT 

AQtMb 

-OAuUi a£f e LAST 51 Aid PRFTPBIT ■ BIT 10 


AC6A9 



BIT S FLAG 5 





OfiSfl 

0121 

DMtNFLG = 

0810 

DIMENSION OF W 15 

<3 DIMENSION OF Vr IS 6 



A0651 




FOR INCORPOPAT ICN 

FOR INCORPORATION 




dASlE aif t LAST 51 <»702 ONE N FBI T « BITS 


A0652 



BIT 8 FLAG 5 




JLtL53 

Q±Z2 

COMPUTER » 

0820 

COMPUTER IS CMC 

COMPUTER IS LCC 



Q6535 REf 5 LIST 51 _A7C3 COMPTEIT * BITS 


AQ654 





BIT 7 

FLAG 

5 




Ct55 



0123 

iNGQNFLC « 

0830 



ENGINE TURNED ON 

ENGINE TURNED OFF 












06555 REF 

7 LAST 

51 

A 70A 

ENGGNBIT = 

BIT? 

















AOfef&G 





BIT 6 

FLAG 

5 




0657 



012A 

3AXISFLC » 

084C 



MANEUVER SPECIFIED 

MANEUVER SPECIFIED 


A0658 








ev THREE AXES 

BY ONE AXIS 




QfcSflS REF t LAST JJ^ A1Q5 3AXlSeiT » BIT6 


BIT b FLAG 5 

0(,^3 0 12 5 GRRBKFlG * 0850 B ACKUP G RR RECEWED BACKUP ORR NCT 

AOeeA RECEIVED 


Q66A 5 

REF 

6 LAST 

51 

A7C6 

GRReKBIT • 

BITS 








- 

BIT A 

FLAG 

5 



0666 




0126 

fi60FLAG - 

0860 



R61 MUST USE R6C 

NORMAL R61 

A0667 






















J6675 

REF 

6 LAST 

52 

<i707 

RbOFLBIT - 

BIT4 





AU672 





- 

BIT 3 

FLAG 

5 

- 

- 

0673 




C 127 

SOLNSH a 

870 



LAMBERT ODES NOT 

LAMBERT CONVERGES OR 

A067A 









CONVERGE! OR TIME- 

TIME-RADIUS NON 

A067A1 









RADIUS NEARLY CIRC. 

CIRCULAR. 1 


^ ^ A i* J 



IS IHN 

2 3 f UL 

ALi\. 

i-ULua:iu:3 ni niA:aA 

L. 

• 1 § AAy y# f A 


L 

ERASAfiLE 

ASSlGNHEhTS 




USER'S PAGE 

NC. 21 EO S3 







067^ 5 

fi£f 

6 

liST 

51 

4110 

SCLNSeiT 

8113 

- 

----- — - - . — _ 

LOh 7»i 







BIT 2 FLAG 5 



0676 





0130 

RGLVFLAG * 

0880 

LOCAL VERTICAL 

HIDOLE GIMBAL ANGLE 

A0677 








CCORDINATES 

COHPUTED 

JiQhlb 








CORPOTED 












Q678S 

REF 


LAST 


<*711 

RGLVFBIT - 

&IT2 













A 06 79 







BIT 1 FLAG 5 



06BC 





0131 

RENCRFLG » 

oesD 

W MATR IX VALID 

k WAIRIX INVALID 

A(j6ei 








FOR RENDEZVOUS 

FOR RENDEZVOUS 

A06B2 








NAVIGATION 

NAVIGATION 











OfcflPS 

REF 



LAST 

52 

4 712 

RENOweLT • 

Bill 













0663 

REF 

7 

LASl 

52 

G 102 

FLAGWR06 » 

STAT E +6 

1090-104 I 












AC6BA 








( SET ) 

(RESET ) 

Afi6R7 




- - 



BIT 15 FLAG t 



0666 





0132 

CAPBITl * 

0900 

1 SATURN 1 TVC 

0 RC5 0 NO ___ 





















06665 

rt t F 

6 

LAST 

52 

4674 

DAPlblT - 

Bill 5 













AU6e9 







BIT 14 FLAG 6 



069C 





0133 

OAP6IT2 - 

0910 

1 A/P 0 A/P 

1 A/P 0 A/P 











06^05 

_B£t 

t 

LAST 

5C 

4675 

DAP2EIT - 

BITl A 













A069<> 







BIT 13 flag 6 



C6S3 _ 





C134 

STkULLSW ■ 

920 

DO STEfcPULL 

00 ULAGECFF ONLY 

AC6^6 










CtS65 

REF 

6 

LAST 

5C 

4 6 76 

STROLeiT - 

e I T 1 3 













A069T 







BIT 13 FLAG 6 



Q6S6 

REF 

1 



013A 

ENTRYDSP ■ 

STPUILSW 

DO ENTRY DISPLAY 

OMIT ENTRY DISPLAY 

A06S9 








VIA ENTRYVN. 












C6993 

REF 

7 

LAST 

5^ 

4676 

ENCSPBIT - 

8 1 f 1 3 




aU 706 

0717 

A070ft 


0 1 3 5 


CNOAPARH 


blT 12 flag 6 

0*^30 ALOW ENTRY FU1NG5 iNHlStT ENTRY FfPlNG 

AND CAtCULATICNS AND CONTROL FUNCTION 


07Ctt5 REF 


« 


LAST 52 


AE 77 


CHARHBI T 


B I T 1 2 


A07CS 
0 710 


0136 


dAHOlFSU 


BIT 11 flag 6 
O'SAL 


CTOUTTTE GARDOT 


GARDOT NOT TO BE 


ASS U Bie ii £ V I S ION <>3 3 xt - -AXU: 

L £fi/SA£L£ -ASS-LGi^ttfceLt5_ 


AClll 


PR C^fRAM rnin^<;tK by nasa 2Q211ii-C3i Ul? AUG« KU6i^AS^^C>?B PA.q.fc_ ,.55 — 

IJS£R*S PAGE NO. 21 fcO S3 

i 

CALC ULATEO ; 


mil* 

RFP 

1 

L 

53 

4^1£0 

GMDIFBIT 

n 

. Bl 111 





AG712 








E IT 1C F LAG 6 




Cl\^ 





0137 

CHBLRVSW 

a 

u S t L 

TRIMCIHB OVER 

TRIMG1H0 NOT CVER 














071J5 

RIF 

7 

LA SI 

53 

‘tiOl 

GHBCRBIT 

m 

BITIC 
















AQ7IA 








BIT 10 FLAG 6 




U715 

REF 

1 



0137 

GONtPAST 

£ 

GBbOPVSW 

LATERAL CONTROL 

LATERAL CONTPCL 


A0716. 









CALCULATIONS TO BE 

CALCULATIONS TO BE 


AQ7i7 









ONI TTED 

DONE 














07175 

REt 

6 

OAST 


A7QI 

GCNEBIT 

a 

eiTic 





AC7ie 








BIT 9 FLAG 6 




0719 





01^0 

PELVELSW 


096D 

TARGETING USES 

targeting uses 


A0720 









EARTH-RELATIVE 

INERT I AL VELOC ITY 


A0721 









VELOCI TY 















07215 

REF 

7 

LAST 

53 

<*702 

HELVBIT 

a 

e IT9 





AC724 BIT 8 FLAG 6 


0725 





0 lAl 

EGSW 

a 

097D 

IN final phase 

NOT IN FINAL PHASE 














REF 

6 

LAST 

53 

A703 

LGFLGBIT 

m 

eiTb 





AO 72 1 








BIT 6 FLAG t 




Q727 

REF 

1 



0 Ul 

KNCHNFLG 

a 

ECSH 

LANDMARK KNCWN 

LANDMARK UNKNO>«N 














07275 

REF 

7 

LAST 

55 

9703 

KNOWNBI T 

a 

BIT 8 
















AC72e 








BIT e FLAG 6 




0729 

RkF 

1 



0 191 

R57FLAG 


KNCHNFLG 

DC NCT DO R57 

DO R57f TftUNIdN 


_Ag730 









TRUNICN BIAS HAS 

BIAS NEEDED 


A0731 









BEEN CBTAINEO. 















07315 

REF 

e 

LAST 

55 

970 3 

P57eiT 

a 

RITE 

















AC735 





BIT 7 FLAG 6 





0736 



0 192 

NOS»*ITCH « 

0980 

lateral ROLL 

LATERAL ROLL MANUVt? 



0737 REF 

8 LAST 

53 

9709 

NOShBIT s 

fcSiT? 

manuver inhibited 

PERMITED in ENTRY 



A07375 






IN entry 















A079Q 





BIT 6 FLAG 6 





0791 



0193 

HIND = 

099D 

iterating hlntest 

ITERATING OF HUNTEST 



A0792 






CALCULATIONS TO BE 

CALCULATIONS TO BE 



A0793 






DCNE AFTER RANGE 

UMiTffeO AFTER RANGE 




P RPV^S^O^ PRrCflAM COLPiSSU^t BY NASA 2Q21ill-C3i 

I £8IS4ILE 

AC144 ^ - — — 


tin AUG, 2 A.iq <8 KlLERASg.07e PAGE 

USER *5 PAGE NO. 23 EO S3 


PREDICTI ON PR EDICTION 


56 


ri7A^<i Rf-F 

1 1 iST 57 

A7C5 

HlNCeiT * _ 

6IT6 














AQ7A8 




BIT 5 FLAG 6 







ClAA 

inrlsr ® 

1000 

INITIAL RCLL 

INITIAL BOLL 



AQ750 





VILVI 

VI LV) 




c?«tC!5 r^f ^ LiST S3 ^TCfc INR- Le J t ? bAll 


AC751 











ATTITUDE NOT HELD 

ATTITUDE 

HELD 














A075A 








BIT 4 

FLAG 

6 




0755 





01^5 

latsr 

AS 

1 0 1 0 



DCWNLIFT NCI 

DOWNL IFT 

INHIBITED 

An75A 











INHIBITED 




fl75fc? 

REf 

7 

LAST 

51 

A7C? 

LAT SMb IT 

m 

8IT4 







AC175S 








B IT 3 

FLAG 

6 




0760 





01^6 

.OSGSiri 

a 

102D 



DRAG CVER .Q5G 

DRAG LESS 

THAN .Q5G 















07605 

REF 

7 

LAST 

5A 

A7 1C 

.Q5G6IT 


B1T3 







A0761 








BIT 3 

FLAG 

6 




0762 





0146 

NTARGFLC 

m 

102 0 



ASTRONAUT C ID 

ASTRONAUT 

DID NOT 

AQ763 











OVERWRITE DELTA 

OVERWRITE 

DELTA 


C763S REr e LUST 56 ATlC NTARC61T =« 6113 


Ag76<. BIT 2 FLAG 6 


0765 





0147 

CN/DSTBY • 

1030 


ENTRY CAP ACTIVATED 

entry dap not 

A 0 ?66 










ACTIVATED 












n 7 66 

REF 

ft 

LAST 

54 

4711 

CM/CSBIT > 

BITS 





A076^ 







BIT 1 

FLAG 6 



0770 





0150 

GYHOIFSW « 

i04D 


CdU DIFFERENCES AND 

COU DIFFERENCES AND 

A0775 









BCOY RATES COFPLiTED 

BODY RATES NOT 

A077t 










COMPUTED 












07765 

REF 

7 

LAST 

54 

4712 

GYMCieiT * 

OITl 





0777 

REF 

e 

LAST 

54 

0105 

FLAGhRD? » 

STAT E 

+ 7 

no 5 - 11 7 ) 



40778 









I SET ) 

(BESET » 


AO 77<5 







b IT 1 

5 FLAG 7 



0780 





0151 

TERMFLG = 

IC5D 


TERMINATE R21,R22 

00 NOT TERMINATE 

A0781 










R21iRZ7 1 


07815 Rtf 


7 LAST 5^ 


MtlM 


TtkPIBlT 


BlTl 5 


MkUiilOh 237 CF AGC 


J5; BV jjASA 2D211il-C31 


IMl AU£^ 2^.1968 _ KILERASE .078 PAGE 57 


EK/SiieLE AESlGhMEMS 


UStf<*S PAGt NO. 2A 


60 S3 


AQlBb 

Q7fi7 

ACi7a£. 


076as f^EF 


A07e9 

0790 


AQ791 


Q792 

A0793 


Aa.794 


C795 


AC799 

-OEloh 

ACaol 


ACaOb.. 

oeo? 

AQd07 1 
AQ8t.75 


AUBOe 

QflQ9 


AOe 10 

cell 


Aoai2 

oflia 


AO 014 


U1S2 


US41CH 


en 14 FLAG 7 
A060 


ACCEPT NLJ^T LAMBERT 

TPi sfakch solution 


TEST LAHbfftT ANSWER 
AGAINST LIMITS 


54 


4675 


ITSMBIT 


b IT14 


0153 


IGNFLAG 


BIT 13 FLAG 7 
1070 


TIG HAS ARRIVED 


TIG HAS NOT ARRIVED 


C7905 BEF b LAST 54 


467 tj 


IonFLBI I 


B1T13 


on 12 FLAG 7 


0154 


ASTNFLAG * 


lOBO 


ASTRONAUT HAS 

okayed IGNITICN 


ASTRONAUT HAS NOT 
OKAYED IGNIT ION 


C7935 REF t LAST 54 


4677 


ASTnBIT 


BIT12 


BIT II FLAG 7 


0155 


T IMPFLAG 


109C 


CLOKTASK OPERATING CLOKTASK INOPERATIVE 


07953 R£E B LA^ 55 


4700 


TIHHBIT 


6ITU 


0754 


NORRSW 


BIT 10 FLAG 7 

IIOD UNIT NORMAL INPUT LAMBERT COMPUU ITS 


TO LAMBERT. 


O^N UNIT NORMAL. 


QH015 REF 9 LAST 55 


4 701 


NDRMSOIT 


BITIC 


BIT 9 FLAG 7 


0 15? 


RVSR 


1110 


00 NCT CQMPLTE FINAL COMPUTE FINAL STATE 
state VECTOR IN VECTOR IN TIMfe-THETA 
TIME-THETA. 


010755 REF fi LAST 


4702 


RVSxBlT 


BI T9 


iUM 


CONE BY 


BIT e FLAG 7 

1120 


PASSED TARGET 


APPROACHING TARGET 


08095 REF 9 LAST 55 


4703 


GONbYBIT 


BITE 


U 161 


fCLEFLAG 


BIT 7 FLAG 7 

1130 


NO CV MONITOR 


CONNECT OV MONITOR 


08115 REF S la st 55 


4704 


lOLEFBiT • 


BIT 7 


SIT t FLAG 7 


0162 


V37FLAG 


1140 


AWERAoEC (SEPVKEKJ AVERACEG (SERVICERI 
RUNNING 






II 


2Q211I1-C31 


Ul? AUG. 24.1^t8 KIliR*S&>Q78 PMi ^ 


E P # tL£ ii. SS 1 G NH£I» 15 


USER'S PAGE NO. 2S 


EO S3 


Ofil^S 

REF 


LAST 

5 6 

A705 

V37FLB IT 

. 

BIT6 





X\ L I 












A n fl 1 ^ 








817 i 

FLAG 

7 



— M A 

AQQlt 







. 

1150 





n V ti A W 

AC617 







S 

BIT 5 





\A %i ^ A 

AftMt A 


























AOGIS 








BIT 4 

FLAG 

7 







0164 

UPLCCMFL 

3 

1160 



K-KBAR-K FAIL 

NO K-K0AR-K FAIL 














08205 

REP 

8 

LASl 

-iiL 

4*707 

UPLCCei T 

A 

e IT4 
















AQ821 

0622 








BIT 3 

FLAG 

7 







0165 

VQR I FLAG 

m 

uip 



CHANGED WHEN V33E 

OCCURS AT END OF P27 












1 

Q822S 

REF 

9 

LAST 

56 

4710 

VEPIFeiT 

m 

BIT3 




1 

W 



- - — ■■ ■>. 








A0823 








BIT 2 

FLAG 

7 



082A 





0166 

attchflg 

m 

1180 



LM,CM ATTACHED 

LMtCM NOT ATTACHED 













0A2A 5 

RF F 

6 

1 AST 

S6 

4711 

ATTCHBIT 

3 

B1T2 


















AC825 

0826 








BIT 1 

FL AG 

7 







0 167 

TFF'SM 

a 

1190 



calculate TPERIGEE 

CALCULATE TFF 














08265 

REP 

t 

LAST 

56 

4712 

TFFSMBIT 

s 

PlTl 
















0827 

REP 

s 

Li51_ 

5 6 

0 104 

FLAGrROB 

s 

STATE 

48L 


( 120-1341 

- - , 


AQ tiie 

*oe2s 

0830 


( SET 1 


(RESET! 


QUO 


RPQFLAG 


BIT 15 FLAG 6 
1200 


BPQ NCT COMPUTED 


RPC COMPUTED 


083l5 ref 8 LAST 56 


A67A 


RPCELBIT 


BITIS 


A0831 

A0e32 

AQ833 


BIT U 
1210 


FLAG 8 


A0U34 

0835 


Q172 


REM IFLG 


BIT 1 3 FLAG 8 
1220 


A0e36 


FIRST PASS THROUGH SUCCEEDING ITERATION 
INTEGRATION 


dP Integration 


08365 REF S LAST 5? 


A676 


NEMieiT « 


BIT 13 


A0837 

0338 

0839 


0173 


CMCCNFLG 


BIT 12 FLAG 8 
1230 


REF 


7 LAST 5? 


^67 7 


CMQCNHIT 


BIT 12 


permanent CSM state permanent CSM STATE 

IN LUNAR SPHERE IN EARTH SPHEwfc 


59 


C^ Ps AS SC^ ete PEv ISIOH pbc^isban cqiCS^uS av NA^A 2021111-031 un AU G« ■■2A.il.9 t a K1 L.&.RAS.L- IQ78 PAGl 


L 

EHI SAELE 

ASSIGNMENTS 




USER'S PAGE NO. 

26 EO S3 









Aoa^o 







BIT 11 FLAG 8 



08^1 





OiTA 

LMOONFLG • 

1240 

PERHANENT LP STATE 

PERMANENT LN STATE 

0842 

REE 

9 

LAST 

57 

4700 

LMOONBIT » 

bITll 

IN LUNAR SPHERE 

IN EARTH SHPEBE 











A0843 







BIT 10 FLAG a 



0844 





0175 

ADVTKK 

123C 

ADVANCE GROUND TRACK 

NCT ADVANCED 

ACa45 








sighting wanted 

GROUND TRACK 











08455 

REE 

1C 

LAST 

57 

47C1 

ILVTKBIT - 

BITIO 













AC646 







BIT 9 FLAG 8 



0847 





0176 

P39/79SM « 

1260 

P39/79 operating 

P36/78 OPERATING 

Aj2848 










06485 

RJF 

9 

LliT 

57 

4102 

P39sweir • 

B IT9 













A()849 







BIT e FLAG e 



0830 





0177 

SUREFLAG ■ 

1270 

LH ON LUNAR SURFACE 

LN NCI ON LUNAR 

40851 









SURFACE 











0831S 

REF 

K 

LAST 

51 

4lC3 

SUPFFQIT - 

BITS 













AC834 







BIT 7 FLAG B 



0853 





0200 

INFINFLG « 

1260 

NO CONIC SOLUTION 

CONIC SOLUTION 

AGa56 








(CLOSURE THROUGH 

EXISTS. 

A08361 








INFINITY REQUIRED). 



08565 REF 10 LIST 

5 J 

4704 

INF INBIT - 

61 T 7 



- - — 











AU857 




BIT 6 FLAG 6 






0858 


0201 

CROERSW » 

129 D 

ITERATOR USES 

2 N 0 

ITERATOR UUS ISt 



AOQ^ei 


- 



ORDER NINIPUH 

?*COE. 

ORDER STANOAKC MODE. 


- - 


t 


<J8585 PEF 9 LIST 5g ^705 CROefielT * blTfc 


Ace59 

086CI 

A0 6605 

A0861 


0202 


APSESta 


BIT 5 FLAG 8 

130C RDESmEO OUTSIDE ROESIREO INSIDE 

PER KtNTER-APCC ENTER P ER I C ENT ER-APOCEKT E 
RANGE IN TINE-RAO RANGE IN TINE-RAOIUS 


09619 REF 8 LIST 56 AT06 


APSES61T - BITS 


0 862 5 UiCi3 

AU863 

A0863I 

A0e64> 


BIT A FLAG e 

CCGAFLAG - 1310 NO CONIC SCLUTICN CONIC SOLUTION 

TOO CLOSE TO EXISTS (COCA OOFS 

RECTILINEAR (COGA NOT QVEPFLON). 

OVERFLCWSI. 


r.&D- ACcrhRi P UPlil•;In^ ? *7 Cf AGC PROGRAM CQLCSSUS BV NASA 

2C21111"t31 


1 : 17 AUG. 2A. 1965 

KILEPASe.078 PACE 

60 










t 

PQl(;A|i|P AS<sIGhMFM(i 



USL^^ ’ S PAGE 

NO. 27 EO S3 




n H 5 

RfP C LJS1 58 ^1C7 CGGAF6IT * 















Aa86*i 


BIT 3 flag 






AU GCiti 

s 

1320 






M-W H M 

AoatT 

















BIT 2 FLAG 

E 





T% W U U 

Aoees 

a 

1330 







A0a7C 







LIT 1 FLAG fi 






0871 





02G6 

3eOSh « 

i 3AD 

TRANSFER ANGLE NEAR 

TRANSFER ANGLE NCT 




A0fi72 








360 DEGREES 

NEAR 360 DEGREES 





n ft 7 ^ § 

RFf 

9 

LAST 

56 

4 712. 

3605^811 * 

BlTl 







0873 

KEF 

JC 

LAST 

5e 

U 1C5 

FLAGWR09 » 

STATfc +90 

(135 - 159) 


















A0Q7A 








( SET) 

(RESET) 




AOaTi) 







biT 15 FLAG 9 






0676 





02U7 

SWTOVER « 

135D 

SWITCHOVER HAS 

NO SWITCHOVER YET 




Hi ■ii I ■■ — — 

A0877 








OCCURRED 






oans R£F q l/st 5e swTGVoif a BiTi 5 



AC378 







BIT 15 

FLAG 

9 



0879 





0210 

V67FLAG = 

136D 



ASTRCNAUT OVERWRITES 

ASTRONAUT DOES NOT 

A0879b 










W MATRIX INITIAL 

overwrite initial 

A0a796 










VALUES 

VALUES 


087965 

ref 

t 

LAST 

57 

5675 

V67fL8I7 - 

bIT15 

















Aoaec 







BIT li 

Flag 

9 


- 1 

0881 





0211 

V82EWFLG ■ 

137C 



MOON VICINITY 

EARTH VICINITY ‘ 

A088i5 

























066155 

REF 

1C 

LAST 

5 6 

5676 

V82EKBIT a 

81713 






AQ662 







BIT 12 

FLAG 

Q 



0863 





0212 

HAXC8FLG > 

138t 



MAX CB SELECTED 

MIN DP SELECTED 

AO 6 85 













0885 5 

REF 

e 

LAST 

56 

5677 

NAXOBBIT = 

bl T 12 

















AC885 







BIT 11 

FLAG 

q 



oeet 





U213 

V95FLA0 * 

139D 



V95 ALLOWED 0LRI7(G 

4 NOT A L L C W E C 

A0887 










P23 

1 













0 6 875 

REF 

10 

LAST 

5S 

5700 

V95FLBir » 

blTl 1 


















4SS E>e LE PFVISION PftCr.RAM COI fiSSUS BY NASA 20^1111-031 1 : 1 7. ..AUiij ^ ^ ti'^.M KUEKAS^.OTS PAGF M 


L 

FR/SAELE ASSIGKHEATS 







USER'S PAGE NG 

. 28 

to S3 













AGfiBB 





PIT 1C 

FLAG 

9 





M W V V 

Ca89 


0214 


SAVECFLG * 

14CD 



P23 DISPLAY AFO 

P23 

DISPLAY AND 










DATA storage AFTER 

DATA 

STORAGE BEFORL 


Auasi 








MARK IS DONE 

m'ark 

IS nCNE 














nrt<3 1 K 

RFR 11 LA51 

410 1 


SAVtCBlT > 

t5 1 T 1 C 



















AQe92 





B IT 9 

f LAG 

9 





Qa<S3 


U215 


VHFkFLAG * 

1410 



ALLOW R22 TG 

stcp 

ACCEPTANCE 


AQa9^ 








ACCEPT RANGE 

OF RANGE DATA 


ACa95 








DATA 





08955 REF 1C L/ST 

59 

4702 


VHFRBIT a 

BIT9 






AOS^b 





en 8 FLAG 9 





Oa97 


0216 


SOURCFLG » 

1420 

SOURCE OF INPUT 

SOURCE OF INPUT 



ACe96 






DATA iS FROM 

DATA IS FROM 



40899 






VHF RADAR 

OPTICS mark 




08995 

REF 

11 

L^iT 

59 

4703 

SQURCeiT 

S 

b IT8 



















A0900 








BIT 

7 

FLAG 

9 



U9CI1 





0217 

R22CAFLG 

”3 

1430 




R-22 CALCULATIONS 

R-22 CALCULATIONS 

A0902 












ARE GOING ON 

ARE NOT GOING ON 















09C25 

REF 

1 1 

LAST 

59 

4704 

B22CABIT 

a 

eiT7 




















A0903 








eiT 

6 

FLAG 

9 



0904 





0220 

N22QRN17 

a 

1440 




CCMPLTE TCTAL 

compute total 

Aa905 












ATTITUDE ERPORS 

ATTITUDE ERPORS 

A0906 












URT N22 (V62) 

«RT N17 (V63) 















CqOfc5 

REF 

K 

_LIST 


4705 

N22178IT 

* 

81T6 





1 














1 

40*^07 








bl T 

C 

F LAG 

9 



0908 





0221 

wUITFLAG 

a 

1450 




















09085 

KEF 

9 

LAST 

59 

4 706 

QUl TeiT 


BITS 




















A0909 








BIT 

4 

FLAG 

9 



0910 





0222 

R31FLAG 

3 

1 460 




R3I SELECTED (V83) 

R34 SELECTED (VR5> 


09U5 

REF 

1C 

LAST 

6C 

4707 

R31FLBIT 

s 

BIT4 




















A0911 








BIT 

0 

FLAG 

9 



0912 





0223 

MIDIFLAC 

3 

1470 




INTEGRATE TC TOEC 

INTEGRATE TO THE 

A0913 













Then— PRES FNT TINE 














1 

09135 

HEF 

iC 

LAST 

5 6 

4 710 

MIOIFOIT 

s 

BIT3 





1 




A p 1 

ASSTAgl 1 RFV IS IGK 

2 U Jl£_ 

AGC PRCGIIAM 

COLOSSUS OY NASA 2u2 

111 ( 

Lil 




1:1? mUG. 24. 

1968 KILERASE.OTB PAGE 62 


f ■ * 

L 










PAGE NO. 



EPASAELE AlSlCryMEhlS 

= 

- - - == 



- - - 

- 

USER’S 

29 EO S3 


A0914 





BIT 

2 

flag 

9 





0915 



0224 

PIOAVFLG » 

146D 




INTEGRATION 

ENTERED 

INTEGRATION WAS 


Ap<91fc 









FROM ONE OF 

MIDTOAV 

NO! ENTERED VIA 


AQ917 









portals 


MICTOAV 















nqi 7^ 

ftFF 7 LAST 

Sfi 

4111 

MlDAVllT - 

JJ^Ta 





















AC9ie 





BIT 

1 

FLAG 

9 





0Q14 



0225 

AVEMIOSH « 

1490 




AVFTCMIC CALL ING 

NO AVETQMIO W INTEGK 


A0920 









FOP W.MATRIA INTEGR 

ALLOW SET UP RN.VNt 


A0921 









OCNT WRITE 

OVER RNt 

PIPTIME 


AIQ922 









VN,P IPTIME 

















0922* 

REF U LAST 

6t 

4112 

AVEHCHIT - 

0J T 1 







__ ^ 

A0923 









(SET I 


(RESET 1 



0^824 BEF 11 LIST 6C QlOfe 

AQ9i5 


FLGUROIO ■ STATE ♦lOO (150"U4) 


09255 fiEF 12 LAST 6 l 2 0106 PASFLAG « STATE »iOO 


AQ92t 

AC927 




BIT 

15 

\ 

FLAG 

10 





* 

15CC 



— 


AC92e 
















A0929 




HIT 

14 

FLAG 

10 



0930 

0227 

intflag 


1510 



INTEGRATION IN 

INTEGRA! ICN NtT IN 

AQ931 








PROGRESS 

PROGRESS 

Q9315 REF 

9 LAST 6C 4675 

iNTFLen 

a 

BIT14 















AQ932 




BIT 

13 

FLAG 

IC 



AC933 



a 

1520 





AC934 




















Aq935 




BIT 

12 

FLAG 

10 



AU93t 



a 

1 530 















A093E 




BIT 

11 

flag 

10 



A093S 



m 

154D 















A0941 




BIT 

10 

FLAG 

10 



A0942 



s 

1550 





A 09^ 5 




















A 094 4 




BIT 

9 

FLAG 

10 


_ - 1 

A 094 5 



a 

1 560 





A0946 











4Ag-: — 

ASSt AfiLt -H\ 

s-^j-S lOfy 

2iJ Ut 

flf.t PHI 

tiY NA^A 


J.S 1 1- 

A iiijji ^ 1 1 T C 0 

1 U 

cnwjc m SJf f o 

r MU C 0 3 


L 

ERASAELL 

ASSlGhMEMS 





USER'S PAGE 

NO. 

30 

EO S3 















AC9A7 






b I T e FLAG 

10 






AQ9Aa 





a 

1570 







10949 














A J 95 Cl 






LIT 7 flag 

10 






0951 




0 336 

REINTFLG - 

156 0 

INTEGRATICN RfUTINE 

INTEGRATHIN ROUTINE 


A 0952 







TO 

BE RESTAKTEO 


NCT TO BO 

restarted 


09525 

REF U 

LAST 

6 1 

57CA 

RE INTb TT « 

BIT7 





















AQ933 

AQ954 


BIT fc flag IC 


lf>9D 


AJ935 


AQ9b6 
AOS 5.7 
4<1<55? 


BIT 5 FLAG 10 


16UC 


AC959 




BIT 

5 

flag 

10 



AQ9tiCl 




1610 






40961 




















AQ962 




BIT 

3 

FLAG 

10 



A0963 



M 

162D 






AQ96A .. 


40965 



BIT 

2 

FLAG 

1C 



A0966 


m 

1 630 






A0967 










A096fi 



BIT 

1 

FLAG 

10 



A0969 


s 

1 64 D 






A0970 


















AQ971 








1 


QS72 REF 12 LIST 62 010? PLGtwkOlI » STATE *1IC ( 165 - 179) 

10973 { S6T 1 ( KESET 1 

A097A ~ 61T 15 FL AG 11 ~ 

A0975 f ItoOD 

AQ97t 


-A 097 7 


BIT 14 flag ll 





A097e 

9 

166C 





A0979 








Aa9S0 


BIT 13 FLAG 11 





A0981 


U7D 






Cm UP * 


nK Cf ACC L0 1fl<istl<l hV NA<;A ^i.znil-L31 


I I? flUG^ 24.1^68 KIL£ftASE-07e PAGfc fcA 


ER/SiiELfc /^IhlQhiiLKU 


LSeK'S PilGt NG. 31 


60 S3 


A09e2 — 

AQQgl ^ 3i T . IZ. t U Afi l l 

Aa9e^ ^ 

Aoses 


^ 09 b I T 11 F LAG 11 

liQ^bl * 169D 

ACiQflfl 


AC9a9 



bIT 10 

FLAG 

11 





Aa99Q 


s 

1700 







AQ991 











Afl992 



BIT 9 

FLAG 

1 1 




1 

A0993 



1710 








A099^ 


AG99S 



BIT 8 FLAG 11 



A0996 


a 

1720 




A 0997 


AC998 




BIT 

7 

FLAG 

11 



. _AQS9S 




1730 






AlOOQ 




















AIQQl 




iilT 

6 

FLAG 

11 



A1002 



S 

1740 






A1003 











A1Q04 



en 

5 flag 

11 





A1005 


a 

1750 







__ AlQCfe 










1 

A1007 



BIT 

4 FLAG 

11 





AlCCc 


M 

17tD 







AlOwV 











A 1010 


61T 3 FLAG 11 


AlCIl 

a 

1770 



41012 


A1013 bIT 2 FLAG 11 

AlOlA * 176C 

AiQn 


AlOlt 
A 10 1 7 

A1016 


BH 1 FLAG 11 
17 9 0 


e' AD* A 

BJ fffc 1 

c DCuiciniki rP Af;r. PkfG RAH mflSSLl^ fi¥ ^ Jk AiA 2Q21 11 1- 031 

1:17 AUG. 24.1968 KILERASE.078 PAGE 65 











1 

pp £ <:a FI f 

A <S ir.NMPMS 





USER'S PAGE NO. 32 EO 

S3 


P 1 G 1 Q 

1, PIk F R II 

XklSAfiLt A E_M S • 




















OCfcl 



sttm^ 

61 



A M 

R 1021 



IMERRUPl lERPQRAPV STCRAGE FCCL. (IICI 





A. M A 

RiQ22 



IITEMPI THRCUGP R0PTflEG41 
















Hi023 



AkY OF TPFSE MAY EE LSEC 

AS lEPPCRAHIES 

DURING 

INTERRUPT 

OR WITH INTERRUPT UHldlTED. THE ITEMP 

SEP les 

IS LSEC 

COPING CALLS TC TEE EXECUTIVE 

AND WAITLIST - THE 

PUPTREGS 

ARE NOT. 











1Q27 



0C61 

0061 

ITEPPl 

eb a se 




A W ^ 1 

loze 

R£r 

1 

0G61 


WAI UX I T 

EQUALS 

1 TERf 1 



1029 

REF 

2 

LIST 65 0061 


EXECTEMl 

EQUALS 

I TEMPI 













1030 

10^1 



0C62 

0062 

ITEMP2 

ERASE 




RF F 

1 

0062 


WAI fUANK 

EQUALS 

I TEMP2 



1032 

AEf 

2 

LAST 65 0062 


EXECTEM2 

EQUALS 

1TEHP2 













lL33 



0063 

006 3 

ITtMP3 

ERASE 




M ^ 

1C3A 

REF 

1 

0063 


KUPTSTCR 

EQUALS 

ITbMP3 



1035 

1036 

R£F 

2 

LAST 65 0Ce3 


WAI T4CR 

EQUALS 

ITEMP3 



REF 

3 

LAST 65 0063 


NEwPR 10 

EQUALS 

neMFB 




1037 



0C64 

0064 

IT6NP4 

ERASE 




1C38 

REF 

1 

0064 


LOCCTR 

EQUALS 

ITEMF4 



103 9 

REF 

2 

LAST 65 0064 


WAITTEMP 

EQUAL S 

r TEMP4 













IQAO 



QC65 

0065 

1 T6MP5 

ERASE 




10^1 

REF 

1 

0C65 


NEWLOC 

EQUALS 

ITEMF5 












1042 



0C66 

0066 

nEPP6 

ERASE 




A1043 





NEwLOC+1 

EQUALS 

1TEMP6 

CP ADDRESS. 












1044 



0C67 



SETLCC 

67 



1045 



0067 

OC67 

NEW JOB 

ERASt 


MUST BE AT LOG 67 DUE TO WIRING. 












1046 



0C7C 

0070 

RUPIREGI 

ERASE 




1047 



0071 

0071 

RUP TREG2 

ERASE 




1C48 



6C72 

0072 

PUPTREGB 

ERASE 




104S 



be 7 3 

0073 

RUPTREG4 

ERASE 




105C 

REF 

1 

uC?3 


KEYTEHPl 

EQUAL S 

PUPTREG4 



1051 

REF 

2 

LASl 65 UC73 


DSRLPTEM 

EQUALS 

RUPT FEG4 




R1052 



FIAGWCHO RESERVATIONS. 





( 120) 












1054 



0C74 

0107 

STAT e 

ERASE 

♦ lie 













10 55 



0 110 

0113 

FLAGF ILL 

ERASE 


+3 SPACE FOR FUTURE FLAGS 




GAPi 


cm nssu^ 


£RISltLt 


li\l AUG, 24.1968 KILEP.AS£.076 P*G£ 66 


UStt-'S PAGE NO 


33 


EG S3 


R 10 56 



E^tEC. 

TFMPCRARIES HHICH MAY BE 

LSEO eElNEFN CCS 

NLWJCBS. 




^ 10*^7 



(INTai54 THROUGH RLPTMXM) 




(3201 




















0114 0114 

INTB15+ 

ERAS! 


reflects 15TH BIT OF INDEXABLE ADDRESSES 


1 Q fcO 

ilEF 

1 



0114 

DSEX IT 

EQUALS 

I NTD 15 + 

RETURN FOR 

C S P 1 N 


-A W Ik 

1 061 

REF 

? 

L A5T 

6 6 

0114 

txi lEM 

equal S 

INTB15+ 

RETURN FOR 

SCALE FACTOR ROUTINE SELECT 


1062 

ref 

3 

LAST 

66 

U114 

BLANKRET 

EQUALS 

iNTBlSf 

RETURN FOR 

26LANK 


- -A w v' mm 



^Tm 

— -V — m 








1 Li ^ ^ 





0115 0115 

INTBIT 15 

EKASF 


SIMILAR TC 

ABOVE. 


10 1 A 

R £ f 

1 



0115 

WKDKt T 

EQUALS 

INTfc !T15 

RETURN FOR 

sblank 


1 0 

REF 

2 

LAST 

66 

0115 

kORET 

EQUAL S 

1 NTE IT15 

RETURN FOR 

CSPQD 


IQtt 

- 1 - 

REF 




LAST 

66 

0115 

OECRET 

EQUALS 

INTB 1T15 

RETURN FOR 

PUTCCM(DEC IQACI 


1067 

HEF 

A 

LAST 

66 

0115 

21/22KEG 

EQUALS 

1 N 1 b 1 T 1 5 

TEMP FCR CHARIN 



rT ^ 











R 1 Q6B 



THE 

REGISTERS 

BETWEEN ACDRND 

ANO PRIORITY MUST 

STAY IN THE 

FOLLOWING CROER 

FCR INTERPRETIVE TRACE. 

1 

.1 


12 BIT INTEHPBETIVE OPERAND SUB-AOCHESS. 

HCLOS CAUR HADE FRCH POLISH ADDRESS^ 

RETURN FOR UPOATNN, UPOATVB 

TEMP FOR CHAR IN 

COUNTER FCR ERROR LIGHT RESET 

COUNTER FCR SCALING ANO DISPLAY (DEC! 


1 Q7fa U12Q 0120 FIXLOC ERASE WORK AREA ACORESS. 

in 77 0121 GUI UVF INC ER ASE SET NON-ZERC CN Gv ERFLOw. 


TEMPORARY STORAGE USED FOR VECTORS* 

TEMP FOR +f- CN 
COUNTER FOR MIXNOUN FETCH 
COUNTER FOR OCTAL DISPLAY VERBS 
COUNTER FOR FETCH (DEC DISPLAY VE^BSI 


1083 

REF 

5 

L AST 

66 

0123 

SGNOFF 

FQUALS 

VBUF 

♦ 1 

TEMP FOR *f- ON 


1064 

REF 

6 

LAST 

66 

0123 

NVTtMP 

EQUALS 

VBUF 

♦ 1 

TEMP FCR NVSue 


1085 

REF 

7 

LAST 

66 

0123 

SFT EMPl 

EQUALS 

VBUF 

♦ 1 

STORAGE FOR SF CONST HI P ART ( =S FT EMP 2- 1 1 


luub 

REF 

B 

LAST 

66 

0 123 

HITEMIN 

equal S 

VBUF 

♦ 1 

TEMP FCR LOAD OF HRS, MIN, SEC 


AlOe7 










MUST a LOTFMIN-l. 


1086 

REF 

9 

LAST 

66 

0 124 

CODE 

equals 

VBUF 

♦ 2 

FOR DSPIN 


luB9 

REF 

1C 

LAST 

66 

0124 

SFTfcMP2 

equals 

VbUF 

♦ 2 

STORAGE FOR SF CONST LC P ART ( *=SFT EM^ 1-* i ) 


1090 

RtF 

11 

LAST 

66 

0124 

lotemin 

LQUALS 

VBUF 

+ 2 

TEMP FOR LOAD OF HRS, MIN, SEC 


A1091 










MUST » HITfcHIN+1. 


10S2 

REF 

12 

LAST 

66 

0125 

PIXTEMP 

EQUALS 

VbUF 

♦ 3 

FOR MIXNOUN DATA 


1093 

REF 

13 

LAST 

66 

0 125 

SIGNRET 

EQUALS 

VEUF 

♦ 3 

RETURN FOR CN 



0122 0127 VbUF erase IS 

1Cj7«5 ref 1 0 122 SGNON EQ UAL S VBUF 

1080 REF 2 LA ST 66 0 122 " NUUNTEM EQUALS VBUr 

Uei REF 3 LAST 66 0122 CIST EM EQUALS VBUF 

1082 REF A LAST 6c 0 122 DECTEM EQUALS VBUF 


1070 

1L7L 

1072 

1U73 

IQ7^ 


REF 

RfcF 

ML 


1075 REF 


0116 


0X16 


1 

2 

"3 

A 


0117 

0117 


Oil? 


LAST 

LAST 

LAST 


6 6 


0117 


LA 


0117 


ADORHC 

POLISH 


ERASE 

ERASE 


UPDATRET E QUALS POLI SH 
CHAR EQUALS POLISH 
ERCNT EQUALS POL I SF 


66 


0117 


DECCUNT EQUALS POLISH 


ALSC P1XTEMP4L = VBUF4<>, MX7EMP»2 « veLF*5, 


loss 


" 


0130 

0132 

fiUF 

ERASE 

^2 

temporary scalat^ 

STORAGE. 

1US6 




0133 

0134 

BUF2 

ERaSL 




1097 

REF 

1 


0 130 


INDEXLGC 

equals 

euF 

contains accrcss 

OF SPECIFIED INDEX. 

1096 

REF 

2 LAST 

6 € 

0130 


SWWGRL 

EQUALS 

euF 

ALDRESS^ OF SNITCH 

WORD . 
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laos 

REE 

•3 

_L^T 

66 

.0131 


SV«B1T 

equals 

BUF + 1 

SWITCH BIT WITHIN SWITCH WORD. * 

iiOO 





0135 

0135 

RPT6MP 

ERASE 


TEMPQPARY USEO IN MULTIPLY AND SHIFT. 

1 LQI 

RF F 

1 



0135 


ORPMEMP 

EQUALS 

MPTE PP 

OMPSUd temporary 

1102 





0136 

0136 

CCT INC 

ERASE 


COHPCNENT INCREMENT FUR DOT SUBROUTINE. 

1103 

R£f 

1 



0 136 


OVSIGN 

EQUALS 

DOT I NC 

DETERMINES SIGN OF ODV RESULT. 

1 IQ8 

fit! 

? 

LAST 

Ll 

0136 


ESCAPE 

EQUALS 

JILT IRC _ 

USEO IN ARCSIN/ARCCOS . 

lies 

JIEF 

3 

LAST 

.6 7 _ 

0136 


ENTRET 

EQUALS 

DOT I RC 

EXIT FROM ENTER 


U06 





0137 

0137 

LCTPET 

tPAStL 


RETURN FROM DCT SUBROUTINE. 

lie 7 

RfcF 

1 



0137 


LVNOPPCT 

EQUALS 

DCTRET 

OIVICEND NORMALIZATION COUNT IN ODV. 

IIQB 

PEF 

2 

LASI 

67 

0 127 


ESCAPE2 

EQUALS 

DOT RET 

ALTERNATE ARCS I N / ARCCC S SWITCH. 

1109 

REF 

3 

LAST 

67 

0137 


RDCNT 

b UU AL S 

DCTPE7 

CHAR COUNTER FOR DSPHD 

me 

REF 

8 

LAST 

67 

013? 


INK EL 

EQUALS 

00TPE7 

INPUT BUFFER SELECTOR ( X,Y,Z, REG I 












Uli 





0180 

0180 

PAT INC 

ERASE 


VECTOR INCREMENT IN MXV AND VXM. tj 

1112 

KEF 

1 



018C 


paxuvsm 

EQUAL S 

MAT INC 

+0 IF DP QUOTIENT IS NEAR ONE - ELSE -1. ^ 

1 U 3 

REF 

2 

LAST 

67 

0180 


PCLYCNT 

EQUAL S 

MATING 

POLYNOMIAL LOCP COUNTER 

1118 

REF 

3 

LAST 

67 

_ .0180 


DSPPNTEM 

EQUALS 

MATING 

DSPCOUNT SAVE FCR DSPHM 

111^ 

REF 

4 

LAST 

67 

0180 


PIXER 

EQUAL S 

MATING 

INDICATOR FOR MIXED OR NORMAL NOUN 












lllfa 





0181 

0181 

TEMl 

ERASE 


EXEC TEMP 

1117 

REF 

1 



0181 


POL YRET 

EQUALS 

TEMl 


UltJ 

REF 

2 

LAST 

67 

0181 


CSREL 

bQliAl S 

TEMl 

REL ADDRESS FCR OSPIN 


1119 





0182 

0182 

TEM2 

ERASE 


FXEC TEMP 

U20 

REF 

1 



0182 


DSMAG 

EQUALS 

TEM2 

MAGNITUDE STORE FOR OSPIN 

1121 

- HEf 

2 

LAST 

6 ? 

0182 


iUADOTEH 

EQUALS 

TeP2 

MIXNOUN INDIRECT ADDRESS STORAGE 


1122 





0183 

0183 

TEM3 

ERASE 


EXEC TEMP 

1123 

REf 

L_ 



0183 


COUNT 

EQUALS 

TEM3 

FOR eSPIN 


1128 





0188 

0188 

TEM8 

ERASE 


EXEC TEMP 

li2*i 

REf 

1 



0188 


LSTPTR 

EQUALS 

TEM8 

LIST POINTEF FOR GRABU5Y y 

1126 

REF 

2 

LAST 

6? 

0188 


RELPET 

EgUALS 

TEM8 

RETURN FOR RELOSP * 

1127 

REF 

3 

LAST 

67 

0188 


FPEERET 

EQUALS 

TEM8 

RETURN FOR FREECSP 

lue 

REF 

8 

LAST 

67 

0188 


OSPRORET 

EQUALS 

TEM8 

RETURN FOR CSPSIGN 

1129 

REF 

5 

LAST 

67 

0188 


SEPSCPET 

EQUAL S 

TEM8 

RETURN FOR SEPSEC 

1130 

REF 

6 

LAST 

67 

0188 


SEPMNRET 

EQUALS 

TEF.8 

RETURN FOR SEPMIN 












1131 





0 185 

0185 

TEH5 

ERASE 


FXEC TEMP 

1132 

REF 

1 



0 185 


NGUNACO 

EQUAL S 

TEM5 

TEMP STORAGE FOR NCUN ADDRESS 


1133 





0 18 6 

0186 

NNACTEM 

ERASE 


TEMP FOR NOUN ADDRESS TABLE ENTRY 

1138 





018? 

0187 

NNTYPTEH 

ERASE 


TEMP FOR NCUN TYPE TABLE ENTRY 

lias 





015C 

0150 

lOAOlTEM 

ERASE 


TEMP FCR INCIP A0RE5S TABLE ENTRYIMIXNNI 

Ail36 










MUST = I0A02TEM-U » IDAD3TEN.-2. 

1137 





U151 

0151 

IDAC2TEM 

ERASE 


TEMP FOR INCIP AORESS TABLE ENTRYIMIXNNI 

Aiiae 










MUST « IDAOlTEM+l, = IDA03TEM-1. .j 

1139 





0152 

015 2 

lOAOBTEM 

ERASE 


TEMP FOR iNCIft ADLESS TaBlE ENTRyIMIXNM “ 

A118CJ 










HOST » I0ADlTtM42, * IDAD2TEH+1. 
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USER'S PAGE NO. 35 


EO S3 


llAl 


ftUAZ 


ilAA 


IiA 6 

IIA7 

ilAfl 


11 A 9 


REf 

all 


fl£E 

BEE 

ALL 


Ptf 


0153 


A]|*SR»T STORAGE. 


3 

LIS-I- 

-67 

- U1A2- 

? 

LAST 

67 

U1A3 

7 

LIST 

ill 

OlAA 

2 

LAST 

67 

0 1 A 5 

X. 



0133 


iU < i 3 


0153 BUTPXIEM ERASE 


CEXIEX 

OEXl 


EQUALS TiH2 
EQUALS TEK3 


GEX2 


EQUALS TEH^ 


PTNSAVtR EQUALS TtH5 


TERAITMP EQUALS 6UE2 


CEX I 


DEXl 


TEMP FOR SF RLUT TABLE ENTRYIMIXNN ONLY) 


(601 


« T 




jfv?e 


B( 1 )TMP 
B( DTHP 




6( I HMP 


0( I JIMP 
8(?)TMP 



^3? Cf AGC PftCC^A»>; CCICSSUS BY 


‘(.31 


Itl? AUG. 24«196a KriERflSE.OTfl PACE 6^ 


H 115 C 


1153 

115^ 

1155 


115fc 

1157 


EBASitfiil: ASliiGNMLM5 


LStR»S PAGE NO. 36 


EO S3 


CtNAPlCALLY ALLCCATEC CCPE SETS FO« JOBS. 


0156 


0162 t^PAC 


_^ U 3 

Q165 


<316 3 

-0166 


MOUE 

LOG 


EHASE tA 

IKASt _ 
ERASE 


( 660) 


MULH-PURPQSE ACCUNULATQR. 


0166 

0167 


0165 BANKSET ERASE 

ill66 POSHLOC ERASE 

0167 PEICRITY erase 


♦1 FOR TP, *0 FCR OP, OR -I FOR VECTOR 
LCCATICN ASSOCIATED WITH JOB. 

USUALLY CONTAINS BBANK SETTING. 


WCRO OF PACKEC INTERPRETIVE PARAMETERS 
PRIORITY OF PRESENT JOB AND WORK AREA. 


1158 


J1115V 


Hll6fl 

1162 

1163 

1165 

1166 


0170 


0277 


ERASE +710 


SEVEN SETS OF 12 REGISTERS EACH. 


SPECIAL ECWNLINK EUFF EP .-C V ERL A VEO BY P27 STQRAfct- 


P27tljP0AT£ PRCGRAMl STCRA<;e. -CVLKLAVS SPEC ONLNK BUFF- 


(2601 


REF 

ml 


REF 

REF 


1 


5 joq 

0301 


0327 CUMPNUMB ERASE 


♦ 23D 


BdlTMP NUMBER CF ITEMS TC 0E UPLINKED. 


X 

I 

I 


0302 


OPQLDROD EQUALS tOMPNUMB +1 
UPVERB EQUALS IJPOLOMCD +I 


BdJTMP HOLDS INTfcRRUPTEO PRCsGPAM NUMBER 
BID TMP VERB NUMBER 


0303 


0306 


UPCCUNT 
OP BUFF 


EQUALS UPVERB 
EQUALS UPCCLNT 


♦ I 

♦ 1 


BdlTMP UPBUFF INDEX 


6(20C I 


f 1166 


1170 

1171 

1172 


REF 


MCRE P27. SIQRAGE^ 


I 


0330 
0 3 31 
0330 


0331 


0330 UPTEMP ERASE 


UPVER6SV ERASE 

intrakiq equals UPTERP 


(201 


BdlTMP SCRATCH 


BdlTMP 

(0601 


RllBO 


(50 REGISTERS CF ENTRY CCWNLINK WILL CO HERE.l 


Ailtil 






THE FOLLOWING ARE INDEXED 

FOR TM. IN ENTRY 

DAP, 


1102 

Jl£f 

1 


0306 

CMTMTIME * 

UPHUFf 

Bdl 

(VEHICLE 

eCOY RATE INFO IS 


1 

1183 

REF 

1 


0 30 5 

SW/NDX » 

CMTMTIME +1 

6(11 

TELEMETERED EACH 0.2 SEC. 

DURING 

1 

UB6 

KEF 

2 

LAST 69 

0326 

EN08UF 

CMTMTIME +160 

Bd) 

ENTRY.) 
















11B62 

REF 

1 


0325 

V 1 ■ 

ENOFLF +1 

T (2) 

REENTRY, 

P66-P65 



11963 

REF 

1 


0327 

AO * 

VI +2 

I (21 

REENTRY, 

P66-P65 



. Ad8_^6_ 







Hl-OROER WGRO 

ONLY ON ONLNK. 



Riies 












81106 



ALIGNMENl 

ST(3RAGE. 



(501 






Rdse 



(CANNCT share with PRECIS icn 

INTEGRATION OR 

KEPLER STtPACe.) 







I169 „ REF 

1190 REF 

1191 ref 
U92 REF 

1193 REF 


1 last 69 0300 

1 0301 

1 0302 

1 ~ 0 303 

1 ' 0306 


(iMAJ EQUALS CCMPKUMb 

RARKlNOX equals QMAJ +i 

BESTI EQUALS MARK INOX +1 
BESTJ EQUAL S BEST I +1 
STARINO EQUALS LESTJ +1 


Bd ITMP 


B( 1 ITMP 
IdlTMP 
I d ITMP 


\ 


I d ITMP 
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ASSlGNHEhTS 







USER'S PAGE NO 

. 37 EO S3 


R119^ 



ALIGNHENt/SAO.2.3 CCNRCR 

STCPAGb. 




( 180) 














1 1 QA 

B i: F 

2 

L A S 7 49 

11 -SOA 


XSMC 

EQUALS 

UPLUFF 

♦2 

Htl.Ti«P 


11S7 

REF 

1 


031A 


YSMC 

EQUALS 

XSHC 

+ 6 

I (6 JTRP 


119B 

RIF 

1 


0322 


ZSMD 

EQUALS 

YSRC 

♦ 6 

I {eiTRp 













1 1 S9 

RFf 

2 

1 AST 7C 

0106 


XSCREF 

a 

XSHU 


SPACE CRAFT 

AXES IN REF COORDS. 

1200 

REF 

^ 

2 

LAiT., 7_£ 

0 3 lA „ 


VSCREF 

a 

YSMO 




1201 

REF 

1 


0322 


ISCREF 

mt9 

ZSHD 

















1202 




0026 


ZPRIHE 

s 

22D 




1203 




0C26 


PCA 

a 

220 




120A . 




0C20 


CCSTH 

a 

16D 




1205 




0C22 


SINTH 

a 

lot 



1 

L206 




0C2A 


THETA 

S9 

200 




12 C 7 




0 04 0 


STARR 

IS 

320 



























t^i2ca 



CCV^NLINK STOPAGE. 






( 181 













12095 

REF 

1 


0332 


DMSTADR 

EQUALS 

DNLSTCCO 


CONTENTS NO LCNCER 

AN AODR BUT A CODE 













1210 




0332 

0332 

CNLSTCQQ 

ERASE 



BdJPRH 10 CODE GF 

DQWNLI ST 

1211 




0 333 

0333 

OOMFCNT 

ERASE 



R(l JPRM 


1212 




033A 

033A 

tOATALSl 

ERASE 



B(1 ) 


1213 




0335 

0335 

ONTRGOTQ 

ERASE 



B(U 


12M 




0336 

0336 

TMINDEX 

ERASE 



BID 


1215 

REf 

1 


0336 


DUMPLOC 

EQUALS 

thindex 


CONTAINS ECADP CF AGC OP WORD BEING OUPP 


EC ANO COUNT CF CQWPHilE DUMPS 4LHEaOY S 


A 121 7 eNT. 


1218 

0337 

0337 

CNG 

ERASE 


6(1) 





1219 

0390 

0353 

ONTRBUFF 

ERASE 

■►lie 

8112) 

PPM DOWNLINK SNAPSHOT BUFFER 




A1220 













Hl22i 

CFTICS KARKIKC • UNSFAREO. 




( 80) 






1223 

u 3 54 

0359 

RKNCX 

ERASE 







1229 

0355 

0356 

NKT2Ti 

ERASE 

♦ 1 






1225 

0357 

C357 

PKCCUY 

ERASE 







1226 

0360 

C36Q 

HKCCUS 

ERASE 







1227 

0361 

0361 

NKC002 

ERASE 







1228 

0362 

0362 

NKCLUT 

ERASE 







1229 

0363 

0363 

PKCCOX 

ERASE 







P i 2 3u 

FCR EXCLLSIVE USE OF 

SYS TEST 

STANOARO 

LEAD INS 


(2) 
















1232 

0369 

0365 

EBUf? 

ERASE 

■►1 

BI2) 

UNSHARtO 





A1233 
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USto'S PAGE NO 


38 


EO S3 


_OAi»MIChEC i-OP. ClSPLAy INT£PrAXe ROUTINES 


( 100 ) 



u366 

0366 

RE SIP EG 

ERASE 


BdlPRM FOR DISPLAY RESTARTS 

1237 

0367 

C36? 

NVbQRU 

ERASE 



123 £ 

0370 

C370 

MAKKNV 

ERASE 



1234 

0371 

0371 

NVSAVE 

ERASE 



R124L 

CPETAIN Ihfc CPOEf 

» OF 

CaCRFLSH 10 

FARE EC 

♦ 2 FCK 

DOWNLINK PURPOSES! 

• L -^Lr -« 

12A2 

0372 

0372 

CAOHFLSH 

ERASE 


BdJTMP 

1243 

0373 

0373 

C ADR MARK 

ERASE 


B ( 1 !TMP 

1244 

0374 

0374 

tempflsh 

ERASE 


Bd ) TMP 

1245 

0375 

0377 

FAILREG 

ERASE 


+2 e(3»PPH 3 alarm-abort USER’S 2CA0P 








1246 

0400 



SetLQC 

400 


V ^ — 

P1247 

VAC Ah£AS- -be careful 

OF PLACEMENT- 



(2200 








1Z49 

0400 

0400 

VACIUSE 

ERASE 


edlPRM 

1250 

0 401 

04 5 3 

VACl 

ERASE 

+42D 

B(43 IPRM 

1251 

0454 

0454 

VAC2USE 

ERASE 


6{ DPRM 

U52 

0455 

0527 

VAC2 

ERASE 

+42 D 

B(43 )PPM 

1253 

0530 

0530 

VAC3US6 

ERASF 


BdlPRN 

1254 

0531 

060 3 

VAC3 

ERASE 

+420 

B(43»PRH 

1255 

0604 

06C4 

VAC4USE 

ERASE 


Bd )PPM 


0605 


0660 


0657 

O 60 C 


VAC4 
VAC5US6 


ERASE 

EKASfc 


+ ^ 2 D 


6(43 IPRM 


6 ( IIPRW 


1256 





0661 

0 7 33 

VACS 

ERASE 

+42D 


0 (43 IPRM 



























R125S 



WAITLIST i 

REPEAT FLAG. 






( 10 ) 















1261 





0734 

0734 

RUP I AGN 

ERASE 



D( 1 )PRM 


1262 

REF 

1 



0 7 34 


KEYTEMP2 

s 

hurt AGN 





























1 

R1263 



STAPALIGA 

ERASABLES. 






( 130) 

1 


1265 





u735 

0735 

STARCQDE 

ERAST 



bd)CSP NOUN 70 FOR P22,5l AND P.52»53, 


1266 





0 736 

0751 

STARALQN 

ERASE 

+ 110 




1267 

REF 

1 



0736 


S INCCU 

* 

STAR ALCN 




1268 

REF 

2 

LAST 

7 1 

0744 


CUSCOU 


STAKALGN 

+ 6 




1269 

REF 

1 



0742 


SINCOUX 

m 

SINCCL 

♦ 4 



1270 

REF 

2 

L3ST 

71 

0136 


SINCOUY 

sa. 

S INCCU 




1271 

REF 

3 

LIST 

71 

0740 


SINCOUZ 

* 

S INC CU 

♦2 



1272 

REF 

1 



U750 


cascoux 


CCSC CU 

♦ 4 



1273 

REF 

2 

LAST 

7 1 

0744 


CCSCOUY 


CLSCCU 




12 74 

REF 

1 

L3ST 

7 1 

0 746 


COSCOUZ 

» 

COSCCU 

+ 2 




























i 

K1275 



PHASE 

TAELE ANO RESTART 

CCLNTERS. 




( 120 ) 

c 


A 4321 


A 13 • 
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USER'S PAGE NO. 39 

EO S3 

1. 

AA»iii ffc» ii — 1 ■■ ■- 








1 P 77 



0152 

0152 

-PHA561 

ERASE 



B< 1 IPRP 


i 1 

1 P 7 fi 



0153 

0753 

PHASEl 

ERASE 



B( n PRH 


X^ 1 G 

17 70 



C 15^ 

0759 

-PHASE2 

ERASE 



B( 1 IPRP 


- X^ i * — 

1 7 fl C 



C 155 

0755 

PHASe2 

ERASE 



6( UPRH 


Xj^ y y 

1 2 H 1 



— - , ..■ — r yr. 

0 156 

0156 

-PHASE3 

ERASE 



ei 1 IPRM 


1 2 ti2 



.. . Jr 

0157 

0151 

PHASE3 

ERASE 



8( UPRP 


1263 



0 160 

0760 

-PH AS 69 

ERASE 



B( UPRM 


126^ 

1 2es 



C161 

0161 

PHASE9 

ERASE 



B (UPRM 




0162 

0 76 2 

-PHASES 

ERASE 



B(1)PRR 


.X ^ m gf 

1266 



0163 

0763 

PHASES 

ERASE 



BIUPRP 


12 67 



0169 

0169 

-PHASE6 

ERASE 



5(l)PRH 

^ . ~ 

L2 Hfi 



0165 

0765 

PHASE6 

ERASE 



Bt 1 » PRM 
























P 1 2 flO 



AX<t>SR*T STORAOF. 






(6D) 













1291 



0 166 

077 3 

COUSPOT 

ERASE 

+ 5 


6(6) 












12S2 

REF 

1 

0166 


COUSPGTY 


CDUSPCT 




A A*. / L 

1293 

) 2^4 

* 1 k 1 

hef 

..m 

2 

LIST 72 0770 


C0USP0T7 

iZ 

CCUSPCT 

*2 



RCF 


LAST 72 C172 


CDUSPOTX 

m 

CDUSPCT 
















R 1 2<9() 



YERb 37 STORAGE. 






( 2D) 












_ — _ - ■ ■ ■ g - — — ■* " 

1301 

1 3Q2^ 



0779 

0779 

MlNCtX 

HK ASt 



B(1)TJ-P INDEX FOP MAJOR MODE 




0175 

0775 

PMNUMBER 

ERASE 



B(1)TMP PAJCR PCOE REQUESTED 

VIA V37 























R 13CJ3 



P1KJBALL INTERRUPT STCRAGF. 





( ID) 













1305 



0176 

0176 

OSPCNT 

ERASE 



B(1)PRM DSPCUT COUNTER 
























R1306 



PlhfiALL fAECLTIVF ACTION. 





(990) 



1306 



077? 

0 777 

DSPCCLNT 

ERASE 



DISPLAY POSITION INJICATOP 


1309 



ICOO 

1000 

CGCBRNCH 

ERASE 



♦oect - cect cct indicator 


1310 



1001 

ICO 1 

VEftBPEG 

ERASE 



VERB CODE 


lill 



1002 

1CC2 

NOUNREO 

t H A S £ 



NOUN CODE 


1312 



100 3 

1003 

XREG 

ERASE 



R1 INPUT BUFFER? 


1313 



1CC9 

1009 

YHEG 

ERASE 



R2 INPUT flUFEER 


131^ 



10C5 

1005 

7PEG 

ERASE 



H3 INPUT BUFFER 

■a r j i. * ■ ■ 

1315 



1 C06 

1006 

XKEGLP 

ERASE 



LC PART OF XPEG (FOR DEC CCNV 

UNLV I 

1316 



ICO 7 

1C07 

YPtGLP 

ERASt 



LC PAfTT QF VREG ( FOW DEC CUNY 

ONLY? 

1 H7 

REF 

1 

1007 


HI Tf MOOT 

a 

YNt IIP 


TEMP FOR DISPLAY DF HRS» M!N. 

S EC 

A 1318 









^UST « LCTEWOUT-1. 


1 j19 



1010 

1010 

ZFf GLP 

GK A 



LC PART UP ZHtG 1 PUK UtL LU^HV ur^LTJ 

1320 


1 

1C 10 


LCIEMOUT 


Z KEG IP 


TEMP FOR OISPLAY CF HRSi MIN, 

SfcC 


&A^4 AS^Si-mE-- BfcV la luh 2 37 CF 

AfaL gflLti 

HAM LOlt 

iST Pii 

I5A iSU 4 11 1 

iSil f%ikC7>w^L#uro rAiuc, ij 
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13?2 

IQll 

1011 

MaURLC 

ERASE 

RCOE CODE 


1012 

1012 

DSPLOCK 

ERASE 

KEYbCARD/SUBftCUT INE CALL tNTERLOCK 

1 324 

1013 

1013 

REQfttT 

ERASE 

RETURN REGISTER FOR LOAD 

1325 

lOM 

1C14 

LCAUSTAT 

ERASE 

STATUS INDICATOR FOR LOADTST 

1326 

iC15 

1015 

CLPASS 

ERASE 

PASS INDICATOR CLEAR 

1327 

1016 

1016 

N0U1 

ERASE 

ACTIVITY COUNTER FOR DSPTAB 

1 32 8 

JJill 

L0J.7 

NOUNCADR 

ERASE 

machine caor fcp noun 

132 9 

1C20 

IC20 

HONSAVE 

ERASE 

N/V CODE FCP MCMTCR. (- MONSAVEl-ll 

1330 

1021 

1021 

MCNSAVEl 

ERASE 

NCUNCACR FCR MOM T OR (M AT B S » =MQNSAVE *1 

1 331 

1022 

1C22 

PUNSAYE2 

ERASE 

BdlPPM NVPCNCPT OPTIONS 

1332 

1023 

1036 

dsptae 

ERASE ♦•UO 

0-100, DISPLAY PANEL BUFF. IID, C/S L7S. 

1333 

1031 

1037 

NVQTtV 

ERASE 

NVSUe STORAGE FCR CALLING ADDRESS 


4133^ HUST = NVBNKTEM-l 


1335 



1C40 

1040 

NVBNKTEM 

ERASE 



NVSUfl STORAGE FCR CALLING BANK 


A 1336 









MUST » NVCTEM+l 


13.3 7 



1C41 

104 1 

VEK ESAVE 

ERASE 



NEEDED FOR RECYCLE 


U30 



1042 

1C42 

CAOKSTOR 

ERASE 



FNDIDLE STORAGE 


133S 



1043 

1043 

DSPL 1ST 

ERASE 



waiting REG FCR DSP SYS7 INTERNAL 

use 

13A0 



1044 

1044 

EXTVBACT 

ERASE 



EXTENDED VERB ACTIVITY INTERLOCK 


1341 



1045 

1047 

OSPTEMl 

ERASE 


+ 2 

BUFFER STORAGF AREA 1 (MOSTLY FOR 

TIME ) 

13A2 



1050 

1032 

CSPTEM2 

ERASE 


♦ 2 

BUFFER STORAGE AREA 2 (MOSTLY FOR 

DEG) 























1 343 

REF 

1 

1051 


DSPTEMX 

EQUAL S 

DSPTEH2 

+ l 

0(21 S-S DISPLAY BUFFER FOR EXT. 

VERBS. 

1 

REF 

1 

1045 


NCjRMTEMI 

EQUALS 

DSP7 EMI 


e(3»CSP NORMAL DISPLAY REGISTERS. 


AliAS 























P13451 



CISPUAY FQR EXTENDED 

VERBS 





( 2D) 













13453 

REF 

1 

1051 


OPTIONX 

EQUALS 

DSFT EMX 


B(2) EXTENDED VERB OPTION CODE M2(V82) 


Al3*i5A 


f< 1 3 ^ t ItASE S AKC Pt-SPRCT S. 


( 12D) 


i 


134 8 


1053 

1053 

TBASEl 

ERASt 

e( DPPM 




1 J49 


IC54 

1C54 

PHSPRCTl 

ERASE 

811 IPPM 




1350 


1055 

IC55 

TBASE2 

ERASE 

Bd )PRM 




1351 


1056 

1056 

PHSPRCT2 

ERASE 

e ( U PRM 




1352 


1C57 

1C57 

TBASEl 

ERASE 

eiDPRM 




13 53 


1C60 

1060 

PHSPRCT3 

ERASE 

BCDPRM 




13 54 


1061 

1061 

T BA S EA 

ERASE 

B( DPRM 




1355 


1062 

1062 

PHSPRCT4 

ERASt 

BdIFRM 




1356 


1063 

1063 

TbA3e5 

ERASE 

B( UPRM 




1j57 


1064 

1064 

PHSPR0T5 

ERASE 

e( DPRM 




1350 


1065 

1065 

TBASE6 

ERASE 

B( UPRM 




1359 


1C66 

1066 

PHSPRCT6 

ERASE 

BIDPRM 
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1067 

1067 

EfcA^KSAV 

ERASE 

1363 



1 C_7 Q, 

iC70 

PARKEEA^ 

ERASE 

\ ^ 1^4 



1C71 

1C71 

FBANKTEH 

ERASE 

1165 



IC72 

1072 

HARK2PAC 

ERASE 

1366 



■ ■ 1C73 

10 7 3 

PISAVE 

ERASE 


Ria67 l^U CCMPENSMIQN UNSV^HCHEC erasable. (IC» 


1369 



1C7A 

IC7A 

1/PlPAOT ERASE 

BIUPRN 

1370 

REF 

1 

1C74 


OLOeil • 1 /PI PACT 



R1371 SINGLE PRECISION SUBRCUtlAE lEPPGKARlES. _ (30) 


A l 17\ 


SPSINt SPCOS* SPROOT VARIABLES. 



Aia74 


DC NOT SHARE. THESE ARE USEO BY DAPS IN INTERRUPT 



A1375 


AND CURRENTLY ARE NOT PROTECTED. IF OTHER USERS 



A1376 


NATEPIALIZEf THEN THIS CAN BE CHANCED. 




13 77 ___ 1 075 IC75 HAL TV tPASR 


13 76 



IC76 

107b 

ROOTRET 

ERASE 




1379 



1077 

IC77 

SCRARG 

ERASE 




1360 

REF 

1 

IC75 


TEMK 

EQUALS 

HALFY 



1381 

REF 

__l 

1C76 


SC 

EQUALS 

ROCTPET 
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1 



1 100 

112-% TDEC 

ERA St 

♦ 200 


I (2 1 








13 es 

flEF 

1 

1102 

COL R EC 

EgUAL S 

TOfcC 

♦ 2 

1(1) 








13B6 

REF 

A 

1103 

LAT 

LQUALS 

COLR EG 

♦ 1 

I (2 )OSP 

NCUK 

-f. 3 t67 

FOP 

P2 0,22,51 

R52,53. 



1 ^.n7 

RFF 

1 

1103 

LANCLAT 


LAT 



f*OU N 

89 

FOR 

P22. 




138ti 

-RLF 

_2 LAST 75 

1105 

LONG 

lquals 

LAT 

+ 2 

I (2 )OSP 

NCUN 

A3 ,67 

FOR 

P20,22,5l 

P52 ,53. 



1309 

REF 

1 

1 1C7 

ALT 

EQUALS 

LONG 

♦ 2 

I (2)DSP 

NOUN 

A3 

FOR 

P20,22,51 

R52, 53. 



1390 

Pfcf 

1 

iiii 

VV 

EQUAL S 

ALT 

♦ 2 

I (6 ) 








1391 

ref 

1 

1117 

2V 

EQUALS 

vv 

+ 6 

1(6) 








R1392 

















R13S3 STQPAQfc. . <2) 


1395 


1125 

1125 

VHF CNT 

ERASE 


Bd) 

PRM NO. CF VHF MARKS ( P20 ( R22 )) . 


1396 


1126 

1126 

tpknkcnt 

ERASE 


B (1 ) 

PRM NC. CF VHF MARKS (P20(R22)). 



1397 

REF 

1 1126 


HARKCTR 


THKMKCNT 

B(U 

PARK COUNTER USED dV R32 






















81398 


P ISCELLAhECUS UNShITCHED 

• 




(160) 













1 AOO 


1127 

1127 

I RE TURN! 

ERASE 


B(l) 

RET ACOR USED BY MIDTOAVl AND 2 


AlAQl 







called BV PA0,PA1,PA2, P61,P62 


1A02 


1130 

1130 

PATEINOX 

ERASE 


(U 

U5EC BY KALCPANU 


1A03 


1131 

1131 

CPT lONl 

f R A S t 


8(1) 

NOUN 06 USES THIS 


l^iOA 


1132 

1132 

CPT (0N2 

ERASE 


Bd) 

NOUN 06 USES THIS 


IA05 


U33 

113A 

LCNGCAOR 

ERASE 

♦ 1 

B(2) 

LCNGCALL REGISTER 


1A06 


1135 

1 136 

LCINGBASE 

LRASt 

+ I 

b ( 2 ) 

LCNGCALL REGISTER 


IAC7 


1137 

1 lAO 

LONGTIME 

ERASE 

♦ 1 

B(2) 

LCNGCALL REGISTER 


1A08 


HAl 

1 lAA 

CELAYLQC 

ERASE 

♦ 3 




1A09 


HAS 

1 1A5 

KVWCRLl 

ERASE 


fid) 


— |i 

lAlG 


1 1 A6 

11A6 

TEMPR60 

ERASE 


Bd) 


t 

lAll 


1 1A7 

llA) 

PRiC 1 IME 

ERASE 


fid) 



1A12 

REF 

1 1127 


P30/RET 

EQUALS 

IRETURNl 




AIA125 
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IA15 





1 150 

1151 

TlMb2SAV 

ERASE 

♦ 1 


B(2)TPP 




lAie 

1A17 





1152 

1153 

scalsave 

ERASE 

♦ 1 


8(2) IMP 








115a 

115A 

RLDOCTP 

ERASE 



Fid) PRM 

CONTAINS NUMBER OF 

RESTARTS. 


iAie 





1155 

1157 

THE TAO 

ERASE 

♦ 2 


B(3)PRM 

OES IKED CIM ANGLES 

FOR MANEUVER. 


IA19 

REF 

1 



U55 


CPHl 

» 

THE TAO 



( CUTER ) 



1A2C 

F EF 

2 

LAST 

75 

I 156 


CTHcTA 

3 

ThET AD 

+ 1 


C T N N fR J 



1A21 

REF 

3 

LAST 

75 

1157 


CPSl 


THET AO 

♦ 2 


(MIDDLE ) 
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1 

R14211 



EfelRY 

V AUl A ei^s shared 

FOP IF- 







1 


14? 1 2 fcPf 

4 

1_1S1 

7! 

1155 


JIDG T R £ F 

S 

1MTA0 


1(2) 

P65 


14213 

REF 

1 



U57 


VREF 


POOTPEF 

♦ 2 

1(2) 

P65 HI-ORDER mQRO ONLY DNLNK'O 


1422 





1160 

U6Q 

OESQPTT 

EPASt 



stncsp 

NOUN 92 FOP P2Ct22f52f R52. 


1423 





1161 

1161 

DESOPTS 

ERASE 



8( UDSP 

NOUN 92 FOP P2C, 22,52. R52. 



1424 





1162 

1167 

OELV 

ERASE 

♦ 5 


I (6) 



1425 

REF 

1 



1162 


CELVX 

m 

OELV 





I42<fi 

PEF 

2 

LAST _ 

7c 

1164 


DELVV 

a 

OELV 

♦ 2 




1427 

REF 

1 

1*5.1 

7t 

1 166 


OELVZ 

a 

DLL V 

'♦^4 



















P14271 



K20.. CON ICS 

( SHAR I^G 

k«ITH IIFE 2 SAV 

ANU SCAL 

SAV ONLY) 

( 30 
















i 

14273 

REF 

\ 



1 150 


POlHTtX 

EQUALS 

T IRE2SAV 


1(U POINT AXS fcXIT 


14274 

REF 

I 



1151 


VHF HMC 

EQUALS 

POIMEX 

+ l 

1(2) DOWNLINK CF VHF RANGE TIWE 


A 1 ^ 2 7 5 















PI^RH ST/ng ygCTQRS FCR eCCST /IhO DClwMlNK -WHOLE mSSlON- (lAC) 


1430 




1170 

1175 MN 

ERASE +5 


d(6)PPH 



143J. 




1176 

1203 VN 

ERASf *5 


e(6)PRN 



1432 




1204 

1205 PIPTIME 

ERASE +1 


B(2)PRM 

(MUST 

BE FOLLOWED BY GDT/2I 













P1433 



.SERVICER STORAGE. 




(45D) 














K1435 



(SERVICER 

STORAGE AND 

Pll STCPAGt IN UNShITHChED SHOULD 

NOT 




P1436 



OVERLAY EACH OTHER AND 

THE TOTAL EPASAatE REQUIRED SHOULD NOT 




R1437 



tXCEEC TFE 

ERASABLE STCRACE PECUIkEO 6Y 

RENOLZVOUS GUIDANCE) 















1436 

REF 

1 


1206 

GE)T/2 

EQUALS PTPT IRE 

>2 

E(6 )TRP 

( HOST 

FOLLOW PIPTIME) 

1439 

REF 

1 


1214 

G0&L/2 

EQUALS GDT/2 

♦ 6 

B (6) TMP 



1440 

REF 

1 


1222 

AVEGEXl T 

EQUALS GCDl/2 

^6 

B(2) IMP 



1441 

REF 

1 


1222 

AVGEXIT 

s AVEGEXIT 





1442 

REF 

2 

LAST 76 

1224 

TEHX 

EQUALS AVEGEXIT 

♦2 

B ( 1 )THP 



1443 

RLF 

1 


1225 

TEMY 

EQUALS TEHX 

♦ 1 

a( DTRP 



1444 

REF 

1 


1226 

TEM2 

EQUALS TEMY 

+ 1 

B( 1 )TNP 



1445 

REF 

1 


1227 

PIPCTR 

EQUALS TEMZ 

♦ 1 

8( 1 )TFP 



1446 

REF 

1 


1230 

PIPAGE 

EQUALS PIPCTR 

+ 1 

B( 1 )THP 

























i44 7 

REF 

L_ 


1231 

RNl 

EQUALS PIPAGE 


B ( 6 ) t F P 



1446 

REF 

3 

LAST 32 

1237 

VNl 

EQUALS PM 


a(6)TMP 



1449 

REF 

1 


124 5 

PIPT IMEl 

EQUALS VNl 

♦ 6 

G(2) TRP 



1450 

REF 

1 


1247 

GOTl/2 

EQUALS PIPT IHEI 

♦ 2 

B(6)TMP 



1451 

REF 

1 


1255 

COBLl/2 

EQUALS CDTl/2 

♦ 6 

0(6) TMP 
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. 14^*^ ftEP \ CNTRYVN EQUALS GQbLl/^ »(> B<l>TAP VN CODE POP ENTRY DISPLAYS P60S, 

A1456 


R1457 

1459 



Pli SIORAOL- 

PAOLONG 

EQUALS 



(9C ) 


— — 

PEf 

1 

1263 

ENTR YVN 

(PIPE 

LONGITUDE OF LAUNCH PAD 

1^60 

RIF 

1 

1265 

E IF TTEHP 

EQUALS 

PAOLCNG 

♦ 2 

< 2 1 T M P 



1461 

REF 

1 

1267 

TEPHERl 

equals 

L IFT TEMP 

♦ 2 

(3ITMP 



14i6iL 

REF 

1 

1272 

PGNCSALT 

EQUAL S 

TEPHEMl 

+ 3 

( 2 1 P L 

ALT HUGE 



kl4fe3 RENDEiVQLS NIWlGATlCh STCPAGE.(5EE CCMPENT IN SEPVICbP STORAGE 1 ( SBC > 


1465 

1466 





11 g W X U M ■ A P. 

J 1 44 r V L 1 J W 4. vv * 4 









1206 

1277 CSMPOS 

ERASE 

•*•570 


I (61 TMP 



REF 

1 



1214 

LEMPCS 

EQUALS 

CSMPCS 

♦ 6 

I (6nMP 

1467 

REF 

1 



1222 

RCL 

EQUALS 

LEMPCS 

+6 

I (ZITMP 


1466 

REF 

1 



1224 

MARK T I ME 

EQUAL S 

RCL 

♦ 2 

8(2)TMP 


1469 

REP 

1 



1226 

VTEMP 

EQUALS 

MARKTIME 

♦ 2 

B (61TMP 


147C 

REF 

1 



1234 

UM 

EQUALS 

VTLMF 

♦6 

I (6hMP 


1471 

REF 

1 



1242 

MARKCATA 

EQUALS 

UM 

46 

8t2)TMP 


IA72 

REP 

\ 



1244 

LSTAR 

EQUALS 

MARKCATA 

*2 

nBlTMP 


1473 

REF 

1 



1252 

kilXA 

EQUALS 

USTAR 

+ 6 

8(1 ITMP 


1474 

REF 

1 



1253 

WiXB 

EQUALS 

WIXA 

♦ 1 

fidITMP 


1475 

REF 

X 



1254 

ZIXA 

EQUALS 

HI X8 

♦1 

B( 1 ITMP 


1476 

REF 

1 



1255 

21X8 

EQUALS 

ZIXA 

♦ 1 

BdlTMP 


1477 

REF 

1 



1256 

CEL7AX 

EQUAL S 

ZIX8 

+ l 

I (18 ITMP 














1478 

REF 

1 



1256 

VHFRANGE 

EQUALS 

CELT AX 


(2) 


1479 

REF 

2 

LAST 

77 

12 72 

UCL 

EQUALS 

CELT <IX 

♦ 120 

(6l LM-CSM LINE OF SIGHT 1/2 UNIT V 

1 












1 

R14aC 


• ♦♦♦ CCNICSEX 

(PEAS INCl 



















1481 

REF 

3 

LAST 

77 

1256 

TRI PA 

EQUALS 

OELTAX 




1482 

REF 

4 

LAST 

71 

1261 

TEMPVAR 

EQUALS 

DELI AX 

♦ 3 



A1483 
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I3u7 

1 307 

ZUNE 

ERASE 


Hd )PRR USEC 

IN 

SHAFT 

STOP MOMTCR 

1492 

REF 

1 


. ■ ■ 

0035 


LASTYCMO 


OPTY 

DOR<“Y TC MAKE 

RR 

BENCH 

TEST ASSEMBLE 

1A93 

il^ 4ih. JL 

REF 

2 L1ST_ 

_Xfi 

0013 


LASTXCHD 

* 

OPTY 

DUMMY TG MAKE 

RR 

BENCH 

TEST ASSEMBLE 


ih<;fctTrHfr tap frasaale 


t^DJ 


1^96 1310 1310 T 6LQC E RASE 

14Q7 lill 1311 r6ACR ERASE 

ix,98 1312 1113 T5L0C ERASE -H 


»«CDE SW nCHIhG ERA SABLE. ^ (JIOJ 


i^ni ' 1314 131A SwSAMPLE ERASE eCUPPM _ 


1502 





1315 

1315 

DESCPMOD 

ERASE 



0* nPRM 

1503 

150A 





1316 

1316 

WTOPTTON 

ERASE 



BiUPRM 





1317 

131? 

2CPTCNT 

ERASE 



6(1) PPM 

1505 





1320 

1320 

1M0CES30 

ERASE 



BTDPRM 

1506 





1321 

1321 

IM0DES33 

ERASE 



0(1) PRN 

15C7 





1322 

132A 

MOOECAOR 

ERASE 

♦ 2 


0( 3)TMP 

1508 

REF 

1 



1322 


[HUCAOR 


HOOECALR 



150S 

REF 

2 

L / ST 

76 

1323 


QPTCACR 

a 

MGOECADH 

+ 1 


1510 

REF 

3 

LIST 

7 8 

132A 


RADCADR 

m 

MOLEGADR 

+2 


1511 





1325 

132? 

ATTCAOR 

ERAS! 

*2 


B(3)PPM 

1512 

REF 

1 



1327 


ATTPRIO 

A 

ATTCAOR 

♦ 2 


1513 





1330 

1330 

MARKSTAT 

ERA SE 



B( DPRM 

151 A 





1331 

1331 

CPTMOCCS 

ERASE 



0(1) PRM 


A151S 


RlSlt 

RCSCAP ERASABLE. 





( ID) 















1518 

1332 

1332 

HGL DFL AG 

ERASE 


B(l)PRM 





A151S 























A152G 























R152A 

CPS61.1 STORAGE. -USEC 

IN R63 

(VERB 89) 

- 


( 50) 






1526 

1333 

1335 

CPH 1 X 

ERASE 

+ ^ 

fl(3)CSP 

NOUN 96 CALCULITED 

BY CRS61.1 



A1527 













1520 

1336 

1337 

TtVENT 

ERASE 

♦ 1 

8(2) 

TIME Of EVENT FOR 

DOhNL 15T 
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REF 1 1336 


TLlFTCFf 

* 

TtVE AT 
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1 
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EQUALS 
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EQUALS 

SELFPET 

+ l 
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EQUALS 
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1544 

RfcF 

1 


136 5 


EKCOINT 

EQUALS 

ALHCADR 

♦2 
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1 
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EQUALS 

SKLEPl 
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REF 

1 
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SKEEPl 
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REF 

1 
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EQUALS 
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REF 

1 
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SKEEP5 

EQUALS 
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REF 

1 
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2 KEPLER 
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+ 1 
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AAA9TEPRIKG ftCUTINEAAA 

PAD LOAD 

UD)_ _ 












156^ 


J.353 1353 
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DELTA V THRESHOLD FOP. LOR 
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ROUTINE 
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HORtZALT ERASE ♦! 
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B-29 
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P-2U 
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1569 


1356 1356 
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E3.1AQ0 


SETLUC 1400 
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nAllLIST task L1STS«_ __ _ 



(260 




3004 

£3.1400 E3.14C7 

LSTI 

ERASE +7 

B(0OPPH DELTA T S. 



3005 

£3.1410 E2.1431 

LST2 

ERASE +17D 

8(18C)PRM TASK 2CADP ADDRESSES. 
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RESTART STCRACE. 
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E 3, 1432 E 3, 1433 

RSBtiq 

ERASE ♦!. 


8(2)PRM SAVE BB AND Q FTR RESTARTS. 





Ri009 


HCBb LQNGCALL ^TCKAGE . 


( MIST BE IN LSTI S 6ANK) 
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I 


Hull 
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P3Q12 




( 120) 



3014 

E3. 1436 

62.1436 

PHSNAME 1 

ERASE 



ODPRM 



3015 

£3.1437 

E 3. 1437 

PHSa&l 

ERASE 



6(1)PRM 
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E3. 1440 

63,144C 

PHSNAME2 

ERASE 



Rd )PRM 



2017 

E3. 1441 

€3,1441 

PHSBB2 

ERASE 



R < 1 ) PPM 



._JQ 1 8 

E3. 1442 

63.1442 

PHSNAME3 

ERASE 



BtUPRH 



3019 

E 3. 144 3 

63,1443 

PHSBB3 

ERASE 



B( UPRM 



3020 

£3, 1444 

E3,1444 

PHSNAME4 

ERASE 



B( UPPW 



J021 

E3tl44S 

63,1445 

PHSee.A 

ERASE 



B( 1 )PRM 



3022 

E3. 1446 

63,1446 

PHSNAMC5 

ERASE 



B< 1 )PRM 



3023 

E3, 1447 

63, 1447 

PHS6B5 

ERASE 



eClIPPM 



3024 

E3.1450 

63,1450 

PMSNAMe6 

ERASE 



B( i )PRM 

1 


3025 

E3, 1451 

63. 1451 

PHS836 

ERASE 



6(1 ) PPM 

' " 1 

J 
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IKU COMPENSATICN PARAMETERS. 
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3028 



E3. 1452 

E3.1452 

PBl ASX 

ERASE 


B(l) PIPA BIAS, PIPA SCALE FACTF TERMS 

3029 

REE 

1 

£3.1452 


PIPABIAS 

s 

PEIASX 

INTERMIXED. 
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E3, 1453 

£3,1453 

PIPASCFX 

ERASE 
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REP 

1 

E3. 1453 


PIPASCF 
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E3, 1454 

63, 1454 

P8I ASY 

ERASE 



3033 



63,1455 

E3,1455 

PIPASCFY 

ERASE 



3034 



E3. 1456 

£3,1456 

PBl AS2 

ERASE 



3035 



63, 1457 

£3,1457 

P IPASCFZ 

ERASE 
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63. 1460 

£2,1460 

NBQX 

ERASE 


GYRO BIAS DRIFTS i 
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REP 

i 

63,1460 


GBI ASX 

St 

NBDX 

I 
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b3. 1461 

£3,1461 

NBDY 

ERASE 
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£3,1462 
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N60Z 

£ «.A 5 E 

E3,i463 

E3.146a 

ADIAX 

ERASE 

£3, 1464 

E3,1464 

AOl AY 

ERASE 

£3,1465 

E3,1465 

ADI A2 

ERASE 


ACCELERATION SENSITIVE DRIFT ALONG THE 


INPUT AXIS 


30A3 

3094 

304S 


3046 


£341466 E3tl466 

£3,1467 

£3,14.1(1 £3x1 4 70 


AQSRAX 

AOSRAY 


AUSP.Aj 


Ek AS E 
ERASE 
ERAS r 


ACCELERATION SENSITIVE DRIFT ALONG THE 
SPIN REFERENCE AXIS 


£3,1471 E3,147A GCOHP 


ERASE *5 


CONTAINS CCPPENSATING TORQUES 
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JQ49 


REE 
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1 

i. 
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E3,1477 E3.1477 

E3, 1471 

E3.1474 


GCQRPSN 

COMPAND 

COUINC 


ERASE 

EQUALS GCCMP 
EQUALS GCCMP 


43 


i 


K30M1 STATE V8CTGRS FCP ORBIT INTECRATION. 


R3052 (DIFECCNT THRU XKEP MUST OE IN SAME 

R3053 ' EBANK AS RRECTCSM, PFECTIEP ETC 

R3D54 BECAUSE THE COPY-CYCLES (ATOPCSM, 

K30S5 PTOACSM ETC) ARE EXLCUTlt) IN BASIC. 

R3QS6 ALL CTHER REFERENCES TO THIS GROUP 

83057 AWE BY INTERPRETIVE INSTRUCT ICNS . I 


E3.150Q E3,1S53 CIFEQCNT ERASE 4430 BJU I ^ 




R3059 




1. M » F i 

(UPSvFLAG*. .XKEP 

MUST BE 
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ORDER) 














3Q6G 

REF 

1 

£3. 1501 


UPSVFLAC 

EQUALS 

OIFEOCNT 

4l 

ompRM 

UPCATE FLAG 

3061 

R|F 

i 

L3, 1502 


RPECT 

EQUALS 

UPSVFLAG 

41 

6(6) TMP 

PCS AT PECT KM42(-14) 

3062 

REF 

1 

63,1510 


VRECT 

EQUALS 

RPECT 

4^6 

B(6)TMP 

V6L AT RECT KM (-1/2 )42 ( 6 ) 

3063 

REF 

1 

E3. 1516 


TFT 

EQUALS 

VREC T 

46 

6(2 } IMP 

TIME OF STATE VECT CSECS42(-28) , 

3064 

REF 

1 

C3, 1520 


lOELTAV 

EQUALS 

TFT 

42 

B(6) TMP 

POSITION DEVIATION KM*2( 14 I ' 

3Qo5 

REF 

1 

Ei, 1526 


TNUV 

EQUALS 

TDEL TAV 

46 

8(6)TMP 

VEL DEVIATION KM ( - 1/2 ) •? ( 14 ) 

3Ci66 

REF 

1 

E3, 1534 


RCV 

EQUALS 

TNUV 

♦ 6 

fl(6) TMP 

CONIC POSITION KM*2(-14) 

3066 

REF 

1 

£3,1542 


VCV 

EQUALS 

FCV 

46 

6(6) TMP 

CONIC VELOCITY KM(-l/2 1*2 (6 ) 

3070 

REF 

1 

E 3, 1550 


TC 

EQUAL S 

VCV 

♦6 

6(2) TMP 

TIME SINCE RECTIFICATION 

3071 

REF 

1 

E3f 1552 


XKEP 

EQUALS 

TC 

42 

0(2)TMP 

ROOT CF KEPLER 60 KM( 1 /Z. ♦2( -10 I 
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TEMP - IN VAC AREA 








3073 



OC22 


RRECTl 

equals 

1 ec 




3074 



0C30 


VRECTl 

EQUAL S 

24L 




3075 



OC36 


TETl 

equals 
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jpfll 



E3f 1954 

£3.1561 

RRECTCSH 

ERASE 


Bt61PRH CSH VARIABLES. 

3afl2 

RLL 

1 

E it 11^54 


PPECIHIS 


KkEClCSN 


30b3 



E3.1562 

E3,1567 

VRECICSH 

ERASE 

+ 5 

e (6 IPPH 

1Q&^ 



E3.1570 

£3.1571 

7ETCSN 

ERASE 

♦ 1 

6(2)PRR 

3oes 

REf 

1 

E3. 1570 


TETTHIS 


TETCSP 


3ce6 



E3, 1572 

E3f 1577 

CELTACSM 

ERASE 

♦ 5 

B (61 PRH 

3087 



es.ucc 

E3.1605 

NUVCSH 

ERASE 

+ 5 

B(6)PRN 

3086^ 



E3, 1606 

E3tl6l3 

RCVCSM 

ERASE 

+ 5 

6(6)PflH 

308S 



C3t 1614 

E3f 1621 

VCVCSM 

ERASE 

♦ 5 

B (6)PRH 

-JilSt. 



63.1622 

£3.1623 

TCCSM 

ERASE 

♦ 1 

B(2 )PPM 

30<5l 



E3. 1624 

E3. 1629 

)»KfcPCSM 

ERASE 

♦ 1 

B (2 J PRR 


R30V2 



(PRECTLER ...XKEPLCf* 

POST BE 

KEPT IN THIS CROER) 














3093 _ 




F3. 1626 

E3#1633 

prectlem 

ERASE 



e(6)PRN LEH VARIABLES 

3094 

REP 

1 


E3.1626 


RRECTOTH 

2E 

RKECTLER 



30S5 




E3.1634 

&3.1641 

VRECTLEM 

ERASE 

♦ 5 


B(6)PRN 

3096 




E 3 r 164 2 

E3.1643 

TETLEM 

ERASE 

+ l 


6(2) PPM 

3097 

REP 

1 


63.1642 


TETCThER 

* 

TETLEN 



3096 




E3. 1644 

E3,165l 

celtalem 

ERASE 

45 


B(6)PRM 

3099 




E3r 1652 

E3f 1657 

NUVLEH 

ERASE 

+ 5 


B(6)PPH 

21.05 




E3.1660 

E3.1665 

PCVLEM 

ERASE 

♦ 5 


B 1 6 } P R M 

31CI 




E3« 1666 

t3.l673 

VCVLEK 

ERASE 

♦ 5 


BieiPPM 

3102 




E3,1674 

£3.1675 

TCLEM 

ERASE 

♦ 1 


B(2}PRN 

3103 




E3.1676 

E3.1677 

XKEPLEM 

fc H A S E 

♦ 1 


6(2) PAN 


3104 




E3.17C0 

£3.1705 

X789 

ERASE 

♦ 5 



3105 




62^1706 

£3.1710 

TEPHEH 

ERASE 


♦ 2 


31C6 




63.1711 

E3.1712 

AZO 

ERASE 


+ l 


310 7 




E3.1713 

£3.1720 

ONI TW 

ERASE 


+ 5 


3Ui§ 

REP 

1 


E3.ni3 


-AYC 

EQUALS 

UMTk 


(2) 

3109 

REP 

2 

L/ST 

83 E3.1715 


AXO 

EyUALS 

umtr 

♦ 2 

m 1 

A3i095 
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STAU VECTORS FCP CCwMINK. 
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E3« 1721 

E 3, 1726 

R-OTHEP 

ERASE 

♦ 5 

B(6)PRR POS 

VECT 

(OTHER 

VECH) 

FOR 

DNL INK 

3113 


£3.1 727 

£3,1734 

V-OTHER 

ERASE 

♦ 5 

B(6)PRH VEL 

VbCT 
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VECH) 

FOR 

DNL INK 
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REP 2 LAST 83 
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T-CTHER 

X 

TET LEP 


TIRE 

(OTHER 

VECH) 

FOR 

DNL INK 



























R3115 

R EFSMMAT . 






( 180) 



















3117 
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REPSMHAT 

ERASE 
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il27 

HFI 

F 1 E3.17tl6 

Ti?^SU6Q equals 1 
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P<.fJ0? PyQ STflAACE, -PAC ICADED- . t^»D* 


4004 



.i4*.L400 

t4,l4ClC 

ARENCPCS 

ERASE 

B< UPL 

H 0-14 


<iQC5 



ti4. 1401 

^4.1401 

WRENOVEL 

ERASE 

B(1)PL 

N/C5ECB0 


4006 



E4tl4J32_ 

EAi_l4Q2 

RMAX 

ERASE 

0(1 )PL 

METERS*2l- 14 ) 


40 1 7 



E4. 1403 

E4tl403 

VHAX 

ERASE 

B ( 1 1 P L 

M/CSEC*2 (-7 » 



R40Cie 

P22 STORAGE. 

-PAC 

LCAOEO- 



( 5D ) 




4010 

E4. 1404 

_E4,1404 

RORbPCS 

ERASE 


e ( 1 ) P L 

M 6-14 


4011 

L 4. 1405 

E4t 1405 

NCRaVEL 

ERASE 


B( URL 

M/CSECBO 


4012 

E4.1406 

£4.1406 

S22WSLeL 

ERASE 


e(nPL 

M 6-14 


4012! 

E4, 1407 

E4tl4lC 

HPV aR 

ERASE 

+ 1 

e(2)PL 




R4013 

CCNISEX STORAGE. 

-PAC LOADED- 




( 60) 



- 4015 

E4.1411 

E4.1416 

504LM 

ERASE 


♦ 5 

UblWCCN LIEPATICN VECTOR 


A4016 











R4017 

ENTRY STORAGE. 

-PAC LOADED- 




(2C) 











A£LL5 ] 

E4»14_17 

E4tl420 

ENSAl T 

ERASE 

♦ 1 


I (2)PL 




R4Q2Q 

P35 CCNS7AMS. 

-PAC LOADED- 




(40) 











4022 

E4f 1421 

E4,1422 

AT I G INC 

ERASE 

♦ 1 


8(2)PL 


- -Asm 

E4. 1423 

64,1424 

PTIGINC 

ERASE 

♦ 1 


0(2)PL 



h<iQ3A1 LLNAP LAADING SIGHT CA7A. -PAD LCACEC- ( 60 \ 

(iSfcO 6Y INTE GRATION I M T I At Ul T lOK t LAT-LC N G SUBPOU 7 IKE S t P30»S) 

<iO 3A 3 EA>1^25 6Atl432 PLS £R AS ii I (6t PL LONAP LANOING SIGHT VECTOR 

A<(0.3^5 . . 


PA035 CCMSEX (LINAR ANC SOIAK EPHEN > STQPACE ■ -PAC LOADED- 


(770 


<i037 

4Q36 R£f 1 
A039 REE 1 


EA.IA33 liA,15<t7 TIHEHQ ERASE »76D 

EAtH3t VECCEH EQUALS TIHEPC +3 

19 32 RESO EQUALS VECCEN +600 


?1j7 r.P acC PhCHRAM COLOSSUS BY MASA 2Q21111-C3] L M T AM« ISAS KH M.A Sj ■ 0 7B PAGJ 86 

L ERiSAlLt A£SlGiiME.M5 tiSEft * S PAGE NO. 53 EO S3 

<i040 fl£f 1 E4. 1 540 VtSP EQUALS H,LSC ^6 

<iU<il R£f 1 - £4x15^6 CMEGAES EQUALS VESU ^ 6 


R40^3 ALLL-INTECBAHON STCRA.iiJLs < 5_5P J 


4Q45 
4046 
404 7 





E4fi55Q £4il550 

PBGCY 

ERASE 


nu 

Rtf 
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E4t 1551 

ALPHAV 

EQUALS PBCOY 

♦ 1 

I(6)TMP 

R£F 

1 



E4tl557 

OETAV 

EQUALS ALPHAV 

♦ 6 

I(6»TPP 

4048 

REF 

1 



E4 f 1565 

PHI V 

EQUALS BETAV 

+ 6 

I (6)TPP 

4049 

Rtf 

1 



E4, 1573 

PS IV 

EQUALS PHiV 

46 

I (BUMP 

4050 

REF 

1 



fc4il601 

FV 

EQUALS PSIV 


H6)TPP 

4051 

REF 

1 



E4.1607 

BETAH 

EQUALS fV 

♦6 

I (6 )TMP 

4052 

Rtf 

1 



E4. 1611 

h 

EQUALS BETAP 

♦ 2 

I (2ITPP 

4053 

REF 

1 



E4. 1613 

GHUCE 

EQUALS H 

♦ 2 

r tl )TPP 

4054 

REF 

1 



E 4 , 16 14 

IRE TURN 

EQUALS GPCDE 

♦ 1 

M UTPP 

4055 

REF 

1 



£4.1615 

NGRHGAN 

EQUALS IPETURN 

♦ 1 

Id JTMP 

4056 

REF 

1 



E4. 1616 

VEC TAB 

equals NCRHGAP 

♦ 1 
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4057 

REF 

1 



£4, 1662 

RPQV 

EQUALS VECTAB 
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4058 

REF 

1 



E4 , 1670 

ORIGEX 

EQUALS PPOV 

46 

ed)TPP QSAVE FCR COORO. SWITCH. ROUTINE 

4059 

REF 

1 



E4. 1670 

keprtn 

EQUALS ORIGEX 


QSAVE FCR KEPLER 

406C 

REF 

2 

LAST 

66 

E4.1671 

RQVV 

EQUALS OPICEX 

♦ 1 

(61 SEC.BCDY TO Vt H. VETOR ( USED P23J 

4061 

REF 

1 



£4, 1677 

RPSV 

EQUALS RQVV 

♦ 6 

(6»THP SUN TO PRIMARY BODY VECTOR 

4062 

REF 




E4*l?05 

XKEPNEW 

EQUALS fPSV 

>6 

(2»THP ROOT OF KEPLERS 6QU FOR TIME TAU 


RAniiA 


lhLS£ 



SEAPE INTEGRATICN VAHIABLES 




A066 Rtf 2 LAST S 6 £>,1624 VACX EQUALS VECT AB *6 I(2)TMP 

4067 REf 1 £4.1626 VAC V EQUALS VACX *Z H 2 HPP 

4060 R tf J E4t 16 30 VACZ EQUALS VACY +2 H 2 ) THP 

^C64 REF 3 LAST 8fc E4Vl640 ERACH EQUALS VECTAB 4160 I(2nPP 

4Q70 REf 1 E4t 1642 INCORPEX EQUALS ERA PX * 2 KDTMP 


P4071 _ R21 ( V83 I STCPAGE. -SHAPES ViITH iNTbG RATICN STCRAGE- ___ * 280 t 

A4 0 74 


4075 

REF 

4 

LAST 

86 

E4t 1624 

BASECTP 

EQUALS VECTAB 


I (6) 

BASE PCS VECTOR 

CTHER VEH 


4076 

REF 

5 

LAST 

86 

E4t 1640 

BASEOTV 

EQUALS VECTAB 

♦ 18D 

1(6) 

BASE VEL VECTOR 
BASe PCS VECTOR 

other VEH 


4077 

REF 

6 

LAST 

06 

E4, 1654 

basethp 

EQUALS VECTAB 

♦ 30D 

I (6) 

THIS VEH 


4076 

REF 

2 

LAST 

0 6 

£4,1662 

eASETHV 

EQUALS RPQV 


I (6 ) 

BASE VEL VECtOR 

THIS VEH 


4079 

REF 

2 

LAST 

86 

64, 1671 

BASET IME 

EQUALS HOW 


I (2 ) 

T I ME ASSOC ITH 

BASE VECS 

FDR MOON 


4080 

REF 

3 

LAST 

86 

E4,1673 

CRIC 

EQUALS^QVV 

♦ 2 

1(1) 

aO FCR EARTH ■+2 


4061 

REF 

4 

LAST 

66 

E4, U74 

STATtXIT 

EQUALS RQVV 

+ 3 

Id) 

STC aocreSs For 

STATEXTP 
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A0£5 

REF 

1 

£Aj1707 

alpham 

EQUALS 

XKEPNLH 

♦2 

n2)Tpp 

AC £6 

REF 

1 

EAi 1711 

TAU. 

EQUALS 

ALPHAH 

♦ 2 

I( 2»TRP 

A0££ 

REP 

—1 

FA. 1713 

DT/2 

EQUALS 

TAU. 

*2 

1 (2nHP 


R^Cflg P21 STURJfiE. <?0> 

^G91 REF E^.nTs ~ P2iT iM£ EQUALS DT/? ^7 fl(2» TNP 

AAiiS^Z 


R<»0^3 



STCRAGE. 


( 10 


^U95 H£F 1__ FA. 17 17 fCAESS. EQUALS P21TlHf +2 KUT MP S AVES R ETURNS. 


ftA^Q96 Vine eil SICRA^GE. JMlX SHAPE ONLY WITH INCOPPCf'JllON/ (IflCI 

^^9 6 REF 1 EA. I 7 T 0 RANGE EQUALS EGRE SS •*• I n2>0SP NCUN 5^ DISTANCE 70 OPTICA L SUSJ 

AU9<3 REF 1 FA, 1722 PRATE cQUALS RANGE *2 U21DSP NOUN 5A RATE OF APPROACH 

AICQ REF 1 ' EA. n2A RTHETA EQUALS RRAT E *2 1(2>CSP NCUN 5A 

ALOi REF 1 £Atl 726 RONE EQUALS RTHETA +2 KonMP VECTOR STORAGE. ISCRATCH) 

4,i02 REF 1 7fcA,n37^^ VONE EQUALS PONE +6 I(6»TNP VECTOR STORAGE. ( SCRATCH 1 


RA103 LUNAR LANCHARK SELECT ICN PRQCRAN - R35 _ (2BD) 


AIDS 

A106 

REF 

2 

LAST 

8 7 

EA. 1720 

XPIHCLD 

EQUAL S 

RANGE 


1(2) 




REF 

1 



EA. 1722 

VECTIME 

equals 

XKIHCLC 

+ 2 

1(2) 




A1D7 

RtF 

1 



EA. 172A 

JLCGPCNT 

EQUALS 

VeCT ]HE 

*2 

1(1) 




H loe 

REF 

1 



fcA.l725 

KLOCFCNT 

EQUALS 

JLOOPCNT 

♦ 1 

1(1) 




A1U9 

REP 

1 



EA. 1726 

NKVAL 

EQUALS 

KLOCFCNT 

♦ 1 

Id ) 




AilQ 

REP 

1 



EA.i727 

DEL 1AL 

EQUALS 

NKVAL 

+ 1 

I (2) 




Alll 

REF 

1 



EA, 1731 

TK 

EQUALS 

OELTAL 

+ 2 

1(2) 




A112 

REF 

1 



EA,1733 

INDEXNUH 

EQUALS 

TK 

♦ 2 

Id) 


















A1I3 

RfcF 

1 



EA, 173A 

LGNGSAVE 

EQUALS 

INDEXNUK 

♦ 1 

I (2) 




AHA 

«EF 

1 



EA, 1736 

pcjsvect 

EQUALS 

LGNGSAVE 

+2 

I (6) 




Aill_ 

PEF 

1 



EA, llAA 

VELVECT 

EQUALS 

POSV ECT 


I (b ) 




A116 

REF 

1 



EA,1752 

LSLGNG 

EQUALS 

VELVECT 

*>6 

1(2) TMP 

LONGITUDE OF 

LANDING SIGHT 




PA117 



S-EANC 

ANTENNA GIHEAL ANGLES 

. DISPLAYEC 

DV RC^ 

(IXT.VB. 

6A ) 

(AO) 




K<» 1 19 




OPERATION DURING POO 

CNLV. 






















A120 

REF 

3 

LAST 

87 

EA, 1720 

RHUSB 

EQUALS 

RANGE 


H(2)CSP 

NCUN 51. PITCH ANGLE 


A121 

REF 

1 



EA, 1722 

GAMNAS6 

EQUALS 

RHOSE 

♦ 2 

b(2)0SP 

NOUN 51. YAW 

ANGLE 
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6AP1 

AGC PKLGHflM LOLLj^htiS HT NAbA 

L«il AUb* l\iLCf^A5C»UfO rMUC 

a o 


L 
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412^ 

REF 2 L^Sl ai 6^.112fc RPAS53fc EQUALS RONE 

I (6JS-S 




^125 


1 


E4. I 73^ 


UNP3fc 


EQUALS RPASS36 +6 


I (6)S-S 
















a<i 1 21 



F ^TFNnFD 

WFRR fip STCPAGg 

m ^ ^ ^ 









*1128 



( «>»« 

THE SHARING IN THIS 

SECTION IS TF-MPORARY i 

DNL¥A**«I 


lac) 


















A130 

REF 

A 

LAST 

8 7 

fcAtl720 

HPERHIN 

equals 

RANGE 


1(2} 

SET TO 300KFT OR 35KFT 

FOR 5H30.1 


<ilj 1 

R£f 

1 



E^tl722 

PPACTEM 

EQUALS 

HPERPIN 

+2 

1(2} 

PAD OR LANDING RADIUS 

FOP SR30. 1 


A132 

REF 

1 



E4.172A 

TSTAR782 

EQUALS 

RPAUTEH 

+2 

I (2 ) 

TEWP TIME STORAGE FOR 

V82. 


A-«tl33 
















P^L3A 



HCRE 

.V EK B 

62 NOT SHAPIRG 

WITH VERe 83 




(701 






^136 

REF 

1 



EAf 17A2 

V82FLAGS 

EQUALS 

VGNE 

♦ 6 

(11 

FOP V 82 tSlTS 



A137 

REF 

X 



CA,17A3 

IFF 

EQUALS 

Ve2FLACS 

+1 

1(2) 

DSP NOUN A2t * FOR P3a,A0,Al. 


_ 

REF 

1 



EAt 17^5 

-TPER 

EQUALS 

TFF 

♦ 2 

I(2}CSP NCUN 32 



^13S 

REF 

1 



E4» 17-1.7 

THETAll ) 

EQUALS 

-TPER 

+ 2 

1(2) 

TMP SET AT END OF V02 




REF 




EA, 1755 

RSP-RREC 

EQUALS 

ACPT IHC 


DSP 

NCUN R32 




R^1<>1 PEENTPY C CM CS < 60* 

-^1^3 REF 2 LAST 86 E^t i7A2 UhOJKE EQUALS Ve2F LACS 1(6) SAVE AC TUAL FOR CALCULATI ONS 

A<tU<t ~ ' 





V 62 DISPLAY 





( AD ) 












A1A7 

REF 

1 

EA, 1751 

HAPCX 

EQUAL S 

ThFTA( 1) 

+ 2 

1(2) DSP NCUN AA 


AlAe 

REF 

1 

EA,i753 

HFERX 

EQUALS 

HAPCX 

+2 

1(2) DSP NGUN AA 


t ^ 1 A9 











r<<.A5A 



\ARIOUS CISPLAY PtCISTEPS. 





(060 ) 



A156 

RtF 

1 

EA* 1755 

AGP Tint 

equals 

HFEPX 

♦ 2 



<♦157 

REF 


LAST 88 EAt 1757 

LANCLONG 

EQUALS 

ACPT IHE 

♦ 2 

1(2) DSP NOUN 3S FOR P22 


A158 

REF 

1 

EA, 1761 

LANCALT 

EQUALS 

LANDLCNG 

♦ 2 

I (2)0SP NDuN 69 FOR P22. 


PAt59 



PA 160 



S3A/35.5 ,P3A-P35 STCPAGE. 





(601 












Alb2 

REF 

1 

EA, 1763 

K T 

EQUALS 

landalt 

♦2 

8(2) 


A163 

REF 

1 

EA, 1765 

VLRBNCUN 

EQUALS 

KT 

♦ 2 

a(l)TPP 


Ai6A 

REF 

1 

EA, 1766 

GSAVEO ‘ 

EQUALS 

vefgNcun 

♦ 1 

b( i) (MP holcs return 
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4165 

REF 

1 


£ 4.1767 

R TRN 

EQUALS 

QSAVEC 

♦ 1 

0 ( 1 ) RETURN 


4166 

REF 

1 


L 4.1770 

SUBEXIT 

EQUALS 

RTRN 

♦ 1 

BID THP 


h^ \ ill 









RGEXIT CANT SHARE WITH 

HPERtHAPO 

4168 

REF 

1 


£ 4, 1770 

66 EX I T 

EQUALS 

SUBEXIT 


I (l)TMP Q SAVt RODE 1 

AND 2 TO RTRN WAIN 



H4169 P 3Q QlSPiAY . . . 

A171 REf 1 LAIT ki EA.1163 HAPQ EQUALS KT I ( 2 > C SP . NOU N ^ 2 $ FQ R_ f_3_0_, 

^172 REf 1 £4.1765 HPEH EQUALS MAPO +2 I<2) DSP NOUN 42, FOR P30. 

A 4173 


f< 4 n 4 sent PJ 4 S 70 PACE, (CVEPLAYS P 35.1 STORAGE) 

4176 REF 3 LAST .t -9 t 4 il 763 NOMTPI EQU ALS KT 


(20) 

r( 2 )TMP NOMINAL TPI TINE FOR PHCYCLE 


P 4 i 77 TEE FCLLCHlNG ARfc ERASABLES QSEC BY THE SYSTEM TESTS. 205 USES TRANSW l GS ARE NO T USED I N 205 NCR ARfe THEY 
K 4179 WHLE 5 C 4 LSES TRANSNl ANC ALFOK . 


4 ltO 

4181 

K 4 ie 2 

E 4 . 14 CC 

TPANSMl 

EQUALS 

200 U 


(Ifl) INITIALIZATION FOR 

IWU 

TESTS 


REF 1 E 4,1422 

ALF CK 

m 

TRAN SHI 

♦ 100 

( 144 ) ERASABLE LOAD IN 

504 

_ — _ 

END Of PEPF. TEST ERASABLE IN BANK 4 

















R 4183 

• V 82 ♦-•-4 





( 6 C) 





4165 

REF 1 £ 4,1771 

VONC* 

EQUALS 

RGEX IT 

♦ 1 

n 6 )THP NORPAL VELOCITY 

VCNE/ 

SQ RT HU 


A 4166 











R 4187 P/C LLAO INTEGRATICN ERROR IhCLUOEC IN VARIANCE BY F 2 Q (ID) 


■.<LLflfl RLE 1 E/ H 1 777 

44189 

A 4190 


INTVAR EQUALS VONE • +6 l(l)PL SQUARE CF EXPECTED INTEGRATION 

POSITION EXTRAPOLATION ERROR. 
SCALED RETERS( 2 ) 2 ( 15 ) 



4191 REF 


£ 4,1777 


6 NO-E 4 EQUALS INTVAR LAST USED ERASABLE IN E 4 


- ■ - ...... 
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USER*S PAGE 
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^ = — 


P500C ASiUh^£ll35 - - ■ 

5001 E5f lAC Q SETLGC 2^CC 


D e; A Ti ^ 



rVFRLAY 1 IN EBANK 5 -*-♦-♦-* 








. 

UU« 












p p n n i 



li.M|ATAf % STC^AGt T 




( 1620 ) 








IE . I * 1 #1 *dl ■ w f ’’ xt.E. ^ m - — ' 









^nriR 



F5.1AOO ki 

EQUALS 

2*t00 


B( 162 ) 







5QQ6 

REF 

1 

fc5tl570 EHaTRIX 



♦ 120D 

B(A2E 

USED 7C CONVERT R 

TO 6X6 



^ W Vl V 

5007 

REF 

2^ 

LAST 9C £5.lt>A2 END-W 

EQUALS 

W 

♦ 1620 

♦♦NEXT 

AVAILABLE LCC AFTER 

R MATRIX** 




PSQQfi JLTC-CPTICS STQRflC£ 


R 5 Q 09 

nr KfT Nf^F FROM £ 5 . 1554 . A DELICATE 

FALANCE EXISTS BETWEtN TFlS AND P 03 


r* ** w # 

sole 

R F F 

3 LAST 9 C E 5.1554 

XN 01 

EQUALS R 

+ 1080 

B( 6 D) TMP 


5011 

KEF 

1 E 5 tl 5 e 2 

YNDl 

EQUALS XNbl 

♦ 6 

B( 6 nMP 


flk 'E 

50 1 2 

REF 

1 E 5*1570 

2 NB 1 

EQUALS YNBl 


8 ( 6 ) TMP 


5013 

REF 

1 E 5.1376 

SAVQK 52 

EQUALS ZNBl 

+6 

I ( 2 )TMP 

- — — 


5014 

REF 

1 



E 5. 1600 

PLANVEC 

EQUALS 

SAVQP52 

♦ 2 

B(6) S-S SIGHTING VECTCR IN REF. CCOB. 

^ W Ai 1 — 

501 5» 

REF 

1 



E5f 1606 

TSIGHT 

EQUALS 

PLANVEC 

+ 6 

B(2) S-S TIME OF SIGHTING 

A5ni 

" V ' 

A 





















R 50165 



RFNOFZVQLS 

-P34-35 





(260) 












5018 

REF 

1 



E5, 1610 

DVLQS 

EQUALS 

TSIGHT 

+ 2 

1(6) S-S DELTA VELOCITY, LOS CGORD-DISPLl 

5019 

REF 

1 



E5t leio 

DEL TAR 

EQUALS 

DVL05 


1(2) 

5020 

REF 

1 



E5.i61C 

TINTSCl 

EQUALS 

DEL TAR 


1(21 INTERCEPT TIME FOR SOI MANEUVER 

50205 

REF 

2 

LAST 

90 

E5» 1612 

DELTTIME 

EQUALS 

OVLOS 

+ 2 

T (2 ) 

5021 

REF 

3 

LAST 

9C 

85« 1614 

TARGTIME 

EQUALS 

UVLUS 

+ 4 

1(2) 

5022 

RF.F 

4 

LAST 

9C 

E5.16I6 

UNRR 

EQUALS 

OVLCS 

*^6 

1(6) S-S 

M fc Mi — 

5023 

REF 

1 



£5,1624 

ULOS 

EQUALS 

UNFW 

♦ 6 

1(6) S-S UNIT LINE OF SIGHT VECTOR 

5024 

REF 

1 



E5, 1632 

ACTC6NT 

equals 

ULOS 

+6 

1(2) S-S CENTRAL ANGLE BEThEFN ACTIVE 

A5025 










V6H AT TPl IGNITION TIME AND 

A5026 










TARGET VECTOR. 

5027 

REF 

1 



65,1634 

OELVTPI 

EQUALS 

ACTC ENT 

*2 

I (2) NOUN 50 FOR P34. 

5026 

REF 

1 



b 5, 1 636 

DEL VTPF 

EQUALS 

OELVTPI 

+ 2 

1(2) NOUN 58,59 FOR P34,35. 

5029 

REF 

1 



65,1640 

POSITPI 

EQUALS 

06LVTPF 

♦ 2 

I (2) NOUN 58 FOR P34, 

5030 

REF 

2 

LAST 

9C 

65, 1634 

TDEC2 

EQUALS 

OELVTPI 


(?) 












- 

F5031 



ALIGNMENT 






( 120) 












5033 

REF 

St 

LAST 

90 

65, 1610 

STARSAVl 

EQUALS 

UVLOS 


I(ci)TMP RESTART STAR SAVE. 

5034 

REF 

1 



65,1616 

STAW SAV2 

Equals 

5TARSAV1 

+ 6 

I(6)TMP RtSIAKT STAR SAVE. 
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STAR SAV2 

(CISLURAR TAG FQR 

STARSiVZ) . 



RgQ3 7 SEARCH < IP Q > 


5C39 

REF 

t LIST 9C 

ES.lfclC 

1 T 

equals 

OVLt S 


(6) 




5090 

REF 

1 

C5j^14J6 

THETZERO 

EQUALS 

IT 

♦ 6 

(2) 




5Q4T 

RFf 

_J 

E5. 1620 

tfj: 

LQUALS 

THET 2EH0 

42 

(2 ) 




5092 

R£i 

1 

E5«1622 

GELVEE 

EQUALS 

TF 1 +2 


(2) 




5Q93 

REF 

1 

E5. 1629 

HP 

EQUALS 

UELVEE *2 


(2) 




5099 

REF 

1 

E5,U26 

Tf 0 

EQUALS 

hP *2 


(2) 




5095 

REF 

1 

E5, 163C 

HPO 

EQUALS 

TFC +2 


(21 




5Q96 

REF 

1 

E5. 1632 

CELVeC 

EQUALS 

HPG 42 


(2 } 




5097 

REF 

1 

E5f 1639 

►AGVTPl 

EQUALS 

OELVLU 

42 

1(2) 

THP 

HAG OF QELTAVTPI 

OR VHID 1 

5098 

REF 

1 

E5, U36 

RELDELV 

EQUALS 

MACV7PI 

42 

I (2) 

TPP 

HAT CF CELTAVTPF 


509S 

REF 

1 

E5t 1690 

T3T0T9 

EQUALS 

RELDELV 

42 

I (2) 

DSP 

NOUN 39 FOR P39, 

35. TPI TP TIN 


A5C<i91 T (CAM NOT SHARE WITH RETURN TO EARTH > 


QAPl 


2021111 “ 
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P3Q5C 

R5Gli2 


ALtCNAEM/SV STEST/CALCSHSC/C PSfcl.l CCPMQN STGRAGf . 
tCALCSM^C IS^ik&^SET CF 55 l,l AT LEAST* 

ICHSfel.l IS A 


( 3601 


SUBSET 



REF 

1 



65# 1671 


XSM 

EQUALS 

END-Vv 

♦ 23C 

B(6 I 





md ^ M 

5055 

J 1 Jk: ■ _ 

REF 

1 



E5. 1677 


YSM 

EQUALS 

XSM 

♦ 6 

B (6) THP 





5Q3t 

REf 

1 



F5# 1705 


ZSM 

EQUALS 

YSM 

♦ 6 

B(6 »TMP 





^K- 
















ill'll 

RFF 

1 



E5. 1713 


XDC 

EQUALS 

ZSM 

+ 6 

B(6)7MP 





0thd m u ^ 

5058 

PE F 

) 



E5f 1721 


VDC 

EQUALS 

XDL 

♦ 6 

B(6)TMP 





K W ^ 

<5 r, s <3 

— -* 

RFF 

1 



E5t 1727 


ZDC 

EQUALS 

YOC 

46 

B(6)TMP 






5 ObO 

REF 

2 

LI-ST 

92 

E5. n 13 


XNB 

« 

XDC 







^ W JhJ \J 

5Q Cj 1 

REF 

- 

L/Sl 

9J 

E5f 1721 


YNB 


YOt 








REF 




65.1727 


ZNB 

= 

ZDC 
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506 A 

REF 

2 

LAST 92 E 5 tl 673 -COSO 

EQUALS 

XSM 

♦ 2 

( 2 JTMP 

5065 

C 1 .j 

Rtf 

-» 

1 

E 5.1675 SINE 

EQUALS 

-cose 

♦ 2 

( 2 * TMP 










R 5 Q 66 



AL IGNMENlySYSTEST CCMMCN STOP/GC. 




( lao ) 









5066 

REF 

2 

LAST 92 L 5 tl ?35 STARAD 

EQUALS 

ZLC 

46 

I ( laC tTMP 



R 5 C 69 



ALIGNMENI/SYSTEST/AUTO optics CCMHCh STORAGE# 



{ 170 * 


5 Q 71 

HFf 

1 

E 5,1757 OGC 

EQUALS 

STAR AO 

♦ 180 

n 2 ) 7 Mp 

5072 

REF 

1 

65.1761 IGC 

EQUALS 

OGC 

♦ 2 

1(2 ITHP 

5073 

REF 

1 

£ 5.1763 PGC 

EQUALS 

IGC 

♦ 2 

Ii 2 )TMP , 

507 A 

HEF 

1 

fc 5,1765 STAR 

EQUALS 

MGC 

♦ 2 

I( 6 *TMP ' 

5075 

REF 

1 

65,1773 SAC 

EQUALS 

STAR 

♦6 

I (2 HMP 

5076 

REF 

1 

E 5,1775 PAC 

EQUALS 

SAC 

♦ 2 

I (2 )TMP 

5077 

REF 

1 

65,1777 QHIN 

EQUALS 

PAC 

♦ 2 

fid Mt-P 

R 5078 
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**** CCLP 50 S •♦♦♦ 




( ID ) 


5081 

REF 

1 

65,1735 CULTRIX 

EQUALS 

VEAP TH 


VEARTH, VSUN, VMCQN 










F 5 Cti 2 



CVERLAYS RITFIN 4 L I GAM EN 1 / SY 5 T E ST CCHMON STORAGE. 


( 240 * 


508 A 

REF 

2 

last 92 65,1735 YEARTH 

EQUALS 

STARAD 


(6 JTMP 

5085 

RLF 

2 

LAST 92 65,1743 VSUN 

EQUALS 

VEAP IF 

+6 

( 6 JTMP 1 

5086 

REF 

1 

E 5,1751 VMOCN 

EQUALS 

VSUFi 

46 

( 6 *T»*P 

5067 

REF 

1 

65,1757 SAX 

EQUALS 

VMOCR 

♦ 6 

( 6 *TMP 
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tfi/5AELE AlSlGNMfiJi USER'S P4Gt NO. 60 FO S3 
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fcSQgg CJJ^IC AOLTIKES SICRflGE. ( 87D> 


5U9i 

REf 

2 

L/iT 

92 

E5.1692 

CELX 

EQUALS 

6 N D- W 


I (21TMP 

SQq2 

RfcF 

1 



E5. 1699 

DEIT 

equals 

DEL X 

♦ 2 

I (2nMP 

bO'Ja 

RtF 

1 



E5. 1696 

UBRECT 

EQUALS 

06LT 

♦ 2 

I (6)TMP 

50 9^ 

REF 

1 



E5# 1659 

RCNCRH 

EQUALS 

URKECT 

+6 

1(211 MP 

5 


1 



13.1552 

XPRE V 

EQUALS 

XKEP 


I (21TMP 

5096 

REf 

1 



E5f 1656 

RIVEC 

EQUALS 

HCNCPP 

*2 

I (elTMP 

5QS7 

REF 

1 



k5i 1669 

R2VEC 

EQUALS 

RIVEC 

+6 

I (61 TVP 

5QSfc 

REF 

1 



E5* 1672 

TOES JPEG 

EQUALS 

R2VE C 

+ 6 

I (2nMP 

5099 

REF 

1 



E 5, 1679 

GEORSGN 

EQUALS 

ICES IRED 

♦ 2 

I (1 ITMP 

5100 

REF 

1 



t5* 1675 

UN 

EQUALS 

CEONSCN 

♦ 1 

r (6) IMP 

5101 

REP 

1 



65.1703 

VTAHGTAG 

EQUALS 

UK 

+6 

KllTMP 1 

5102 

REF 

1 



E5. 1 709 

VTARGET 

EQUALS 

V7AP GTAG 

♦ 1 

1 {6)7MP 

5103 

REF 

1 



E 5 1 1 7 1 2 

PTNLAMB 

EQUALS 

VTAP GET 

♦ b 

KlllMP 

5LQ<i 

REJ^ 

1 



65^1713 

U2 

EQUALS 

RTNLAPB 

♦1 

I (6 ITMP 

5103 

Blf 

1 



£5, 1721 

RAGVEC2 

equals 

U2 

46 

I (2 ITMP 

5106 

REF 

1 



E 5. 1723 

UP-l 

EQUALS 

MAGVEC2 

♦ 2 

I (6ITMP 

51.67 

_Rli 

1 



_EL5 . 17 21 

SNTP 

EQUALS 

UPl 

♦ 6 

I(2nMP 

5108 

REF 

1 



E5.1733 

CSTP 

EQUALS 

SNTH 

*■2 

I (21TMP 

5109 

REF 

1 



E5. 1735 

l-CSTH 

EQUALS 

CSTh 

♦ 2 

I (2 ITMP 

5110 

REf 

1 



£5.1737 

CSTP-RHO 

EQUALS 

l^CSTH 

*2 

I (21TMP 

5111 

REF 

1 



65.1791 

P 

EQUALS 

CSTh-RHO 

*2 

l(2nMP 

5U2 

RtF 

1 



£5.1793 

RIA 

EQUALS 

P 

♦ 2 

I (21TMP 

3113 

REF 

2 

L/S? 

92 

65.1656 

RVEC 

EQUALS 

P 1 V E C 


( {61THP 

5liA 

REf 

1 



E5f 1795 

VV6C 

EQUALS 

RXA 

♦ 2 

I(6nMP 

5115 

REF 

2 

L^ST 

93 

65.1712 

RTNTT 

EQUALS 

PTNLAMB 


I (1 ITMP 

5116 

REF 

1 



E5j.l 7 5 3 

ECC 

EQUALS 

VV6C 

+ 6 

M2 ITMP 

5117 

REf 

3 

L4ST 

93 

E5. 1712 

RTNTR 

EQUALS 

P TNLAMR 


I (UTMP 

5118 

REf 

9 

L<ST 

93 

65,1712 

PTNAPSe 

EQUALS 

RTNLAME 


I (1 ITMP 

5119 

REF 

2 

L^S7 

93 

65.1721 

B2 

EQUALS 

MAGVEC2 


I(21TMP , 

5120 

R fc f 

1 



E5, 1755 

RTNPPN 

EQUALS 

ECC 

♦ 2 

KllTMP 1 

5121 

REF 

1 



E5, 1756 

SGNROCT 

EQUALS 

KTNPPM 

♦ 1 

1(1 ITMP 

5122 

Rtf 

A 



E5. 1757 

ROES [RED 

EQUALS 

SGNPCCT 

♦ i 

I (2 ITMP 

5123 

REF 

1 



E5, 1761 

DtLCfcP 

EQUALS 

PCtS IPEO 

♦ 2 

n21TMP 

5129 

REF 

1 



E5, 1 763 

DfcPREV 

EQUALS 

OEIOEP 

♦ 2 

K2ITMP 

3A25 

RE f 


Li>S? 

93 

L 5. 1761 

TERfiLAHB 

equals 

DFLD6F 


I (2 ITMP 

5l2t 

REf 

1 



E 5, 1763 

TPRE9 

EQUALS 

DEPP EV 


I (2ITMP 

A5127 












OAPt R» =vlSTnN flP ACT PftCfcRfiM CCLOSSUS BV NASA 202I1I1-C31 llll 

L ~ms7iLri^iTGiM?iar~~~~^^ 


AUG. 2<^#lq^9 K[L6KAS£.07a 
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PAGE 9^ 

EO S3 


P5128 



CVERLAY 3 IN EBANK 

5 ^ 

















ft ^1 7Q 



WFA^sliRf HENT 

iNCCflPCRAT ICN STCRAGE. 



( 66D ) 



R5L31 



(CALLED BV 

P20. P22. P23) 



















RFF 

1 

L / S 7 9 ? 

E5« 1642 

CNEGAHl 

EQUALS tNL-^ 


r (6nNP 



5J. jJ 

fitf 

i 


E5.1650 

CNEGAH2 

equals ONEGANl 

+ 6 

1 (6nNP 



513<i 

REP 

t 


t5.165ej 

0HEGAM3 

EQUALS 0NEGAK2 

'f 6 

I (6I7RP 




REF 

1 


E5«l6t4 

HCLCW 

EQUALS 0HtGAN3 

♦ 6 

Mie »7MP 



5i>6 

REF 

1 


6 5 * 1 T C 6 

TOPOS 

EQUALS HOLDh 

♦ 18D 

I (6) IMP 



5137 

BEP 

1 


E5tl7l4 _ ___ 

IQVEL 

EQUALS TUPCS 

6 

I (6nRP 




- -J ■- . 










5136 

REF 

1 


E5t1722 

ZI 

EQUALS TOVEL 

♦ 6 

I (19} 















P12^P23 STORAGE. <QD> 


51^3 RtF 1 ~ ES, 22SU8SCL EUUAl S Z I *100 DE O F ABCCE LANCHARK IC N(^ 


5144 

REF 

A 

i 

E5.1745 

CXOFF 

EQUALS 

22SU8SCL +1 

a OF ABCOE CFfSET INOICATCP 

:;145 

Rif 

1 

E5. 1746 

8KK 

EQUALS 

CXCF F 

♦ 1 

B{ UTRP 

INDEX 

OF PRESENT MARK. 

5146 

RLF 

1 

fc5, 1 747 

6NN 

EQUALS 

8KK 

♦ 1 

8(1 ) IMP 



3147 

REF 

1 

E 5. 1750 

522LCC 

EQUALS 

8NN 

♦ 1 

nuTwp 

MARK 

CA7A LOC 

5148 

REF 

1 

E5, 1751 

LANDMARK 

equals 

S22LCC 

+ 1 

B( 1) CSP 

NOUN 

70 FOR P22f51, R52,53. 

5149 

REF 

1 

E 5, 17 52 

HUB UCN 

EQUALS 

LANORARK +1 

B(l)CSP 

NCUN 

70 FOR P22f5l, R52*5J. 

515 0 

REF 

1 

eS, 1753 

IDOFLRK 

EQUALS 

hOPI ZCN 

♦ 1 

6(1) 



f’lL51 






















K5152 



i| 441441 tp 2 





( 10) 



5155 

REF 

_L_ 

t 5f 1754 

TRUMCN 

EQUALS 

I DUF LHK 

♦ 1 

G(l) 
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£KAS4iLE AlSiG^H£^JS 


LiStR'S PACE NO. 62 


to S3 


P5157 


516G 


5162 

5163 


M± 


51C<t 


5166 


5167 a£f. 


5168 

516<i 

ai-ifl 

5171 

5172 


517A 

5175 

5176 


5177 

5178 


neo 

>181 


183 
5184 
5165 


186 

187 


5168 

518S 


5191 


5198 

519S 


REF 


5182 Sl£ 


BEF 

REF 

Ml. 


REF 

REF 


OVERLAY Q IR EBANK 5 


A 


SVSYFN TFS1 STORAGE- 


U74> 


E5.140Q FStlAOl 
E5il402 fc5il4C3 


AZIRUTH ERASE +l 


LATITIDE ERASE »1 


1 

1 


1161 


TRUNA 

SHAFTA 


EQUALS 0E50PTT 
EQUALS OESOP7S 



£5i 1 41 1 ERVECT OR ERAS E *5 


lencth qt eras e 


E 5 , lAU 


E5tl42C 


LCSVEC ERASE +5 


X 


£5*1413 

E5tl421 


65, 1422 
£5*1423 


EJl1^21 

65,1421 

£5*1423 


SXTLPTN 


NDXCTR ERASE 
PIPIN CEX ERASE 
PCS [TON ERASE 

QPLAC ERASE 


LLSVEC 


4 


£5,1424 £5,1424 


65, 1425 

ES.1426 


65,14 2? 


1 


E 5, 1430 
E5. 1431 


£5,1425 

£5,1426 

E5,1427 


QPLACE ERASE 

QPLACES ERASE 

RUN coiicf 


£5, 1431 
£5,1432 
£5,1440 


£5,1430 

£5,1431 


ERASE 
STOREPL ERASE 

COlilLiro CDA1.C. 


'SOU7HOR ERASE 


£5,1442 


E5, 1 444 


2 

3 

A 


LASi 

LAST 


65. 1444 


65,1437 

£5.1441 

E5, 1443 
65,1652 


TARGl/2 
TAZELi ERASE 
TEWPTIHE ERASE 

THARK ERASE 


SO UTHCP 

♦ 5 

♦ I 


15 £5,1446 


GENPL 
CDUr IHEI 


ERASE 


♦ 1 
♦ 134C 


5 

6 


LAST 


LAST 

LAST 


95 

95 

9 5_ 


65,1450 

£ 5.1451 

6_5, 1452 


CDUTIMEE 

IRU/CPT 

CDUPEADF 


GENPL 


GENPL +2 
GENPL ^4 


95 65,1453 


COUREADl 


COULIMIT 


GENPL *5 
GENPL +6 
GENPL *1 


R6F 

7 

LAST 

95 

£5,1450 

TERPAOO • 

GENPL 


REF 

8 

LAST 

95 

E 5, 1451 

TEMP 

GENPL 

+5 

REF 

9 

LAST 

95 

E5«1452 

NOBITS » 

GENPL 

+fc 


REF IC LAST 95 E5,1453 


CHAN 


GENPL +7 



Rtf 

11 

LAST 

95 

65,1454 

5L93 

REF 

12 

LAST 

9 5 

E5, 1462 

5 1 94 

j^£F 

13 

LAST 

9i 

E5.1470 

5195 

REF 

14 

LAST 

95 

E5, 1471 

5196 

REF 

IS 

LAST 

95 

E5, 1472 

5197 

REF 

16 

last 

95 

£5,1473 


LOSl 


GENPL *BC 


LGS2 


GENPL +140 


CALCCIA EQUALS GENPL +200 


CDUELAG EQUALS GLNPL +210 


GYTCecTQ EQUALS GENPL +220 
OPT NR EG EQUAL S CbNPL +230 


REF 

REF 


I? 

16 


LAST 

LAST 


95 

95 


E5, 1474 
E5, 1477 


SAVE 


EQUALS GENPL +240 


THREE CONSEC LOC 


I 


SFCONStl EQUALS GENPL *270 




r^A0 1 

ACCFkftiC RPtiKinik 
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fF Af.r PtirCRAM 
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PACE 96 













1 

fRi^silLF 

ASSlGhMEMS 






USER'S PAGE NO. 63 

EO SI 













52CC 

Rtf 

-15 

J.AS1 

91 

E5.15CIO 

TIMER 

EQUAL! 

GENPL 

426C 















^7n\ 

Rf F 

2L LAST 

qt 

t5, 15C2 

LATAPL _ 

EQUALS 

GENPL 

*300 



5202 

52C3 

52D4 

RLF 

31 

L^Sl 

96 

L5tl555 

RDSP 

EQUALS 

GENPL 


FIX LATER PCSSIBLV KEEPl 


REF 

22 

33 

_Lli^L 

9_4 

E5. 1555 

RASKPEG 

EQUALS 

GENPL 

4650 



RFF 

— 1 . — li . - — 

LAST 

— j. . .j. 

E5#1556 

CCiUhCX 

EQUALS 

G EN P L 

■♦'660 



5203 

REF 

25 

L/ISI 

96 

E5. 1557 

RESULTCT 

EQUALS 

GEMPL 

♦670 



5206 

REF 

25 

L^ST 

96 

e5ti552 

COUNTPL 

EQUALS 

GENPL 

♦ 700 














5207 

REF 

26 

LAST 

96 

E5j 1553 

COUANG 

EQUALS 

GENP L 

♦ 710 



5206 

REF 

27 

LAST 

96 

E 5 1 1555 

A IMA 

« 

GENPL 


OPTIMUM CAL16. ANO ALIGNMENT 



5209 

521C 

REF 

1 



E5, 1555 

MANGG 

EQUALS 

AINL A 




REF 

2 

LAST 

96 

E5.1556 

WANGI 

EQUALS 

AINL A 

♦ 20 



5211 

REF 

3 

LASI 

96 

E5.1550 

MANGT 

EQUALS 

A1F«L A 

♦5 0 



5212 

REF 

1 



E5. 1550 

TORCNOX 


MANGT 




5213 

REF 

4 

LAST 

96 

E 5. 1552 

Chi FIT 

EQUALS 

AINL A 

46 D 



5^15 

REF 

i; 

LAST 

96 

E5. 1555 

ALX IS 

EQUALS 

AINL A 

+60 



5215 

REF 

6 

LAST 

96 

£5.1555 

CMPX 1 

EQUALS 

AINL A 

♦90 



5216 

REF 

T 

LAST 

96 

E5.1556 

ALK 

EQUALS 

A I N L A 

♦ 100 



5217 

REF 

e 

LAST 

96 

65.1572 

VLAUNS 

EQUALS 

AINL A 

♦ 220 



5216 

REF 

i 



E5. 156C 

TMFTAX 

ai 

ALK 42 




5219 

REF 

9 LAST 

96 

E5. 1575 

MPL ATC 

EQUALS 

AINL A 

♦250 



5220 

REF 

10 

LAST 

96 

E5t 1500 

INTV 

EQUALS 

AINL A 

♦280 



5221 

REF 

1 



E5. 1566 

THtTAN 

a 

THE TAX 

♦ 6 



5222 

REF 

u 

LAST 

96 

E5. 1502 

ANG2 

EQUALS 

AINLA 

♦ 300 



5223 

REF 

12 

LAST 

96 

E5. 1505 

INT2 

EQUALS 

AINL A 

+320 



5225 

REF 

13 

LAST 

96 

E5, 1506 

ANCY 

EQUALS 

AINLA 

♦ 350 




522S RtF lA LiST St tStlSlO 4NGX EUUALS A INI 4 -tBaO 


5226 RtF 15 L^ST 96 E 5t 1512 CRIFIC EQUALS AlNt/ > *360 


5227 

REF 

16 

LIST 

96 

65.1515 

ORIFTI 

EQUAL S 

AINLA 

♦500 



32^8 

Rtf 

)7 

LAST 

96 

E5f 1520 

VLAUR 

EQUALS 

AINLA 

♦55C 



5229 

REF 

1 



E 5. 1575 

F1L06LV 


THtTAN 

46 



5230 

REF 

18 

LAST 

96 

E5, 1522 

ACCWE 

EQUAL S 

AINLA 

♦560 



5231 

REF 

1 



E5.1<i76 

INT W6C 

a: 

FILDELV +2 



5232 

REF 

19 

LAST 

96 

E5, 1530 

PCSRV 

equals 

AINLA 

♦ 520 



5233 

REF 

20 

L AS T 

96 

E5f 1532 

CPI PAY 

EQUALS 

AINLA 

4540 



5235 

REF 

21 

LAST 

96 

E5, 1536 

DPI PA2 

EQUALS 

AINL A 

♦ 5flD 



5235 

REF 

22 

LAST 

96 

E5, 1550 

ALT IN 

EQUALS 

AIM A 

♦ 600 



5236 

REF 

23 

LAST 

96 

eSf 1551 

ALT IMS 

EQUALS 

AINLA 

♦ 610 



5237 

REF 


LAST 

9 6 

E5« 1552 

ALDK 

EQUALS 

AINLA 

♦620 



5238 

REF 

25 

LAST 

96 

E5t 1560 

OELM 

EQUALS 

AIM A 

♦ 760 



5239 

REF 

26 

LAST 

96 

E5. 157C 

WPLATI 

EQUAL S 

AINLA 

♦ 850 



525U 

REF 

2 7 

LAST 

96 

£5.1577 

RESTARPT 


ainlA 

♦ 910 



52^*1 

REF 

26 

LAST 

96 

E5, 1631 

GEGSAVEO 

* 

AINLA 

♦ 1 17Q 



5252 

REF 

29 

LAST 

96 

E5, 1632 

PREMfRXC 


AINLA 

♦ 1180 



5253 

REF 

30 

LAST 

96 

E5,1633 

LAUNCHA2 

9 

atnl a 

♦ 1190 



5255 

REF 

31 

LAST 

96 

E5,1635 

remazmth 

» 

AINLA 

♦ 1210 



5255 

REF 

32 

LAST 

96 

E5, 1637 

OLOAZMTH 

9 

AINLA 

♦1230“ 
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£2^6 R£i 23 LIST 9e i5U4Al T OLCAZHT « AINlA ->1250 


£247 

REF 

34 

LAST 

97 

E5t 1643 

GEOCCKPS 


AINLA ♦1270 


524fi 

REF 

35 

LAST 

ai. 

E5.1644 

ISECXT 

m 

AIM A ♦1280 


524S 

REF 

36 

LAST 

97 

e5tl645 

GTS»iTLST 

s 

AINLA ♦1290 


5250 

REF 

37 

LAST 

9 7 

E 5 # 164 6 

LR6CT IME 

9 

AINLA +1300 


52£1. 

REF 

3E 

LAST 

97 

t5.1647 

EPCCRP 

s 

AINLA ♦1310 


S252 

REF 

25 

LAST 

97 

E5tl655 

7ERCNCX 

a 

AINLA +1370 


52£3 

REF 

1 



£5.1655 

CTSCPNOZ 

3 

ZEPONDX 















K52£4 

THE 

FCLLCWlNSLJAtS 

ARE _USIL_aT TFE 504 

iHu calibration / 

AND ALIGNMENT PRCGRAN ONLY. 



5 2 £6 

REF 

2 

LAST 

96 

£5.1460 

TH67AX1 

EQUALS 

ALK 

+ 2 


5257 

REF 

1 



E5. 1466 

THeTAM 

EQUALS 

THETAXl 

♦ 6 


52 5 e 

REF 

- X. 



£5.1474 

£ ILCELVl 

EQUAL $ 

THETAM 

♦6 


5259 

REF 

1 



65. 1476 

INTVECl 

EQUALS 

FILDELVI 

♦ 2 


524C. 

REF 

4 0 

last 

97 

E5, 1631 

GE0SAV61 

EQUALS 

AINLA 

♦ 1170 


£261 

REF 

41 

LAST 

97 

E5.1632 

PRLP FRXl 

EQUALS 

AINLA 

+ 1180 


526 2 

REF 

42 

LAST 

97 

£5,1633 

LUNCHA21 

EQUALS 

AINLA 

+ l 19D 


5263 

REF 

1 



E5,1635 

NEWA21 

EQUALS 

LUNChAZl 

♦ 2 


5264 

REF 

2_ 

LAST 

97 

E5. 1637 

CLDAZl 

EQUALS 

LUNCFAZl 



5265 

REF 

3 

LAST 

97 

E5_i164J 

TOLCAZl 

EQUALS 

LUNCHAZl 

+ 6 


5266 

REF 

43 

LAST 

97 

E5 . 1643 

6EQCCIHP1 

EQUALS 

AINLA 

♦ 127C 


_ 5267 

REF 

44 

LAST 

97 

E5.1644 

1S6CXT1 

EQUALS 

AINLA 

♦ 1280 


5266 

R EF 

4 5 

LAST 

97 

E5, 1645 

gtswtlti 

EQUALS 

AINLA 

♦ 129C 


526S 

REF 

46 

LAST 

9? 

E D t i 6 A 6 

ERECT IHi 

equals 

AINL A 

+ 1300 


527Q 

REF 

47 

LAST 

9? 

fc 5 # 1 6 A 7 

ERCGMPl 

EQUALS 

AINl A 

♦1310 1(61 


5271 

REF 

46 

LAST 

97 

65,1655 

2ERCNCX1 

EQUALS 

AINLA 

♦ 1370 


52715 

REF 

4S 

LAST 

97 

E5,1656 

PERFDLAV 

EQUALS 

AINL A 

♦1380 B(2).... 



P5272 EhC Of 50A CAL » ALIGN £PASE. 


5271 RFF I F5.1777 END-E5 EQUALS uMIN LAST USED £5 ADDCiESS 

I 
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tg A SI £iX A<S1X1W1£ h IS 


USEg*S PAGE NO. 65 


eO S3 


P6QG0 
ti G L 1 


EEANK- 6 JilS.LGhH ENTS 
E6.14Q0 __ 


SLTLCC _300C 


K d Li Li 1 1 



P23 PAC LCADS^** 





( 2D). 




f V W 3M A A 












t-. n 1 ^ 



F6tl400 

b6. 1400 

WNIDPCS 

ERASE 


1(1) PL 

INITIAL values FCR 

W-MATR IX 

IN 

— . ■ -1-, M ifc 



E6.1401 

E^dl401 

V4MI CVEL 

ERASE 


1(1) PL 

CISLUNAR (P23) NAVIGATION 


£6nG l 5 

























(< A-.nr 1 f 



R32 PAQ LCADS 





( 50 ). 





6GGIE 



E6j1402 

je6,14Q3 

RVAR 

ERASE 

♦1 1(2) PL 

VHF P.ACAR 



6001 S 



E6 1 1 4C4 

E6*1406 

PVARH IN 

ERASE 

♦2 1(3) PL 

VHF RACAR 



AAOGl <4 


























4 4 44 4 «« 

PIC LLADEC ENTRY DAP 

STEEP INC 

VARIABLES 


( 30 





6004 



E6, 1A07 

E6tl407 

LAOPAC 

ERASE 


Ml) PL 

FOR ENTRY. HOLDS CH 

NOMINAL 

L/0 

6005 



e6. 1410 

E6.1410 

LOUPAO 

ERASE 


1(1) PL 

FCR ENTRY. HOLDS CM 

NOMINAL 

LOO 

60C6 



E6>1411 

£6*1411 

ALF APAO 

ERASE 


8(1) PL 

ALFA TRIM / 180 



A60C62 























86007 

«4i4 44 4 4# 

PAD LCAOEC TVC DAP VARIABLES. 

















6009 



E6.14I2 

E6tl4l2 

ESTRQKcR 

EkASr 


B( DPI 




6010 



E 6 • 1 4 L 3 

E6* 1414 

6KPR IPE 

ERASE 

+1 H(2)PL 




6011 



E6, 1415 

C6,1415 

ETDECAY 

ERASE 


I (l)PL 




6012 



E6.1416 

£6*1417 

EKTLX/l 

ERASE 

+ L 

B(2)PL 




6013 



E6,1420 

E 6 i 1420 

BTVCD7/2 

ERASE 


e(l)PL 




6014 



E6. 1421 

E£f 1421 

ETSRI ICH 

ERASE 


B(UPL 




6015 



E6. 1422 

£6*1422 

ECORFRAC 

ERASE 


e ( 1 ) p L 



1 

6016 



E6» 1423 

£6*1424 

EREPFRAC 

ERASE 

♦1 B(2)PL 



1 

6017 



E6, 1425 

£6*1425 

PACTOFF 

ERASE 


B(1 )PL * 

OSP N48 ROl > PTRIM, 

802 » YTHIM 

6018 



E6tI426 

£6*1426 

YACTOFF 

ERASE 


B( 1) PL* 

CONSECUTIVE WITH PACTQFF 


6019 



E6#i427 

E6f 1427 

APO 

ERASE 


B(1 ) 




6020 



E6t 1430 

E6,143l 

API 

ERASE 

♦ 1 

B(2 ) 




6021 



b6t 1432 

E6*1433 

AP2 

ERASE 

♦ 1 

6(2) 




6022 



66*1434 

E6,1435 

AP3 

ERASE 

+ 1 

B(2 ) 





t t.i r 3 



E6.1436 

E6tl437 

6Pl 

ERASE 

+ 1 

6(2) 




6024 



E 6 f 1440 

£6*14^1 

eP2 

ERASE 

41 

8(2 ) 




6025 



E6* 1442 

£6,1443 

eP3 

ERASE 

+ 1 

B(2) 




6027 

REF 

1 

E6,1427 


AYO 

* 

APO 





0028 

REF 

1 

E6t 1430 


AVI 

S 

API 





6029 

REF 

1 

£6*1432 


AY2 

- 

AP2 





60 30 

REF 

1 

E6* 1434 


AY3 

- 

AP3 




1 


6031 

REF 

1 

E 6 * 14 36 


BYl 

» 

RPl 
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6032 REi L . E6i eY2 BP2 

tU33 REF 1 £6,1^A2 tiY 3 bR3 ^ 


«444«4«4 FUCtLjjl VE TVC D AP VARIABLES. 4*»»* f 50 > 


0Q36 



E6. 1444 

€6 i 1444 

V97VCNTP 

ERASE 



B(1 ) 




6037 



E 6 * 144 5 

E i f 1 ^ ^ 6 

TEMPDAP 

ERASE 

'^1 


6(2) 




6 c aa 

__R11 

1 

E6. 1445 


KKKRTMP 

= 

1 KMPCAP 


((6(1))) 




6039 



16, 1447 

E6.1447 

CNTR 

LRASE 



Bd) 




6QA0 



E6, 1450 

fc fc f 1 4 5 C 

OGAC 

lkase 



e<i) 




A6Q^1 



























Rfcfl<i5 

44444444 

e>CLtSlVE RCS QAP VARIABLES* 

4 44>«44«4>>444*4 4i444i*«4>4i444*4««4«*4i4 (130) 



J 













1 

6Q*»9 



E6«1451 

E 6f 1465 

RWORDl 

ERASE 


+ 120 

6(1) 




6045 

REF 

1 

E 6 tl 4 5 2 


flWGRC2 

C7 

UJ 

PROP Cl 

♦ 1 

8(1) 




6046 

REF 

1 

E6# 1453 


pnaRci 

EQUALS 

RWCPC2 

+ 1 

B(U 




604 7 

Rtf 

1 

E6t 1454 


PWOR02 

EQUALS 

PRCRCl 

+ 1 

B (1 ) 




6048 

REF 

1 

£6*i4_55_ 


YWQROl 

EQUALS 

PWCRC2 

+ 1 

6(1 ) 




6049 

REf 

1 

E6» 1456 


YWaRD2 

EQUALS 

YWOKCl 

+ 1 

6(1 ) 




6050 

REf 

1 

E6. 1457 


BLAST 

EQUALS 

YRtKC2 

+ l 

B(2) 




6051 

REF 

1 

E6. 1461 


BLASTl 

equals 

bLAST 

+2 

6(2) 




605*1 

REf 

1 

E6» 1463 


B L A S T 2 

EQUAL S 

BLASTl 

♦ 2 

6(2) 




60525 

KEF 

1 

E6t 1465 


T5PHASE 

EQUALS 

BLAS72 

+2 

d (1) 





ACQ526 


R6Q53 44<4»44* ftCS/TYC CAP CCHMCM S T 0 RAG E *♦*♦<*♦*»<♦******»♦»***♦♦*<♦»»♦**♦♦*♦< UC > 


6055 


E6t 1466 

66,1466 

DAPOATRl 

ERASE 



R( 1) OSP NOUN 46(Rl ) 


6056 


E6. 1467 

66,1467 

0APCATR2 

ERASE 



e(l)CSP NCUK 46(R2 ) 



6057 


E6t 1470 

66,147C 

IXX 

EPASE 



6(1) 

CONSECUTIVE hITH lAVG, 

lAVG/TLX FOR 

_ _ .6056 


£6.1471 

£6.1471 

(AVG 

ERASE 



6(1 ) 


PASSPRCP 

6059 


E6f 1472 

E6t 1472 

lAVG/TLX 

ERASE 



B(i ) 














60fc0 


E6.1473 

66t 1474 

LFMMASS 

ERASE 


+ l 

6(1) 

DSP NCUN 47 (P?) 

LEH/CSNMASS 

6061 

REF 1 

E£, 1474 


CSMMASS 

EQUALS 

LEPP ASS 

♦ 1 

B(l) 

CSP NCUN 47 (El) 

FOR DUNNLINK 

6062 


£6,1475 

E6, 1475 

REIGHT/G 

ERASE 



0(1 ) 



t0t3 

REF 1 

E6, 1475 


PASS 

m 

W£ IGET/G 
















6064 


E6, 1476 

E6, 1476 

AK 

ERAS! 






6065 


F6, 1477 

66,1477 

aki 

ERASE 






6066 


16, 1500 

66,1500 

AK2 

ERASE 

















6067 


E6, 1501 

66.1501 

RCSFLAGS 

ERASE 



B(1 ) 

CONSECUTIVE *^irHAK2 DOwNLINK 

^06 8 


L6f 1502 

66,1502 

fsTEMP 

ERASE 



B( 1) 



6069 


E6, 15C3 

F6,15Q3 

EOR T VEX 

ERASE 
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6070 £6»15Q^ EDRIVEY ERASE 

6071 Ej6l,ISCI 5 E6fl505 EORiVEZ ERASE 


R6072 

APIA 


IMErtP TERU INTLRPfifiD APE PEIERVED FOR OVERLAYEO IVC/RCS INTERljP TRUE T6PPCBIES 
E6t 1506 C6.I52A IMTEMP E RAS E +1AD LL5J 


R6075 


lACZRCS 




RESERVED FOR CORMINKED VARIABLES 


6076 

A6Q77 

A607e 


S6fI52§ E6il5<iO TVCRCS ERAS E »ilO 


( 12 ) 

RCS ( wBODYSiACOTS » 
TVC(OPEGACStO»’ECABS} 


P607S 



TVC DAP lEKPCRARY v AR I A BL € S <*«**•»♦♦♦♦*♦•♦♦♦♦♦♦**♦♦♦<*♦♦♦♦• ♦***♦ 















Q d 0 



7VC DAP INTERUPT TRUE 

TEMPGR AR I ES* ♦♦♦♦♦♦♦♦ ♦♦♦*♦♦♦♦* 44********** 
















6001 

REF 

1 



fc^l506 

PHI 3 33 

EQUALS 

INTI tPP 

Bin 

TEPPCRARY 

register 

6082 

REF 

i 



E ti • 1 5 0 7 

PS133i 

EQUALS 

PHn33 ♦! 

BID 

COUNTING 

register 

6063 

RCF 

1 



E6. 1510 

TeMP333 

EQUAL S 

PSI333 +1 

Bin 

CCUNTINC 

REG I STER 

6084 

KEF 

1 



E6. 1511 

VARSTO 

EQUAL S 

7EHP333 ♦! 

8(100) 

breakpoints and slopes 

6065 

REF 

1 



E6. 1516 

VARST5 

a 

VARSTO +5 




60651 

REF 

2 

LAST 

IOC 

E6. 1522 

LASTMASP 

EQUALS 

VARSTC *90 

LAST VARSTO WCRD 


60H52 

REF 

1 



E6, 1523 

TVCTHPl 

EQUALS 

LASTKASP >l 

8(1) 



AcQSA 



































R6067 



4 egular TVC TEHPCRAR 1ES<«^* <♦♦♦*♦*♦♦ 





























k6Gfi8 



TVC ZEROING LCGP STARTS AT OKECAYC 



< 700 ) 



























6040 

KFF 

1 



b6. 1525 

OMbGAC 

EQUALS 

TVCRCS 

1(6) 



60*31 

REF 

1 



E6, 1525 

CMEGAXC 


OMEGAC 




6092 

REF 

2 

LAST 

IQC 

E6, 1527 

QKEGAYC 

* 

OMECAC +2 




6093 

KEF 


LAST 

100 

E6. 1531 

chegazc 


OHEGAC *4 
















6094 

REF 

2 

LAST 

IOC 

£6f 1533 

CREGAB 

equals 

TVtPCS *b 

6(6 ) 



6095 

REF 

1 



E6« 1533 

QHEGAX8 


OPE GAB 




6096 

REF 

2 

LAST 

IOC 

E6, 1535 

0MEGAY8 


OHECAB *2 




6097 

REF 

3 

LAST 

IOC 

E6, 1537 

CHCGAZti 

m 

ORtGAB +4 
















6098 

REF 

4 

LAST 

100 

E6, 1541 

PNSUM 

EQUAtS 

OHEGAC ♦12D 

B<2) 



6099 

REF 

1 



E6i 1543 

PObUM 

EQUALS 

PNSUP +2 

8(2 } 















6100 

REF 

1 



E6,1545 

ei 

lquals 

PDSLP +2 

d( 1 ) 



6101 

REF 

1 



E 6 1 1546 

62 

Equal S 

bl +1 

Bd ) 











r 
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6102 

REF 


F6.15A7 

n3 

EUUAlS 

B2 +1 

B( 1 1 


61C3 

REF 

1 

E6f 1350 


EQUALS 

b3 +1 

B( U 





E6^155I 

85 

EQUAL S 

BA »1 

B(l» 


6L05 

REF 

1 

E6. 1552 

66 

EQUALS 

05 -^1 

e (U 











SI life 

RFf 

1 

Ei3 • 1553 

J1 

EQUALS 

86 +l 

B(2I 


6107 

REF 

1 

E6. 1555 

J2 

EQUALS 

Jl +2 

6(2) 


Ol08 

REF 

1 

E6, 1557 

J3 

EQUALS 

J2 *2 

B(2) 


61 OS 

REF 

1 

£6, 1561 

JA 

EQUAL S 

J3 +2 

8(2) 


6110 

REF 

1 

E6# 1563 

J5 

EQUALS 

JA *2 

B(2) 



6111 

Rf f 

1 

E6.1565 

YNSUM 

lug At s 

J5 *2 

8(2) 


6112 

REE 

1 

E6t 1567 

YOSUM 

EQUALS 

YKSUR +2 

8(2) 



6113 

RFF 

1 

Ee« 1571 

Cl 

EQUALS 

YDSUF *2 

B(l ) 


611^ 

REF 

1 

£6.1572 

C2 

EQUALS 

Cl +1 

6(1 ) 


6115 

PEF 

1 

E6, 1573 

C3 

EQUALS 

t2 +1 

B(l ) 


6116 

REF 

1 

E6. 157A 

CA 

EQUALS 

C3 +1 

6(1) 


6U7 

REF 

1 

E6t 1575 

C5 

EQUALS 

C A +1 

6(1 ) 


6118 

REF 

1 

16.1576 

C6 

EQUALS 

C5 +1 

6(1) 











611S 

REF 

1 

E6t 1577 

VI 

EQUALS 

C6 ♦! 

e (2) 


tiza 

REF 

1 

E6. 1601 

Y2 

EQUALS 

Yl +2 

6(2) 


6121 

REF 

1 

£6.1603 

Y3 

EQUAL S 

Y2 +2 

B(2 ) 


6122 

REF 

1 

E6. 1605 

YA 

EQUALS 

Y3 +2 

6(2) 


6123 

REF 

1 

E6t 1607 

Y5 

EQUALS 

YA *2 

8(2) 











612A 

REF 

1 

16, 1611 

RQLLFIRE 

EQUALS 

Y5 +2 

6(1) 


6125 

REF 

1 

£6.1612 

RCLLWGRO 

EQUALS 

ROLLFIPt +l 

6(1) 


6126 

REF 

1 

I 16.1613 

TEMRtG 

EQUALS 

ROLLRCPO +1 

6(1) 



6127 

REF 

1 

e6,l6lA 

STHCKER 

EQUAL S 

TEMREG -H 

& (1 ) 











612S 

REF 

1 

16.1615 

PtRHE 

EQUALS 

ST POKER +1 

6(2) 

1 

6130 

REF 

1 

E6.1617 

VERRE 

EQUAL $ 

PtFPR +2 

B(2) 











6131 

REF 

1 

E6, 1621 

OELPdAP 

EQUAL S 

VERRfc *2 

8(2) 


6132 

REF 

1 

16,1623 

CELYBAP 

EQUALS 

DEL H AP *2 

6(2) 











6133 

REF 

1 

16,1625 

POELCFF 

equal S 

DELYBAft *Z 

S(2) 


613^ 

REF 

i 

E6, 1627 

YD6L0FF 

EQUALS 

PDELCFF *2 

B(2) 



Rtl35 TVC IERCLJRG lOaP ENDS hbRE 


6131 

6137 

REF 

1 

E6. 1631 


PCMD 

EQUALS 

YOELCFF 

+ 2 

b(l ) 



REF 

1 

E6, 1632 


YCMC 

EQUALS 

PCMC 

♦ 1 

8(1), CONSECUTIVE wITH PCMD 



6138 

REF 

1 

16, 1633 


TACTOF F 

EQUALS 

YCMO 

+ 1 

B(2) 


1 

6139 

REF 

1 

16, 1635 


T5TVCCT 

Equals 

TACTCFF 

♦ 2 

6(1) 


1 

61AC 

REF 

1 

E6, 1636 


MOT 

EQUAL S 

T5TVCCT 

♦ 1 

I (6) 
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61^1 

REi 

_1 

E 64 I 666 

KPR IM£DT 

equal s 

r.ot 

+ 6 

1(2) 

E 

6162 

R£F 

J 

.16*1666 

K TLX / 1 

EQUALS 

KPP I fEOT 

♦ 2 

6(11 



REF 

1 

gfey 1667 

TEMHDCT 

EQUAL 5 

KTLXyi 

♦1 

B (1 1 


6X44 

Rtf 

1 

.E6fl650 

1 /CCNACC 

EQUAL S 

TENI^CCT 

+ 1 

B( 1) 


6165 

Rtf 

1 

t 6 t 16 51 

VARK 

EQUALS 

1/CONACC 

+ l 

Hdl 


6i4A 

RRF 

1 _ 

e6. 1652 

fifcPFRAC 

EUUALS 

VAPK 

♦1 

P (11 


6167 

REf 

1 

t6^l65J 

VCNTR 

EQUALS 

PEFFPAC 

♦ 1 

Bdl 


61672 

REF 

1 

E6.1656 

TVCPHASt 

EQUALS 

VCNTR 

♦ 1 

6(11 


6148 

Rif 

1 

E 6 1 1 6 5 5 

PCOOYPST 

EQUAL S 

TVCPFASE 

♦ 1 

Bd 1 


6169 

REF 

1 

E6t 1656 

PCOUZPST 

EQUALS 

PCOUYPST 

♦ 1 

8(11 


6150 

REF 

1 

E6t 1657 

HCDUYOGT 

EQUAL S 

PCOUZPST 

♦ 1 

Bd ) 


6151 

REf 

1 

E6,166G 

RCOUZCOT 

EQUALS 

MCDUVIUT 

♦ 1 

B d ) 


6152 

RfcF 

1 

E 6 1 16 61 

TVCEXPhS 

EQUALS 

RC0U2C0T 

♦ 1 

b ( ] 1 


6153 

REP 

1 

B 6 f 1 B 6 2 

masstrp 

EQUALS 

TVCEXPHS 

+ 1 

Bill 

PRCTECT 

6156 

REF 

1 

E6iI663 

VCNTRTMP 

equals 

HASSTRP 

♦ 1 

6(11 

•PROTECT*** M 


P6155 


SIRCKE 

TEST VARIABLES 








R6I56 

( 6t } 









6157 

REF^_ 

1 

E 6 1 1666 

STRKT IME 

EQUALS 

VCNT PTHP 

♦ 1 

6(11 




1 

£6,1665 

CADCY 

EQUALS 

STRKTIRF 

+ l 

B (1 1 


6159 

REF 

1 

E 6t 1666 

N 

EQUALS 

CADCY 

♦ i 

Bd 1 


6 L60 

REF 

1 

E 6 f 1 6 6 7 

BUNKER 

EQUALS 

N 

+ l 

Bd 1 


6i6l 

REF 

1 

E6« 167G 

REVS 

EQUALS 

BUNKER 

♦ 1 

Bd 1 


ol62 

ref 

I 

E6,167l 

CARC 

EQUALS 

REVS 

+ l 

Bdl 



R6I63 IVC kCLL CAP VARIAELES 


H 6 1 o4 

tec L= 








6165 

REF 

1 

E 6 , 1 6 7 2 

CGANOw 

EQUALS 

CARD 

♦ 1 

Bdl 

0 l 66 

REF 

1 

£ 6 f 1 67 3 

OGAPAST 

EQUALS 

CCANOH 

♦ 1 

Bdl 

6167 

REF 

1 

E 6 , 167A 

GGA 

EQUALS 

OCAPAST 

♦ 1 

B( 1 ITHP 

6168 

BiJ 


E 6 ■ 1 6 7 

EGA ERR 


OCA 


(ROLL DAP USES CGA, MEANS CGAERRQRl 

(j 1 6 ^ 

REF 

i 

LAST 102 E6»i6?5 

CELCGART 

equals 

CCA 

+ 1 

6(1 ITMP 

6170 

REF 

1 

E 6 f 16 76 

SGNRT 

EQUALS 

OELUCART 


SIGN Cf GGA RATE 

JtL71 

REF 

1 

E 6 , 1677 

celqga 

EQUALS 

SCNP T 

♦1 

USED IK ROLL LOGIC 

6 172 

REF 

1 

L 6 , 17C/0 

I 

tQUAL S 

OELLGA 

♦ 1 

USEO IN ROLL LCCIC 

6173 

REF 

1 

E 6 f 1 70 1 

lOGARATE 

EQUALS 

I 

♦ 1 

USED IN ROLL LOGIC 


k< 3 17^ 



TVC CAP RESTART TERPCRABIES. 





( 3301 


6176- 

REF 

\ 

£6,1702 

TKTLX/I 

EQUAL S 

I 0CARA1C 

+ l 

Bdl 

6177 

REF 

1 

£6,1703 

PACTTRP 

EQUAL S 

TKTLX/I 

>1 

6(21 

61 78 

REF 

1 

t 6 , nc5 

VACTTRP 

EQUALS 

PACTTHP 

♦ 2 

B( 2 1 

6179 

REF 

1 

E6, 1 707 

CNTRTRP 

EQUALS 

YACT TPP 

♦ 2 

Bdl 

6160 

REF 

1 

E 6 , mo 

STRKTTRP 

EQUALS 

CNTRTRP 


Bdl 

oiei 

REF 

1 

E 6 1 1 7 1 1 

nsurtrp 

EQUALS 

STf.KTTPP 

• 1 

B (2 1 

6182 

REF 

1 

E6, 1713 

OSUHfMP 

EQUAL S 

NSUHTHP 

♦ 2 

B (2 1 

6163 

REF 

1 

1 

<« 

CELERTMP 

EQUALS 

0SUN7RP 

♦ 2 

B(21 
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1 717 GtTH P EQUALS DFLlPTMP <-2 B<n 

E6.172C EQUALS tUTMP - H B < 1) 

Efc. 1721 03THP EQUALS *1 B(1 ) 

f 6. 1722 G<tTM P EQU ALS B3T WP 4i B(l) 

E6 . 172 3 eSTPP EQUALS BATMP +l b(l) 

£6.1724 E6Th>P EQUALS BSTHP ♦! B(U 

E6. 1 725 e7T>*P EQUALS BtoTMP ♦! ^(11 




fill 

__1 



Ffa » 17 26 

JUMP 

EQUALS 

B7TMP 

8(2> 


6I5Z 

R££ 

1 



16*1730 

J2TRP 

EQUAL S 

JITHP +2 

8(2) 


6193 

REF 

1 



E6. 1732 

J3THP 

EQUALS 

J27MP +2 

B(2) 


6194 

REF 

1 



66.1734 

J4TRP 

EQUAL S 

J3TPP +2 

8(2) 


6195 

REF 

1 



E6f 1736 

J5TRP 

EQUALS 

J4THP *2 

B(2) 


6196 

a£F 

1 



E6f 1740 

J6TRP 

equals 

J5TRP +2 

6(2) 


6191 

Rfi 

1 



66.1742 

ERKBTMP 

EQUALS 

J6TRP *2 

0(2) 

1 

6196 

REF 

1 



E6 f 1 744 

CROTRP 

EQUALS 

EPRBTRP *2 

8(2) 

E 












R619q 



OVERLAYS 1 

wlTKlri 19 C CAP 







620 y 

R£f 

4 

LAST 

IOC 

66, 1533. 

GGARAT6 


OHEUAB 

6(2 ) 



62C1 

REF 

2 

LAST 

103 

.^,1742 

B2ER0 

s 

ERRD TRP 



6202 

Pfc'f 

3 

LAST 

103 

66.1742 

CZERO 


ERKe TRP 



6203 

REF 

1 



66.1744 

JZEPC 

m 

CMUTRP 



62C4 

REF 

2 

LAST 

103 

E6. 1 744 

VZERC 

bb 

CNDT PF 



62C5 

REf 

2 

LAST 

102 

£6, 1651 

KPGENB 

s 

VARK 



6206 

REF 

1 



£6.1651 

KYGEN3 

£ 

KPGEA3 




620? 

REF 

4 

LAST 

103 

66. 1742 

EP 

mm 

ERPBTHP 



62 c a 

REF 

3 

LAST 

101 

E6. 1744 

NPD 


CHGT FP 



6209 

REF 

2 

LAST 

lOT 

66,1561 

RPO 

EQUALS 

J4 

(B(2) ) 


6210 

REF 

2 

LAST 

101 

66.1563 

NPl 

EQUALS 

J5 

(8(2)) 


6211 

REF 

2 

LAST 

IOC 

66.1541 

NP2 

EQUALS 

PNSUP 

(8(2) } 


6212 

REF 

2 

LAST 

IOC 

66,1543 

NP3 

EQUALS 

PDSUP 

(8(2) ) 

U 












- 6213 

REF 

2 

LAST 

10 2 

56.1736 

NPl TRP 

EQUALS 

J5TRP 

(6(2) ) 


6214 

REF 

2 

LAST 

102 

E6,1711 

NP2TMP 

EQUAL S 

NSUMTRP 

(8(2) ) 


6215 

REF 

2 

LAST 

10 2 

E6, 1713 

NPiTMP 

EQUALS 

DSUHTRP 

(8(2)) 



6216 

RiF 

5 

LAST 

103 

E6. 1742 

EY 

- 

ERRBTRP 



6217 

REF 


LAST 

103 

66,1744 

NYU 

m 

CMOTPP 



6218 

REF 

2 

LAST 

101 

E6, 16C5 

RYO 

EQUALS 

Y4 

(B(2) ) 


6219 

REF 

2 

LAST 

101 

£6,1607 

NYi 

EQUALS 

Y5 

(6(2) ) 


6220 

REF 


LAST 

iol 

66,1565 

RY2 

EQUALS 

YNSUf* 

( B ( 2 ) > 


6221 

REF 

2 

LAST 

101 

E6, 1367 

NY3 

EQUALS 

YDSUP 

(8(2) ) 



6222 

REF 

1 



66,1736 

NYITRP 

EQUALS 

Y5TPP 

(8(2) ) 


6223 

REF 


LAST 

103 

66,1711 

NV2TMP 

EQUALS 

NSURTFP 

(8(2) ) 

y 

6224 

REF 

3 

LAST 

103 

66,1713 

NY3TMP 

EQUALS 

OSURTPP 

(6(2) ) 



6164 R££ Jl 

6165 REf L 

hjhb REF 1_ 

61E7 _B£f 

6168 REf 1_ 

6189 REE \ 

6190 REF 1 


g ft P* Pf V I SION rt- anr PanfifiAM COIOSSUS HY NASA ?Lf^lllI-C3L 


\tll ALG. 24.1968 KlLERAS£«07e PAGE lOA 


1 

PI f 

ilf<;l(36MF6T5 






LSER*S PAGE 

NC* 

71 EG S3 

l» 



-M=m -44 - mm m 










h2 2^ 

RFf 

2 

1 i5T 

103 

f <Ji - \ 7 \ 7 

LITNP 

4 

6 ITPP 


(B(in 



u«.^^ - 

6226 

REF 

^ - 

2 

— — ■ 

1Q3 

E6. 1720 

C2TWP 

S 

ti2TfiP 


(6(17) 



ti?77 

RFF 

2 

l 357 

103 


C3TPP 

a 

b3TMP 


(6(17) 



6228^ 

REF 

2 

L/Sl 

1.Q3 

t64 1 722 

C4TNP 

s 

e4TRP 


(B( 1 7 7 



622S 

REF 

M 

2 

L^ST 

103 

C6, 1723 

CSTRP 


BSTRP 


(d(17 7 



62 30 

RtF 

2 

LIST 

- fc m igf 

103 

E6, 1724 

C6THP 

m 

B6THP 


te(U 7 



6231 

REF 

2 

LISl 

IQJ 

E6t 1725 

C7THP 


b7TMP 


( B ( 1 7 7 





— *1 











^7^7 

RPF 

2 

115 7 

10 3 

F6. 1 726 

VITMP 


JlTMP 


(B( 2) 7 



6233 

REF 

#4 

L 1 S T 

103 

66.1730 

\2TMP 


J21 PF 


(B<27 7 



623A 

T " Ifc — 

REF 

2 

LIST 

LQ3 

16, 1732 

Y JfPP 


J3TMF 


(6(277 


1 - - ■! 1 1 ■ IT nr-i 

6 23 5 

RFF 

JlBu 

2 

LIST 

103 

F6. 1734 

Y4TMP 


J4ThP 


( B ( 2 7 7 



6236 

J^EF 

3 

LIST 

IQJ 

£6,1736 

Y5TWP 

a 

JtTFP 


( B { 2 7 ) 



6237 

1. ri Im. 1 

RFF 

2 

LIST 

103 

£6,1740 

V6THP 

« 

J6TP P 


(B(27 7 



i 


ilA2 37 1 














R62372 



S^O.S 

STCRAGE** ■ « *•• • • 4 





















62373 

Rf F 

5 

LIST 

103 

E6 • 1 74 6 

NQRCYCLS 

EOUALS 

CPDTPP 

+ 2 

B(U CCLNTER 

FOR 

P40,41 STEERING 

6237^ 

REF 

1 



F6, 1 747 

N6RCYCLP 

EQUALS 

NBRC YCLS 

+ 1 

a(17 MAINTAIN ORDER 


62375 

REF 

1 



£6 , 1 75C 

DEL VSUH 

EQUALS 

NfiFC YCLP 

+ l 

1(67 P4Q,P4l 



62376 

REF 

1 



E6,1756 

tELVSUMP 

EQUALS 

DELVSUP 

t6 

t(67 P40tP^t 
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EO S3 


P62jH RCS CAP TEWPCRAR^ VAR I ABLE $, «<»»♦»♦♦♦♦*■>♦» ♦»»♦♦*»** <»♦»♦ <♦«*♦*«( 950 ) 


1 


k6?40 



♦ARCS INIERUPT TRUE 

'(ERPS4A*AAAAAAAAA*AAAA4AAA4*AA 


150 



62^2 

REP 

2 

LAST 10 C t6ti5C6 

SPNCX 

EQUALS INTTEPP 


BID 



HPF 

1 

b6.1507 

CPNCX 

EQUALS SPNO 

♦ 1 

0 ( DTMP 



REP 

1 

E6il5lQ 

KMPAC 

EQUALS OFNCX 

+ l 

B(2» THP 


6245 

REF 

1 

E6t 1512 

KRP 1ERP 

EQUALS KPP4C 

♦ 2 

BdUPP 



6246 

REF 

1 

E6t 1513 

XNOXl 

EQUALS KMPTEMP 

♦ 1 

B( 1 JTRP 

XNCXl THRU NYJETS ARE OVERLAYtO 

6247 

ref 

1 

E6. 1514 

XN0X2 

EQUALS XNOXl 

♦ 1 

B(1 >TMP 

BY OTHER CAP ERASABLE5 SC 

624 8 

REF 

1 

E6, 1515 

VNUX 

EQUALS XN0X2 

♦ 1 

BtDTMP 

SHCULO ALHAYS BE DEFINED IN 

6249 

REF 

1 

E6 1 1516 

ZNOX 

EQUALS YNDX 

+ l 

B( IITRP 

A BLLCK 

6250 

REF 

1 

E6t 1517 

R INDEX 

EQUALS ZNOX 

+ l 

8 ( U TRP 


6251 

Rtf 

1 

66.1520 

PINCEX 

EQUALS PINLEX 

♦ 1 

B{ inpp 


6252 

REF 

1 

E6, 1521 

VINCEX 

EQUALS PINLtX 

♦ 1 

0( IITPP 


6253 

REF 

1 

E6t 1522 

NRJE7S 

equals YINUEX 

♦ 1 

bidtrp 


L2 5^ 

REF 

1 

E6.1523 

NPJ ETS 

EQUALS NP.JE7S 

■*>1 

BtUTHP 


6255 

REF 

1 

E6jr 1524 

NYJETS 

EQUALS NPJfclS 

♦ 1 

8(1»TRP 



6256 

REF 

? 

LAST 

105 

E6.1513 

HIEHP 

equals 

XNOXl 


a< 2nRp 

bTEMP THRU DELTEHPZ OVERLAY 


6257 

REF 

1 



E6.1515 

CELTEMPX 

EQUALS 

U T E H P 

♦ 2 

B(2»TPP 

XNDXl THRU NRJETS AND FOOT THRU 


6258 

REF 

1 



E6, 1517 

CELTEHPY 

EQUALS 

DELTEPPX 

♦ 2 

B <2 I THP 

ACPVEL 


6259 

REF 

1 



E6,152i 

CELTEHPZ 

EQUALS 

DELT EPPV 

*2 

a( 2) TPP 
















626C 

REF 

2 

LAST 

lOS 

F.6, 1515 

tUQT 

EQUALS 

YNOX 


a(2)THP 

EOCT THRU AOBVEL OVERLAY 


q261 

REF 

1 



E6. 1517 

AERR 

EQUAL S 

LDCT 

*2 

BdlTHP 

YNCX THRU NPJETS AND DELTEMPX 


6262 

REF 

1 



E6. 1520 

EDOTVEL 

EQUALS 

A £ P P 

+ 1 

B ( 2 dHP 

THRU CELTEPP2 


&2o3 

PEF 

1 



E6« 1522 

AERRVEL 

EQUALS 

EDOTVEL 

♦ 2 

0d ITHP 



6264 

P.E^ 

—L. 



L6,I523 

AOBVEL 

EQUALS 

AERR VEL 

♦ 1 

BdlTHP 




R6265 




REGULAR 

PCS 7 lPFSaa**** ♦♦*♦♦♦♦♦♦•***♦♦*♦♦♦**♦♦ 


( ). 

















y 

R6267 



PCS 

2ERCIHG 

LOOP STARTS 

H6RE*4** ♦♦ 

♦ 41 ♦♦ 3 


♦ ♦ 

{ 37 1 



U 















6269 

REF 

3 

LAST 

IQC , 

E6.1525 

HbOCY 

EQUALS 

TVCPCS 


0( 2)7HP 




627C 

REF 

1 



E6. 1527 

HBUOYl 

EQUALS 

WBCCY 

+ 2 

e(2» TMP 




6271 

REF 

2 

LAST 

105 

E6d931 

MBGCY2 

EQUALS 

HBCOV 

■♦•4 

Bt2 »TRP 




6272 

REF 

i 



E6« 1533 

ADOT 

EQUALS 

HB0DY2 

♦ 2 

8t2)THP 




6273 

REF 

1 



E6. 1535 

ADOTl 

EQUALS 

AOCT 

♦ 2 

0(2nHP 




6274 

REF 

1 



E6. 1337 

AU0T2 

EQUALS 

ADOT 1 

♦ 2 

B (2 dHP 





62 76 

REF 

1 



E6t 1541 

herrgrx 

EQUALS 

ADOT 2 

♦ 2 

(2 1 




62 79 

REF 

1 



E6, 15A3 

HtBRCKY 

EQUAL $ 

HERE CPX 

♦ 2 

(2) 




6280 

REF 

i 



E6. 1545 

HERPQBZ 

EQUAL S 

MERRCRV 

♦ 2 

(2) 




62 81 

REF 

1 



E6, 1547 

CFT 

EQUALS 

MEPRCRZ 

♦ 2 

Bd )TNP 




6282 

REF 

1 



E6. 1550 

DETl 

EQUALS 

OFT 

+ l 

8d )7KP 




62 63 

REF 

1 



E6, 1551 

CFT2 

EQUALS 

OFTl 

♦ 1 

B( 1 ) THP 



i 

62 84 

REF 

1 



E6, 1552 

CKHC 

EQUALS 

DFT2 

+ l 

BfZITHP 




6285 

REF 

1 



E6, 1554 

LRHCl 

EQUALS 

DRHC 

^2 

Q (2 ITHP 
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L 

tRiSiiLE ASS1G6MEMS 





USER'S PAGE 

NO. 73 

EO S3 



tZBb 

REF 

1 

t6f 1554 

CRHC2 

EQUALS OHhC 1 

*2 

B(2nMP 




62 G 7 

Rtf 

1 

E6« 1560 

ATTStC 

EQUALS DPHC2 

♦ 2 

BdURP 




A7fia 

REF 

1 

E6«156J. 

T_AU _ 

EQUALS ATTSEC 

♦ 1 

a(i»TF«p 





REF 

1 

Ffc, 1562 

TAUl 

EQUALS TAU 

+ l 

0( UTMP 




<i290 

RFF 

i 

tbf 1 563 

TAU2 

EQUALS TAUl 

♦ 1 

B( 1 HRP 




6291 

REF 

1 

t6ti5ijA _ _ 

BIAS 

equal S TAU2 

♦ I 

8(1 ITHP 




6292 

REF 

1 

Efc. 1565 

ei Asi 

EQUALS blAS 

+ l 

BdJTRP 




6293 

Rtf 

1 

E6. 1566 

B1AS2 

EQUALS olASl 

+ l 

fi ( 1 HPP 




62931 

REf 

1 

E6t 1567 

ERRCRX 

EQUALS BIAS2 

+ 1 

B( 1 ITHP 




62932 

RLF 

1 

E6.1570 

ERRCRV 

EQUAL S EPPORX 

♦ 1 

Bd »TRP 




62933 

Rtf 

1 

E6tl57l 

ERROR 1 

EQUALS ERP.OPV 

♦ 1 

Bd JTMP 




A 62.9^ 


ftfepqs RCS ZgRC LCCP ENDS HERE 


R62_96 



HERE RCS 





( 69D> 













.6 300 

REF 

1_ 

E6.1572 

THh lADX 

equals 

EKRCRZ 

♦ 1 

ed )TMP 

PUST BL CONSECUTIVE WITH ERRORZ 

63C1 

REF 

1 

E6t 1573 

THE t ACY 

EQUALS 

ThETADX 

+ l 

BdfTPP 


6302 

REF 

1 

Ee, 1579 

THETACZ 

EQUALS 

THETACV 

♦ 1 

Bd)TPP 



6303 

REf 

1 

b6. 1575 

celCoux 

EQUALS 

THETADZ 

♦ 1 

0(2dPP 


63LA 

REF 

1 

b6. 1577 

OELCDOY 

EQUALS 

DELCCUX 

♦ 2 

B(2)TPP 


63C5 

R£F.- 

1 

E6. 1601 

CELCDU2 

TQUALS 

DELCCUY 

♦ 2 

B(2)TPP 



6306 

REF 

1 

E6, 1603 

CCDU 

EQUALS 

DELCCUZ 

*2 

B(6JTPP 

USED CURING P20 

03Q65 

HEF 

1 

£ 6 • 1611 

cthetasm 

EQUALS 

DC D U 

♦ 6 

0(6) TPP 

STEER LOP OUTPUT. 


63C7 

REF 

1 

E6, 1617 

attkalnn 

EQUALS 

DTHE TASP 

+ 6 

BdITPP 


6306 

REF 

1 

E6. 1620 

KPJ 

EQUALS 

ATTK ALHN 

-frl 

B( DTMP 


6309 

REF 

1 

£ 6 f 16 21 

KHJ 1 

Equals 

KPJ 

+ 1 

Dd )THP 


6310 

REF 

I 

L6t 1622 

KMJ2 

EQUALS 

KPJl 

♦1 

Bd » TPP 


6311 

REF 

1 

E6f 16 23 

J/M 

EQUALS 

KHU2 

♦ 1 

ed » TPP 


6312 

REF 

1 

E6f 1629 

J/Ml 

EQUALS 

J/H 

♦ 1 

Bd) TPP 


6313 

REF 

1 

E6, 1625 

J/M2 

EQUALS 

J/Kl 

♦1 

6(1) TPP 


6319 

REF 

1 

€6,1626 

RACFAIL 

EQUALS 

J/H2 

♦ 1 

B( UTPP 


o3l5 

REF 

1 

t6, 1627 

RBOFAIL 

EQUALS 

RACFAIL 

♦ 1 

Bd ITPP 


6316 

REF 

I 

E6, I63C 

ACORBO 

EQUALS 

RBDFA IL 

♦ 1 

Bd )TPP 


6 317 

REF 

1 

E6, 1631 

XTk ANS 

EQUALS 

ACOR EC 

♦1 

Bd )TPP 


6318 

"ref 

1 

b6, 1632 

CH31TEHP 

EQUALS 

XTRA6S 

♦ 1 

BdITPP 


6319 

REf 

1 

E6, 1633 

CHANTEMP 

equals 

CH31 TEPP 

♦ 1 

BdITPP 


6 32 0 

REF 

1 

E6 , 16 39 

75T IME 

EQUALS 

CHANTEPP 

♦ 1 

e ( UTPP 


o32l 

REF 

1 

E6, 1635 

RHO 

EQUALS 

T5TI Pf 

♦1 

BdITPP 


6322 

REF 

1 

E 6, 1636 

PHOi 

EQUALS 

PHD 

+ 1 

BdITPP 


6 32 3 

REf 

1 

E6,1637 

PH02 

EQUALS 

K hO 1 

♦ 1 

Bd ITPP 


6 329 

REF 

1 

E6, 1690 

AHGBl 

EQUALS 

KH02 

♦ I 

Bd) TPP 


6325 

REF 

1 

E6, 1691 

AHGB9 

EQUALS 

APGE 1 

♦ 1 

Bd ITPP 
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6326 

6327 

632fl , 

REE 

REF 

^-RXJ ■■ 

1 

1 

_J 

£6«16A2 

£6,U93 

EL6. 164,41 

AMG65 
AHGB7 
AE^Ofifi 

EQUALS 

EQUALS 

EQUALS 

AHC69 

ARCB5 

AHUB7 

♦ 1 

41 

+ l 

e ( 1 iTMp 

8(1 nwp 

BdITMP 

_ - — 

6329 

REF 

1 

E6* I64i5 

CAPSI 

EQUALS 

ARGE 6 

4l 

B(1 ITHP 


6330 

REF 

1 

E6. 164,6 

COU)(G 

LQUAL S 

CAPSI 

♦ 1 

0(2»TPP 


6331 

REF 



LfetifcSQ 

COUYC 

EQUALS 

couxc 

♦ 2 

B(2»TNP 


6332 

PtF 

1 

E6. 1652 

LOU 2 0 

EQUALS 

COUYC 

♦ 2 

8(2nPP 


0333 

REF 

1 

E6t 1659 

SLUPE 

EQUALS 

couzc 

42 

eiUTMP 


ti33A 

REF 

__l 

E6.1653 

AOB 

equals 

SLOPE 

4l 

BdITMP 


6335 

REF 

1 

E6,1656 

RHANNCX 

EQUALS 

A0& 

41 

Bd ITRP 


6336 

REF 

1 

E6_i 1657 

PHAhNCX 

EQUALS 

PMANROX 

4l 

Bd )THP 


6337 

REF 

—1 

E 6» 1660 

YRANNOX 

EQUALS 

PHANNCX 

41 

BdlTPP MUST BE LAST VARIABLE IN PCS 
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A^f^ f ftpr !<;TEH<; FTR EhTHV CAPS 


h J 4 1 

REF 

1 

E6 f 1 66 jt 

AQG 

equals 

HCDU 


IP 



h ^4? 

REF 

A 

1 

1 6 f 1 6 6 ^ 

AIG 

EQUALS 

AGO *l 


IP 




JlEf 

1 

E6. 1663 

A KG 

EQUALS 

Arc 


IP 



^ ^44 

Rtf 

1 

£6.1664 

ROLL/100 

equals 

AKG 

♦ 1 

IP 



w- W « ^ 

6 34 5 

REfk 

M 

1 

E6* 1665 

Air A/i80 

EQUALS 

ROLL/180 

♦ 1 

IP 



6346 

KEF 

1 

E 6 t 1(66 

BEl A/180 

EQUALS 

ALFA/ieO 

4l 

IP 



6347 

REF 

I 

F6t 1667 

AOG/PIP 

EQUALS 

bET^* /18C 

+ 1 

IP 



6346 

REF 

1 

E6. 1670 

AIG/PIP 

EQUALS 

AGG/PIP 

+ 1 

IP 



6 349 

REF 

1 

E6t 1671 

AMG/PIP 

EQUALS 

AlC/FIP 

+ 1 

IP 



6350 

REF 

1 

E6, 1672 

ROLL/PIP 

EQUALS 

AKU/P IP 

+ 1 

IP 

^ _ 


6351 

REF 

1 

Ee.1673 

ALFA/PIP 

tQUALS 

ROLL /PIP 

♦ 1 

IP 



6352 

KEF 

1 

F 6 f 167 4 

BtTA/PI P 

EQUALS 

ALFA/PIP 

♦ 1 

IP 














H A. % 

riFFEREhCPS OVER INTERVAL TCDO > 

.1 SEC. 








o354 

REF 

1 

Q6.1675 

-OtLAOG 

EQUALS 

BETA/PIP 

♦ 1 

IP 



^ 

6 355 

REF 

1 

F6. 1676 

-DELAIG 

EQUALS 

-DEL ACG 

♦ 1 

IP 



6156 

REF 

1 

E 6 . 1 6 7 7 

-D6LAKC 

EQUALS 

-DLL A IC 

+ 1 

IP 




P6359 

E<7 IMATEC 

eODY RAIES 








i 1 m 











6 3591 

REF 

1 

E6. 1700 

CHDAPMCiO 

EQUAL S 

-DEL AKG 

+ 1 

IP 

GOES BEFORE PREL FOR TK- 



0 J (?c 

REF 

1 

E6, 1 701 

PREL 

EQUALS 

CKDA FKCD 

+ l 

IP 

P TCCU/lFO (RCLLDOT) 


63^1 

REF 

1 

E6t 1702 

OREL 

EQUALS 

PREL 41 


IP 

Q TCCU/ieO {PITCHDGTI 


T» fip » 

6362 

REF 

1 

f 6 f 1 1 0 3 

RFEL 

EQUALS 

QKEL +1 


IP 

R TCCU/ieO (YAWOCT) 













t3 3 1 3 

REF 

i 

E6t 1704 

BETADCT 

EQUALS 

PPEL 

♦ 1 

IP 

MUST FCLLCW RRFL. BETAOOT TCOU/180 


b 1 64 

REF 

m 

1 

E6.17G5 

PHI CC7 

EQUAL S 

BETACCT 

4 1 

IP 


1 


K6365 

OLC 

(LNAVEEAfEC:! ECCV RATE MEASURE 



















6366 

REF 

1 

E6t 1706 

CLOELP 

EQUALS 

PH1DC7 

+ i 

IP 



bit! 

—1 J M T 

ref 

♦ 

1 

E6t 1707 

OLUELC 

EQUALS 

OLUELP +1 

IP 



bite 

REF 

1 

E6. 1710 

GLDELR 

EQUALS 

QLDELC 4l 

IP 




6372 

REF 

1 

E6t 1711 

JETAG 

EQUALS 

OLOELR 

4l 

IP 



6373 

REF 

1 

E6. 1712 

TUSEC 

EQUALS 

JETAG +1 


IP 

ELAPSEC TIKt SINCE NCKINAL UPDATE. 


A6373 1 






















P6374 



FCLLQliING 3 SP WORDS I Fi OOhNllFK- HCLLtK SENT 

EACH 1 SEC- 





6375 

REF 

i 

E6, 1713 

PAXERRl 

EQUALS 

TUSEC 

+ l 

IP 

IMeCRATFD ROLL ERK0H/3CU. 

. 

6376 

REF 

1 

E6. 1714 

ROLLTK 

EQUAL S 

KAXE FT 1 

♦ 1 

IP 

RCLL/tST) FCR TN. 

1 

63 77 

REF 

1 

E6f 1715 

ROLLC 

EQUALS 

ROLLTK 

41 

2P 

RCLLCCK/36C FRQK E-NTPY (FHH TKI 


A63771 








>> 

KEEP ROLLC fi RCLLHOLO ADJACENT FOR TP 
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1 

FR39« eL^ 

ASS IGNMLKTS 







USER'S PAGE 

NO. 76 

EO S3 


637fl 

Rtf 

1 

E6. 1717 


ROLLHaLO 

EQUALS 

RCLl C 

+ 2 

IP 

FCR ATTITUDE 

HOLD IN CHOAPHCC » +1 

A 6 3 7 B 1 















£6 37 £2 



E^TPY OAF QUANTI1IES 

THAT 

SHAPE WITH RCS 

OAP. 





















R(F 

? 

I AST in^ FA, 1603 


ALHACCM 

EQUAL S 

DC DU 


IP 

KEEP ACJACEM TO BEIACQM. 

<< 

j63fiC 

REF 

1 

EiSt.L6.Q9 


BET ACQM 

equals 

ALFACCH 

-t-l 

IP 

















R ij ^ fi J 

JC 1 

L 1 <T 

I 0 7. jE TBITS 

inis LRCtP. 





















6ia2 

REf 

1 

£6* 1605 


TOFF 

EQUALS 

SETACCH 

♦ 1 

IP 

OP PAIR 



t^fi3 

REF 

1 



Tens 

EQUALS 

TOFF 4l 


IP 




636^ 

REF 

1 

e6f 1607 


T0N2 

EQUALS 

Tt I T S +l 


IP 

CP PAIR 



Ci3 65 

REF 

1 

E6f UlO 


T2BnS 

EQUALS 

TUN2 +1 


IP 






MSCELLANEOLS PEPHANENT ERASEAfiLE 

* 





















0 3 88 

REf 

1 

E6, 1611 


GUT TAG 

EQUALS 

T2BnS 

+ 1 

IP 




6389 

REF 

1 

E6« 1612 


RUJET 

EQUALS 

QUIT AG *1 

IP 




f 63891 

HCPE 

EMRY OAF gUAMITIES 

THAT 

DC NCT SHARE 

WITH RCS DAP. 


















6J892 

RFF 


E6t 1720 


JETEM 

EQUALS 

ROLLFCLD 

+ l 

2P 

THIS DP USED 

IN RA7EAVG. 


o390 

REF 

L_ 

E6, 1722 


LAHA 

EQUAL S 

JETE F 

♦ 2 

IP 




6391 

REF 

1 

E6,m3. 


GAMCGT 

equals 

GAHA 


IP 




6392 

REF 

1 

h6.1?29 


PCSEXIT 

EQUALS 

GAMOOT 

4 1 

IP 




G393 

REF 

1 

E6, 1723 


CH/GYMOr 

EQUALS 

PCSEXIT 

+ l 

IP 




_639.<i 

REF 

1 

E6t 1726 


HfcADSllP 

EQUALS 

CH/GVHCT 

4i 

IP 

DSP NCUK 6l 

FOR P62f63r69f 

67, 

63991 

REF 

1 

E6.i72? 


P63FLA& 

EQUALS 

HEAD SUP 

♦ 1 

IP 

interlock FCR WAKEP6Z 


A63995 














At3996 







>> SHARE BELCW 

WITH 

PCS 

RUPT 

TEKPS (< 15DI <<< 


6 395 

REf 

2 

LAST LOS 

E6, 1506 

CAL FA 

EQUALS 

SPNDX 

IP 






6396 

REF 

] 


E6, 1507 

SALFA 

EQUAL S 

CALFA +1 

IP 



















i 

63S7 

REF 

1 


E6* 1510 

SINK 

EQUALS 

SAL FA +1 

IP 






6398 

REF 

1 


£6,1511 

COSK 

EQUALS 

SINK +1 

IP 






6399 

REf 

1 


E6, 1512 

SING 

lquals 

cnsK -n 

IP 






6900 

REF 

1 


£6,1513 

CCSC 

EQUALS 

SING -H 

IP 






e9uL 

REF 

1 


E 6 ff 1514 

SINCCQSK 

EQUALS 

COSO *l 

IP 






6902 

REF 

i 


E6, 1515 

CCSQCCSM 

EQUAL S 

SINOCCSM 

IP 






A69C2 1 







>> SHARE ABOVE 

WITH 

HCS 

RUPT 

TEWPS <<< 


A6^Q3 














K 6^C4 



TFE FCLLCHINC FEW REGISTERS 

LSED ONCE FACH 2 SEC . 





















A G 5 

_ AL f 

1 


£6, 1613 

-vT/iao 

EQUALS 

NUJET 4l 

IP 






64 C6 

REF 

1 


E6» 1619 

LCX/360 

FQUAL S 

-vT/iec +1 

IP 






6907 

REF 

1 


E 6 , 1615 

XD/36U 

EQUALS 

LCX/360 ♦! 

IP 






6908 

REF 

1 


E 6 f 1 6 1 6 

VSQ/9AP r 

EQUALS 

XD/360 *l 

IP 





L 

6909 

REF 

1 


£6, 1617 

JNDX 

EQUALS 

VSQ/9API 4l 

IP 





F 

6910 

REF 

1 


E6, 1620 

ONUXL 

EQUALS 

JNDX +1 

IP 
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IP DP PX IR 
IP 


R64 12 1 


MISCELLANEOUS REGISTERS 

USED _E#Cii UPDATE. 
















ItFF 

1 P&.1A23 

CM/ SAVE EQUALS 

Tibns 

_tL 

IP 



&A13i 

REF 

1 L6.1624 

JETEM2 EQUALS 

CM/SAVE 

♦ 1 

IP TEMPORARV STORAGE 




p#.41 fi OiP QUiNTlTIES St^AREC WITH HCS OAP FOR TP C FLIGHT PECORDER. 


1 

REf 

2- Li IT 

IDA 

£6. 1567 


voT/iao * 

tPRORR 

IP 

(EDIT I 

1 

REf 

2 LAST_ 

- ID-t— 

E6.I57Q 


-VT/ieOE ■ 

ERPCPT 

IP 

leniT 1 




IP ROLL ERROR FOR NEEDLES 


C*t£ 1 

6A22 

ncr 

RPF 

1 

2 LAST lOA 

C U f » -T I W 

66.1572 

qaxerr 

- THETACX 

IP 

SINCE 

AKl 

IS 

ZEROED 

IN 

ATM DAP. 

6^23 

REF 

1 

E«?fl573 

PAX ERR 

■ OAXLPR +1 

IP 

S I NC E 

AK2 

IS 

ZEROED 

IN 

TM DAP- 


RfiA25 CtLPANL (P4C*Bi2) . 
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USER’S PAGE NO 


78 


60 S3 


J6A27 

6A28 

fi42S 


REF 

REF 


1 


KJLCHANU VARlAfcLES. 

Ei. 1661 

LAST ICE 


BCOU 

KSPNPy 


EQUALS YMANNDX 
EQUALS BCDU O 


♦ I 


B{3> THP 


B (1 ) TPP 


643 G 

REf_ 

1 

66.1665 

KDPNCX 

EQUALS 

KSPNCX 

♦ 1 

B( 1 JTHP 























HEf 

1 

E 6* 16 66 

IMIS 

EQUALS 

KDPNCX 

♦1 

Kiel MUST 

BE 

IN 

SAME 

BANK AS RCS 

CAP 


64J2 

REE 

1 

66tl7l(L 

C06SK6N 

EQUALS 

THIS 

+ 180 

1(6} HU5T 

EE 

IN 

SAME 

BANK AS RCS 

OAP 


6433 

REF 

2 LAST liC 

E6. 1716 

CAM 

EQUALS 

CDF SKEH 

♦ 6 

1(2) HUS7 

8E 

IN 

SAME 

BANK AS PCS 

OAP 

















6434 

Rfcf 

1 

E6. 1720 

HIS 

EQUALS 

CAM 

+ 2 

I(1B) (THE 

REST 

MAY 

GC ANYWHERE} 



6 4 Jit 

BfcF 

1 

66.1742 

COF 

EQUALS 

MIS 

♦ IBD 

I (6) TMP 







6436 

PEP 

1 

66.1750 

SCAX I S 

t wU AL S 

COF 

+ 6 

I (6)7MP 







6437 

REF 

I 

66, 1756 

POl NTVSM 

EQUALS 

SCAX IS 

4-6 

I (6)THP 







6438 

REF 

I 

E6 f 1 7 6^ 

AH 

equals 

POIMVSM 

♦ 6 

U2}TMP 







6434 

REF 

_1 

£6. 1766 

PAD 

EQUALS 

AH 

+ 2 

n2)TMP 








FIRST-CPCEP OVERLAYS IN KALCPANU 


6441 

REF 

2 

LAST 

111 

E6. 1666 

KVl 

EQUALS 

TMi S 


I (61THP 




JlEt 

3 

LAST 

111 

£6.1666 

HF I SYM 

EQUALS 

THIS 


1 

THP 



6443 

REF 


last 

III 

E 6 f 1666 

IMF I 

EQUALS 

THIS 


I 

THP 



6444 

KEF 

5 

LAST 

111 

E 6 , 1 666 

NCOU 

EQUALS 

TMI S 


e 

THP 




REF 

6 

LAST 

111 

E 6. 1671 

NFXTIME 

EQUALS 

THIS 

+ 3 

B 

THP 



64^6 

REF 

7 

LAST 

111 

E6, 1672 

T TEMP 

EQUALS 

THIS 

♦4 

B 

THP 



6447 

REF 

8 

LAST 

1 1 1 

Ee. 1674 

KV2 

EQUALS 

THIS 

♦ 6 

I (6}TMP 



6448 

REF 

9 

LAST 

111 

E6. 1674 

tlASTEMP 

L-QUALS 

THl S 

+ 6 

8 

THP 



644 9 

REF 

1C 

LAST 

1 1 1 

E6t 1702 

KV3 

EQUALS 

TMI 5 

♦ 120 

I (6) THP 



t)450 

REF 

11 

LAST 

111 

£6, 1702 

GGF 

EQUALS 

TMiS 

♦ 12D 

I 

THP 




6451 

REF 

3 

LAST 

111 

E6, 171C 

tRATE 

EgUALS 

COFSKEW 


a 

THP 



6453 

REF 

2 

LAST 

ill 

£6.1716 

TM 

EQUALS 

CAH 


B 

TMP 




Ro454 

SECCNC- 

QRCiR 

QVERJ.AYJ 

, IN KALCHANU 








1 















6455 

__REF 

1 



E6. 1666 

P21 

EQUALS 

KVi 


I (2)TMP 



6456 

REF 

2 

LAST 

111 

F6. 1670 

021 

EQUALS 

KVl 

♦ 2 

I {2ITHP 




REF 

3 

LAST 

111 

b t * 16 72 

G2l 

EQUALS 

KVl 

♦4 

I (2 

} THP 




A6A5e 


H6464 



SATURN 

aCGST 

STOPAGE. 

SAVE TILL RCS CAP 

CPERAriON- 


( 170} 

















6466 

REF 

3 

LAST 

111 

£6.1661 

PCLYNUM 

EQUALS bCLU 


6(15) 

PAC 

LCAOEO 


6467 

REF 

1 



£6,1673 

PCLYLOC 

» polynlh 

+ 100 





t4fc 6 

REF 

2 

LAST 

111 

E6, 1700 

SATHLRT 

EQUALS POLYNLH 

♦150 

B(2) 

PAC 

LCACEC 


A64i»9 















PCRE Pli STORVgE -PAC LCACEO- 


P6A70 


( 2C ) 



CAP f 







.111-031 
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USER'S PAGE NO. 79 60 S3 














L 

K6472 



CKCJE* This PAO LCAO WILL 

NOT 

IE PRESfeRVEO THPCUGHOLT THE 

MISSION AS IT SHARES STORAGE WITH KALCMANU, 


[ 

P6479 



ENTRY DAP ANC TVC OAPJ 





















69 75 

REf 

_1 

£6*^1102 


HPSTART 

EQUALS 

SATRIRT 

♦ 2 

B(l) PITCH ROLL START TIME 



6976 

REE 

X 

__ .. .t6f 1703 


POLYSTCP 

EQUALS 

RPST APT 

+ l 

B(l) PCLYCUT EFT MINUS RPSTART SEC 



AA471 




































R64|7A 



STDRACE FOR VHHDLT AAC ATTOSF 




















6979 

REF 

1 

e6,l?09 


eoov3 

EQUALS 

POLYSTCP 

♦ 1 

e ( 1 louT 



6980 

REF 

I 

E6f 1709 


B00Y2 

EQUALS 

E OOY 3 

♦ 1 

B(1 )CUT 



6961 

REF 

1 

E6t 1706 


BOOYl 

EQUALS 

BG0Y2 

+ l 

BIUCUT 



6982 

REF 

1 

66,1707 


SPOLYARG 

EQUALS 

BODY 1 

♦ 1 

B(in*«P ARGUEMENT HCR POLLY 














i 

6963 

BEf 

1 

1503 


CLOeOOYl 


EORI VEX 


1 PULSE a 0.0932 DEGREES 



69 89 

REF 

X 

E6, 1509 


CLORCOY2 

s 

EDKI VEY 





69 6^ 

REF 

1 

E6»1SQ9 


CLOBODVa 

m 

ECP I VE2 


















R69e6 



_£1QRACE FOR Sll-1 





















6967 

REF 

1 

E6. 1710 


VDI SP 

EQUALS 

SPCL YAPG 

♦ 1 

n2)CUT 2(7) N/CS 




AEl 

1 

E6. 1712 


HOI SP 

EQUALS 

VDI5F 

♦ 2 

I(2)0UT 2(29) M 



69 69 

REF 

1 

E 6 1 1719 


HUOTOISP 

EQUALS 

HOISP +2 


1(2) CUT 2(7) M/CS 



6990 

ref 

1 

66* 1716 


BOOS TEMP 

EQUALS 

HOLT C ISP 

+ 2 

B(2) TEMP 















R69SI 



P21 STORAGE. 






( 10) 















6993 

REF 

1 

E6.177C 


GtNRET 

EQUALS 

RAD 

♦ 2 

B( DTMP 



























R6499 



RtlCSM STCPAGt. 






(ID) 


u 












u 

6996 

REF 

1 

t6, 1771 


SAVBNK 

EQUALS 

UENRET 

♦ 1 

6(1) S-S SAVE EBANK FOR R61 SUPROUTINE 




k64S7 Ci^StUl STCRAC-E fCR ^liTCPILCT BANK, ______ *30 

RE? \ E6t 177/ SAVLDCDU EQUALS SAVfcF^ M B(31 TRP 

A65C0 


He 501 P tl STORAGfc. (ID» 

65C3 REf I E6tl 775 R61CNTR EQUALS S AVfcLCDO ♦i ( UTRP 


R6bU9 EMRY RESTART PRCTECTKh STCPACfc. -KEEP TEMPS IN CKCfcR- (120) 


Afe511 


WAP-: — 

ASSt4ia4.4 

-MJ 

b4<4.S4^IK 

237 

CF ALC PRCGHflM 

rrirssus av 


HJLl-Li] 


till MUUm n, ILQ jt f v.f 

P 

iij 

n,. 

1 

tRi SAELF 

A IGNHFNTS 






USER'S PAGE NO, €0 


EC S3 



65tt 

R£f 

2 

XAST 

112 

tet I77t 

TfeMPRCLL 

fcilUAtS 

GENRE! 


eCDTMP CQPV CTCLE REGISTER 




Ci5C7 

REF 

1 



E6. 1771 

TEWPALFA 

EQUALS 

1 EHPfCLL 

♦ 1 

BdITHP COPY CYCLE REGISTER 




Aboa 

RtF 

1 



fc6aXlJ2 

tempheta 

EQUALS 

TEHP ALFA 

*l 

B(1)TMP COPY CYCLE REGISTER 




650S 

REF 

1 



E6. 1773 

60GEKBET 

EQUALS 

TEMPEETA 

♦ 1 

eiUTHP QSAVE FCR S 61.1 AND 

ENTRY. 


65lU 

RFF 

1 



66, 1774 

St IDT 

EQUALS 

600ENRET 

♦ 1 

BdITHP VARIABLE DT FOR S61. 

I 

RESTART. 



KCDLX, 



Z.XL1JR.1 

1-” ^niin, * 11 u — riAn < 

1 L. r rt u A 1 

L.k-1 






t513 

KEF 


LAST 

103 66,1533 

XPl PBUF 

XgUALS 

ALCT 


Bd) 

PIPA BUFFEP FOR TP DURING ENTRY. 



REF 

1 


E6 m 1 534 

YPIPBUF 

equals 

XPIPBUF 

+ l 

BU ) 

PIPS FILED HERE EACH .5 SEC <iPPEAR 


6515 

REF 

1 


E6^ 1 535 

ZPiPflL'F 

EQUALS 

YPI PEUf 

+ l 

Bd I 

ON DOhNLIST ONCE PER SECOND CURING 


6516 

REF 

1 


r* 6 f 1536 

XOLCBUF 

EQUALS 

2PI PELF 

♦ 1 

Bd) 

ENTRY AFTER RCS DAP HAS BEEN DIS- 


6517 

HLF 

1 


E6. 1537 

Y0LC8UF 

EQUALS 

XOLDBLF 

+ 1 

Bd) 

ABLEO. NEWEST PIP VALUE REPLACES 


65ie 

REF 

1 


E 6 1 1 5 4 0 

2OLC0UF 

EQUALS 

YOLDBUF 

+ l 

Bd ) 

PIPBUF,WHICH IS MOVED INTO OLDBUF. 


R6519 













P.652G 



REENTRY VARIAELES SFAREC RlTF 

PCS CAP FOR T« e 

FLICFT 

RECORDER 

* 




65 2J 

REF 


LAST 

IQt £6>15T4 

07 


THET ADZ 


1(2) 

HI-hCRC CNLY on DNLIST. 



6522 

REF 

3 

LAST 

10* E6.1525 

ASPS! TM J 

= 

WBCDY 


I (6 ) 

CWN 












ASKEP ,ASP1,ASPUP fASPDN, ASP3,ASP3+l 














A6524 
























6 52 6 

REF 

1 


E6, 1776 

EN0-F6 

EQUALS 

Rt ICNTF 

4 ^ 

NEXT 

FREE E6 ACORESS 







< 1 




P7G15 


SERVICER STCPAGfc. 


( 130 i 
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L.QJ>CACIF A 1 niUMt- It T ^ 

USER'S PAGE 

>!□. 8_l 

EO S3 



p 7 r n (j 

E8ARK-7 ASSIGRHENTS 





■C f W \d-%A 






7nn 1 

E7,1^CG SEJLCl 340C 

















(. 7fjnp 

OVERLAY 0 IN EBANK 7 -♦-♦-*-♦ 











R70G3 

E>t£HNAl. Cfc_LTA-V JJPC ATit„_ . 

(210 





P 7QU5 



(FtST BE IN 

CROER FOR 

LPDAT6 

PRCGHAH. ALSO ENTRY PRCCRAWS PICK 

UP 'LATISPO* *<ITH A VLQAO-I 















70fl7 




E7. lAOO 

£7,1424 

LAT(SPL) 

ERASE 


♦ 200 

1(2) 

DSP NCUN 61 FOR P62, 63, 64,67 


70GE[ 

REf 

J. 


E7. 1A02 


LNG( SPL » 

EQUALS 

LAT ( SPH 

♦2 

I (2 tCSP 

NOUN 61 FOP. P62, 63, 64,67. 















7i3Gq 

REF 

1 


E 7. 1404 


CELVSLV 

EQUALS 

LNG( SFLl 

♦2 

I (6 )TWP 

DELTA VEL VECT, LOC VER COORDS 

1 

7010 

(lEF 

1 


t7, 1A12 


TIG 

EQUALS 

DELV SLV 

+ 6 

6(2)CSP 

NCUN 33 FOR X-VS4 (P3? ) ,P30,R0. 


7011 

REF 

1 


67, lAlA 


RTARG 

EQUALS 

T 1C 

+ 2 

1(6 ) (N 

DESIREO VEHICHE RADIUS VECTOR 


7012 

REF 

1 


E7.1A22 


DELLT4 

EQUAL S 

RTARG 

♦ 6 

I (2) IN 

TIRE CIFFERENCE FOR IhITVEL 


7013 

REF 

1 


67, M24 


6CSTEER 

EQUALS 

0ELLT4 

♦ 2 

1 ( 1 )PL 

FOR P4C S 


70133 

REF 

2 

LAST UA 

67, 1A04 


OELVLVC 

a 

DLL V SLV 





70136 




E7.1425 

67,1425 

ENO-OeLV 

ERASE 



♦NEXT AVAIL LCC AFTER UNSHAPFD E7* 



7020 

REF 

1 


E7. 1425 

DVTCTAL 

EQUALS 

END-CELV 


&(2] OSP 

NCUN 4C,9S FOB 

P30,34,35,40 

7Q21 

REF 

1 


E7, 1427 

TGQ 

EQUALS 

DVTCTAL 

♦ 2 

B(2} 



7023 

REF 

1 


E7,1431 

OVCNTR 

EQUALS 

TGCl 

♦ 2 

B( UTRP 



7024 

REF 

5 

LAST 32 

67.1432 

DELVREF 

EQUALS 

OVCNTR 

♦ L 

I {6)7RP 















7024 1 

REF 

1 


E7, 1447 

NOMT IG 

EQUALS 

END-KALC 


1(21 (CAN NCT SHARE KITH 

KALCMANU 

A702411 









OR oeLVREF) 


7Q25 

REF 

1 


67,1451 

tND-SVCR 

EQUALS 

NOF T IG 

♦ 2 

♦♦♦NEXT 

AVAILABLE AFTER 

SERVICER 

A70255 























1 


R7Q26 



ALIGNREN 1 

STCRAGE. 





( 250) 




7C2e 

REF 

1 


67,1451 

XSCC 

EQUALS 

6 NO- SVC F 


I (6)THP 



7(J29 

REF 

1 


£7,1457 

YSCC 

EQUALS 

XSCC 

♦ 6 

I (6)TRP 



7030 

REF 

I 


E7, 1465 

ZSCD 

EQUALS 

YSCC 

+ 6 

I (6)TRP 



7C33 

REF 

1 


E7, 1473 

VEL/C 

EQUALS 

ZSCC 

♦ 6 

I (6)TMP 



7034 

REF 

1 


E7, ISO! 

R53EXIT 

EQUALS 

VEL/C 

♦ 6 

1(1 )TNP 




B70342 

ALIGNMENT NARKOATA 

( OCWNLNK )♦♦♦♦♦♦ 

( 70) 



70344 REF 

1 E7.1302 

PARK2CWN EQUALS R53tXlT ♦! 

(7) LSfD BY ALLIGNMENI P50S 
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PTGiS- 



OVERLAY 1 IN eeANK 

7 














K7nifc 

flFfklfiV 

p<; 




(206Ct 



7039 

RIF 

2 

LAST 114 E7.1451 

RTIMT 

EQUAL S 

ENO-SVCR 

6P 


lUMQ 

REF 

1 

E7, 1457 

RTLAST 

EQUALS 

PTIM7 +6 

6P 


70^1 

Rif 

1 

e7tl465 

RTNCRR 

EQUALS 

H TE A ST +6 

6P 


70A2 

REF 

i 

E7,1473 

RT 

EQUALS 

RT NC +6 

6P 


7C^J 

RIF 

\ 

E7.15CI 

ONI 

EQUALS 

P T t 

fcP 


70A^ 

REF 

1 

E7, 1507 

INI IV 

equals 

UNI +6 

6P 


7045 

REF 

1 

E7, 1515 

VEL 

EQUALS 

UNITV +6 

6P 



7 04 6 

Rtf 

1 

E7. 1523 

TIME/RTO 

EQUALS 

VEL ♦o 

2P 

T IHE 

CF 

INITIAL 

TARGET, RTO- 


7047 

REF 

1 

L f t m ^ 3 

-VR6L 

EQUALS 

TIRE/RTO *2 

6P 






IQ^fl 

REF 

1 

E7.1523 

OLOUYA 

EQUALS 

-VREL *6 

6P 

USED 

BY 

CM/PCSF 

(ENTRY DAP) 

J 

7049 

REF 

1 

E7, 1541 

UXA/2 

EQUALS 

OLOUYA +6 

6P 

USED 

ev 

CM/PQSE 

(ENTRY DAP) - 

UVA ^ 

70495 

REF 

1 

67. 1541 

UKH 

* 

UXA/2 



Pel 

DISPLAY 

NOUN 


7050 

REF 

2 LIST 

115 E7.1547 

UYA/2 

EQUALS 

UXA/2 *t 

6P 

USED 

8 V 

CH/POSE 

(ENTRY DAP) 

UV fl 

7051 

REF 

1 

E7.1555 

UZA/2 

EQUALS 

UVA/2 +6 

6P 

USED 

BY 

CM/POSE 

(ENTRY DAP) 

UNA 

7052 

REF 

1 

£7.1563 

uex /2 

equals 

UZA/2 +6 

6P 

USED 

BY 

CM/POSE 

(ENTRY DAP) 


7053 

HEP 

1 

E7.i571 

UbY/2 

EQUALS 

U6X/2 *6 

6P 

USED 

BY 

CM/POSE 

(ENTRY DAP) 


7054 

REF 

1 

E7,i577 

UBZ/2 

equals 

UHY/2 *6 

6P 

USED 

BY 

CM/POSE 

(ENTRY DAP) 















7053 

REF 

1 

£7. 1605 

CTEARCT 

EQUALS 

UBZ/2 *6 

2P 






705fe 

REF 

1 

E7, lfcC7 

CIFF 

EQUALS 

DTEARCT *2 

2P 






7057 

REF 

1 

E7. 1611 

OlFFULO 

EQUALS 

□IFF 42 

2P 






lost 

ilEF 

1 

E7.1613 

FACTOR 

EQUALS 

OIFFClLO 42 

2P 






7059 

ref 

1 

E7. 1615 

FACT 1 

EQUALS 

FACTCR 42 

2P 






7Q<)0 

REF 

1 

e7t 1617 

FACT2 

EQUALS 

F AC T 1 ^ li 

2P 






JMOEi 




Q7 

a 

THFT ADZ 

2P 

SHARED 

FOR TM. 

P6h- P66 


7002 

REF 

1 

F7. 1621 

VSQUARE 

EQUALS 

FACT2 +2 

2P 






7065 

REF 

1 

E7f 1623 

LAO 

equals 

VSQUARE 42 

2P 






7066 

REF 

1 

67,1625 

LQu 

EQUALS 

LAD 42 

2P 






7067 

REF 

1 

67.1627 

L/OCM INR 

EQUALS 

LCD 42 

2P 





1 

7068 

REF 

1 

E7, 1631 

KLAT 

EQUALS 

L/DCRINR 42 

2P 






7069 

REF 

1 

E7,1633 

L/D 

EQUALS 

KLAT 42 

2P 






7070 

REF 

1 

E7, 1635 

L/Dl 

EQUALS 

L/D 42 

2P 






7071 

REF 

1 

E7, 1724 

LEWO 


VIO 

2P 

SHARED FCR TM. 

P64-P65 


7072 

REF 

1 

67,1637 

C 

EQUALS 

L/Dl 42 

2P 

DSP NCIN 

1 64,66.66 FOP P63.6h,67 


A7073 




VI 

a 

ENUbUF 41 

2P 

SHARED FOR TM. 

P64-P65 


7074 

REF 

1 

67.1641 

CLEkO 

EQUALS 

0 42 

2P 






7076 

Rif 

1 

E7, 1643 

K2RCLL 

EQUALS 

DLLkC 42 

2 P 






7077 

REF 

1 

E7. 1645 

GCTCAOOR 

EQUALS 

K2RCLL 42 

IP 






7078 

REF 

1 

E 7 . 1 646 

TEMIB 

EQUALS 

GCTOADDR 4i 

2 P 






70/9 

REF 

1 

H7. 1650 

RH 

EQUALS 

TEMIE 42 

2 P 






7CbC 

REF 

1 

E7« 1651 

GRAC 

EQUALS 

MN 4 1 

IP 






7061 

REF 

1 

t7, 1652 

FX 

EQUALS 

GRAD 4t 

IP 

OVERWRITES NEXT 

5 LOGS IN P67. 


70«2 

REF 

1 

67,1653 

LEQ 

equals 

FX 4 1 

2P 






7083 

REF 

1 

E7.1655 

CHOCK 

EQUALS 

LFQ 42 

2P 





u 

7064 

REF 

1 

67.1657 

AHOCKLV 

EQUALS 

DhOOK 42 

2P 
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70ti5 

RiJ^ 

I 



E7. 1661 

DVL 

EQUALS 

AHOOKCV 

42 

2P 


A7Q86 






AO 


EN06LF 43 

2P 

SHAREC FCP TP,(H|-WC ) P64-P65 

7 

REF 

X- 



E 7f 16 63 

A1 

equals 

DVl 

42 

2P 


7C90 

H.EL 

1 



fc7, 1665 

VbARS 

EQUALS 

A1 42 


2P 


7091 

RtP 

1 



E7. 1667 

COSG/2 

equals 

VBAPS 42 


2P 


A 7Q92 






GAMRAL 


GAKHAEl 


2P 

SHABEC FOR TM P64 

70921 





0026 

gamrali 

a 

220 


2P 


7093 

REF 

1 



E7, U7l 

VSl 

EQUALS 

CCSG/2 

42 

2P 


7094 

KEP 

1 



E7. 1766 

VL 


VPREC 


2P 

SHARED FCR TH P64-P65 

7095 

BEF 

1 



E7. 1673 

V 

EQUALS 

VSl 

42 

2P 


A709e 






VREF 

3 

THET/C 

42 

2P 

SHAREC FCR TM P65 

70961 

REF 

1 



E7il675 

latang 

EQUALS 

V 

42 

2P 

ACJACENT FCR TM. 

7097 

REF 

1 



E7j 1677 

kDQ T 

EQUALS 

LATANG 

42 

2P 

ADJACENT FCR TM. 

70971 

HEF 

1 



E7t 1701 

THETAH 

EQUALS 

RLUT 

42 

2P 

DSP NCUN 64,67 FOR P63,64,67 

A7Q98 






ROQTREF 

3 

THtTAD 


2P 

SHAREC FCR TM P65 | 

7099 

REF 

1 



E7. 17C3 

ALP 

EQUALS 

ThET AF 

42 

2P 

I 













/ ICU 

RFF 

1 



E7.n3C 

ASK6P 

3 

ASPS 


2P» 

these are STORED IN 

7101 

BEF 

2 

LAST 

lU 

E7t 1731 

ASPl 

3 

ASPS 

4l 

2P 1 

SEQUENCE, OV ERL APP I NG 

71Q2 

REf 

3 

LAST 

1 16 

67,1732 

ASPLP 

3 

ASPS 

42 

2P»>HI-WD OF LACh< HI-WQBO ONLY APPEARS 

7103 

REF 

4 

LAST 

lU 

E7,1733 

ASPGRN 

m 

ASPS 

43 

2P| 

CN DONNLIST, EXCEPT 

7104 

REF 

5 

LAST 

116 

E7, 1734 

ASP3 

a 

ASPS 


2P) 

ASP3 IS COMPLETE. 













71D5 

RFF 

] 



£7#17C5 

C/OO 

EQUALS 

ALP 

42 

2P 

-1/00 

7106 

REF 

1 



E7, no? 

CO 

Equals 

C/DO 

42 

1(2) 

CONSTANT DRAG 

7107 

REF 

1 



E7t 1711 

C2 

EQUALS 

DC 

42 

2P 


A7106 












H7 109 



RCLLC 

1 S 

LCCATEU IN 

E6ANK» ACG 7C AID ENTRY OAF 

% 




7U0 

REF 

1 



E7, 1713 

RTGC 

EQUALS 

Q2 

42 

2P 

DSP NOUN 66 FOR P64,P67. 

7111 

REF 

1 



£7,1715 

CNRNGERR 

EQUALS 

RT&U 

42 

2F CSP NOUN 66 FOR P6<*,67. 

71111 

ref 

2 

LAST 

116 

E7,1675 

XRNGEBR 

3 

LATANG 



FOR DISKY CI5PLAY 

7112 

REF 

1 



E7,1717 

KAT 

equals 

DNPNGERR 

42 

2P 


^ ?iU 

REP 

i 



67. 1721 

GMAX 

equals 

KAT 

42 

IP 

DSP NCUN 60 FOR P6l,62,63. . 

A7il4 










GHAX 

IS LQACEC IN DOUBLE PRECISION * 

7U41 

REF 

1 



E7,1726 

L/DCALC 


TTE 


2P 

CALCULATEC L/C FOR TM: P64 - P67. 

71151 

REf 

i 



£7,1770 

GAHHAL 

* 

OAHF AEI 


2P 

SHARED FOR TM P64 

7116 

RtF 

2 

LAST 

116 

E7, 177C 

PRECANG 

3 

GANPAEl 



FOR TM IN P67. 

7117 

BEF 

1 



E7,1771 

JJ 

3 

PPEDANG 

4l 


FOR TM IN P67. 

7116 

REF 

1 



E7. 1722 

VMAGl 

EQUALS 

GM A X 

+ 1 

2P DSP NOUN 62,64,68 FOR P11,63,6h. 

7119 

REF 

1 



£7,1724 

VIG 

EQUALS 

VHAG 1 

42 

2P 

CSP NOUN 63 FOR P6l. 

7120 

REF 

2 

LAST 

115 

£7,1726 

TTE 

EQUALS 

VIO 

42 

2P 

CSP NOUN 63 FOR P61. 














7120C5 

REF 

2 

LAST 

HE 

£7,1730 

ASPS 

EQUALS 

TTE 

42 

1(2) 

HI-WCPD ONLY CN CNLIST FCR TEMP 

712006 

REF 

6 

LAST 

116 

£7,1732 

TTF 1 

EQUALS 

ASPS 

42 

IC^ETHP HOLCS UN C EC H EM ENT E D TTE VAL^JE 


>^71201 P60S *■»<* 

71202 rTf 2 L/ST Tlfc E?» 171 3 KTG0N6A EQUALS RTLC niNGE ERKCjflS NECATtVE IF FALLS SHCRT 
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A71204 


PAGE 117 


EO S3 


F71205 RE ENTRY* RETU RN TC EARTh CCPT-CR DISPLAY. (40) 


712Q7 

BEF 

1 

E7.i?et 

VPREC 

EQUAL S 

EjETA12 

♦ 2 

OSP 

NGUN 

60 

FCR 

Pol, 

f 6 2 f 6 3 • 


71208 

RtF 

2 LIST 116 

E7,l770 

GAf^PAEI 

EQUALS 

VPPFC 

♦ 2 

DSP 

NOUN 

60 

FOR 

P 6 1 f 

,62,63. 



A_712Q3 


B712J SCME PlI display REGISTERS. UP) 


7123 

REF 

1 

£7.1734 

ALTI 

EQUAL S 

TTEl 

♦ 2 

2P 

DSP 

NOUN 

62 

FOR 

Pll . 


7124 

REF 

_U 

E7.1736 

hoa t 

EQUALS 

ALTI 

♦ 2 

2P 

DSP 

NOUN 

62 

FOR 

PU . 


A7124 1 
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P71 jlii 



4. OVERLAY 2 Ih EDARK 7 














w71 ^1 



Kil CRANU S1QRAGE, 




(180) 



7133 

R-LF 


1 AST 114 E7tl425 

NFS 

EQUALS 

CND*LtLV 

1(16) 


7114 

RFF 

1 

f 7. 1425 

NFI 

EQUALS 

iiFi 

I TNP 


7136 

REF 

2 

i.ASl JJ.E £L7 i142_5 

DEL 

EQUALS 

MFS 

I TNP 


7138 

REF 

3 

L^Sl 111 L7,1447 

ENO-KALC 

EQUALS 

NFS +180 ♦♦NEXT AVAIL LCC AFTER KALCN4NU *♦ 




















H7139 



MEASUREHEMT INCOPPOR AT I CR 

STCRAGF (R22) 

STORAGE. 


(560 ) 











71^1 

REF 

2 

LAST 114 E7tl447 

1X789 

EQUALS 

LNL-KALC 

t (6) IMP 


7142 

RCF 

1 

E7. 1455 

GANNA 

EQUALS 

TX789 +6 

I (2 ) TNP 


71<i3 

RFF 

1 

£7.1457 

OMEGA 

EQUALS 

GANNA +2 

I (18 ) TNP 


7144 

REF 

t 

E7, 1501 

BVtCTCR 

EQUALS 

ONEGA +180 I(18)TNP 

1 

7145 

ref 

1 

E7. 1523 

DELTAO 

EQUALS 

BVtCTCR +180 I(2)TNP 


7146 

REF 

1 

£7.1525 

VAH 1 ARCE 

equal S 

DELTAC +2 

I(3)TNP 


71<»7 

REF 

1 

E7. 1530 

RCLP 

EQUALS 

VARIANCE +3 

I (6)TMP 


7148 

RfcF 

1 

£7,1536 

GPP2SVC 

equals 

RCLP +6 

KDTNP QSflVE FCR RESTARTS 



R7149 




Mm 


( 50 J 


7151 REP 2 im lie 


E7f 15C1 


NA9CISP EQUALS BVtCTCR 


BtStTMP 


R7154 


S22.1 STCRAGE. 


( 360 ) 



7156 

R £ F 

E7. 1537 

SVMRKDAT EQUALS GRP2SVQ +l 

1<36)TNP 5 SETS OF NARK DATA +PAC CF ONE 



R7it>2 <♦<* CISLUMK NAV, ERAS. (P2CS> *♦*» < 5 7 Q ) . ^ 


- n IJLWJ; ^ ^ ^ ^ a ^ rt w w * w n g a l r 4. j r — 

7164 

REF 

1 

E7,1603 

TRUNX 

EQUALS 

SVNRKCAT +360 





71641 

REF 

1 

£7.1603 

DAT ATEST 

EQUALS 

TRUNX 

( 1 ) 




7165 

REF 

2 LAST lie 

E7, 1604 

UBARQ 

EQUALS 

TRUNX +1 





7166 

REF 

1 

E7, 1612 

UbAR 1 

tOUAlS 

UBARC +6 





7167 

REF 

1 

E7, 1620 

UeAR2 

EQUALS 

UfaAKl +6 





7168 

REF 

1 

E7. 1626 

H7C 

EQUALS 

U BAP 2 +6 





7169 

REF 

1 

E7, 1634 

VZC 

EQUAL S 

R2C +6 





7170 

REF 

1 

E7, 1642 

UCLSTAR 

EQUALS 

VZC +6 





7171 

REF 

1 

E7, 1650 

USSTAR 

EQUALS 

UCLSTAP +6 





7172 

REF 

1 

E7, 1 656 

RCLL 

EQUALS 

USSTAP +6 





7174 

REF 

1 

£7, 1664 

FL 

EQUALS 

RCLL +6 





7176 

REF 

1 

£7,1672 

SRR fc TURN 

EQUALS 

RL +6 





A7177 
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R7193 RENLEZVQIS CUIDAhCE STC RAG Ei - P32...P35 - (807 


7195 

REF 

3 

LA5T 

lie E7.i4A7 

CELTEEQ 

Equals 

END-KALC 


1(2} S-S 

BACK VALUES OF 

DELTA TIME 


7196 

■ JL£f- 

1 


17. 1451 

££LEL 

EQUALS 

CELT EEC 

♦ 2 

1(2} S-S 




7197 

REF 

1 


E7. 1453 

SECRAX 

EQUALS 

DELE L 

+ 2 

1(2} S-S 

MAX STCP SIZE 

FOR RCUTINE 


7196 

ref 

1 


C7, 1455 

XXXALl 

EQUALS 

secnax 

+ 2 

I (2> 




A7199 















H72QQ 



-1-40^9 

SICRAGL. 





( 160 ) 

















7202 

REf 

1 


.L7il457 

VC 

EQUALS 

XXXAL7 

■^2 

I (6}THP 





RIF- 

-■L 


E7. 1465 

VRPRfcV 

EQUALS 

VG 


1(6) 




72U6 

REF 

1 


E7, 1471 

TNI 1 

EQUALS 

VRP^<IV 

♦ 6 

1(2) 




7205 

REF 

1 


E7, 1475 

TNI TPREV 

EQUALS 

TNI T 

♦ 2 

1(2) 





R72Ut 


S ^ Q. 2i3 S 1 C R 4G L. 


( 10 } 


72(JH RM 


1 


E7t IA77 


4XISC00E EQUALS TNITFPbV +2 


I { I } IN 


R 12085 PiQJS-PXr CCPPJLN ilCPAGE. < 2^0 > 


7210 

— H-Ef 

2 LAST 111 

E7.1537 


PACT 3 

EQUALS 

GRP2SVQ 

+ l 

I (6 }TMP 

PCS ITIQN 

OF 

ACTIVE 

AT 

TPi 

TIME . 

7211 

REF 

1 

E781545 


VACT3 

EQUALS 

PACT 3 


I (6 } THP 

VELCCITY 

OF 

ACTIVE 

AT 

TP I 

TIME 

7212 

RfcF 

1 

E7. 1553 


RPASS1 

equals 

VACT3 

+ 6 

I (6 }TMP 

PCSITIQN 

OF 

PASSIVE 

AT 

tP 1 

TIME 

7213 

- -REf 

1 

E7.1561 


VPASS3 

EQUALS 

RPAS S3 

•f 6 

I (6}TMP 

VELCCITY 

OF 

PASSIVE 

AT 

TP 1 

T IMF 


P16. NBA CISPLAV J 6 P ) 


72133 

REF 

2 

LAST 

US E7.153? 

CELVCV 

Equals pact 3 


I (6)CSP 

NOUN 64 FOP X-V64, P34-35 

A7ZI34 - 












R7214 



IMTVEL/MUGIM STCRACE. 




( 340 



F 7216 




1 CALLED BY $34.1.2. 

S3S.1,2, AND S40.9) 





F7217 




(CALLS LAMBERT, CONIC SUBROUTINES) 
















7^18 

REF 

1 


E7.1567 

RINIT 

equals VPAS53 

+ b 

I ( 0 ) IN 

ACTIVE VEHICLE 

RADIUS VECTOR 

7219 

REF 

1 


67,1575 

VINIT 

EQUALS K IM T 

♦ 6 

I (6 ) IN 

ACTIVE VEHICLE 

VELOCITY VECTOR 

7220 

REF 

1 


E7,16C3 

RTARGl 

EQUAL S V IM T 

♦ 6 

I (6) IMP 

SHIFTED RTARG 


7221 

RLf 

1 


E7,1611 

VIPRIME 

EQUALS RTARCl 

^ 6 

1(6)0UT 

NEW VtL RFQ AT INITIAL RADIUS 

7222 

REF 

1 


E7, 1617 

VTPRIHE 

EQUALS VIPR IRE 

♦ 6 

1 (6}0UT 

TOTAL VELOCITY 

^T DESIRED RADIUS 

7223 

REF 

1 


67,1625 

WG A 

EQUALS VTPR IME 

♦ 6 

I 12)0SP 

NOUN 45 FOR P3C 

,34,35. +MID GIM. 

. 7224 

REF 

1 


F7, 1627 

coz 

equals ♦HGA 

+2 

1 12)TMP 

CCSINE CF ANGLE 

WHEN POT STARTS 












R7225 

(TFE 

FCLLCV ING 

OVERLAYS MCASUflEMENT 

INCCPP ANC 

CAN NOT SHAPE WITH 

TP I 
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1ZZ7 REE 1- E7. 1 *C2 I NTI HE EQUALS AXISC CT E *3 

7226 REF X g7. 150A __ _ flCTR EQUALS INTIKE *2 HU TNP ITEPATICN COUNTER 

7?>Q WPP 1 FT. U.li END-IN/H EQUALS C0ZV4 *2 »*HEXT AVAIL iOC AFTER IN ITVEL/K I DGl M»* 


U17^Q 



P3A 

AND P33 

STORAGE, 

tCVERLIYS LNnVEL/KlOGlH) 

(290) 








7232 

REF 

2 

LAST 

il9 

E7i 1967 

VAPREC 

EQUALS RINIT 

1(6) S-S 

PR EC 

VEC FOR 

NON 

TPl 

TINE(ACT V 


72 33 

RFF 

2 

LiS^l 

119 

E7.1575 

RAPREC 

EQUALS VIMT 

1(61 S-S 

PREC 

VEC FOR 

NGN 

TPI 

TINEtACT V 



RtF 


L/ST 

L19 

E7> 1611 

VPPREC 

EQUALS VIPPIME 

1(6) S-S 

PRFC 

VEC FOR 

NON 

TPI 

TIME(PASS 


7235 

REF 

2 

LAST 

119 

£7,1617 

RPPREC 

EQUALS VTPKIME 

1(6) S-S 

PREC 

VEC FOR 

NON 

TPI 

TINF(PASS 


F 723fc 













































R7237 



P3Qi. 

P4Q IM ERF ACE. 



( 200) 








7239 

REF 

1 



E7. 1631 

RTIG 

EQUALS ENC-IN/H 

I (6)TKP 







72N0 

REF 

1 



E7. 1637 

VTIG 

EQUALS RTIG ^-6 

I (6) TKP 







72AI 

REF 

1 



E7, 16A5 

CEL VS IN 

EQUALS VTIG +6 

I (6)1WP 







72AM 

REF 

1 



E7, 1695 

DELVEET3 

EQUALS OELVSIN 

TMP 

DELTA 

VEL VECT INERTIAL COORDS. 


REF 

1 



E7,1695 

VGTEMP 

equals DELVEET3 








IZMZ 

REF 

2 

LAST 

12C 

E7, 1653 

CELVSAB 

EQUALS DELVSIN +6 

I i2>7KP 







12^3 

REF 

1 



Lit 1653 

VGOISP 

= DELVSAB 

C5P 

NOUN 90,92,99F0R 

P30, 

39,35,90,91 



R72^<t P35-P40 INTERFACE STC RACE. ICV ERLAY S P30-P<i0 1 /F STCRACE) I 1 2 C I 


7296 

R^EF 

2 

LAST 12C 

E7, 1631 

RPASS9 

EQUALS RTIG 


I (6 )TNP 

POS IT ION 

OF 

PASSIVE 

AT 

INTERCEPT 

7297 

REF 

1 


£7,1637 

VPASS9 

EQUALS RPASS9 

♦o 

I (6)TNP 

VELCC ITY 

OF 

PASSIVE 

AT 

INTERCEPT 




























H 72972 



TFI SEARCH 

(P17) 




(60) 




















72976 

REF 

1 


£7, 1695 

L2 

EQUALS VPASS9 

*6 

H 6)1NP 





1 


A 72^ 


M724e P20-P<tO CCRHCN STCRACE. 130) 


7250 

Rtf 

2 

LAST 

12C 

E7, 1655 

TPASS9 

tUUALS 

OELVSAB 

♦ 2 

I (2 )TNP 


7251 

REF 

1 



£7,1655 

TIN 1 

S3 

TPASS9 


1(2) 


7259 

REF 

2 

LAST 

12C 

£7,1657 

QTlNP 

EQUALS 

T PAS 59 

♦ 2 

Id) TNP 


A 72 59 5 













R 7255 


P3C-P90 STCRACE. 




(90 ) 




7257 

REF 1 

F7,1660 

TTOGO 

EQUALS QTEHF 

+ l 

B(2)CSP 

NOUN 35,90,95,59,99 


A725e 







FOR P30,39,35,90,9l,97, K30. 


7259 

REF 1 

£7, 1662 

TTP I 

EQUALS rTccr^ 

♦ 2 

0(2)CSP 

NOUN 17 FOR P19 TPI TIRE, CSECS^. 
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P4GE 121 


L Efi/S^CLE A^SSIGNMENTS 


7260 REF 1 


E7tl664 


USER'S PAGE NO, 88 EO S3 


EMCJ-P3US EQUAI.S TTPI *2 »*Ne XT AVAIL I.CC AFTER P30-«r0 STORAGE .** 


R7261 



P40 51DftACE« 




1 8CT 









72A3 

RFF 

1 

£i^l6fcA 

VGBCOV 

EOUALS 

tND-F3CS 

B(61CSP NCUN 85 FOR P^OtRl*^? VG~SC CQOR 

726^ 

KEF 

1 

E7tlA6A 

CELVCTL 

a 

VGECCV 


IZtb 

REF 

2 

LAST 121 e7,L672 _ 

P40TMP 

EQUALS 

VGBCCY +6 

0(2nRP 


H7266 P^7 5iaRJJllEi_^ 


7267 

7268 
A726aS 

REF 

2 

LAST 

119 E7.1A57 

DV<»?TeHP 

EQUALS 

EQUALS 

VG 

♦ 2 



REF 

3 

LAST 

32 E7,167A 

DEL V [MU 

F ^0 T ► P 

I (til CSP NOUN 33 FOR PA7 OELTAVTIMUI 





















R726R 



S4Q.1 

STCRAGE. 





(230) 


7271 

REF 

1 


F7.1702 

CSTEEK 

EQUALS 

DELV IPU 

♦ 6 

1(2 UN 

-------- 

7273 

REF 

1 


E7t 1 70A 

BOT 

EQUALS 

CSTLEP 

♦ 2 

I (6 ) IN 


121 *% 

REF 

1 


67, 1712 

UT 

EQUALS 

0DT 

♦ 6 

I (6}CUT 

THRUST CIRECTICN 

1215 

REF 

1 


E7,l?20 

VGT IG 

EQUALS 

UT 

♦ 6 

I (6)GUT 


lilt 

R£F 

1 


£7.1720 

VGPREV 

a 

VC1 IC 




nil 

REF 

2 

LAST 

121 £7,1726 

F 

EQUALS 

VCTIG 


I (2}CUT 

SAG. 3 NEEDS THIS 

7276 

REF 

■1 

— 

E7.1730 

CT6RP1 

EQUALS 

F 

♦ 2 

KDTMP 

HOLES RETURN 
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L 

£RASi£ 

LE 

A$f; IGNMFRTE 





USER'S PAGE NO. 89 EO 53 








P7279 



CVERLAV 4 IN 

EBANK 1 














07^fiC 



S^5-l STCRAGE. 




(?0) 











7282 

REF 

2 

LAST 121 E7.1664 

7STRT 

eouals 

END-P30S 

n2)lN MIOCOURSE START TIRF 



















R7263 



S24.L S7CRACE. 

(CVEFLAYS Si5.1 

STORAGE ) 

( 10 ) 











7285 

REF 

1 

E7. 1664 

TITER 

EQUALS 

TSTF T 

KUTMP ITERATICN COUNTER 











R7268 



(f30-31 C-SAVES) 




_ t 1 ) 











7 2fifi 

REF 

1 

E 7. 1664 

P30/31PT 

EQUALS 

TITER 

6(1 I 

RETURN POINT 

A7289 



























R72S0 



P20*5(CCltSStS) S7CRAGE 

• 



(60 











7292 

REF 

2 

LAST 122 E?.i666 

S22hUNL 

EQUALS 

TS7RT +2 

1 

WUNL M8 UNKNOWN INIT VALUE 

7294 

REF 

1 

E7,1667 

S22TCFE 

EQUALS 

S22WLhL +l 

2 

T SUB CFF 

7295 

REF 

1 

E7, 1671 

S22TPP IM 

EQUAL S 

S227CFF +2 

2 

SAVE TF 

7296 

REF 

\ 

£7,1673 

S22E0RH 

EQUALS 

S22TFBIN +2 

0 » 

EARTH — NGN-ZERO « NCON 

A7297 



























R72Se 



CCkNLiNK ERASABLES F(]R 

P22,P20 NARK DATA. 


(80) 











7300 

REF 

1 

E7. 1674 

RARKUGWN 

EQUAL S 

S22FCRM ♦! 

fid) 


7301 

REF 

1 

E7, 1703 

RM 

EQUALS 

S22RTNEX 

DCWNLINK QP VHP RANGE 

A7itj2 

















1 









1 

H73C3 



S22.1 




( 10) 











7305 

REF 

3 

LAST 32 L7,n03 

S22RTNEX 

EQUALS 

HAFKCCNN *7 

6(1) 


A7306 



















H 73C7 



CRS61.1 SICRAOE. 

-A SOeSET OF 

P20- 


(140) 










73C9 

REF 

1 

E7, 1704 

061 1 

EQUALS 

RM ♦! 

Id) 

TNP QSAVE 

7310 

REF 

1 

£7,1705 

061 1 1 

equals 

Ofcli 

I d)TNP QSAVe 

7311 

REF 

1 

67,1706 

SAVEPCS 

EQUAL S 

Q61I1 *l 

I(6)TNP leh pcsiticn vector- 

7312 

REF 

1 

E 7, 17 14 

SAV E V E L 

EQUALS 

SAVEPCS +6 

n6)TNP LEN VELCCITY VECTOR- 


R7313 


ATTITLUE HANEUVEB 'C<LlEC 87 P20 t K6 I ,R6 3 1 CR S6 1 . 1 


(30) 


l:n AUC, KlLfcRASe.076 Pj>Ge 123 
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7315 

R£f 

1 

jEJt^nzz 

PRAXIS 

EQUALS 

SAVL VEL_ 

+ 6 

Bt3T S-S CISP RES FOR PREF AXIS N95 









• - - - . ■ -1 Hfc- 


R7316 



AMA J-QU J iHi-lBi,! 1 ST (.RACE. 

-IS 

SUBSET 

Of R2 2- 


f 1901 


73IB 

_R££. ■ 

—L. 

g7.1725 

__PfiKilUFl 

EQUALS 

PRAX IS 

+ 3 

6(7)THP R2l MARK BUFFER 

7319 

REF 

3 

LAST 32 E7,173A 

PRKeUF2 

EQUAL S 

MRKELFl 

♦ 7 

8<7nMP R2l WARK BUFFER 



R7320 



CUNJCS SIQBACE. 





(9) 

7322 



E7#l 779 

COGA 

EQUALS 

3 779 


1(2) CQTAN CF INITIAL FLIGHT PATH ANGLE 

_ . 7323 

REF 

_L 

E7t 1779 

(NOEP 

EQUALS 

COGA 


Id) ISEO BT SU8ROUT INE ; iterator: 


REF 

2 

LAST 123 67.1776 

EPS ILCNL 

EQUALS 

COCA 

+ 2 

1(2) TMP 

A7325 










F.7326 



HENCEiVaiS GUIOAhCE STCHAGE. 

- P32...P35 - 



(loot 










Uifi— 

REF 

1 

E7.1793 

ELLV 

EQUALS 

MPKeLF2 

♦7 

1(2 )TMP 

7329 

BEF_ 


E7. 1 795 

KTXl 

EQUALS 

ELEV 

♦ 2 

( 1 > 

7330 

REF 

1 

E7, 1796 

flTX2 

EQUALS 

RTXl 

+ l 

( 1 > 

7331 

REF 

__L_ 

£7.1797 

RTMU 

EQUALS 

PTX2 

+ l 

(2 ) 

7332 

REF 

1 

E7, 1751 

RTSR l/KU 

equals 

RTP'U 

♦ 2 

(2) 

7333 

REF 

1 

E7. 1753 

CENTANC 

EQUALS 

RISE 1/HU 

+ 2 

1(2) S-S CENTRAL ANCLE CQVERED( TP I-TPF ) 

_ A7339 



















R7335 



IFl SEARCKiS17.1.S17.2> P17 

StCRAGE. 




( 100) 


7337 

REF 

2 

LAST 123 E7,1793 

OELTEE 

EQUALS 

MP.KBLF2 

♦ 7 

1(2) 

7338 

REF 

_-L_ 

E7.1795 

XRS 

EQUALS 

OELTEE 

* 

1(2) 

7339 

KEF 

1 

E7, 1797 

thetl 

EQUALS 

XRS 

♦ 2 

1(2) 

73AO 

REF 

1 

L7, 1751 

TF 

EQUALS 

THETL 

♦2 

1(2) 

73A1 

REF 


E7.1753 

OELH HE 

EQUALS 

TF 

+ 2 

( 2 ) 
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RRVISIOh 2 37 GF AGC PKCGRAM UULLSIiU^t BT 2 V A A * 1 VP * 
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JU« Ir^CQ 



1 

PCi^^AFlF A^SIGNHEMS 


t'SEFt'S PACE 

NO, 91 eo S3 



la ^ --B P* *-T t - A -w IIIIImiIt 1m = = ■ ■ 





P7a 3392 

*-*-*-*- OVERLAY 5 ERAhK 7 





r * ^ 3 Mm 






D QCinCt ^ 

P 1 7 .P 3A 

LIS) 1 





■ - -• * » W ' ' M ., , 1 





ononi 

BPF 2 1 ALT 12C F7.16A5 NNl EQUALS DELVEET3 

1(2) 

OSP NCUN 5S 

f PI 



R9Q01 

t*t*tt****** IHF FCIICHIAG ARE FLP FLIGHT *>0^ ONLY *♦*♦♦♦*♦ Of*****##** 










ft 9 QflZ 


RgTLRN-TC~g4RTH STOR/IGE 


( 93D» 


9004 

REF 

2 LAST 

I2C E7ti631 

RTEOVC 

EQUALS 

LAD- U/P 


1(2) IN 

DELTA VELCCITY DESIRED 

H/CS 87 

9009 

RFP 

l 

fc7. 1633 

RTEGAH2D 

EQUALS 

KTtDVC 

♦ 2 

I ( 2 ) I N 

REENTRY ANGLE DESIRED 

REVS BO 

9Q06 

REF 

1 

E7. 1635 

RCQ^ 

EQUALS 

PTE GAP2D 

*2 

1(2 )TNP 

CCMC H2 RADIUS 

M 829 

9007 

^ ^ w. S 

PtF 

1 

E 7f 1637 

KiTl)/ 

EQUALS 

Recife 

♦ 2 

I (6)TMP 

POSITICN VECTOR AT TIG 

M fi29/B27 

90oa 

REF 


E7. 1645 

K(T n 

EQUAL S 

RITU/ 

^6 

I(2)7NP 

HAGMTUDE OF R(T1)/ 

H B29/827 

9009 

REF 

1 

E7,1647 

DT21PR 

EQUALS 

P( Tl I 

♦ 2 

1(2) TNP 

PREVeUS aT21 

CS B30 

9010 

REF 

1 

E7t 1651 

PAMAXl 

EQUAL S 

0T21 PR 

«-2 

1(2) TNP 

HAJ AXIS LOW BOUND LHT M B30 

9011 

REF 

1 

E7, 1653 

PAHAX2 

equals 

HAMAXl 

♦ 2 

1(2) TNP 

HAJ AXIS UP BOUND LMT 

H 830 

ii m mk 

9012 

KEF 

1 

£7. 1655 

R<T2 )/ 

EQUAL S 

MAHAX2 

♦ 2 

I (6)TMP 

FINAL PCSITION VECTOR 

M 629/827 

9013 

REF 

1 

E7, 1663 

RD 

EQUALS 

RtT2 )/ 

♦ 6 

n2)TRP 

FINAL R OESiREC 

H B29/B27 

9014 

REF 

1 

E7.1665 

ORCGN 

EQUALS 

PO 

+ 2 

I (2 )TMP 

RCGA SLCPE (TFRATOR 

H 829/827 

9015 

KEF 

1 

E7, 1667 

KPRE, 

EQUALS 

DHCt Is 

+ 2 

I (2)TNP 

PREVISOUS RPRt 

M 629/327 

9016 

REF 

1 

E7, 1671 

VlTl)/ 

EQUALS 

KPRE , 

♦ 2 

I (6) THP 

VEL VFCTOP AT TIG 

H/CS B7/B5 

9017 

REF 

1 

E 7# 1677 

V2( Tl)/ 

EQUALS 

V(T1 )/ 

+ 6 

I (6 )TKP 

POST IHP VEL AT TIG 

H/C5 B7/85 

9016 

REF 

1 

£7, 17C5 

OV 

EQUALS 

v; ( TU/ 

4“ {j 

I (2)TWP 

DELTA VELOCITY AT TIG 

M/CS 87/65 

901S 

rlf 



1 

F7ti707 

V(T2 )/ 

EQUALS 

OV 

*2 

I (6)TPP 

FINAL VELOCITY VECTOR 

H/CS 07/B5 

'^Q2Q 

REF 

1 

E7. 1715 

Tl 

EQUALS 

V(T2 )/ 

4-6 

I (2)TKP 

INITIAL VECTOR TIHE 

CS B28 

9022 

REF 

1 

E7,1?17 

PCQN 

EQUALS 

1 1 

*2 

1 (2)TMP 

SEHI-LATUS RECTUH 

H B29 

9023 

REF 

31 

1 

£7,1721 

X(Ti) 

EQUALS 

PCLN 

♦ 2 

I (2)7KP 

COTANGENT GAHMAl 

85 

9024 

REF 

1 

F7. 1723 

T12 

EQUAL S 

x(Tn 

+ 2 

I (2)7PP 

IM7 TO FINL POSIT TIME C5 828 

9025 

RfcF 

1 

E7, 1725 

OELTAT 

EQUAL S 

T12 

+ 2 

1(2) TMP 

DELTA T IN SAFE PERILUNE CS B28 

9026 

REF 

1 

£7,1727 

NNIA 

EQUALS 

OELTAT 

♦ 2 

1(2) THP 

IT ERAT ICN COUNTER 1 


<iQ21 

REF 

1 

E 7,1731 

NN2 

equals 

NMA 

*2 

1(2) TPP 

ITERATION COUNTER 2 


902B 

REF 

1 

£7.1733 

RTEMCKEX 

EQUALS 

NN2 

*2 

1 ( DTKP 

RTENCK RETURN ADDRESS 


9029 

REF 

1 

£7,1734 

CON ICXl 

Equals 

RTFNCKEX 


I ( 1 )THP 

CONICS HU TABLE INDEX 


9030 

REF 

1 

E7, 1735 

T2 

equals 

CONI CXI 

♦ 1 

I (2 )TKP 

FINAL TINE 

CS 628 

9031 

KEF 

1 

£7, 1737 

URl/ 

equals 

T2 

♦ 2 

I (6) TPP 

UNIT R(T1)/ 

81 

9032 

REF 

— > 

1 

£7,1745 

UVi/ 

equals 

UPl/ 

♦6 

I(6)7PP 

UNIT V(T1)/ 

ei 

9033 

KEF 

1 

£7,1753 

BE t A 1 

equal s 

UVI / 

f6 

i ( 2) TPP 

l+X(T2)**2 

Bl 

9034 

REF 

1 

£7,1755 

P(Tl ) 

EQUALS 

BET A 1 

*2 

I ( 1 ) THP 

PKIHAAV BODY STATE TIHE 1 

9036 

REF 

1 

E7, 1756 

CFPA 

EQUALS 

P(T 1 ) 

♦ 1 

1(2) THP 

COSINE FLIGHT PATH ANGLE 91 

9037 

REF 

1 

£7,1760 

HHl 2 

EQUAL S 

CFPA 

♦ 2 

1(2) THP 

PERI OR APO INDICATOR 

m 

9038 

REF 

1 

£7,1762 

SPPTEX 

EQUALS 

PHI2 

+ 2 

1 (1 ) THP 

ROUTINE RETURN ADDRESS 
























9039 

REF 

1 

67,1763 

VNSIGRE 

EQUAL S 

SPRTEX 

♦1 

I ( 1 )7RP 

VERBNCUN STORAGE 


9040 

REF 

1 

E 7 f 1 ? fc A 

eETA12 

Equals 

VNSTCRF 


I (2)THP 

SIGN FOR T1M6RA0 


B9a4 1 



OVERLAYS KUHIN 

PE tupk-to-eak th 

STORAGE 

• 




1 


90^2 


0C30 


RPRE 


EQUALS 


24D 


n2nHP CCKfUTEC PfiEC RADIUS 7rB29^/B27 
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-Q0i2 

P/KPRE 

EQUALS 

260 

U2nMP 

P/R 

39 







0C39 

R/APKE 

EQUAL S 

280 

1 U JTHP 

R/A 

66 


9D4A 

REf 

2 

LAST 

12A 

£7.1721 

X(T2IP_RE 

EQUALS 

T 12 

n2)TMP 

PPEC COTAN GAMPA2 

BO 



PEF 

1 

LAST 


E7_il?25 

X(T2I 

EQUALS 

DELT AT 

n2nHp 

CCTAN GA'^RAZ 

BO 


9098 

REF 

2 

LAST 

129 

E7, 1795 

UH/ 

EQUAL S 

UVl/ 

112 nwp 

UNIT HQPIZCNTAL VECTOR 

. B1 


9Q99 

REF 

2 

LAST 

119 

LIiiAI2 

SPRIETIC 

EQUALS 

TIG 

i(2nN 

TIRE CF IGNITICN 

CS 826 


9Q5G 

REF 

2 

last 

87 

E9. 1721 

RETLCCN 

EQUALS 

XPIHCLO +1 





R9C51 



























9900 





E 7, 1777 

kHOCARES 

m 

3777 

A DURHV 

FOP E-BANK INSENSITIVE 

2CADP S. 
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QQOl 





4000 



S6TL0C 

4 000 












nnop 

RFf 

1 






COUNT 

Q2/RIP1$ 



0003 





4000 

0 0004 

c 

INHINT 


GO 

D004 

fiEF 

1 



4CQ1 

3 40 34 


Caf 

GOB B 


0005 

Rtf 

X 



4Q_0i 

56 0G6 

1 

XCH 

BbANR 


0006 

REF 

1 



4003 

1 2511 

1 

TCF 

GOPkCG 

- 











G0C7 

REF 

1 



40U4 

52 011 

c 

OXCH 

ARUPT 
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TC 

IBNKCALL 

0 13C 

PEF 

1 



06«2131 

200C0 

c 


CAOR 

OPTDRIVE 













0131 

REF 

1 



7700 




20MRUPT 

« 

OCT37776 (OEC 16382) 

0132 





Gbi2132 

0 

G0C6 

1 

hCOSPCUT 

EXTEND 

TURN CFF RELAYS 

0133 

REF 

a 

LIST 

13C 

06*2133 

01 

010 

1 


MR ITL 

OUTO 













PEF 

1 



06,213A 

3 

2041 

c 


CAF 

120HPUPT SET FCR NEXT CCRVE 

013 5 

REF 

1 



Qt).2 135 

_1 

2014 

1 


TCF 

SETT IPL4 




0136 

0137 
0136 

REF 

12 

LIST 

13 1 

06*2136 

3 4675 

1 

C 

1 

QUIKOSP 

CAF 

blTl4 



REF 

5 

LIST 

13C 

06*2137 

7 13C2 

C C0C6 


MASK 

OSRLPTSW 







06*2140 

6X T 6N0 




0139 

REF 

1 



06*2141 

1 2167 

1 


BZF 

OUIKCFF 

WROTE LAST TIME* NOW TURN 

OFF RELAYS. 















REF 

4 

LI S I 

13C 

06*2142 

U*016 

c 


CCS 

NOUT 



vl40 

REF 

2 

LIST 

LiC 

06*2)43 

0 2024 

c 


TC 

DSPCnSB 



Ul4l 

REF 

X 



06,2144 

1 2154 

1 


TCF 

NODSPY 

NOUT^O OR BAD RETURN FROM 

OSPOUTSB 

0142 

REF 

13 

LIST 

132 

06.2 145 

4 4675 

c 


CS 

blT14 

GCOO RETURN (WE OISPLAYEO 

SOMETH I N(i) 

0143 

REF 

6 

LIST 

1 32 

06*2146 

27*3C2 

c 

aUlKRLPT 

C 

i/I 

OSRLPTSW 
















0144 

REF 

2 

LIST 

13C 

06*2147 

3 7700 

1 


CAF 

2CMRLPT 



M 1^5 

REF 

2 

LIST 

13C 

C6* 2150 

54 02? 

c 


TS 

T1HE4 
















0146 

.A£F 

11 

LIST 

6 1 

06,2151 

3 4702 

c 


CAF 

B n9 



0147 

KEF 

7 

LIST 

132 

06*2152 

27*3C2 

c 


AOS 

CSRUPTSW 
















014 6 

REF 

5 

LIST 

132 

06*2153 

0 5222 

0 


TC 

RESUME 
















0149 





06,2154 

0 0006 

1 

NUOSPY 

EXTEND 




0150 

REF 

4 

LIST 

132 

06,2155 

Cl 010 

1 


WR ITE 

GOTO 
















Jl51 

REF 

3 

LIST 

132 

06,2156 

3 770(3 

1 

SVNCT4 

CAF 

2CHRIPT 



ul52 

KEF 

3 

LIST 

132 

06,2157 

26 027 

c 


AOS 

tlht4 


1 













1 

J153 

REF 

12 

LIST 

132 

06*2160 

3 4 7C2 

c 


CAF 

BIT J 




W 
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1 

T ARLP1 PRr.CRAN 








CSER'S PAGE NO. 
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! 

015^ 

0155 

R t F 

e LIST 

132 

06.2161 

_21*3Q:2 

c 


AOS 

OSRUPTSW 


1 

REF 

9 L/Sl1 

^ ^ 

13J 

V- Wl iV- - Vb- ^ ~ 

il6t2l62 

11*3C2 

c 


CCS 

DSFUPTSW 



k I 1 *1 #1 

Sm k 1 

RFF 

F. 1141 

117 

06.2161 




TC 

RESl'Pf 



iM A m — 

015^7 




U 6 t 2 164 

377J7 

c 

0CT37737 

GC7 

37737 



01^6 
fl 1 5<} 

REF 

1 


Cbt2 165 

0 2156 

i 


TC 

SYNC T4 



RFF 

7 LIST 

133 

0 6 f 2 1 6 6 

fl 5222 

c 


TC 

PESUPE 















0160 
n 1 ^ 1 




0 4 f 2 167 

0 0006 

1 

QOIKOFF 

eXTENC 




RFF 

5 1141 

112 

G6.2 17C 

Cl 010 

1 


WRITE 

□OTC 



iJ 1 

REF 

14 LAST 

i32_ 

06f 2171 

3 4675 

1 


CAF 

BIT! 4 

RESET DSRUPTSW TO SEND 

DISPLAY NEXT PISS 

- Jm A Vcifa 

0163 

REF 

*■ t y --^g 

1 


C6|2172 

1 2146 

1 


TCF 

QCIKRCPT 














0164 




06*^21 73 

224CC 

c 

Ut 14,9 

CCT 

2240C 


_ _ __ 1 . - 


PtjVlS10S\ 237 CKJ^GC PhCGi^AM COLOSSUS BY NASA ^02UU 
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RQ171 

HQ172 

R0I73 


PQ17^ 

P0175 

RQ176 


PC 1 77 
ROI7e 


ROlfiO 


HO 182 


T4ELP1 PPCCftAE 


LS£R'S PAGE NO. 


EO S3 


PQ1.65 PP£Ga4l» AA!'E! IRLfCN 


PiifriirKii nFSCRlPTlQl^i — IhlS PRLGflAP- 



A8Q FS, IT DETECTS CHANGES CF THE IHQ STATUS PITS IN 


RQltfi CHANN EL iC AND C AL LS THE APP ftCPP UTE SLEPQUT INES . ThtBlTS PROCE SSED ANO THEI R fteiEVAN T SUOROI TINES ARE 


FINLT ION 


Ml 



lENP IN llRiTS 


15 


ISS TORN-Cfi REQUEST 


lA 


7LIM 

ITURNOh 


13 


I^U ec u FAIL 
IPC CAGE 


11 

11 


INUE A I L (SETISSW ) 
ICCUFAIL (SETISSHi 


IPUCAGE 


Jpg O PER/T E 


IHUUP 


S AR P Lb a _ST A 1i 


ALSO I EACH SUBROUTINE CALLED FINDS THE NEH 


lt£_gJT 


CALLIKC 



TAPlJPT EVERY <t60 MLUSECCNDS. 


R01P3 JCBS CP IAJKS JNI TIATEP: NCNE. 


RQ184 SgePpillNES CALLJCJ TLIH, I TQRNCNt SETISSW^ IMUCA GE, IMU^ 


Rdia^ 
HO let 
ROi88 
POISQ 


I r 1 I 1 1 m I 1 UR * — — 

PPESH START OR R ESTART wlTH KC GROUPS ACTIVE: CIIHO CESBO) = OCT 37A11. 

RESTART hlTH ACIIVE GRCllPS: CtlHODES3u) " ( 8 1 IHOPE S 30 )ANO C CC T 0003 51) PLUS OCT 3 7<»QO. 

THIS LEAVES IMU FAIL PITS INTACT. 


kCISX ALAPA S: NCNE. 


RQ1S2 

E> 1 T : 

TNCMEST 

























CLIPL 1 : 

LPLATEU IPCDESaO KITH CHANGES 

PRCCESSFD 

BY dPPPOPRlATE SL'BPCUTINE. 




Q195 

REF 

1 



06«217A 

3 1320 

1 

IMONON 

CA 

1HDDES3G 

SEE IF THERE PAS BEEN 

A CHANGE IN THE 


Gist 





06.2175 

0 0006 

1 


EXTEND 

RELEVANT BITS OF CHAN 

30 • 


01<17 

PEF 

1 



C6f 2176 

06 C30 

1 


RXOR 

CHAN30 

CHECK IF BITS 9,11-15 

CHANGED 


0198 

REF 

1 



06,2177 

7 27A3 

1 


MASK 

30RD8SK 




OISS 





06 f 2 2 CO 

C 0006 

1 


EXTEND 




^ Ci 0 

RtF 

1 



06,2201 

1 2231 

1 


dZP 

TNUNTEST 

NO CHANGE IN STATUS. 

















0201 

REF 

3 

LAST 

Xi2 

06,2202 

5A 070 

r 


rs 

RUPT REGl 

SAVE BITS MUCH HAVE 

CHANGED. 


0202 

REF 

2 

LAST 

13A 

C 6 f 2 2 0 3 

23* 320 

1 


LXCH 

IMCDES3G 

UPDATE IM0DES33. 



0203 





06,22QA 

0 COCo 

1 


EXTEND 




02 CA 

REF 

2 

LAST 

131 

Q6,22C5 

06 CCl 

c 


RXOR 

Lchan 




0205 

REF 

*3 

LAST 

1 3A 

06, 2206 

55*320 

c 


TS 

I MCCES3C 





0206 

KEF 

2 

LAST 

i3C 

06,2207 

-1 4712 

c 


CS 

ONE 




J2o7 

RtF 

A 

LAST 

1 3A 

C6,2210 

56 C70 

c 


XCH 

PUPTREGl 




C208 





06,2211 

0 C C C b 

1 


EXTEND 
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U209 
u2 lu 

Rif 

1 



Qb«2212 

t 2507 

1 


BZHF 

TCP 

TLIF 

CHANGE IN IPU TEMP, 


REF 

1 



06f 2213 

1 2215 

1 


NXTIFBIT 

BEGIN BIT SCAN, 



0211 

R£f 

3 

LAST 

134 

06f22i4 

6 ^712 

1 

-1 

AO 

ClME 

(RE-ENTERS HERE FROM NXTlFAlL-1 


0212 

REF 

5 

LAST 

134 

CEi2215 

24 070 

C 

NXTlFeiT 

INCR 

RUP7 REGl 

ADVANCE BIT PfSITKN NUMBER. 


0211 





G6.2216 

O iJ iJ tJ u 


+1 

00U6LE 




02i<i 

REF 


LAST 

131 

06t2217 

54 CCQ 

C 


TS 

A 

SKIP IF OVERFLOW. 


0215 

KEF 

2 

LAST 

13? 

C6|2220 

1 2215 

1 


TCF 

NXTIFBIT 

LOOK FCR BIT. 

- ' 

0216 

REF 

1 



0Et222l 

56 071 

1 


XCH 

RUPTRf.C2 

SAVE QVERFLCW-CCRPECTEO DATA. 


0217 

REF 

E 

LAST 

13? 

C6v2222 

5C 07C 

c 


INDEX 

RUPT REGl 

SELECT NEM VALUE OF THIS BIT. 


u2ie 

Rtf 




06.2223 

3 4675 

1 


CAF 

6IT1 4 



U219 

REF 

4 

LAST 

134 

06(222^ 

7 1320 

c 


MASK 

iPcoEsao 



0220 

REF 

7 

LAST 

1 3 5 

C6.2225 

50 070 

c 


INDEX 

RliPTREGl 



0221 

Rtf 

i 



C6.2226 

0 2737 

c 


TC 

IFAI 1 JPP 
















0222 

REF 

2 

LAST 

135 

C6.2227 

10 071 

0 

NXTIFAIL 

CCS 

ROFTPFG2 

PROCESS ANY ACOITIONAL CHANGES. 


0223 

REF 

2_ 

LAST 

13? 

C6.2230 

1 2214 

_c_ 


TCF 

NXTIFBIT -1 
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pQZ2^ p ncaB in tnc nte s t , _ 

P022*=- FrM;nr:fciL CESCR l PT ICK : This PBCGRAM CONORS PE'JLESTS EOR IS* IN IT 1 AL I Z A T | CN. TSS TUPN-QN (CH/NNEL 3 0 BIT l^) 
J*0227_ A^C ISS CPlfLAlE < tJ-ANNEL 3<L B J T ^ I RECOtSTS ABE_TREATLlj AS A PAIR AND PROCESSIKG TAKES PLACE .A80 SEC ONUS 
P0229 AFTER EMh tR CNE iP PE/RS. THIS IN IT 1 / L 1 2 AT ION TAKES ON ONE CF T H E FCliOVilKG TH REE F0RP5: 


K 023 i XI ISS TURN- TN: in this SITUATION THE COMPUTER IS OPERATING k^HEN THF ISS IS TURNED CN. NOMINALLY, 

f^0233 BCIH iSS TUBfirON ANC ISS CPERATb APPEAR. THE PLATFCRM IS CAGED FOR 90 SECONDS AND T HE ICDU'S ZEROED 

SC THAT AT THE END CP THE PRCCESS THE GIMBAL LOCK MCMTQR WILL FUNCTION PROPERLY. 


H Q217 

21 ICDU IMTIALIZATICK: in THIS CASE THE COMPUTEF 

WAS PRCBA8LV TURNFCi ON WITH 

THE ISS IN 

OPERATE DR 


PQ239 

A FRESH START WAS CCNE WITH THE ISS IN OPERATE. IN 

THIS CASE ONLY ISS OPERATE 

IS ON. THE 

ICOU»S ARE 


R02A1 

ZERQEC SC THE GIPBAL LOCK PQM lOR WILL FUNCTION- AN 

EXCEPTION IS IF THE ISS IS 

IN GIMBAL 

LOCK AFTER 


B J 2 ^ 3 

A RESTART, THE ICOU'S KILL NCT 6b ZEROED. 






R02AA 

31 RESTART WITH RESTAPTABLE PPCGRAN USING THE IMU: 

IN THIS CASE, NO INITIALIZATION TAKES 

PLACE SINCE 


P02A6 

n IS ASSUMED THAT THE USING PROGRAM CIC THE INITIALIZATION AND THEREFORE 7ARUPT SHOULD NCT INTERFERE. 



R.02hB 

lMCCeS3C BIT 7 IS SET * 1 BY THE FIRST BIT (CHANNEL 30 BIT lA OR 

91 WHICH ARRIVES. FCLLOWING THIS. TNCNTEST IS 


R021)0 

ENTERED, FINES BIT 7*1 BUT 8IT 8 * C, SO IT SETS BIT 6 = 1 AND 

EXITS. THE NEXT TIME IT FINOS 9 IT B 

s 1 ANC 


Ra252 

PBCCEECS. SETTING BITS B AND 7 » 0. AT PROCTNCN, IF ISS TURN-CN 

REQUEST IS PRESENT, THE ISS IS CAGED 

( ZERO + 


RU2 54 

CCAPSEl. IF ISS OPERATE IS NCT PRESENT PROGRAM ALARM 00213 IS ISSUED. AT THE END CF A 90 SECOND 

CAGE 

f BIT 2 


K0256 

CF IMCCES3C IS TESTED. IF IT IS - 1, ISS TURN-ON WAS NOT PRESENT 

FCft THE ENTIRE 90 SECCNOS. IN 

THAT 

CASE, IF 


KQ258 

THE ISS TLFN-ON RICUEST IS PRESENT THE 9C SECOND WAIT IS REHEATED 

, CTHbflWiSE NO ACTION CCCURS UNLESS A 

PROGRAM 


RQ260 

WAS WAITING FOP THE INITIALIZATION IN WHICH CASE THE PROGRAM IS GIVEN AN IMUSTALL ERROR RETURN. 

IF THE DELAY 


P0262 

WENT FPLPEFLY, THE ISS DELAY CUTBIT IS SENT AND THE ICDU'S ZEFCiED 

. A TASK IS IMTIATlO TO REMOVE 

THE 

PIPA FAIL 


RU26A 

INHIBIT 617 IN 10.24 SECONDS. IF A PISSICN PROGRAM WAS WAITING f 

T IS INFORMED VIA ENCIPU. 





BO 266 

AT FFCCTNCN, IF ONLY ISS CPERATE IS PRESENT (CPUNLYl, THE COL'S ARE ZEROED UNLESS THE PLATFORM IS 

IN COARSE 


KQ26fl 

ALIGN (« GIMBAL LCCK HERE) GR A MISSlCN PROGRAM IS USING THE IMU 

(IMUSEFLG * 1). 










KU27C 

CALLING SECUENCE: T4MUPT EVERY 460 HILLISECCNDS AFTER IMUMON. 










i 

Rft27l 

JCES CR TASKS INITIATED: 1) ENDTNCN, 90 SECONDS AFTEk CAGINC STARTED. 21 ISSUP, 4 SECCNOS AFTER 

CAGING CONE. 

1 

R02 73 

31 PFAILCK, 10.24 SECONDS aFTEH INITIALIZATION COMPLETED 

- 4l UNZ2, 320 MILLISECONDS AFTER ZEROING 


RG2 1b 

STARTED. 






RU276 

SLBbCLilNEj CALLEC: CAGESUB, CA0ESUe2, ZEKQICDU, ENDIHU, 1HL6AC, 

ncattcff, setissk, VAROELAV. 





HU278 

ERASAELE 

IMTIALI ZATIDN2 SEE IMUMCN. 







P02 79 

AIAFMS: 

FFCGRAM ALARM 00213 IF ISS 7LRN-UN REQUESTED WITHQLT ISS OPERATE. 







K026i 

EXIT: tKDTNCN EXITS TO C33TEST. TASKS HAVING TC DO nlTH IN IT lAL I ZAT ICN EXIT 

AS 

FOLLCWS: MlSSICN PROGRAM 




K02ft3 

WAITlfC 

ANC IN1T 1 ALIZATION COMPLETE, EXIT TC ENOIMU, MISSION PROGRAM WAITING 

AND 

INITIALIZATION FAILED, EXIT TO 




BU285 

IMLEAC , 

IML NCT IN USE, EXIT TC TASKCVER. 














P02Bt 

CLTPl T : 

ISS INITIALIZED* 





. 1 


U2tl7 REF 5 LAST 135 €6,223 1 A 1320 C TNQNTEST CS IHOC£<30 AFTER PROCESSING ALL CHANGES, SEE IF IT 


L 
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026a 

REF 

i3 

L/ST 


ast22a2 

7 4?C4 

1 

MASK 

BIT? 

IS TIME TO ACT CN A TURN-ON SEQUENCE 

0269 

REF 


L/ST 

13» 

06*2233 

iC CCC 

C 

CCS 

A 


0^911 

BEE 

L_ 



06.2234 

1 2367 

c 

ILE 

C33TEST 

NC - EXAMINE CHANNEL 33- 


Q2S1 

REP 

12 

LAST 

61 

06*2235 

3 4703 

1 

CAF 

blTS 

SEE IF FIRST SAAPLE OR SECOND. 

0292 

A£F 

6 

LAST 

13 6 

06.2236 

7 132Q 

c 

MASK 

1MLJDLS30 


Q29J 

REF 

5 

L/ST 

13T 

C6t2237 

1C occ 

c 

CCS 

A 


02 9A 

REF 

1 



06*2240 

1 22A4 

c 

TCF 

PROCTNCN 

REACT AFTER SFCCNO SAMPLE. 


0295 

REi 

12 _kA5T 

ill 

. 06*2241 

3 4703 

1 

CAF 

BIT6 

IF FIRST SAPPLEf SET 0IT TO REACT NEXT 

029t 

REF 

7 L/ST 

13) 

06*2242 

21*320 

C 

AOS 

IMOOE530 

TIME. 

0297 

REF 

_2 Li5J_ 

U-l- 

C6.2243 

1 2367 

_fi 

TCF 

C 33 TEST 



HCISB PPQCESS |PU TU«K-C^_PIiUESlS AFTER WAITING I SAMPL E FCR ALL SIGNALS TO ARRIVE. 


o3ao 

0301 

IJ3D2 

REP 

REP 




QJi*^244 

4 275? 

1 

proctnon 

cs 

BITSTCe 




a 

J-iST 

L31^ 

C6.2245 

7 1320 

c 


MASK 

IMC0ES3C 



REF 

9 

LAST 

137 


59*320 

( 


TS 

IMODESBO 




Cit3 

REP 

16 

LAST 

13! 

C6l2247 

7 4675 

c 


MASK 

b I T 1 4 

SEE IF TURN-CN REQUEST. 



0304 

REF 

€ 

L/ST 

Ul 

06*2250 

IC 000 

0 


CCS 

A 





REF 

1 



C6.2251 

1 2342 

1 


TCF 

OPONLV 

OPERATE ON CNLY. 

















0306 

REF 

LC 

L/ST 

137 

06 i 2 2 5 2 

4 1320 

0 


CS 

IMtj0ES30 

IF tlrn-on pecuest, we 

SHOULD 

HAVE IMU 

0307 

REF 

13 

LAST 

132 

06*2253 

7 4702 

) 


MASK 

B1 79 

OPERATE. 



0306 

REF 

7 

last 

137 

06,2254 

1C cco 

c 


CCS 

A 




03C9 





06*2255 

1 2260 

c 


TCF 

♦ 3 


















0310 

REP 

1 



06. 2256 

0 5537 

c 


TC 

ALARM 

ALARM IF NOT. 



0311 





C6.2257 

00213 

1 


OCT 

213 


















Q312 

REP 

1 



Q 6 1 2 2 60 

0 271? 

1 

+ 3 

TC 

CAGE SLB 


















13 

REF 

1 



0 6* 22c 1 

3 2764 

c 


CAF 

9osecs 




0314 

REF 

1 



C6. 2262 

0 5140 

1 


TC 

NAl 7LIST 




0315 

REF 

1 



E3. 1474 




EBANK^ 

COUINC 




0316 

REF 

i 



06*2263 

02270 

c 


2CADP 

ENOTKCN 




0 316 

REP 

1 



C6. 2264 

14063 

1 





















0317 

REF 

3 LAST 

137 

C6.2265 

1 2367 

c 


TCF 

C 33 TEST 


















0316 

REF 

2 

L/ST 

137 

06,2266 

3 2764 

c 

retncn 

CAF 

90SLCS 




0319 

REF 

1 



0 6 f 2 26 7 

0 5161 

1 


TC 

VAKOELAY 


















0320 

REF 

6 

LAST 

62 

06,2270 

4 4711 

c 

LNDTNUN 

CS 

8IT2 

RESET TURN-CN REQUEST FAIL BIT 

• 

0321 

REF 

11 

LAST 

1 3 1 

06.2271 

7 1320 

c 


MASK 

IM0CES30 




0322 

REF 

12 

LAST 

13 7 

06,2272 

57*320 

1 


XCH 

1M0DES30 




0323 

REF 

9 

LAST 

137 

06,2273 

7 n711 

c 


MASK 

eiT2 

IF IT MAS OFF, SEND ISS 

DELAY 

COMPLETE. 

.. \i22M 





06.2274 

C QOOo 

1 


tXTENO 




1 


0325 REF 1 06t2275 i 2310 C 0ZF eNDTACN2 
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0J2ij 

Rtf 

J17 

iAST 

137 

C 6 f 2 276 

3 

A675 1 

OAF 

L I T 1 A 

IF IT WAS 

ON AND TURN-CN 

REQUEST NUW 


032 7 

RtF 

13 

LAST 

137 

0 6 f 2 2 7 7 

7 

1320 

C. 

MASK 

1M0DES30 

PRESENT , 

RE-ENTER 90 SEC 

DELAY IN WL . 


CJ 





06.2300 

0 

.0006 

] 

. _ ^EXTEND 






0329 

REF 

1 



. C6*2J0J.. 



c 

B/F 

P ETNCN 




















03 3C 

RpF 

I A 

L AST 

63 

C6.23L2 

A 

0074 

c 

CS 

STAT E 

IF IT IS 

NCT CN NOW, SEE 

IF A PPCG WAS 


u331 

REF 

1 



06.2303 

7 

A7C3 

c 

MASK 

I MUS EFLG 

WAITING. 




Q332 

PEF 

& 

LAST 

131 

C6t23CA 

1C CCO 

c 

CCS 

A 





(133 3 

RFF 

1 



06*2305 

i 

5213 

c 

TC F 

TASKCVEP 





03iA 

R£f 

1 



06,2306 

0 

A57A 

c 

TC 

POST JUMP 





0335 

REF 

1 



06,2307 


17^41 

c 

CADR 

IMUBAD 

UNSUCCESSFUL TUPN-CN. 




0336 

REF 

1£_ 

LAST 

6 C 

C6.2310 

3 

A67a 

c 

ENnTNCN2 CAF 

BIT 1 5 

SEND ISS 

CELAV COMPLETE, 



0337 





06,2311 

0 

0006 

1 

EXTEND 







t ’ ^ ^ fl REF 1 06*2312 05 012 1 WOH ChAN 12 TURN OFF ISS CEIAV COUNTEH 


Q339 REE Z LAiT 1_3_2 QfciZ3l3 0 <i633__C T C IBEjKCALL TURN OFE NQ ATT LAMP. 

C3A0 fi£F 1 . 06,21 1A^_1LCJAC C ADK NOATTCFF 


U3A1 REf 1 C_6jf.2 315 0 SAIO 1 UN22 TC ZERO ICDU 


03A2 REF A 06.2316 A A72g ^ CS BITSACS 

OiAa fi6A23n C OOC6 1 EXTEND 

Q3AA REF _2 LAST 13g 06,23 20 0 3 012 1 V<ANO CHAM2 


03A5 PEF 11 L AST 6C 06.232 1 3 A?CC I CAP BlTll 

OlAe REF 2 LAST 131 06.2322 0 51 61 1 TC VAF DELAY 

03A7 REf 1 C6. 2223 <i 275A 1 IS S LP CS 0CT5A 

g 3 AS RE F lA LAST 13 8_ 06, 2 3.2 A .7 . 13 20 0 A S K I MC D L S 3 C 

RFF IE LAST 136 06.2325 55*32C C TS 1 MCDES3C 


135'0 RtF IX LAS T 61 C6. 2326 A A 7 C5 C CS ylTfc 

0351 PEF A LliJ UJ 06.2327 7 1321 1 MASK IHODES33 

0352 REP 5 LAST lit 06,2330 55*321 1 TS 1HQ0FS33 


u35 3 




035A 


0336 


4 C3S7 


j OJ£8 
0359 
^ALQ. 


C36Q 


R£± 

RtF 

flEF 


RiX 

REF 

REF 

REF 


_J i 06.2331 0 2665 C TC SCTISSV. 

11 LAST Vise Q6il332 A A67A 1 CS 611 15 

06.2333 0 QQQb 1 EXTEND 

3 J^iJL 1 3J 06. 2.336 CJ nj. 1 H AND CHANI2 


J 06,2335 3 A7A0 C CAP A SEC S 

i LAST 131 C6,2336 C 5lAp 1 TC WAITLIST 

Z 13SJ IZl litLATA EBANK * CCUIKD 

J C6.2337 03056 1 2CADR PFAILCK 

I <16,2^360 16 06 3 C 


p E f 2 i A^T l_3J C^»Z3AI 1 5213 C T > SKC.VLR 

0367 REF 11 LAST 6U iltrZ3A2 3 A707 C ^CPONLY ° CAF bITA 


REMOVE ZERO AND COARSE. 


WAIT 10 SECS FOR CTRS TO FIND GIMBALS 


PEMCVE CAGING, IMU FAIL INHIBIT, AND 
ICOUFAIL INHIblT FLAGS. 


ENABLE DAP 

j 


ISS WARNING MIGHT HAVE BEEN INHIBITED. 
REM 0 V E IMU CELAV COMPLET E 0 1 SC RE T E . 


PONT ENABLE PROG ALARM ON PIP FAIL FOR 
ANOTFER A SECS. 


T 
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C366 





06 « 2 14 3 

0 0006 

1 

EXTENC 


IF QPERATF ON ONLY AND UF ARF IN CnARSF 

0369 

REF 


L4ST 

136 

G6t2344 

02 012 

C 

RAND 

CHAN12 

ALIGN, OONT ZERC THE CDUS BECAUSE WE 


REf 

— a_ 

LiST 

-■lia 

06,2345 

1C 000 

JL_ 

CCS 

A 

MIGHT BE IN GIMBAL LOCK. USE V41N20 TO 

0371 

REF 


LAST 

131 

06,2346 

± 23 il 

C 

TCF 

C33TEST 

RECOVER. 


OilZi 

Rff 

2 

L4ST 

136 

06.2347 

3 4703 


CAF 

IF'USEFLG 

OTHERhISE, ZERO THE COUNTERS 

0373 

REF 

15 

LiST 

136 

06,2350 

7 0074 

c 

MASK 

S T A T E 

UNLESS SOHECNE IS USING THE IMU. 

03 74 

REF 

10 

L/ST 

139 

06,2351 

10 QQO 

c 

CCS 

A 


0375 

REF 


L^ST 

-13 9 

06,2352 

1 2367 

c 

TCF 

C33TEST 



C3 76i 

REF 

1 



06,2353 

0 2730 

1 

TC 

CAGESIB2 

SET TURNON FLAGS. 












03 77 

REF 


L3ST 

136 

06,2354 

0 4633 

c 

ISSZERO TC 

i BNKCALL 

TURN OFF NO ATT LAMP 

0378 

REF 

2 

L^ST 

13 6 

06,2355 

1707C 

c 

CAOR 

NOAT TCFF 

IMU CAGE OFF ENTRY 












0379, 

REF 

1C 

L4ST 

6 1 

06,2356 

3 4706 

1 

CAF 

BITS 

ISS ecu ZERC 

0 3 60 





06,2357 

0 0006 

1 

EXTEND 



Q,m , 

REF 


l/ST 

- i.3 ^ 

C6.236C 

OS 012 

_L_ 

HOP 

CHAM2 













0361 1 

REF 

i 

L/ST 

136 

Q6a2361 

0 5410 

1 

TC 

ZERU tCDU 


£□.012^ 



L^ST 

131 

fi.6 j-2 3 6 2 

3 4?C5 

_L_ 

CAF 

Bn6 

WAIT 300 MS FCR AGS TO RECEIVE SIGNAL. 

0363 

REF 


LAST 

13 6 

06,2363 

0 5140 

1 

TC 

waitlist 


0384 

REF 

1 



1331 



6BANK* 

OPTMCCES 


0385 

REF 

__i_ 



06, 2364 

C2315 

J_ 

2CADR 

UN22 


0385 

REF 

1 



06,2365 

14062 

c 



* 


fiieie R£F t L/IST 13S 06.2366 1 2367 C TCF 





*- 

t 




C33TEST 


_ G ASStKBLE ftE^lSlQh 237 Cf AGC PRCGRAM CQLCSliUS 6Y NASA 202IIU-C31 lU? AUG. 2A,196B KOOLADg .064 P^GE I<>0 


L T^PtPT PPCCRAM US6R*S PAGE 13 60 53 


PUiei PfCGP/!P PAPE: C33TE5T 

KOJefi FLhCTIChAL D6SCRIPTICK; TtilS PRQGPAM HCMTCRS THREE FLIP-FLOP INBITS CF CHANNEL 33 AND CALLS THE APPROPRIATE 

B03SO SCEPCUIPE TC PROCESS A CHANGE. IT IS ANALOGOUS TO IMLMCN, WHICH MCNITORS CHANNEL 30t EXCEPT THAT IT READS 

P03?2 CHANNEL 33 WITH A WANC INSTRUCTICN BECALSE A 'WRITE* PULSE IS PEQUrPEC TO RESET THE FLIP-FLOPS. THE BITS 
KQiSA PPtC£SSfct_JPiD THE SLBPCUTIKES CAL LEC ARE; 


Rc3S5 eiT FLNCTICN SUBROUTINE 

R<.396 — — 


RQ397 

13 

P IPA FAIL 

P IPFAIL 

RC398 

12 

OCWNLINK ICO FAST 

ONTNFAST 

P03S9 

11 

UPLINK TCC FAST 

UPTHFAST 


RC400 UfCP ENTRY TO THE SUBRCUnNEf THE NEW BIT STATE IS IN A. 


RQ^iOl 

CALLING SECUENCE; EVERY A80 NILLISECCNOS AFTER TNGNTEST. 


HQ^Q2 

JCeS CP 1A!KS INITIATEC: NONE. 


KQ<iC3 

SLEPGUTINES CALLEC: PIPHAU, CNTMFASl AND WPTHFAST ON bIT CHANGES. 


RO^C^ 

RC<t06 

EPASAELE INITIAL UAT ICN: C(IN0CES33) - OCT 16000 ON A FRESH START CR RESTART, THEREFCRE, THESE ALARMS WILL 
REAPPEAR if THE CCNOlt IONS PERSIST. 


R0^C7 

ALAPKSi NONE. 



E3L1U GLCCKNCN. 



HO^CS CiTPElJ UFCATEO EITS 13f 12 AND 11 OF IMGOeS33 WITH CHANGES PROCESSED. 


0410 

REF 

6 

LAST 

138 

06»2367 

3 1321 

C C33TEST 

CA 

IHDDES33 

SEE IH RELEVANT CHAN 33 BITS HAVE 

0411 

REF 

1 



06,2370 

7 4763 

C 

MASK 

33RDHSK 


C412_ 

ref 

2. 

CAST 

38 

06,2371 

54 OCl 

1 

TS 

L 

CHANGEC. 

0413 

REF 

2 

LAST 

14C 

06, 2372 

3 4763 

1 

CAP 

33PrPSK 


0414 





C6,2373 

0 0006 

1 

EXTEND 



G415 

REF 

1 



06,2374 

0 3 033 

1 

WAND 

CHAN33 

RESETS FLIP-FLOP INPUTS. 

0416 





06,2375 

0 OOC6 

1 

EXTEND 



C^17 

REF 

3 

LAST 

13X 

C 6 f 2 3 1 £ 

C6 OCI 

C 

RXOR 

LtHAN 


0418 





06,2377 

C QCC6 

1 

EXTEND 



041<3 

REF 

1 



C6,2400 

1 2427 

c 

BZF 

GLOCKMCN 

CN NC CHANGE. 

042C 

REF 

€ 

LAST 

135 

C6.2401 

54 070 

1 

TS 

nUPTRECl 

SAVE BITS WHICH HAVE CHANGED. 

0421 

R E F 

7 

LAST 

14C 

C6, 2402 

23'321 

c 

LXCH 

IMCDES3J 


G422 





C6,24C3 

0 0006 

1 

EXrtND 



0423 

REF 

4 

LAST 

14C 

06,2404 

06 001 

c 

RXOR 

LCHAN 


0424 

REF 

8 

LAST 

14C 

C6, 2405 

55 '321 

1 

TS 

I M0DES33 

UPDATED IMOCES33. 

0425 

REF 

3 

LAST 

13C 

C 6 f 4 0 6 

3 4714 

1 

CAP 

ZEkO 


0426 

REF 

s 

LAST 

14C 

06,2407 

56 070 

c 

XCH 

RUPTPEGl 


0427 





06,2410 

6 COOC 

1 

DOUBLE 




R 


BY NASA 2Q211I1-C31 lil7 AUG. 2Atl966 KCQLADE .Q6<> PAGE 1^1 


USER*S PAGE NO, H EO 53 


0^28 REF 1 I C TCP NXTi E7 +1 SCAN FCR BIT CHANGES, 


4142-9 BX£ ^ LASJ L3-i C6^2A12 t A712 1 -I AD ONE 

0A3C REF 10 LAST I4C C6t2A13 2A 010 C NXTIBT (NCR RUPTPEGl 

CA31 C 6,2A 14 6 0000 1 ♦! OOUfiLE 

0 432 REF 11 LAST 13S 06.2A15 5A OCQ C TS A "(CODING IDENTICAL TU CHAN 30), 

0433 REF 2 LAST i4j C6,24U 1 2413 1 TCF NXTIEI 


0434 REF 3 LAST 13S C6.2417 56 Q7I 1 XCH PUFTREGZ 

C435 RE F 11 LAST 141 C6,2^2C 5C 070 C INDEX RUPTPEGl GET NEN VALUE DF BIT NHICH CHANGED, 

0436 REF 11 LAST 6C 06t2421 3 4676 1 CAF BIT13 

0437 REF S LAST 14C C6,2422 7 1321 1 PASK IKOCES33 

043 0 REF U LAST 141 06t2423 5C 070 C INDEX RUPTRECl 

C439 REF 1 06,2424 0 2745 C TC C33JNP 


4 LA5t 141 C6,2425 10 071 C NXTFL3J CCS RUPTREG2 PROCESS PCSSIELE ADDITIONAL CHANGES. 

3 LAST 141 06, 2426 I 2412 C TCF NXTIBT -1 


ClAR: 


REVISION 233 OF AUC PftCGRAM 


T4fiUP7 PRCGRAM 


0440 REF 

0441 REF 


t:17 AUG. 24tl9ee KCQLADt .064 PAGE l<t2 


gap; assembl e REV1SIQ^ 23? Ct- AGC PHCGBAM CQlOSSU^ bY NASA 202UU-C31 


L TAPIPI PPCGRAP UStft'S PAGE NO. 15 EO S3 


P0AA2 FPCQPAP AAPE: GECCKNCN 


kQA Ai F Lh niCAAL nesckl PTIQNI THIS PRCGPAP PCMTLPS THE CDUZ CQUMEP TO CETEPNtNE WHETHER THE ISS IS IN GIMBAL LOCK 
R0AA5 ANC TIKES ACTION IF IT IS. THREE REGICNS OF NIDOLE GIHBAL ANGLE (HGA) USEO; 


RQA47. 11 AflSIMfAl LESS THAN CP ECLIL TC 70 DEGREES - NORMAL HCDE. 

ROAAB ABSCMGAl GREATER THAN 70 CEGKEE S AND LESS THAN O R EQUAL TC 65 DE GREES - GIHBAL LOCK LAMP TURNED ON. 

P0A5C 31 ABSIMCA) GREATER THAN 65 EEGREES - ISS PUT IN COARSE ALIGN AND NO ATT LAMP TURNED CN. 


PQA52 CALLIKG SECUENCE? EVERY A8QJ*ILLIS£CCNCS AFTER C33TEST. 


R0A53 _ JC ES CR TASKS INITIATEO: NCNE. 

K0A5A SLEPCLTIiNES CALLEC: 1) SETCCARS WHEN ABStNGAl GREATER THAN 65 DEGREES AND ISS NOT IN CCARS6 ALIGN. 
RQA5G 21 LAMPTEST BEFORE TURNING OFF GIMEAL LCCK LAMP. 


HQAS7 EPISAELE I M T I AL I 2 A ? I CN : 

ROASe „ n FRESH start or restart WITH NO GROUPS ACTIVE; C(CCUZ) = Of IM0DES30 BIT 6 « Of IMCUE$33 BIT I « 0. 

R0A6O 2) RESTART W ITH GPCLPS AC TIVE: SAME AS FRESH START EXCEPT CICOUZl NOT CHANGED SO GIMBAL MONITOR 

PCAfc2 PROCEEDS AS BFFORE. “ 


RCA63 ALAPHS; 1) MCA R EGION (2» CALSES GIMEAL LOCK LAMP TO BE LIT. 

R0A6A 21 MGA REG ION (3) CALSES THE ISS TO BE PUT IN COARSE ALIGN AND THE NO ATT LAMP TO BE LIT IF EITHER NOT 

P0AA6 SC ALPS ACT. I 


CA67 

0A68 

REF 

1 



C6, 2A27 

1C 

0 3A 

1 

CLCCKMON 

CCS 

CDUZ 


REF 




06> 2A30 

1 

2A3A 

1 


TCP 

GLOC KCHK 

SEE IF MAGNITUDE OF MGA IS GREATER THAN 

0A69 

REF 

1 



06,2^31 

1 

2A60 

C 


TCF 

SETGIOCK 

70 DEGREES. 

0A70 

REF 


LAST 

IA2 

C6, 2A32 

1 

2A3A 

1 


TCF 

GLUC KCHK 



REF 

1 

LIST 

1A2 

C6,2A33 

I 

2A6C 

C 


TCF 

S6TGLCCK 















GA72 

REF 

1 



06,2A3A 

6 

2505 

C 

GLOCKCHK 

AO 

-700EGS 


CA73 





06* 2 A3 5 

0 

OOC6 

1 


EXTEND 



0A7A 

REF 

3 

LIST 

1A2 

06,2A36 

6 

2A5 7 

C 


aZMF 

SETC-LCCK -1 

NC LCCK. 


CA75 

REF 

1 



C6. 2437 

6 

25C6 

C 


AO 

-150EGS 

SEE 

IF 

A6SIHCA1 GREATER 

THAN 85 DECS. 


UA 76 





06. 24A0 

0 

Q0C6 

1 


EXTEND 







CA77 

REF 

1 



C6.2AAI 

6 

2A55 

1 


aZMF 

NLG INRUN 























UA 7 8 

REF 

12 

LIST 

136 

Q6«2AA2 

3 

A707 

c 


CAF 

bITA 

IF 

SO, 

SYSTEM SHOULD BE 

In coarse align 


0A7g 





C6, 2AA3 

0 

0006 

1 


EXTEND 


TO 

PREVENT GIMOAL RUN-AWAY. 


0A8C 

REF 

6 

LIST 

13S 

06 1 24AA 

02 

012 

c 


RAND 

CHANiZ 






CA81 

REF 

12 

LIST 

lA 1 

C6,2AA5 

1C 

000 

G 


CCS 

A 






CA82 

REF 

2 

LIST 

1A2 

06* 2AA6 

1 

2A55 

c 


TCF 

NCGIPPUN 







QA83 

REF 

A 

LAST 

13 S 

C6 * 2 A A ? 

0 A633 

C 

TC 

I BNKCALL 

GO INTO COARSE ALIGN. 

CASA 

REF 

1 



C6, 2A5C 

167A6 

C 

CAOR 

SETCCARS 













UA85 

REF 

1 



Ob* 2A5 1 

3 6211 

C 

CAF 

SIX 

ENABLE ISS ERROR COUNTERS IN 60 MS 

OAse 

REF 

A 

LAST 

135 

Ct* 2452 

C 51A (5 

1 

TC 

WAITLIST 
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0487 

REF 

3 

L^Sl 

136 

£3f 1474 



EBANKs 

CDUIKC 



0488 

REF 

1 



C6« 2453 

02742 

1 

2CAUR 

C A+ L C E 



. Q Aafl ^ 

Rif- 

__L_ 



Q6t2454 

16063 

J_ 





0469 

KEF 

J2 

LAST 

139 

06*2455 

3 4705 

1 

NCjGINRUN CAF 

BIT6 

TURN QN GIMBAL LOCK LAMP. 


04S0 

REF 

4 

LAST 

142 

06*2456 

1 2460 

C 

TCF 

SETCLCCK 















C4 91 

BEf 

4 

LAST 

1 4 C 

1 2 A 5 7 

3 47 14 

1 

“1 CAF 

ZERO 



0492 

REF 

6 

LAST 

130 

06*2460 

6 1036 

C 

SETGLQCK AD 

DSPTAB ♦110 

SEE IF PRESENT STATE OF GIMBAL LOCK LAMP 


_ ja^93__ 

REF, 

H 

LAST 

143 

06*2461 

7 4705 

c 

HASK 

01T6 

AGREES WITH DESIRED STATE BY HALF ADDING 


C494 





06*2462 

0 0006 

1 

EXTEND 


THE TWO. 


0495 

REF 

1 



06,2463 

1 5222 

t 

BZF 

GLOCKCK 

OK AS IS, 














0496 

REF 

7 

LAST 

143 

06*2464 

7 1036 

1 

HASK 

DSPTAB +110 

IF OFF* DCNT TURN ON IF (MU BEING CAGED. 


C497 

REF 

13 

L A S T 

142 

06*2465 

10 000 

c 

CCS 

A 



0498 

REF 

_L_ 



06*2466 

1 2502 

c 

TCF 

GLAMFTST 

TURN OFF UNLESS LAMP TEST IN PROGRESS. 














0499 

REF 

15 

LAST 

143 

06*2467 

3 4705 

1 

CAF 

B 1 T 6 



. 0 50O_ 

REF 


LAST 

138 

06*2470 

7 1320 

c 

HASK 

IMCDES30 



0501 

REF 

14 

LAST 

14 3 

06*2471 

10 000 

0 

CCS 

A 



0502 

REF 

2 

LAST 

143 

06,2472 

1 5222 

1 

TCF 

GLOCKCK 















0503 

REF 

8. 

JLAST 

143 

06*2473 

4 1036 

1 

GLINVERT CS 

DSMTAB +110 

INVERT GIMBAL LCCK LAMP. 


0504 

REF 

16 

LAST 

143 

06,2474 

7 4705 

c 

MASK 

aiT6 



C5C5 

REF 

12 

LAST 

136 

06,2475 

6 4674 

c 

AO 

b 1 1 1 5 

TO INCICATE CHANGE IN CSP1AB +IIO. 


0506 

REF 

9 

LAST 

143 

06,2476 

57*036 

c 

XCH 

DSPTAB +110 



0507 

REF 

1 



06, 2477 

7 2164 

1 

MASK 

0CT3 7737 



0506 

REF 

10 

LAST 

143 

06*2500 

27*036 

1 

ADS 

DSPTAB +U0 



0509 

REF 

3 

LAST 

143 

06*2501 

1 5222 

1 

TCF 

GLOC KCK 




05.10 R EF 1 C6t25C2 0 2750 1 GLAHPTST TC LAMPT6ST TURN OFF UNLESS LAPP TEST IN PROGRESS. 


0511 

REF 

4 LAST 143 06,2503 

1 5222 

1 


TCF 

GLOCKCK 


0512 

REF 

1 06,2504 

1 24T3 

I 


TCF 

GLINVERT 











0513 


06,2505 

63434 

1 

-70U6GS 

DEC 

-.38868 

-70 DEGREES SCALED IN HALF-REVOLUTIONS. 

0514 


06,2506 

75252 

C 

-15LEGS 

DEC 

-.08333 


- 










R 


R 


R 
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P0515 PFCCo/^ ^4^E: TtlN, __ 

A0516 FL^C TlC^i^L DESCrITtIQnI IHIS PRGGRAH HAIMAINS THE TEMP LAMP IBIT ^ CP CHANNEL lU ON THE D5KY TO AGREE hITH 

R0518 THE 7ENP SIG NAL FPCN THE ISS (BIT 15 CP CHANNEL 30y. HOWEVEPt THE IICHT WILL NO T BE TUPNEO OFF IF A LAMP TEST 

RC52C IS IN PPCGP ESS . 

7^0521 CALLINC SHUENCEi CALLEC BY IHUMCN ON A CHANGE OF BIT 15 (jF CHANNEL 30. 


«Q522^ J.CaJL C P TASKS iNITlATEC; NCNE. 


P0523 SLtPCniNES CALLEC: LA MPTEST . 

HC52A ERASABLE 1 M T 1 AL 1 2 AT ICN i FRESH STAPT AND RESTART TURN THE TEMP LAMP CFF~T 


RG5^t 

ALARM, 


TEMP LAMP 

TURNED CN 

WHEN IMU 

TEMP cces 

CUT OF 

LIMITS. 














R0527 

FAIT: 

NXT IFAIL 





















RC528 

CLIPL 1 * 

SERVICE CF 

TEMP LAMP 






IN A, EXCEPT FOP TLIM. 













_ ja5iLC__ 

REF 

1 



Ofc.2507 

7 4672 

1 

TLIM 

MASK 

PCSMAX 

REMOVE BIT FROM WORD OF CHANGES AND SET 

0531 

REf 

5 

LAST 

141 

C6f 2510 

54 071 

C 


TS 

RUPTReG2 

DSKY TEMP LAMP ACCORDINGLY. 













C.532_ 

REF 

n 

LAST 

IA3 

C6. 25U 

11*320 

c 


CCS 

IMOOES30 


0533 

REF 

1 



06, 2512 

1 2520 

c 


TCF 

TFMPCK 


0534 

REF 

2 

LAST 

144 

C6.2513 

1 2520 

c 


ICF 

TEMPCK 














0535 

REF 

13 

LAST 

142 

Q6t25l4 

3 4707 

c 


CAP 

PI T4 

TORN CN LAMP. 

0536 





06,2515 

C 0006 

1 


EXTEND 



0537 

REF 

1 



06,2516 

05 on 

1 


MOR 

DSALMCUT 


0538 

REF 

1 



06,2517 

1 2227 

c 


TCF 

NXTI f AIL 














. Oils 





IA3 

06,2520 

0 2 7 50 

1 

TEMPOK 

TC 

LAMPTEST 

IF TEMP NOW OK, OONT TURN OFF LAMP IF 

0540 

REF 

2 

LAST 

144 

06,2521 

1 222 7 

c 


TCF 

NXTI FAIL 

LAMP TEST IN PRCGRESS. 













Q541 

R_LF 

JLA 

LAST 

144 

C6*2522 

4 4707 

1 


CS 

BIT4 


0542 





06,2523 

0 0006 

1 


EXTEND 



C543 

REF 

2 

LAST 

144 

06,2524 

03 011 

1 


WAND 

OSAL MtUT 

TURN GFF TEMP CAUTION 

0544 

REF 

3 

LAST 

144 

06,2525 

1 2227 

c 


TCF 

NXTI FAIL 
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T^PLPI PPCCRAM 


USER'S PAGE NG 


18 


EO S3 


PC5^5 PPCGP/f NAPE: ITLRhCN* 


Ril54ii_ FLACTICNAL CESCRIPTICK; THIS PPCGRAM IS CALLED BY IHUMON WHEN A CHANCE OF BIT 14 OF CHANNEL 30 U SS TUPN-QN 
RC5Ae RtC<.ESll IS DETECTEC. UPCN ENTRY, I TURNCN CHECKS IF A TUR N-CN DELAY SEQUENCE HAS FAILEC, ANU IF SO, IT EXITS. 

KGIjSG if not, it checks whether the turn-on PEGUE ST change is to CN CR CFF. if on, it sets bit 7 OF IM00ES30 TC 1 SC 

>-U5!>2 THAT TNCNTEST WILL INITIATE THE ISS INITIALIZATI ON SEQUENCE. IF CFF, THF fURN-ON DELAY SIGNAL, CHANNEL 12 bIT 

rsC55A 15, iS CHECKED ANC IF IT IS CN , ITURNCN EXITS. IF THE DELAY SIGNAL IS OFF, PROGRAN ALARM 00207 IS ISSUED, BIT 2 

K055fc CF IHCCES3C IS SE T TC 1 ANC THE PRCCRAP EXITS. 

K5557 THE SETTING CF BIT 2 CF INCDES30 < ISS DEL AY SEQUENCE FAILI INHIBITS THIS HCUHNE AND IMUGP FROM 

. G55S PPCC6SS1 NG ANY CH ANGES. THIS BIT WILL EE RESET BY THE ENDTNCN ROUTINE WHEN THE CURRENT 90 SECOND DELAY PERIOD 
BQ561 ENCS. 


-i.562 CALLING SECUENCE: FRCP IPUPCP WHEN ISS TURN-CN REQUEST CHANGES STATE. 


fiQ_56a JCES CP TASKS INITiATEPi NONE. 

Rl56A SLEPCLTINES CALLEC: ALARP, IF THE ISS TURN-ON REQUEST IS NCT PRESENT FOR 90 SECONDS. 

1^566 ERASABLE 1 M T 1 AL U AT I CN : FRESH START ANO RESTART SET BIT 15 CF CHANNEL 12 AND" BITS 2 AND 7 OF IMCDeS30 TC 0, 
80568 ANC BIT lA CF lMCCe530 TO 1. 

RQ569 ALAPPS : PPOGRAM ALARP 00207 IS ISSUED IF THE ISS TURN-ON PECUEST SIGNAL IS NCT PRESENT FOR 90 SECONDS. 


Ky5L7A EXIT: NXTIFAU. 


RG572 

R057A 

QLIFL T : 

EIT 7 

OF 

IPCCES30 TC 

STAR! 

ISS 

INI IlAL12ATiCN, 

OR BIT 2 CF 

IMODESaO AND PflCGRAP ALARM 00207 TO INDICATE 

A FAILED 

TLRN- 

CN SEQUENCE. 



















C575 

REF 

1C 

LAST 

137 

C 6, 2 526 

3 

4711 

1 

ITURNQN CAF 

blT2 

IF DELAY PECUEST HAS GCNE CFF 

U5 76 

REF 


LAST 

144 

C6,2527 

7 

1320 

0 

MASK 

IMCuESaO 

PREMATURELY, DC NCT PROCESS ANY CHANGES 

0577 

REF 

15 

LAST 

143 

06,2530 

10 

000 

c 

CCS 

A 

UNTIL THE CURRENT 90 SEC WAIT EXPIRES. 

0576 

REF 

4 

LAST 

144 

C6,253l 

1 

2227 

0 

TCF 

NXTI FAIL 














0579 

REF 

18 

LAST 

136 

06,2532 

3 

4675 

! 

CAH 

BITl 4 

SEE IF JUST ON CR OFF. 

C58C 

REF 

19 

LAST 

143 

C6,2!33 

7 

1320 

c 

MASK 

IM0DES30 


0581 





C 6 # 2 5 3 4 

0 

00C6 

1 

Extend 



0582 

REF 

1 



06,2535 

1 

255 1 

c 

BZF 

nUPNCN2 

IF JUST ON. 













0563 

REF 

13 

LAST 

14 3 

0 6 1 2 S 3 6 

3 

4674 

c 

CAF 

BlTl 5 


0564 





C6, 2537 

0 

0006 

1 

EXTEND 


SEE IF DELAY PRESENT DISCRETE HAS BEEN 

0585 

REF 

7 

LAST 

142 

G6,2540 

02 

012 

c 

RAND 

CHAM2 

SENT. IF SC, ACTICN COMPLETE. 

C586 





06,2541 

0 

00C6 

1 

EXrEND 



0567 





06,2542 

i 

2544 

I 

BZF 

♦ 2 


0568 

REF 

5 

LAST 

145 

C6,2543 

1 

2227 

c 

TCF 

NXTIFAIL 














C589 

REF 

1 1 

LAST 

145 

C6, 2544 

3 

4711 

1 

CAF 

8IT2 

IF NOT, SET BIT TO INDICATE REQUEST NClT 

C590 

REF 

2C 

LAST 

14* 

06,2545 

27 

*320 

c 

ADS 

IHODES20 

PRESENT FOR FULL DURATION. 

C59i 

REF 

2 

LAST 

13 7 

C6,2S46 

0 

55 3 7 

c 

tc 

ALARP 


C592 





C6,2S47 

CC2CT 

1 

50 

T57 


0593 

REF 

6 

LAST 

14 5 

C6,255C 

1 

2227 

0 

TCF 

NXT 1 FAIL 



REViSlQft Of k&C PROQfiAW COLOSSUS DY NASA 2Q21111-C31 1 : 17 AUG, 24tl96a KCCLAOE .06A PAGE 


L T<iPLPl PPjCtRAH USER'S PAGE NO. 19 EO S3 


059^ 

REf 

a 

LAST 

14 S 

06i255l 

A 1320 

C 

ITURNGN2 CS 

I^'UDes^o 

SET eiTT TO INDICATE RAIT OF 1 SARPLE 

0595 

REf 

lA 

LAST 

137 

06*2552 

7 97C4 

1 

MASK 

B1T7 


C59fe 

REl 

-J.2- 

LAST 


C6t2553 

27*320 

C 

AOS 

I^*0DES3O 


0597 

REF 

7 

LAST 

145 

C6,2554 

1 2227 

c 

TCF 

NXTI FAIL 



1:17 AtG. 24fl96e KCCLAOE .064 P*CE 1^7 


GAPi ASSg^BLE REVISION 2 37 CP AGC PRCGflAiM CGICSSUS BY NASA 2021111-C31 

L T^FIPT FPCCPAM ~ USER'S PACE NC. 20 EO S3 


PC59b 

PPCGR/F fcAFE: IPktAGE. 























-Acass 

- flJ>CllChAL DESCRIPT 10^: THIS PRCGPAH 

PPQCESSES 

cha n ge s 

OF THE IHUCAGE 

INBIT. CHANNEL 3C 

an 

ll. IF THE 

e IT 


R0601 

CHANGES TC 0 (CAGE BUTTON PRESSEOlt THE ISS IS 

CAGEO 

( ICUU ZERO + CCARSE 

ALIGN ♦ NO ATT 

LAMP! 

UNTIL THE 



RC6C3 

ASIFCNALI SELECTS APCTHER PPCGRAH TC 

ALICN THE 

ISS. 

ANY 

PULSE TRAINS 

TO 

THE ICOU'S AND 

GYRC 

S ARE TERHINATEC, 


k0605 

THE ASSOCIATED OUTCCUNTERS ARE ZEPCEC 

AND THE GYRO'S 

AP E 

DE- SELECTED. 

NO 

ACTION OCCURS 

»(HEN 

THE BUTTON 

IS 


P06C7 

PELfASEC (INEIT CHAhGES 























AC6M 

CALLJHC SECUENCE: BY IPUHCN PHEN IHU 

CAGE BIT 

changes. 









R0609 JCeS CP TASKS INITUTEPt NONE. 


RC61C SLfiFCniNES C4LLEC: CA GES IE . 

R061I EPASaTlI IMTIALI 2AT1CN; FRESH START AND RESTART SET BIT 11 OF IMOCESIO 70 1. 
RC613 ALAPPS : ^ 


E>n« h>11FAlL. 













RQ6i5 

CLTPLT: 

ISS 

CA.GEC, 

CLUNTERS 

2 E ROEC • 

PULSE TRAINS TERMINATED AND 

NO ATT LAMP LIT. 


0617 

REF 

16 

LAST 

1A5 

06t2555 

1C 000 

C IMUCAGE 

CCS 

A 

NO ACTION IF GOING OFF. 

0618 

REF 

1 



Q6t2S56 

1 2356 

C 

TCF 

I SSZERO 


0619 

REF 

1 



06,2557 

4 2762 

1 

CS 

OCT77000 

TERMINATE ICOU , CPT ICS, GYRO PULSE TRAINS 

0620 





06,2560 

0 0006 

1 

EXTEND 



0621 

REF 

1 



06,2561 

03 016 

1 

NANO 

CHAM6 













0622 

REF 

1 



06,2562 

6 2756 

C 

CS 

OCT272 

KNCCK CONN TVC ENABLE, IMU ERROR COUNTER 

0623 





06,2563 

0 0006 

1 

EXTEND 


ENABLE, ZERC ICOU, COARSE ALIGN 

0626 

REF 

e 

LAST 

162 

C6,2566 

03 012 

1 

HAND 

CHAN 12 

ENABLE, OPTICS ERR CNTR ENABLE 












^625 

_.R£F A1 

LiST 

1^1 

06.2565 

6 6676 

0 

CS 

BIT13 

TURN CFF ENGINE 

0626 





06,2566 

C 00C6 

1 

EXTEND 



C627 

REF 

7 

LAST 

16 6 

C6,2567 

0 3 on 

1 

NAND 

OSALMCUT 













062 8 

REF 

1 



C6,2570 

C 2725 

c 

TC 

CAGESUei 













0629 

REF 

5 

LAST 

162 

C6.257 1 

0 6633 

c 

TC 

IBNKCALL 

KNOCK OOV^N TRACK, REFSMMAT, DRIFT FLAGS 

Cb3C 

REF 

1 



06,2572 

16777 

1 

CAOP 

rndr efdp 













C631 

REF 


LAST 

162 

C6,2S73 

6 6716 

c 

CS 

ZERO 

ZERO COMMANC CCT-COUNTERS 

0632 

REF 

1 



C6,2576 

56 050 

c 

TS 

CDUXCHC 


0633 

REF 

1 



06,2575 

56 051 

i 

TS 

XOUVCNC 


C636 

REF 

1 



06,2576 

56 052 

1 

ts 

C0U2CMC 


0635 

REF 

1 



06,2577 

56 067 

c 

TS 

GYRCCPC 













0636 

REF 

1 



06,2600 

6 2761 

I 

CS 

CCT76C 

having VvAITEC at LEAST 27 KCT FROM 

C637 





06,2601 

d 0006 

1 

EXTEND 


Gyro pulS^ train termlnation, we can 

C63e 

REF 

2 

LAST 

167 

06,2602 

03 0 l6 

1 

Vi A NO 

CHANIA 

OE-SELfCT THE GYROS. 


UAPJ^ ASSFHBLg ftfiVlSlQh 221 QF AGC PKCGRAM COLOSSUS BY SA 202II11-C31 

L T^FlPf FPJCCRAN^ ~ 

06J9 REF 8 lTsT Tm G6.26Ci 3 1 222? C TCF NXTIFAll 


ltl7 AUG. 2A.1968 KCOLADE ,064 PAGE IA8 

USER* S PAGE NC, IT EO 53 



uiip; A SSEMBLE ftEVlSlCh 227 CF AGC PRCGRAH COLOSSUS bY NASA 202I111-C31 


l;17 AUG, 2^tiq68 KCQIAOE .064 PAGE 1^9 


L 

t^rcpt fpcgram 

USER'S PAGE 

NC. 22 

EO S3 









FCt^C 

PRCCPAf NAFE,; IHLCP. 













. _ JiQ (i<lL _ 

JLUATlIJChAL DESClUFTICNs THIS PRCGRAH 

PROCESSES CHANGES IN THE ISS CPEHATE DISCRETEf 

b IT 

9 OF CHANNEL 

30. 



IF THE INBIT CHANGES TC 0, INCICATING 

ISS ON. IMUOP GENERALLY SETS BIT 7 CF IHQDES30 

TO 1 TO REQUEST 

I SS 


R0645 

IMTIALIZATICN VIA TNCNTEST, AN EXCEPTION IS DURING A FAILEC ISS DELAY DURING WHICH 

PIT 

2 OF IM0DES30 IS SET 


R U 6 A 7 

TC 1 AND NC FURTHER IN I T I A L IZ A T lUN IS 

REGUIREC. WHEN THE INGIT CHANGES TC 1. INDICATING 

ISS OFF, IMUSEFLG IS 



TESTEC TC SEE IF ANY FROGRAR WAS USING 

THE ISS, IF SO. PROGRAM ALARM 002iA IS ISSUED 

• 











ROAlSI 

CALLING SECUENCE; BY IRURCN WHEN BIT 

9 OF channel 3C CHANCES- 












Rg6 52 

jces CP 1ASKS initiated: NCNE« 













HQtS3 

SLEPCniNES CALLEt: ALARR, IF ISS IS 

TURNED OFF WHILE IN USE. 






RC 654 EPASAELE 1 M T 1 AL 1 Z A T I C N i CN FRESH START ANC R ESTART. BIT 9 CF IM00ES30 IS SET TO I EXCEPT WHEN THE GIHBAL LOCK 

RC65<) LAFF IS CAf IN WHICH CA SE IT IS SET TC 0. THIS PREVENTS iCDl ZERO BY TNONTEST WITH THE ISS IN GIH 8AL LOCK, 

RQfaSfl ALAFPSI FFQGPAM fLARW 0021^ IP THE ISS IS TORNEO OFF WHILE IN USE, 

R065S EAlTi NXT IFAU. 


P0E60 

QLTPL T : 

JiS 

INIT lALIZATICN 1 

RXGLEST 

< IMC0ES30 BIT 7J OP 

PROGRAM ALARM 

002 lA- 












0662 





06.26CA 

0 0006 

1 

IMUOP EXTEND 


IF OPERATE JUST ON, WAIT 1 SAMPLE. 

06 63 

REF 

1 



06.2605 

1 2625 

C 

ezF 

I MU0F2 













C 6 6 

M F 

_i£_ 

LAST 

lAl 

06.2606 

9 1321 

1 

cs 

I M0DES33 

DISABLE DAP 

0665 

REF 

17 

LAST 

1 A 3 

C6,2607 

7 9705 

C 

MASK 

cne 


0666 

REF 

1 1 

LAST 

IAS 

06.2610 

27*321 

1 

AQS 

IM0DES33 













0667 

REF 

6 

LAST 

1A7 

C6f 2611 

0 9633 

0 

TC 

IBNKCALL 

KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS 

0666 

REF 

d 

LAST 

lA 7 

C6.2612 

16777 

I 

CADR 

RNDP EFCR 













0669 

REF 

2 

LAST 

137 

06. 2613 

A 2757 

1 

CS 

BITS7e8 

KNOCK DOWN PENDEVQUS, IMUUSE FLAGS 

U67C 

REF 

16 

LAST 

139 

0 6 t 2 6 1 ^ 

7 0079 

c 

MASK 

STATE 


0671 

REF 

17 

LAST 

199 

G 6 f 2 6 1 5 

56 07A 

1 

XCH 

state 

IF GCING OFF, ALARM IF PRCC USING IMU 

0672 





06,2616 

A 0000 

0 

COM 



0673 

REF 

*3 

LAST 

139 

06,261? 

7 A7C3 

c 

MASK 

TMUSEFLG 


067A 

REF 

17 

LAST 

IA7 

06.2620 

IC oco 

c 

CCS 

A 


0675 

REF 

S 

LAST 

lAe 

C6.262I 

1 222? 

c 

TCF 

NXT I FAIL 













0676 

REF 

*3 

LAST 

1 A 5 

06,2622 

0 5537 

c 

TC 

ALARM 


C6T7 





06,2623 

0C21A 

c 

OCT 

21A 


0678 

REF 

IC 

LAST 

IA9 

C6. 2 62A 

1 222 7 

c 

TCF 

NXTI FAIL 













C679 

REF 

12 

LAST 

1 A5 

06,2625 

3 A711 

1 

IMUCP2 CAF 

bIT2 

SEE IF FAILED ISS TURN-ON SEQ IN PROG. 

0660 

REF 

23 

LAST 

IA6 

06,2626 

7 1320 

c 

MASK 

IM0DES3C 


0661 

HEF 

16 

L^ST 

199 

06,2621 

IC GCC 

c 

CCS 

A 


0662 

REF 

11 

LAST 

1A9 

06,2630 

1 2227 

c 

TCF 

NXT I FAIL 

IF SC, OQNT PROCESS UNTIL PRESENT 90 

0683 

REF 

2 

LAST 

1A5 

06,2631 

i 2551 

0 

TCF 

ITUKNCN? 

SECONDS EXPIRES. 


4 


GAPS- Ay; $E»aLE BPVISIDN in Cf AGC PRQGflj>M COLOSSUS BY NASA 2u2Ull-C31 I rJu? . ± IjM KCQLADE .064 P4GE 150 

L T^PCPl PflCCRAH USER’S PAGE NC. 23 EO S3 

pa6 8'‘t pFcgF/TTaTes p iffa u ~ 

RQ 6 fl 5 FLh C riCNAL DESCRIPTION: THIS PRCGPAM PPCCESSES CHANGES OF blT 13 OF CHANAEl 33t PIPA FAIL. IT SETS BIT 10 OF 

RU687 IPC0ES2O TC AGREE. IT CALLS SETISSh I N CASE A PIPA FAIL NECESSITATES AN ISS WARNING. IF NOT,I.E.» IMCDES30 

RC6E9 BIT I = It and A FIFA FAIL IS PRESENT AND TFE ISS IS NOT BEING INITIALIZED, PROGRAf* ALARM 00212 IS ISSUED. 

P0691 CALIINC sequence: BY C33TEST CN CHANGES GF CHANNEL 33 BIT 13. ~ ” 

RCtS2 JCE S CP TA<K£ INITIATEDi tJLNi-i 

RQc93 UB POL TINES CALL EC: TPSEIISSW, AND 2) ALARM (SEE FUNCTIONAL DESCRIPTION) . 

P 0 695 ErTsAELE IMTIALIZATICN: see tPUHCN FOR IN I T I AL IZAT ION OF 1NGDES30. THE RELAVANT BITS ARE 5, 7, 8, 9, AND 10. 

11116 S7 _ AlARNSi PROGRAM ALARN OQ212 IF PIPA FAIL IS PRESENT BUT NEITHER TSS WARNING IS TO EE ISSUEO NOR THE ISS IS 
Rg699 B EING INITIALIZED# 

P07CC EX nt N>Tfl33 . . . 


R0701 OLlFLl: PROGRAM ALARM 00212 AND ISS EARNING MAINTENANCE. 


0702 

REF 

19 

LAST 

14S 

06,2632 

10 OOQ 

C 

PIPFAIL CCS 

A 

SET EITIO IN IMC0ES30 SO ALL 

ISS 

WARN ING 


0703 

REF 

12 

LAST 

61 

06,2633 

3 4 701 

C 

CAP 

BITIC 

INFO IS IN ONE REGISTER. 




0704 

REF 

_JA. 

LAST 

14S 

06,2634 

57*320 

1 

ACH 

1M0DES3C 





07C5 

REF 

1 



06,2635 

7 276 3 

C 

MASK 

-R1 T 10 





0 706 

REF 

25 

LAST 

15C 

C 6 f 2^36 

27*320 

c 

AOS 

i MOOES 30 



















0707 

RtF 

m 

£ 

LAST 

13 E 

C6, 2637 

0 2665 

c 

TC 

SETl SSW 



















0708 

REF 

It 

LAST 

15C 

Q6.2640 

4 1320 

c 

cs 

IM0aES30 

IF PIP fail DCESNT LIGHT ISS 

WARNING, DC 


C709 

REF 

11 

LAST 

6 2 

06,2641 

7 9712 

c 

MASK 

PITI 

A PROGRAM ALARM IF IMU OPERATING 

BUT NOT 


0710 

REF 

2C 

LAST 

1 5C 

06,2642 

1C 000 

c 

CCS 

A 

CAGED CR BEING TURNED ON. 




0711 

REF 

1 



06,2643 

1 2425 

1 

TCP 

NXTFL33 



















Q712 

REF 

27 

LAS! 

15C 

06,2644 

3 1320 

1 

CA 

IMCDES50 





0713 

REF 

1 



06,2645 

7 2 7 60 

c 

MASK 

UCl 1720 





0714 

REF 

21 

LAST 

15 C 

06,2646 

1C COO 

c 

CCS 

A 





0 715 

REF 


LAST 

15C 

06,2647 

1 2425 

1 

TCF 

NNTFL33 

ABOVE CONDITILN NOT MET. 


















Clio 

REF 

4 

LAST 

149 

06,2650 

0 5537 

c 

TC 

ALARM 





0717 





06,2651 

0G212 

c 

OCT 

212 





0710 

REF 

-a 

LAST 

15C 

06,2652 

1 2425 

1 

TCF 

NXTF L33 






UAP; 


li n AUG. 2^. 1966 KOOLAOE -06A PACE 151 


ASSEMBLE REV ISICN 237 LF ACC PPCGPAW CQLCSbUS HY NASA 2021111-031 


L 

T^PCPl PBCGRA** 






USER'S PAGE NO. 24 £0 S3 














P0719 

PPCCfl^P 

NAPES: 

DNTRFAST, LPTRFAST 


















-H.ai20 ^ 

-FijLcriXAiU— celSCE-LPTIC^; I-kese prcgraps 

PROCESS CHANGES OF BITS 12 

AND 11 OF CHANNEL 33. IF A 

BIT CHANGES TG A 


R0722 

0« A 

FPCCPAH ALARR IS ISSLEO. 

THE ALARRS ARE: 

















JJ1.123 



B IT 

ALARM 

. CALSE 






BC72^ 












P0725 



12 

011C5 

DCRNLINN TOO FAST 





Rg726 



n 

011C6 

DPLINK 

TOO FAST 






P0727 

CALL UC 

SE5UENCE: EV C33T65T 

ON A BM 

CHANGE. 

















R072e 

SlEPCniNES CALLEC: 

ALARR, IF A bit CHANGES TO A 0. 

















_SQ12S_ 

epasaele 

IM7IALI2ATICN: FRESH START CP RESTART, BITS 

12 AND 11 OF 

IROOES33 ARE SET TO 1. 















R07il 

A L A F M ! : 

SEE FliNCllCNAL DESCRIPTION. 


















P0732 

E>« n 

: RX7fL33 

4 







^ 












1 

Ri3 73J 

QiTpn » 

FPGGRAH ALARR QN A BIT CHANGE 

TO 0. 

















Q73A 

REF 

22 

LAST 

15C 

06,2653 

10 000 C 

DNTRFAST CCS 

A 

DC PRCC ALARM IF TM TOO 

FAST. 


0735 

REF 

A 

■ last 

15C 

06,265^ 

1 2A25 1 

TCF 

NXTFL33 
















0736 

REF 

c 

LAST 

15C 

06,2655 

0 5537 C 

TO 

ALARR 




Q737 





06, 2656 

cues 1 

OCT 

1105 




C738 

REF 

5 

LAST 

151 

06,2657 

1 2A25 1 

TCF 

NXTFL33 
















_ - .fl73S 

MF 

23 

-LAST 

JL5JL_ 

Q6,266C 

10 COG 0 

UPTRFAST CCS 

A 

SAME AS DNLINK TOC FAST 

nITH DIFFERENT 


07<*0 

REF 

6 

LAST 

15 1 

06,2661 

1 2<i2S 1 

TCF 

NXTFL33 

ALARR CODE. 
















REF 

6 

-L-AST 

J 5 1 

06,2662 

0 5537 C 

TC 

ALARR 




07^2 





06,2663 

011C6 1 

OCT 

1 106 




0743 

REF 

7 

LAST 

15 1 

06,266A 

1 2A25 1 

TCF 

NXTF 133 





GAJJ : A SllJiBL E REWISICK 237 QF AGC PKCGRAH COLOSSUS BY NASA 2021111-C31 UU flLG. 2^,1966 KCOLADE _.064_ PAGE 152 


L T^HPT PHOCRAM USFR'S PAGE NG. 25 EO S3 


P07A4 PPCGPiP NAPE: SEUSS^t 

RQ f I ^C T 1 CiLAL CESCRfPTlCM TPtS PPLGPAW TURNS THE ISS WAPNIKG LA^^P ON AND OFF (CHANNEL 11 SIT I ■ J F OR ON, 

R 07^7 C FCR CFF) GEPENOlNq QN THE STATUS OF IHODES 30 BITS 13 (IMU FAU) AND 4 (INHIBIT INU FAIL), 12 (ICDU FAIL) AND 
RQ 7 AS 3 (INFIBIT ICDL FAR), ANC 10 (PIPA FAR) AAO I (INHIBIT PIPA FAIL). THE LAHP IS LEFT CN IF A LAMP TEST IS IN 

RQ751 PPCCR ESS, 


PQ752 CAELIFG SEGUENCti CALLEC BY IMUMON ON CHANGES TO IMU FAIL ANC ICDU FAR. CALLED 8V IFAILCK AND PFAROK UPON 

R075^ REFCV il CF THE FAIL INHIBITS. CALLED BY PIPFAIL WHEN THE PIPA FAR DI SCRE TE CHANGES. IT IS CALLED BY PIP USE 

R0756 SINCE IHE FIPA FAR PPCGHAM ALARM MAY NECESSITATE AN ISS EARNING, AND LIKEWISE BY PIPFREE WHEN THE ALARM DEPARTS 

R(j 758 ANC 11 IS CALLED BY IMUZEPC3 ANC ISSUE AFTER THE FAR INHitITS HAVE BEEN REMOVED. 


RC760 JCBS CF TASKS INlllATECt NCNE. 
R C 7 6i i L t PCL 11NES CALLED NCNE. 

PU762 ERASABLE I N 1 T 1 AL I 2 A T I CK t 


R0763 U IMCDES30 - SEE IMUMCN. 

R07e^ 21 1HCDES33 BIT I ■ 0 RAMP TEST NCT IN PROGRESSI. 


R0765 ALARMS! ISS WARNING. 

) 

i 

R-Q 7 E E E >±U _V lA C . ^ i 


K07t7 GCTPLll ISS WARNING LAMP SET PPCPERLY. 


C7t8 

REF 

1 



06,2665 

3 9720 

c 

SET ISSW 

CAF 

OCTl 5 

SET ISS WARNING USING THE FAR BITS 

IN \ 

C76S 

REF 

28 

LAST 

ibC 

06,2666 

7 1320 

c 


MASK 

IHCDeS30 

BITS IJ, 12, ANC 10 OF IM0DES30 AND 

THE 1 

0770 





<:6, 2667 

0 0006 

1 


EXTEND 


FAILURE INHIBIT BITS IK POSITIONS 

r 

C771 

REF 

13 

LAST 

15C 

06, 267C 

7 9701 

1 


HP 

E I T 1 0 

9, 3, AND 1. 

t 

C772 

REF 

29 

LAST 

152 

C6,2671 

3 1320 

1 


CA 

IMCDES3C 


I 

0773 





06,2672 

0 Q0C6 

1 


EXTEND 



f 

C 774, 

REF 

5 

LAST 

l^C 

06,2673 

09 OCl 

1 


ROR 

LC H A ^ 

0 INDICATES FAILURE. 

» 

F 

t 

1 

0775 





06,2679 

9 OCOO 

c 


COM 




C776 

REF 

1 



06,2675 

7 9762 

1 


MASK 

OCTl 5000 


v: 

C777 

REF 

2A 

LAST 

L5 1 

C6,2676 

iO oco 

c 


CCS 

A 


\ 

0778 

REF 

1 



06,2677 

1 2710 

1 


TCF 

I SSWCN 

FAILURE. 

%' - 

4 

C779 

REF 

12 

LAST 

1 5( 

06,2700 

3 97 12 

1 

ISSWCFF 

CAF 

BITI 

OCNT TURN OFF ISS WARNING IF LAMP TEST 

C780 

REF 

12 

LAST 

199 

06,2701 

7 1321 

1 


MASK 

I NC10ES33 

IN PROGRESS. 


0761 

REF 

25 

LAST 

152 

C6,27G2 

R 000 

c 


CCS 

A 


\ 

0782 

REF 

3 

LAST 

130 

C6,27C3 

0 0002 

L 


TC 

Q 


1 

t 

0 783 

R_£F 


LAST 

152 

06,2709 

9 9712 

C 


CS 

BIT! 



078A 





06,2705 

0 0006 

1 


EXTEND 



t 

0785 

REF 

A 

LAST 

197 

06,2706 

03 011 

1 


WANQ 

dsalmcut 

TURN OFF ISS WARNING 

1 

r-. 

0 7 66 

REF 

A 

LAST 

152 

06,2707 

0 0002 

c 


TC 

a 


6* 

0787 





G 6 f 2 7 1 G 

0 0006 

1 

ISSWQN 

EX I END 
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C7871 

07672 

REP 

REF 

1 



C6,27U 

22 066 

1 


^,XCH 

1 TLMP6 


1 



06,2712 

0 5653 

1 


TC 

V apalafm 

TELL EVERYONE i^FAT CAUSED THF ISSWARNING 

u 7 e 2 i_ 

RE f ■■ 

L4ST 

152 

06,2713 

3 A712 

1 


CAF 

BIT 1 


C768 





06, 271A 

0 CQC6 

1 


EXTEND 



0769 

REF 

5 

L4S7 

152 

06,2715 

OS Oil 

1 


WOR 

OSALMCUT 

TURN ON ISS WARNING 

C79<; 

REF 

2 

LAST 

153 

C6,27U 

0 0066 

1 


TC 

I TeMP6 


C7S1 

REF 

1 



06,2717 

A 7703 

c 

CAGESUF 

CS 

lilTl 5+6 

SET OUTBITS + INTERNAL FLAGS FOR 

C7S2 





C6,272C 

0 0006 

1 


EXTEND 


SYSTEM TUPN-CN CR CAGE. DISABLE THE 

C793 

REF 

9 

LAST 

1 A 7 

C6,2721 

0 3 012 

1 


WAND 

CHAM2 

ERROR counter ANO REMOVE I^U DELAY COMP. 

b7 9A 

REF 

m 

1 

LAST 

136 

C6, 2722 

3 A722 

1 


CAF 

eiTSACS 

SEND ZERO AND CCAR5E. 

C7S5 





06,2723 

0 CQC6 

1 


EXTEND 



0796 

REF 

10 

LAST 

1 53 

C6,272A 

05 012 

1 


ROR 

CHAM2 














0797 

REF 

1 1 

LAST 

1 A3 

06,2725 

A 1036 

1 

CAGES081 

CS 

OSPTAB +110 

TURN CN NO ATT LAMP 

iLlAQ _ 

_Rfi_ 

l_ 



06,2726 

7 2753 

€ 


MASK 

OCAOCIO 


0799 

REF 

12 

LAST 

153 

06,2727 

27*036 

1 


ADS 

OSPTAB +110 














- 06 QCL 

A£F_ 

, ■ I .L . . 

LAST 

152 

06.2730 

A 1320 

_£_ 

CAGESUB2 

CS 

I«00fcS30 

SET FLAGS TO INCICATE CAGING OR TURN-ON 

0801 

REF 

1 



06,2731 

7 2755 

C 


MASK 

OCT75 

AND INHIBIT ALL ISS WARNING INFO 

0802 

REF 

2 1 

LAST 

153 

06,2732 

27*320 

C 


ADS 

IMCJDES3C 














cec3 

REF 

13 

LAST 

15 2 

06,2733 

A 1321 

1 


CS 

1 MOOES 33 

DISABLE DAP ACTG ANO HCLO MOOES 

oecA 

REF 

10 

LAST 

1A9 

06,2 73A 

7 A7C5 

0 


MASK 

bIT6 


0005 

REF 

lA 

LAST 

153 

C6,2735 

27*321 

1 


ADS 

lMU0tS33 














0006 

REF 

5 

LAST 

15 2 

06,2736 

0 0002 

0 


TC 

Q 














0807 

REF 


L AS^T 

15C 

06,2665 



IHOFAIL 

EQUALS 

SET I SSh 


oece 

REF 

A 

LAST 

153 

C 6 9 2 66 5 



ICOUFA (L 

EQUALS 

SET ISSW 




i 

i 


4 

1 
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poeog JLHP TABLES A^D CC^STA^^S. . ~ ' 


C8 1C 

ILEI 




Qfc.2737 

1 2526 

C 

IFAILJHP 

TCP 

I TURNON 

CHANNEL 30 CISPATCH. 

can 

REP 

1 



C6.2740 1 2665 

1 


TCP 

IMUF AIL 


C612 

REP 

X 



06t27<>i 

1 2665 

1 


TCP 

ICDUFAIL 




1 



06*2742 

I 2555 

1 


TCP 

IMUCAGE 


cei^ 





06,2743 

764CC 

1 

30KCRSK 

OCT 

7640C 

(BIT 10 NOT SAMPLED HEPEl . 

0815 

REF 

1 



06,2744 

1 2604 

c 


TCP 

IMUOP 














Q8I6 

REP 

1 



06,2745 

1 2632 

0 

C33JHP 

TCP 

P IPP A IL 

CHANNEL 33 DISPATCH. 

0617 

REP 

1 



06,2746 

1 2653 

1 


TCP 

DNTMFAST 


caia 

REP 




06,2747 

1 266C 

1 


TCP 

UPTMFAST 














R0819 



SOBRCCT 

TO SKIP IF 

LAKP 

TEST 

NOT IN 

PROGRESS 



0820 

REF 

IL 

LAST 

153 

06,2750 

4 1321 

1 

LAMP TEST 

CS 

IHCDES33 

flIT 1 CF IMCDbS33 = 1 IF LAMP TEST IN 

C821 

REP 

15 

LASl 

153 

06,2751 

7 47 12 

C 


MASK 

BITl 

PROGRESS. 

0822 

REF 

1 



06,2752 

1 3065 

C 


TCP 

20PF IN3 














C823 

REP 

1 



4763 



33RCRSK 

EQUALS 

PRIG 16 


082^ 





06,2753 

40010 

1 

CC40010 

OCT 

4001C 


0826 





06,2754 

CCC54 

C 

CCT54 

OCT 

54 


0627 





06,2755 

00075 

c 

CCT75 

OCT 

75 


0826 





06,2756 

00272 

c 

CCT272 

OCT 

00272 


C82S 





06,2757 

C0300 

1 

aiTS7€8 

OCT 

300 


C83C 





06,2760 

017 20 

c 

OCT 1720 

CCT 

172 0 


0831 





06,2761 

C074Q 

1 

001740 

OCT 

00740 


C832 

REP 




4762 



OCT 15000 

EQUALS 

PR 1 015 


0833 





06,2162 

1 7000 

1 

GCT7700Q 

OCT 

7700C 


0034 





06, 2763 

76777 

1 

-enio 

OCT 

-1000 














0835 





06,2764 

21450 

c 

90SECS 

DEC 

9000 


0836 

REP 

1 



5660 



120HS 

as 

OCT 14 

(DEC 12) 

0837 

REP 

8 

LAST 

133 

5222 



GLOCKGK 

EQUALS 

RESUME 
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CE45 
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USER'S PAGE NO. 28 


EO S3 


C83S 

uB4C 

REF 

2 

LAST 

13S 

C 6 1 2 7 C 5 

3 1331 

1 CPTMON 

CA 

OPTHCDES 

MONITOR OPTICS INOITS IN CHAN 30 4ND 33 





06,2 166 

0 0006 

1 

EXTEND 


0841 

REF 

•»i 

LAST 

134 

C6j2?6l 

06 030 

i 

RXCR 

CHAN30 

LCOK FCR CCCU FAIL BIT CHANGE 

0842 

REF 

15 

LAST 

146 

06,2770 

7 47C4 

1 

MASK 

6 IT7 


Od4 3 

REF 

13 

LAST 

14 1 

C6,2171 

54 070 

1 

TS 

RUPTREGl 

STORE CHANGE BIT 



REF 26 L/ ST IS2 C6,2? 72 
REF 1 06,2773 


10 000 0 
0 3224 C 


CCS 

TC 


OCDOFTST 


PROCESS OCOLFAIL 0IT CHANGE 


% 


u 646 
C647 

REF 

1 



06,Z774 

n '303 

1 

3 30 PT MON 

CCS 

OPT I NC 

BYPASS IF TYC TAKEOVER 





06,2775 

1 3001 

1 


TCF 

^ h 


0646 





C6,2776 

1 iCCl 

1 


TCF 

+ 3 


084^ 





06,2777 

1 3001 

1 


TCF 

42 \ 


0650 

REF 

9 

LAST 

154 

C6,3CCC 

1 5222 

1 


TCF 

RESCME 














0651 

REF 

3 

LAST 

111 

C6,3C01 

3 1331 

1 


CA 

OPTMCCES 

\ LOOK FOR OPTICS MODE SWITCH CHANGE 

0852 





C6, 3CC2 

0 C006 

1 


EXTEND 


0853 

REF 

2 

LAST 

14C 

C6, 3CC3 

06 033 

1 


HXQR 

CHAN33 


C854 

REF 

1 



C 6 f J 00 A 

7 4722 

C 


MASK 

OCTH IPTY 


0855 

REF 

14 

LAST 

155 

C6,3005 

26 C7C 

1 


ADS 

PUPl REGl 

/STORE 1N0IT CHANGES 

0856 

REF 


LAST 

155 

C6, 3006 

23*331 

1 


LXCH 

OPTMCCES 


0657 





C6,3CC7 

b C006 

1 


EXTEND 


0056 

REF 

fc 

LAST 

152 

C6,3C10 

06 001 

c 


RXOP 

LCHAN 


0859 

REF 

c 

LAST 

155 

C6, 3011 

55'33l 

c 


TS 

OPTMCCES /O 

y UPDATE OPTMCDES TO SHOW BIT CHANGES 













G 6 6 C 





C6y 3C12 

4 COCO 

c 


COM 


SAMPLE CURRENT SWITCH SETTING ' 

. 08el„ 

REF 

2 

LAST 

155 

C6.3C13 

7 4722 

0 


MASK 

OlTH IRTY 


0862 





C6,3C14 

0 C0C6 

1 


EXTEND 


C8t>3 

REF 

1 



06, 3015 

1 3022 

c 


bZF 

SETS amp 

manual-set ZERO IN SW5AMPLE 













0 6 64 

REF 

11 

LAST 

13S 

C6,3C16 

7 47C6 

c 


MASK 

BITS 

SEE IF CSC 

cat f 

REF 

27 

LAST 

15 5 

C 6 , 3 c n 

1C 000 

c 


CCS 

A 


C666 





C6, 3C2G 

0 3022 

1 


TC 

42 

CSC-SET SUSAHFLE PCS 

0667 

REF 

1 



C6, 3021 

3 7 716 

c 


CAP 

NFOONE 

ZCPTICS-StT SWSAMPLE (-1) 

cats 

REF 

1 



C6, 3022 

55'314 

1 

SETSANP 

TS 

SWSAFPLE 

CURRENT OPTICS SWITCH SETTING 













0869 

REF 

1 



06,3023 

11 '315 

c 

pRocessw 

CCS 

OESOFMOD 

BRANCH ON PP6VICUS SETTING 

ce7c 

REF 

1 



06,3024 

0 3125 

1 


TC 

CSCD ES 

CSC 

0871 

REF 

1 



06, 3025 

0 3077 

1 


TC 

MAtCCBS 

MANUAL 

087*. 

REF 

1 



06, 3C26 

C 3027 

1 


TC 

ZUPT CES 

ZEPO CPTICS 



t 


I 


* 



m 
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0 073 

REF 

2 

in\ 

in 

C6,3C27 

U*314 

1 

20P TOES 

CCS 

SWSARPLE 

IS SWITCH STILL AT ZOPTICS 


ce?^ 

REF 

1 



C6, 3C3C 

0 3047 

1 


TC 

2 TCC SC 

NGm at CSC 


Cfl7i - 

REF 





C6»3C31 

-Q-1Q37 



JC 

ZTCHAN 

manual 


08 76 

REF 

1 



06r3C32 

0 3057 

c 


TC 

ZCPF IM 

ZCPTICS-SEE IF 2QP7 PROCESSING 


C877 

REF 

1 



06, 3033 

0 3154 

1 


TC 

SETCESNC 

ZCPT NCT PRCCES5INC-N0 ACTION 


0876 

REF 

1 



06. 3034 

11*311 

1 


CCS 

ZCPTCNT 

2CPT PROCESSING-CHECK COUNTER 


C879 

REF 

1 



06, 3035 

0 3153 

c 


TC 

SFTCNT 

32 SAMPLE NCT FINIShEO-SET COUNTER 


caeo 

REF 

L 



C 6 1 3036 

0 3157 

1 


TC 

SETZCENC 

32 SAMPLE WAIT COMPLET EO- SET UP 20P ENC 


0081 

REF 

2 

LAST 

156 

C6, 3037 

0 3057 

c 

2T0MAN 

TC 

Z(jPf IM 

ZCP TO MANUAL-IS ZOPT DONE 


0862 

REF 

2 

L/ST 

156 

06,3040 

0 3154 

1 


TC 

SETCESMC 

VES-NCRMAL EXIT 


0083 

REF 

7 

LAST 

151 

C6»3C41 

C 5537 

c 

20PALARR 

TC 

ALAPR 

ALARR-SW ITCHEC ALTERED WHILE ZOPTICS 


oett’t _ 





06.3042 

0C116 

1 


OCT 

00116 



0085 

REF 

1 



06, 3C43 

3 47 17 

1 


CAF 

OCT 13 

PROCESSING-SET RETURN CPTICN 


0 6 86 

REF 

1 



C6, 3044 

55*316 

c 


TS 

W TCP T ION 



0887 

REF 

1 



06,3045 

C 30 70 

c 


TC 

LANZCPT 

CANCEL ZCPT 


0808 


3 LAST 

156 

C6#3C46 

0 3IS4 

1 


TC 

SfcTDESRD 

■ - 


0889 

REF 

3 

LAST 

156 

06,3047 

0 3057 

c 

2T0CSC 

TC 

ZCPF IM 

SEE IF ZCPT PROCESSING 


Qesc 

REF 

J 



C6,3C5Q 

0 3115 

1 


TC 

RANTCCSC +3 

NC-CFECK RETURN TO COARS OPT 


0891 

REF 

6 

LAST 

156 

C6, 3051 

0 5537 

c 


TC 

ALAPR 

ZCPT PfiOCaSSING-ALARM 


0892 





C6, 3052 

00116 

1 


CC T 

OOlle 



0893 

REF 

2 

LAST 

156 

C6, 3C53 

0 3070 

c 


TC 

CAN2CPT 

cancel ZOPT 


C89<^ 

REF 

2 

LAST 

156 

06,3054 

0 3112 

0 


TC 

HANTLCSC 

ZERO CNT-LCCK FCR COARS OPT RETURN 

-- 

_0.fl95_ 


lA 

LAST 

13 1 

06. 3055 

3 4 702 

c 

CUAKSLOK 

CAF 

bIT9 

IF COAKS OPT SINCE FSTART GO TO L*2 


0896 

REF 

1 



06. 3056 

1 3064 

1 


TCF 

ZtPF IN2 

IF NCT GO TC L*l 


0897 

REF 

16 

LAST 

154 

06,3057 

3 4712 

1 

20PFINI 

CAF 

bll 1 

SEE IF END ZCPT TASK WORKING 


0898 

REF 

6 

LAST 

155 

06.3060 

7 1331 

c 


MASK 

QPTRCDES 



0099 

REF 

28 

LAST 

15 5 

C6,3C61 

1C 000 

c 


CCS 

A 



0900 

REF 

K 

LAST 

155 

C6, 3062 

0 5222 

c 


TC 

RESURE 

ZCPT TASK WCRKING-WMT ONE SAMPLE PEP IQD 


C9C1 

REF 

U 

LAST 

6 1 

C6,3C63 

3 S71Q 

c 


CAF 

P IT3 

TEST IF ZOPTICS PROCESSING 


0902 

REF 

7 

LAST 

156 

06*3064 

7 1331 

G 

2QPF IN2 

MASK 

(JPTMCDES 

RETURNS TC L-i-1 PROCESSING ANO 


C9C3 

REF 

29 

LAST 

156 

06,3065 

1C 000 

c 

ZCPF IN3 

CCS 

A 



C9CA 

REF 

6 

LAST 

153 

06,3066 

24 0C2 

c 


INCR 

Q 

L+2 IF NOT 


U905 

REF 

7 

LAST 

156 

06,3067 

0 Q0C2 

c 


TC 

0 



C9C6 

REF 

2 

LAST 

192 

06, 3070 

4 6211 

1 

CAN2GPT 

CS 

SIX 

CANCEL ZERO OPTICS 


0907 

REF 

8 

LAST 

156 

06,307 1 

1 1331 

c 


RASK 

OPTRCOIS 

ZERO ZCPT PROCESSING BlT-£NAdLE OCOOFAU 


0908 

REF 

9 

LAST 

156 

06, 3072 

55*331 

c 


TS 

OPTRCDES 



C9C9 

REF 

n 

LAST 

156 

C6,3C73 

4 47 12 

c 


CS 

eiTi 

MAKE S^lrTTCRC TTTD^U fS OFF 


0910 





06, 3C74 

0 0006 

1 


Extend 




0911 

REF 

11 

L/ST 

152 

06,3015 

oj 012 

1 


hANO 

Cham 2 



C912 

REF 

8 

LAST 

156 

06,3076 

0 000 2 

G 


TC 

C 




» 
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u^ia 

REF 

2 

LAST 

156 

_Q6tlLT7 

11' 314 

1 

HANUCt S 

CCS 

S h S A ^ F L E 

SEE IF SWITCH STILL IN MANUAL MODE 

C91A 

REF 

3 

LAST 

156 

06*3 100 

0 3112 

0 


TC 

HANTCCSL 

NCW AT CSC 



1 



09.3101 

0 3107 

I 


TC 

MANTCFAN 

STILL MANUAL 

0916 

REF 

2 

LAST 

156 

C6. 3102 

11*316 

c 


CC S 

WTCPTION 

ZOPTICS-LCCK AT 20PTICS RETURN OPTION 

C917 





06» 3103 

0 3105 

c 


TC 

+ 2 

5 SEC RETURN GOCD^CONT I NUE ZDPTICS 

C911_ 

REF 




C6, 3 104 

0 3151 

1 


TC 

0PT2ERC 

2CPTICS MUST START ANEW 













0919 

REF 

1 



06f 3 105 

0 3216 

1 


TC 

INIT 2CPT 

SHOW ZtRO OPTICS PROCESSING 

__ _Q92iL 

REF 

4 

LAST 

156 

C6.31C6 

0 3154 

1 


TC 

SETCESRC 

NORMAL EXIT 


0922 

REF 


LAST 

151 

C6t3107 

H'316 

c 

HANTCMAN 

CCS 

WTOPTIOK 

OECRE^ENT RETURN OPTION TIME 

0923 

REF 

4 

LAST 

15 7 

06,3110 

55*316 

c 


TS 

WTOP T !CN 


09 2 A 

REF 

ft 

LAST 

15 7 

06,3111 

C 3154 

1 


TC 

SETDESRC 














0925 REP 


- LAST 

147 

09.3112 

3 4714 

1 

HANTOCSC 

CAF 

ZERO 

CANCEL ZOPT RETURN OPTION IF SET 

C926 

REF 

c, 

LAST 

15 7 

06,3113 

55*316 

c 


TS 

WTOP IICN 


0927 

REF 


LAST 

156 

06, 3 114 

55*317 

1 


TS 

20PTCNT 














0928 

REF 

1 



06,3115 

0 30 55 

1 


TC 

COAR SLCK 

CHECK FOR CCAPS OPT RETURN 

0929 

REF 

6 

LAST 

157 

06,3116 

0 3154 

1 


TC 

SETDESRC 

NO COARS TASK-NC ACTION 













093C 

RFF 

5 

LAST 

14 1 

06,3 1 17 

3 47 12 

1 


CAF 

ONE 

SET COARS CPT WCRKING 

C9il 

REF 

A 

d 

LAST 

15 5 

06,3120 

55*303 

1 


TS 

OPTI AC 


0932 

REF 

12 

L/ST 

14 < 

06,3121 

3 4711 

1 


CAF 

BIT2 

ENABLE OPTICS CCU ERROR CMS 

0933 





06,3122 

C 0006 

1 


EXTEND 



0934 

REF 

12 

LAST 

156 

06,3123 

OS 012 

1 


NOR 

CHAN 12 














0935 

REF 

7 

LAST 

151 

06,3124 

0 3154 

1 


TC 

SETIESHD 



Q926 

=Rli_ 

4 

LIST 

157 

06,3125 

11*314 

1 

CSCCES 

CCS 

SWSAFPLE 

SEE IF SWITCH STILL AT CSC 

0937 

REF 

8 

LAST 

157 

06,3126 

0 3154 

1 


TC 

SEtLESRC 

STILL AT CSC 

0938 

REF 

1 



06, 3 127 

C 3133 

c 


TC 

CSCTCRAN 

MANUAL 

0939 

REF 

1 



06,3130 

3 4 705 

1 

CStTCZQP 

CAF 

0CT4C 

ZGPTICS-IMTIALIZ6 FOR ZOPT 

09^0 

REF 

3 

LAST 

157 

06,3131 

55*317 

1 


TS 

ZOPTCNT 


0941 

REF 

2 

LAST 

157 

06, 3132 

0 32U 

1 


TC 

IMT2CPT 














C942 

REF 

3 

LAST 

157 

06,3133 

11*303 

1 

CSCTGRAN 

CCS 

OPTI FC 

SEE IF COARS kOPKING 

0943 

REF 

1 



06,3 134 

0 3140 

1 


TC 

C AMCC APS 

COARS WORKING-SWITCH NOT CSC-KILL COARS 

C944 

REF 

2 

LAST 

15 7 

06,3135 

0 3140 

1 


TC 

GANG CARS 


0945 





06, 3136 

0 3137 

1 


TC 

♦ I 

NO CGARS-NCRMAL EXIF 

0946 

REF 

9 

LAST 

157 

06,3137 

0 3154 

1 


TC 

SETCeSRD 
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QSttl 

us4a 

QS5C 
0S5i 
,C S.5 2 
0^53 


REF 

2 

LAST 

15 5 

C6,3aC 

3 7 716 

( 

CANCCARS CA 

NEGCNE 




REF 

A 

LAST 

15 7 

C6,3191 

55*303 

1 

TS 

DPT I NC 

SET 

CPTINC (-11 TC SHCh not FORKING 


REF 

iA 

LAST 

15 7 

06, 31A2 

*1 7 1 1 

C 

CS 

BIT2 

DISABLE OCDU FRP CNTS 






06, 3a3 

0 C0C6 

1 

EXTEND 





REF 

13 

LAST 

157 

06 f 3 1 44 

03 012 

1 

MANU 

CHAN12 




REF 

1C 

LAST 

156 

C6,31A5 

4 1331 

C 

CS 

OPTHCCES 

SET 

RETURN-TO-CCARS BIT 


REF 

15 

LAST 

156 

06,31^6 

7 A702 

1 

MASK 

B IT9 




REF 

a 

LAST 

156 

06,31^7 

27*331 

C 

AOS 

CPTHCCES 





0955 

0956 

REF 

REF 

1C 

LAST 

15 7 

C6,il50 

0 

315A 

1 


TC 

SETCESMD 



7 

LAST 

157 

C6, 3151 

0 

321b 

1 

CPT ZEHC 

TC 

IMT2CPT 

INITIALIZE ZERO OPTICS 













0957 

REF 

i. 

LAST 

15 7 

06, 3 152 

3 

A705 

1 


CA 

OCT AO 

SET 

UP 32 SAMPLE WAIT 

0958 

REF 

A 

LAST 

15 7 

06,3153 

55 

*317 

1 

SETCNT 

TS 

ZOPTCNT 



0959 

REF 

5 

LAST 

157 

06,3 15A 

3 

131A 

C 

SETCESMC 

CA 

SWSANPLE 

SET 

CURRENT SWITCH INC ICA 1 ION-RESUME 


LSLC REF 2 LAST 155 06,3155 55'315 0 TS UESOPPOO 

OStl BEF 11 LAST 156 06,3156 C 5222 C TC RESLPE 


0962 

REF 

18 

LAST 

156 

06,3157 

3 ^712 

1 

SETZOENO CAF 

BITl 

SEND 

ZERO 

CPTICS 

CDU 

0963 





06,3160 

0 0006 

1 

EXTEND 






C96A 

REF 

H 

LAST 

156 

06,3161 

05 012 

1 

HUR 

ChAN12 





0965 

REF 

1 



06, 3162 

3 <tI12 

1 

CA 

2 00H S 

HOLD 

ZERO 

ecu F'CR 

200 MS 

0966 

REF 

t,. 

LAST 

1^2 

06,3163 

0 SIAC 

1 

TC 

WAIT LIST 





0967 

REF 

12 

LAST 

156 

1331 



EBANK= 

OPTHCCES 






0So8 REF 1 06,316^ C3112 C 2CADR ENDZCPT 


C968 REF 1 06, 3165 H062 C 


0969 

0970 

REF 

REF 

12 

LAST 

156 

C6, 3166 

4 

1331 

C 


CS 

OPTMCDES 

SHOW 

ZCPTICS TASK WORKING 


19 

LAST 

156 

C6,3167 

7 

4712 

C 

C 


MASK 

BITl 




0971 

REF 

1 4 

LAST 

156 

06,3170 

27 

*331 


AOS 

OPTHCCES 



















0972 

REF 

a 

LAST 

156 

06,3171 

0 

3154 

1 


TC 

SETCESHO 



















0973 

REF 

1 



06,3172 

0 

3210 

1 

ENOZQPT 

TC 

2ERCPCDU 

ZERO 

CCDU COUNTERS 


C97A 

REF 

iQ 

LAST 

156 

06, 3173 

4 

4712 

C 


CS 

BITl 

TURN 

OFF ZERO QCCU 


0975 





06, 3174 

c 

0006 

1 


EXTEND 





C9 76 

REF 

IS 

LAST 

158 

06,3175 

02 

012 

i 


Vi AND 

CHAM2 




0977 

REF 

2 

LAST 

156 

C6,3176 

3 

4112 

1 


CAF 

20UMS 

OELAY 

ZOOMS FOR CDUS TC RESYNCHRON IZE 


0978 

REF 

3 

LAST 

136 

06,3177 

0 

5161 

1 


tc 

VAR DELAY 





0979 REF 15 LAST 156 C6,32QC A 1331 C CS rPTMCDES SFOw ZCPTICS SINCE LAST FRESH START 

USfc'j R£F H LAST 152 06, 320 1 7 A70l 1 MASK BlTlC CR RESTARr 

CSei REF 16 LAST 156 06,3202 27*331 C AOS OPTHCtES 

09b2 ^ RL F 2 LAST 126 06,3203 ^ <>7l6 i CS~ SEVEN ENABLE PC DUF A IL-SHOW OPTICS COMPLETE 

0983 «tE 17 LAST 156 C6,320A 7 1331 C NASK OPTHCCES 

CSbA KEF 18 LAST 156 06,3205 55*331 C TS GPTNCLES 


0985 .REF 2 LAST 1 55 06,3206 0 322^ 0 TC GC DU FT ST 


CHECK QCDU FAIL BIT AFTER ENABLE 
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cse6 

REF 3 LAST 136 C6,32C7 0 5213 1 TC TASKCVER 

. . OUBT 

csee 

REF T LAST 157 06,3210 3 ^7H 1 ZEROPCCUCAf ZthC 

REF 2 LAST 3£ 06,3211 5A 036 C TS COUS ZERO IN CDUS,-2C IN COUT 


0^86 1 RE f 1 06,3212 55'3C? C TS ZOhtL INITULIZE SHAFT HONITCR ZONE 


Q 5 .a5_ 

REF 1 06.3213 9 3261 C CS 200605 

C9SC 

0991 

REF 2 LAST 36 06, 32H 59 035 C TS COUT 

REF 9 LAST 156 06,3215 0 0002 C TC 0 

C992 

0993 

0999 

REF 6 LAST 15S 06,3216 3 9719 1 INITZCPT CAF ZERL INITIALIZE ZOPT 1C S- INH IB 1 T OCOUFAIL 

REF 6 LAST 157 C6,3217 55*316 C TS WTGPTICN AND SHOW OPTICS PROCESSING 

REF IS LAST 156 C6,3220 9 1331 C CS OPTHCCES SET ZERO CPTICS PROCESSING 

0995 

0996 

0997 

REF 3 LAST 156 06,3221 7 6211 1 MASK SIX OPTICS CDU FAIL INHIBITEO 

REF 2C LAST 15S 06,3222 27*331 C ADS UPTPC0E5 

REF 10 LAST 15S 06,3223 0 00C2 C TC Q 
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0998 

REF 

16 

LAST 

1 5 5 

06, 3229 

3 9709 

C 

OCDUFTST 

CAF 

BIT? 

SEE IF OCCUFAIL CN OR 

CFF 


C999 





06,3225 

0 0006 

1 


fcXTFND 





ICCC 

A£l 


L A S 1 

155 


.02 C3C 

c 


RANG 

CHAN3C 




iOCI 

REF 

30 

LAST 

156 

Q 6 f 322 7 

IC 000 

C 


CCS 

A 




1002 

REF 

1 



06,3230 

1 3252 

c 


TCF 

OPFA ILOF 

CCDUFAIL LIGHT CFF 



1003 

REF 

15 

LAST 

156 

06,3231 

3 9711 

1 


CAF 

blT2 

OCCUFAIL LIGHT CN UNLESS INHIBITED 


lOOA 

REF 

a 

LAST 

159 

06,3232 

7 1331 

c 


HASK 

OPTMCCES 




lOC^ 

Rif 

-JJL. 

LAST 

16 C 

C6i3233 

10 COo 

c 


CCS 

A 




1006 

REF 

11 

LAST 

159 

06,3239 

0 000 2 

c 


TC 

Q 

QCDUFAiL iNFienen 



1QCl7 

Rlt 


LAST 

137 

06.3225 

3 9703 

1 

OPFAILDN 

CAF 

B1T8 

CN BIT 



iooe 

REF 

13 

LAST 

153 

06,3236 

6 10 36 

c 


AD 

bSPTAB +110 




10C9 

REF 

15 

LAST 

I6C 

06,3237 

7 9703 

c 


NASK 

0IT6 




icio 





06,3290 

C 0006 

1 

SETOFF 

EXTEND 





1011 

REF 

1 



06,3291 

1 6 711 

1 


BZF 

TCQ 

NO CHANGE 



1012 

REF 

-a 

LAST 

lAC 

06,3292 

59 OCl 

x_ 


TS 

L 




1013 

REF 

lA 

LAST 

16C 

06,3293 

3 IC36 

c 


CA 

OSPTAB +110 




lOlA 





06,3299 

0 OOOc 

1 


EXTEND 





1C15 

REF 

7 

last 

155 

06,3295 

06 COl 

c 


RXOR 

LCHAN 




10 16 

REF 

2 

LAST 

lAA 

06,3296 

7 96 7 2 

1 


MASK 

POSH AX 




1017 

REF 

lA 

LAST 

lA 5 

06,3297 

t 96 79 

c 


AO 

BlTl 5 

SHOW ACTION WANTED 



icie 

REF 

15 

LAST 

16C 

06,3250 

55*036 

1 


TS 

OSPTAB +110 




1019 

REF 

12 

LAST 

16C 

06,3251 

C 00C2 

c 


TC 

Q 




1020 

. AE F 

m 

LAST 

JLIA ^ 

^ 06,3152 

3 9712 

1 

OPF AILOF 

CAF 

BITl 

DCNT TURN OFF If LAMP 

TEST 

- 

1021 

REF 

16 

LAST 

159 

06,3253 

7 1321 

1 


MASK 

IMCDES33 




1022 

REF 

32 

LAST 

16 L 

06,3259 

1C CCQ 

c 


CCS 

A 




1023 

REF 

13 

LAST 

16C 

06,3255 

0 0002 

c 


TC 

Q 

LAMP test IN PRCGPESS 



102^ 

REF 

It 

LAST 

16L 

06,3256 

3 9703 

1 


CAF 

Blit 

TURN CFF QCOUFAIL LIGHT 

- 

1025 

REF 

16 

LAST 

16C 

06,3257 

7 1036 

1 


HASK 

DSPTaB +U0 




1026 

REF 

1 



06,3260 

1 3290 

c 


TCF 

StTf f f 



- -- — 

1C27 

REF 

L 



9717 



CC T 1 3 

a 

ELEVEN 





1028 

REF 

3 

LAST 

153 

9722 



GCIFIRTY 

EQUAL S 

BI TS9t5 




1029 





06,3261 

16C37 

1 

20LEGS 

DEC 

7199 




1030 

REF 

19 

LAST 

153 

9705 



OCT90 

EQUALS 

BiT6 




1031 

REF 

1 



9112 



20GPS 

EQUALS 

0CT29 
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P1032 CPIKS ecu DRIVINU PRLGRAP 


IQ 22 1C.2CC0 BANK 10 

1034 Rtf 1 lCf2000 ^ SETLCC OPTDPV 

1035 IC,2CCQ RANK 

1056 Rtf 1 U COUNT* $i/S»T 


R1C37 Shaft stcp hcmtop-kne ufcate 


1038 

Rtf 

3 

LAST 

159 

10i2COO 

3 

0036 

1 

CPTDRI VE 

CA 

ecus 


GRAB CPTIC SHAFT CDU 


IC39 

Rtf 

4 

LAST 

16C 

10»2COi 

54 

OCl 

1 


TS 

L 




1040 _ 


23 

LAST 

■ 161-- 

1C,2CC2 

10 

OGC 

C 


CCS 

A 


GET ABSICOUSI 


1041 

REF 

1 



10*2003 

6 

7707 

c 


AO 

13*14*15 




1042 





10*2004 

1 

2006 

1 


TCF 

♦ 2 


ABSICCUSI - 45 CEG 


.10 4 3 





10*2005 

1 

2003 

1 


TCF 

-2 




1044 





10* 2006 

0 

0006 

1 


EXTEND 





1045 

REF 

1 



10*2007 

6 

2016 

1 


aZMF 

OZONE 


LESS THAN 45 DEC-SET ZCNE 0 


1.04 6 

REf 

2 

LAST 

159 

10*2010 

3 

130 7 

1 


CA 

ZCNE 


IF ZONE ZERC, CHANGE TC + OR - OTHERWISE 


iC47 





10* 2C11 

0 

0006 

1 


EXTEND 



bONT HESS WITH ZONE 


1048 





10*2012 

1 

2014 

1 


bZF 

+ 2 




1049 

REF 

1 



10*2013 

1 

2020 

c 


TCF 

CCNTCRVt 


JUST CCNT INUE 


1050 

ref 

5 

LAST 

161 

10*2014 

56 

CCl 

c 


XCH 

L 


GREATER THAN 45 DEG-SET ZONE TO SIGN CDU 


1051 

REF 

2 

LAST 

16 1 

10*2015 

1 

2017 

1 


TCF 

OZCNE *1 




1052 

REF 

9 

LAST 

159 

1C *2016 

3 

4714 

1 

OZONE 

CAF 

ZERO 


ABSICCUSl LESS THEN 90 OEG-ZONE ZERO 


1053 

REF 

3 

LAST 

16 1 

10*2017 

55 

•307 

c 


TS 

ZONF 




1054 

REF 

1 








COUNT* 

l$/T4RPT 




1055 

REF 

* 

LAST 

15 E 

10*2020 

11 

•303 

1 

CCNTOPVE 

CCS 

OPTING 




1 0 56 





10*2021 

0 

2025 

1 


TC 

+4 


WORK CQAKS OPTICS 


1057 





10*2022 

0 

2025 

1 


TC 

♦ 3 


WCRK COARS CPTICS 


1058 

REF 

■ u 

LAST 

15fi 

10.2023 

0 

5222 

c 


TC 

RESUHE 


NC OPT 


1059 

REF 

13 

LAST 

16 i 

10*2024 

0 

5222 

c 


TC 

RESUFE 


NC OPT 


1060_ 

Rif 

6 

LAST 

156 

10*2025 


1314 

c 


CA 

SNSAFPLE 


SEE IF SWITCH AT CH.C 


1061 





10*2026 

c 

OOC6 

1 


EXTEND 





1062 

REF 

14 

LAST 

16 1 

10*2027 

6 

5222 

c 


0ZMF 

RtSUNE 


ZERO (-It MANUAL l+Ot 

- 

1063 

REF 

15 

LAST 

15E 

10*2030 

3 

47CI 

c 


CAF 

BITIC 


SEE IF CCCUS ZEROED SINCE LAST FSTART 


1064 

REf 

2 2 

LAST 

16C 

10*2031 

7 

1331 

c 


HASK 

OPTWCCES 




1065 

REF 

34 

LAST 

16 1 

10*2032 

U 

OCC 

0 


CCS 

A 




1066 





10*2033 

C 

2036 

0 


TC 

*2 




1067 

REF 

9 

LAST 

156 

10*2034 

0 

5537 

c 


TC 

ALARF 


OPTICS NOT ZEROED 


1068 





i0.2C3^ 

OCl20 

1 


OCT 

O012C 




1069 

REF 

U 

LAST 

16C 

10*2036 

3 

4711 

1 


CA 

R l T2 


SEE IF ERR CNTS £N«BL6L 

- 

1070 





10*2037 

0 

0006 

1 


EXTEND 





1071 

REF 

16 

LAST 

i5e 

1Q.2C40 

02 

012 

c 


RAND 

CHANl2 




1072 





10*2041 

0 

0006 

1 


EXTEND 





1073 

REF 

1 



10*2042 

1 

2175 

1 


8ZF 

SET B IT 


CNTS not ENABLEC-00 IT AND RESUME 



1074 Rtf 6 LAST 157 lOf2C43 3 4712 1 CAF ONL 


INITIALIZE CPTIND 
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1075 

REF 

t 

L^ST . 

L6 1 

lCt2C44 

55»3Cj 

1 

CPT2 

TS 

OPT 1 PC 



i07o 





10,2045 

0 00C6 

1 


EXTEND 




1077 

_ JLE1_ 




10.2046 

_i 2LL2 



B2F 

TPUNCHC 

CHECH TRUMCN COMMAND 


1076 

REF 

7 

L^ST 

Iti 

10.2C4? 

51'3Ci 

C 

GETCPCRD 

INDEX 

OPT I PC 




Rf F . 

2 L^ST 

i5_ 

10.205Q 

3 lUO 

J_ 


CA 

DESOPTT 

PICK UP DESIRED DPT ANGLE 


Lcec 





10,2051 

0 0GC6 

1 


EXTEND 




1081 

REF 

8 

LIST 

162 

10,2052 

5 1303 

c 


INDEX 

OPTI NO 



1082 

REF 

1 

LIST 

15S 

10,2053 

20 035 

c 


MSU 

CDUT 

GET CIFFEflEPCE 


1C83 





10,2054 

C 0006 

1 


EXTEND 




1084 

REF 

13 

LIST 

14 7 

1C,2CS5 

7 46 76 

0 


WP 

blTl3 



1085 

REF 

6 

LIST 

16 1 

10,2056 

56 CCl 

c 


XCH 

L 



108t 





10,2057 

6 0000 

1 


DOUBLE 




1087 

REF 

3 

LIST 

65 

10,2060 

54 061 

1 


TS 

1 TEMPI 



1086 





10,2061 

1 2063 

1 


TCF 

*2 

NO CVIFL 



1089 

REF 

7 

LIST 

162 

10,2062 

26 001 

1 

AOS 

L 

WITH OVFL 

10 50 

RifL. 

.9 

LIST 

162 

l.Q.t.2Q6 3 

51'3C3 

C STURCMO 

INDEX 

UPTINC 


1091 

REF 

1 



10,2064 

2 3 '305 

C 

LXCH 

COMMANOC 

STORE COMMAND 

1092 

REF 

1C 

LIST 

162 

10,2065 

11'303 

1 

CCS 

OPT I PC 


1093 

REF 

1 



10,2066 

1 2044 

1 

TCF 

0PT2 

GET NEXT CGMMANC 

1094 

REF 

4 

LIST 

162 

10,2067 

54 061 

1 

rs 

I TEMPI 

INITIALIZE SEND INDICATOR TC ZERO 

IC95 

REF 

2 

LAST 

161 TO 

16 1 : 

16 

16* 

COUNT* 

il/SXT 


F 1096 

SHIFT 

STCP AVCICAPCE 








10961 

REF 

4 

LIST 

161 

10,2070 

10 

036 

C 

CCS 

CDUS 

IF ecus GREATER THAN ♦OR- 50 DEG CHECK 



10962 

REF 

1 



lUf 2071 

6 

4673 

1 

AO 

NEGl/2 

FOR 

POSSIBLE STOP PROBLEM 



1096 3 





10,2072 

1 

2074 

1 

TCF 

♦ 2 





10964 





10,2073 

1 

2071 

1 

TCF 

-2 





10965 





10,2074 

0 

0006 

1 

EXTEND 






iU966 

REF 

1 



10,2075 

6 

2122 

1 

BZMF 

CMDSETUP 

ecus 

LESS THAN 90 DEG, NO PROBLEMS 


















1097 

REF 

4 

LIST 

16 1 

10,2C76 

3 

1307 

1 

CA 

ZONE 





1098 





10,2077 

0 

OOC6 

1 

EXTEND 






1099 

REF 

A 

LIST 

162 

10,2100 

1 

2122 

c 

OZF 

CMDSETUP 

ZCNE 

^3, NORMAL CCMMANO 



IICO 

REF 

15 

LIST 

16C 

10,2101 

7 

4674 

1 

MASK 

F IT 1 5 

GRAB 

SIGN CF ZCNE 



1101 

REF 

6 

LIST 

162 

10,2102 

54 

OCl 

1 

TS 

L 





1102 

REF 

2 

LIST 

162 

10,2103 

3 

13C6 

c 

CA 

COMMINDC ♦! 





1 103 

REF 

16 

LIST 

162 

10,2104 

7 

4674 

1 

mask 

BIT 1 5 

CRAB 

SIGN CF SHAFT CCMMANO 



lie 4 





10,2105 

0 

0006 

1 

EXTEND 






1105 

REF 

8 

LIST 

16C 

10,2106 

06 

COl 

c 

RXOR 

LCHAP 





1 lot 

REF 

-a c 

LIST 

16 1 

10,2iU7 

IC 

000 

c 

CCS 

A 





1U7 

REF 

2 

LIST 

162 

10,2110 

1 

2122 

c 

TCF 

CMDSETUP 

SIGN 

ZCNE NCT ECUIL TO SIGN CGMMANC 



1 U8 

REF 

2 

LIST 

95 

10,2111 

11 

' 161 

1 

CCS 

OtSCPTS 

SEE 

IF DESOPTS EETWEEN -90 AND ♦<5o 



1109 

REF 

2 

LIST 

162 

10,2112 

6 

4673 

1 

AD 

NE61 /2 





liiC 





10,2113 

1 

2115 

1 

TCP 

+ 2 

ABSICESOPTS) - 90 DEG 



1 1 i 1 





10,2114 

1 

2112 

c 

TCF 

-2 





1112 





10,2115 

0 

C0C6 

1 

EXTEND 







R 
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1113 





10,2116 

6 2120 

C 


B2MF 

*2 

DESCPTS IN FIRST OR FOURTH QUAD 

lllA 

REF 

A 

L^ST 

162 

10,2117 

1 2122 

c 


TCF 

CMOS E TUP 



REF 

3 

LAST 

162 

10*2120 

A 13C6 



CS 

COPMANDC +1 

REVERSE REGULAR COMMAND 

1116 

REF 

A 

LAST 

163 

10,2121 

55*3C6 

1 


TS 

CCMRANCC +l 














111? 

R-EF 

2 LAST 

161 TQ 

162: 





COUNT* 

$l/TiiRPT 



1116 

REF 

1 

LAST 

16 1 

10,2 122 

3 A712 

1 

CfOSETUP 

CAF 

ONE 

SET CPTINC 

J.11^ 


11 L4ST 

16*2 

10.2123 

55*303 

1 


TS 

CiPTI ND 


112C 

REF 

3E 

LAST 

162 

iO,212A 

5C OCO 

1 


INDEX 

A 


1121 

REF 

5 

LAST 

16 3 

10,2125 

11*305 

1 


CCS 

CGNMANOC 

GET SIGN OF COMMAND 

1122 

REF 

_L_ 



10,2126 

0 2iAA 

1 


TC 

PCSCPCNO 


1123 

REF 

1 



10,2127 

0 2151 

C 


TC 

NEXTCPT *1 

ZERO CCMMANC-SKIP SEND INDICATOR 

112A 

REF 

1 



10,2130 

0 2161 

C 


TC 

NEGOPCHD 


1125 

REF 

__2_ 

LAST 

163 

10.2131 

0 2151 

C 


TC 

NEXTCPT i-l 

ZERO CCHNANC 













1126 

REF 

A 

LAST 

162 

10,2132 

A C035 

C 

THUNCMO 

CS 

GOUT 

IF CCMMANC GREATER THAN <*5 DEG-COMMAND 

1127 

REF 

3 

LAST 

162 

10, 2133 

6 116C 

1 


AO 

DESCPTT 

95 OEG 

1126 

REF 

lA 

L A S T 

16C 

10, 213A 

5A 0C2 

1 


TS 

Q 


1129 

REF 

1 



10,2135 

0 20A7 

G 


TC 

GETCPCMJ 

LESS THAN 95 CEG-NORMAL OPERATION 


1130 

1131 

1132 

REF 

37 

LAST 

L63 

10,2136 

10 000 

C 


CCS 

A 

GREATER THAN 95 OEG-USE CPSMAX WITH 


REF 


LAST 

16C 

10,2137 

3 9672 

C 


CA 

POSMAX 

CORRECT SIGN 






10,2190 

0 2192 

I 


TC 

♦ 2 



1133 

REF 

4 

LAST 

163 

10,2 191 

9 9672 

1 


CS 

POSMAX 



1139 

REF 

9 

LAST 

162 

10,2192 

59 OCi 

1 


TS 

L 



1135 

REF 

1 



10,2193 

0 2063 

C 


TC 

STCP CMD 



1136 

REF 

1 



10,2199 

6 2202 

c 

PCSCPCMO 

AD 

MAXPISI 



1137 





10,2195 

0 0006 

1 


EXTEND 




1138 

REF 

1 



10 ,2 196 

6 2166 

1 


BZMF 

DELOPCMO 

COMMAND LESS THAN MAX PULSE 


1139 

REF 

1 



10, 2197 

9 2201 

1 


CS 

MAXPLS 

GREATER THAN MAX PULSE-USE MAX PULSE 















1190 

_Jl£L_ 

. . 1 . 

LAST 

162 

10.2150 

29 061 

c 

NEXTCPT 

INCR 

ITtHPl 

SET SEND INCICATQR 


1191 

REF 

2 

LAST 

13C 

10,2151 

6 9713 

c 


AO 

N EGu 

MAKE SURE ZERO COMMAND IS -ZERO 


1192 

REF 

12 

LAST 

16 3 

10,2152 

51'3C3 

c 


INDEX 

GPTI HC 



1193 

REF 


LAST 

37 

10,2153 

59 053 

c 


TS 

CDUT CMC 

STORE PULSE IN SEND REG 















1199 

REF 

13 

LAST 

163 

10,2159 

11*303 

1 


CCS 

CPTl hC 



1195 

REF 

5 

LAST 

163 

10,2155 

0 2123 

c 


TC 

CMCSETUP *l 

GET NEXT CPT 















1196 

REF 

6 

LAST 

163 

10,2156 

10 061 

1 


CCS 

I TEM FI 

ARE ANV PULSES TO GO 


1 197 

REF 

1 



10,2157 

1 2171 

0 


TCF 

SENDCCMC 

VES-SEND EM 


119 6 

REF 

15 

LAST 

161 

10,2160 

0 5222 

c 


TC 

RESUME 

NG 















1199 

REF 

1 

LAST 

163 

10,2 lol 

6 2202 

c 

NEGCPCMD 

AO 

MAXPLSl 



1150 





10,2162 

0 0006 

1 


EXTEND 




1151 

REF 

2 

LAST 

163 

1C, 2163 

6 21 66 

1 


8ZMF 

dflcpcmo 

LESS than max pulse 


1152 

REF 

2 

LAST 

163 

10,2169 

3 2201 

c 


CA 

MAXP LS 

MAX PULSES 


1153 

REF 

3 

LAST 

163 

10,2 165 

1 2150 

c 


TCF 

NEXTCPT 




GilP 


2JiJ HP AGC PROGRAM COLOSSUS HY NASA 


T^PLPI PPC&RAM 


I:17 AUG, 2411968 KCQlAgP .064 PACfc 16^ 


USER'S PAGE NO, 37 


EO S3 


115A 

1155 

1156 

REF 

Rtf 

REE 

IR 

t 

^A. 

L^ST 

L^ST 

Lf^l 

16 2 
162 

lOt 2 166 

1 G f 2 16 7 

31'3C3 

57'3C5 

1 2150 

C 

c 

(, 

DLLCPCMC 

INDEX 

XCH 

TCP 

OPT 1 NC 
CCPNINDC 

SET CP SNAIL CCPNAND 

163 

10i217C 

NtXTCPT 

1157 

Rfcf 

1 



10,2171 

3 -^755 

1 

SENLtCMO 

LAP 

11,12 

SEND CCOU CRIVE CONNANCS 

1156 





10.2172 

C U006 

1 


EXTEND 



115S 

REF 

3 

im 

1A7 

1C, 2 172 

05 OH 

1 


ROK 

CHAM^i 


1160 

REF 

u 

L/ST 

163 

10,2 17<i 

0 5222 

c 


TO 

RESUPE 



1161 

1162 

1163 

REF 

17 

L/ST 

loJ 

1C, 

2115 

3 A711 

1 

1 

1 

SET e IT 

CAF 

BIT2 

EMBLE QCDU ERR CNTS 

REF 

17 

LAS! 

16 i 

10, 

1C, 

2176 

2 177 

0 0006 
OS 012 


EXTEND 

WOR 

CHAM2 


1 U4 

KEF 

17 

LAST 

16^ 

1C, 

2 200 

0 5222 

C 


TC 

RESUPE 

start cqars next tine around 

1165 





" iCt 

2 2 C 1 

77532 

c 

naxpls 

DEC 

-165 

NAS -60 

1166 





10, 

2202 

17533 

1 

PAX PL SI 

DEC 

-164 

NAS -79 

1167 

REF 

1 




<*755 



il, 12 

equals 

ppir.e 
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L 

CCNNLINX LISTS 




USER'S 

PAGE NO. 

1 60 

S3 



0001 


22$ 2 C Cl 


BANK 22 






00U2 

REF 1 

05t2CCO 


StTLOC OUHNTELM 






0003 


C5.2CCQ 


BANK 
















QOOA 

REf 2 LAST 12? 

0 3A0 


EflANKs ONTHCUFF 
















ftOOOS 

SPECIAL CChNLINK CP 

CCCES 








A0006 




CP CODE AOCRESSIEXAMPLE ) SENDS*. 

BIT 15 

BITS lA-12 

BITS 11 


^ A 0 QQ7 








-0 


AC dee 





— 





A0009 










AQOlO 




IDNAOR T IHE2 

(2 AGC HCS) 

0 

0 

ECADR 


AOOll 




20NADR TEPHEH 

(A AGC WOS) 

0 

1 

ECADR 


A0012 




3DNA0R VG60CY 

(6 AGC WOS) 

0 

2 

ECAOft 


A_gQl3 




ADNADR STATE 

(e AGC MOSl 

a 

3 

ECAOR 


AQ014 




5DNADR UPBUFF 

( lOAGC MOS) 

0 

A 

ECADR 


AOQIS 




60NADR DSPTAB 

(12AGC WOS) 

0 

5 

ECAOR 


A0016 




ONCHAN 3C 

CHANNELS 

0 

7 

CHANNEL 


AQC17 








ADDRESS 


A0016 




ONPTP NEXTLIST 

POINTS TO NEXT 0 

6 

ACRES 


AOGIS 





LIST. 






K002Cj CCliKLlSl FCRPAT DEFINITIONS AND RUL ES- 

K002 1 I* ENC CF 4 LI ST _= -XCNADR (X ^ 1 TC -ONPTR, OR -ONCHAN, 

RQ022 2. SNAFSHCT SUfcLlST * LIST ^HlCF STARTS WITP A -IDNAOR. 

Rg023 3. SNAFSHCl SLRLIST CAN ONLY CCMAIN ICNADRS. 

KQ02<< 4. T1FE2 ICNAD P HLST EE LCCATEC IN THE CCNTPOL LIST OF A OQNNLIST* 

ft 002 5 ER4SAELE CCV*N TELEMETRY V<GPCS SHCUIC BE GROUPED IN SEQUENTIAL 

P0026 LCCATICNS AS MUCH AS POSSIBLE TO SAVE STOflAGE USED BY DUNNLINK LISTS. 

R0C261 6. TH E CCHN LINK LISTS! INCLUCING SUBLISTS) ARE 0RGANI2EC SUCH THAT THE ITEHS LISTED FIRSKIN FRCNT CF FBANKI ARE 

ft00263 SENT FIRST. EXCEPTION SNAPSHOT SUBLISTS. IN THE SNAPSHOT SUBLISTS THE DATA REPRESENTED 8Y THE FIRST 

R00265 11 ICNACRS IS PRESERVtC UN CROEBI IN CNTNaUFF AND SENT BY THE NEXT 11 OCHNRUPTS. THE DATA PEPRESENTEC BY THE 

ftC0 26? LIST IS SENT INHECIAT ELY. 

P0026E 


0027 

REF 

1 _ 



COUNT 

05/0LIST 


0026 



0007 

ERAS2ERQ 

EQUALS 

7 


002S 

REF 

1 

0C07 

SPARE 

EQUALS 

ERAS2EP0 

USE SPARE TC INDICATE AVAILABLE SPACE 

0030 



C5f 2000 

773A0 C LOWIOCOO 

OCT 

773AC 

LCH 1C CODE 

















0031 

REF 

1 

05«2113 

NCMCNLST 

EQUALS 

CMCSTACL 

FRESH START AND POST P2? 0CWNLIS7 

0032 

REF 

1 

05t221A 

UPDNLIST 

EQUALS 

CHENTPOL 

UPDATE PRCGRAH (P27) OOWNLIST 
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P CO 3 3 CSX PCVEREC FLIGHT CCkNLlS T 


RGQ34i ~ r * — -— ~ :CC MPC L LIS T--— 


0035 

UC36 





C5f 2001 



CPPCwEDL EQUALS 





ALf, 

1 



C5.2CC1 

32CA7 

_c_ 

CNPTR 

CPPC REOl 

COLLECT SNAPShOT 



0037 

RtF 

3 

LAST 

165 

C5t2C02 

2A340 

c 

60NA0f< 

DNTPEUFF 

SEND SNAPSHOT 



0038 

REf 

1 



C5f 2CC3 

32056 

c 

DNPTR 

CRPCRE02 

COLLECT StCCNC SNAPSHOT 



0039 

REF 

A 

LAST 

166 

C5.2CC4 

143A0 

c 

4DNADR 

ONTMEUFf 

SEND SNAPSHCT 



OOAO 

REF 

1 



C5, 2005 

32C63 

c 

DNPTR 

CPPCREC3 

CCMMCN DATA 



OOAl 

REF 


LAST 

125 

C5,2CC6 

034 12 

c 

IDNADR 

T IG 

T 10,41 



0042 

REF 

2 

LAST 


C 5 f 2G 1 7 

03422 

c 

lONADR 

DELLTA 

ObLLTA,+l 



0043 

REF 

2 

LAST 

llA 

C5f 20 10 

13414 

1 

3ONA0R 

RTARG 

RTARG f* ♦*’^5 



004A 

REF 

2 

LAST 

1 LA 

C5» 201 1 

0342 7 

c 

iONAOP 

TGC 

T GO f 1 



0045 

REF 

2 

LAST 

76 

C5,?C12 

C1245 

c 

iONAOR 

P IPT IREl 

PIPT1>E1,41 



004 6 

REF 

4 

LAST 

76 

05 1 2013 

11162 

1 

BONAOP 

DELV 

DELV,4i,*«»+4,+5 



0047 

REF 

1 



C5f 2014 

C3C25 

c 

lONADR 

PACTCFF 

PACTOFF.YACTOFF 



0048 

REF 

2 

LAST 

101 

C5#2G15 

03231 

1 

IONAOR 

PCMO 

PCMD, VCMD 



0G4 9 

REF 

2 

LAST 

121 

05*2016 

C3 7C2 

1 

IONAOR 

CSTEER 

CSTEER, *1 



0050 

REF 

1 



C5» 20 1? 

C00C7 

c 

IONAOR 

SPAR E 




0051 

REF 

2 

LAST 

166 

C5t2C20 

00CC7 

c 

IONAOR 

SPAR E 




0052 

REF 

3 

LAST 

166 

C5t2C21 

C00C7 

c 

IONAOP 

SPAR E 




0053 

REF 

1 



C5f 2022 

25735 

1 

60NA0K 

REF SPRAT 

REFSRNAT ,+l, • ••♦10, +11 



0054 

REF 

1 



C5f 2023 

32065 

c 

ONPTK 

CMPGREC4 

CCMMCN DATA 



0055 

REF 

1 



05, 2024 

00024 

1 

IONAOR 

T IF'E2 

TiHE2,TIMEl 



0056 

REF 

1 



C5,2025 

32067 

1 

ONPTR 

CMPQRE05 

COLLECT SNAPSHCT 



0057 

REF 

5 

LAST 

166 

03,2026 

24340 

c 

bONAUP 

ONTMEUFF 

SEND SNAPSHCT 



0058 

REF 


LAST 

166 

05,2027 

32056 

c 

ONPTP 

CMP0REU2 

COLLECT SNAPSHOT 



0059 

REF 

6 

LAST 

166 

05,2030 

143A0 

c 

40NADK 

ONTMEUFF 

SEND SNAPSHCT 



GOb C 

REF 

2 

LAST 

166 

05* 2031 

3206 3 

c 

ONPTR 

CMPCWE03 




0061 

REF 

1 



C5,2C32 

22076 

1 

ONPTR 

CPPCiWE06 

CCMMCN DATA 



0062 

REF 

2 

LAST 

123 

05,2033 

037A3 

1 

IONAOP 

ELFV 

ELEV,+1 



C062C5 

REF 

1 



C5,2C3A 

03753 

( 

IONAOP 

CENTANG 

CENTANG,+1 



00621 

REF 

2 

LAST 

9 C 

05,2035 

C2610 

1 

IONAOR 

DELTAR 

OELTAR,+l 



C063 

REF 

18 

LAST 

149 

C 5 f 2 C 3 6 

0C1G6 

c 

IONAOR 

STATE +100 

FALGRROS 10 AND 11 



0064 

REF 

2 

LAST 

7E 

C5, 2037 

C1336 

c 

IONAOR 

TEVt NT 

TEVENT,+1 



0065 

REF 

3 

LAST 

166 

05, 2C4C 

03231 

1 

IDNADR 

PCMD 

PCMO,YCMO 



0066 

REF 

23 

LAST 

161 

C5,2C41 

01331 

1 

IONAOP 

OPTMCCeS 

OPTMOOeS,HCLCFLAG 



0067 

REF 

1 



05,2042 

32101 

0 

ONPTR 

CRPCREC7 

CCMMCN DATA 



0068 

REF 

3 

LAST 

121 

05,2043 

13720 

c 

3DNADR 

VGT IG 

VGT IG , + l , . . . + 4, +5 



0069 

REF 

A 

LAST 

166 

C5,20AA 

CC0C7 

c 

IONAOR 

SPAR E 




0070 

REF 

5 

LAST 

166 

C5,2CA5 

00007 

c 

IDNADR 

SPAR E 




00 71 

REF 

6 

LAST 

166 

C5,2CA6 

77770 

1 

-IONAOR 

SPARE 

















P0C72 

— 



— 

— -i* — 

— sue 

LISTS 

^ • 

— 

— ^ 





C073 

REF 

1 



05,2CA7 

76605 

C 

CMPOWEOl-lONADR 

RN 

+ 2 

RN + 2 , + 3 

SNAPSHCT DATA 



GQ74 

REF 

2 

LAST 

166 

05,2050 

01174 

1 

IDNAOR 

RN 

4- ii 

RN '•*4 f ♦ 5 




CG75 

REF 

1 



C5,2C5l 

C1176 

C 

IDNADP 

VN 


VN , ♦ 1 




0076 

REF 

2 

LAST 

166 

05,2052 

C12CC 

1 

IONAOP 

VN 

+ 2 

VN + 2 , + 3 





uAif • 

A gi-Ck 

t fl] 

EM lur 


ur tuiv 



22 U ^ □ T Pi 


J 1 

^uui.^uc •uoH lor 

L 

CCWM INK 

L ISTS 








CSFR'S PAGE NC. 3 EG S3 













0077 

R£f 

3 

L4ST 

166 

C5,2C53 

012C2 

0 


IDNAOR 

VN +4 

V N ^4 f D 

C078 

ftEF 

2 

ifiST 

76 

05, 2C54 

012C4 

C 


lONAOR 

PIPT IFE 

prpTiME,4i 

QC7S 

Rtf 

_3_ 

LAST 

16 6 

05.2055 

76607 

1 


-IDNAQP 

RN 

R N f 1 













0060 

Rtf 

2 

LfiSJ 

142 

C5, 2C56 

77743 

1 

C«PCV«EC2 

-lONACR 

COUZ 

CCOZ.CCUT SNAPSHOT DATA 

Qoai 

REF 

3 

L3ST 

113 

C5.2C57 

03133 

0 


IDNADP. 

AOt T 

ADCT , ♦1/0GAPATE,4 1 

0062 

REF 

4 

L/ST 

167 

C5,2C6C 

03135 

c 


IDNAOR 

AD07 42 

AC0T42 ,43/CPECAB + 2,43 

0083 

REF 

5 

L/ST 

167 

05.2061 

0313? 

1 


IDNADR 

ADCT 44 

ADO T44, 45/0 PEC A 644, 45 

CC8A 

REF 

1 



CS, 2062 

77745 

1 


-LONAOR 

CDUX 

COUX,CDOY 













008^ 

REF 

2 

L^ST 

lie 

C5,2C63 

07076 

1 

CMPOweoa 

2DNADR 

AK 

AK.AK 1 ,4K2.RCSFLAGS COMMON DATA 

QQe.fc- 

REF 


L^ST 

lie 

C5.2064 

70605 

0 


-20NADR 

THE TADX 

THETACX.THETADY ,THETAOZ,GAR0AGE 













0067 

REF 

19 

L/ST 

166 

05,2065 

20074 

c 

CMPCK604 

5DNA0R 

STATE 

PLAGhROO thru PLAGWR09 COMMON DATA 

0088 

REF 

11_ 

l/ST 

16 e 

05.2066 

52754 

c 


-6DNADR 

DSP T AE 

DISPLAY TABLES 













QC8S 

REF 

1 



05,2067 

76054 

1 

CWPCV«E05 

-IDNAOR 

R-CTPER 

R-0THER42,43 SNAPSHOT DATA 

0090 

REF 


L^ST 

167 

05. 2C7C 

01725 

c 


IDNADR 

R-CTHER 44 

R-0THER44 

0091 

REF 

1 



05, 2071 

C1727 

1 


lONAOR 

V-C7HER 

V-CTHER, 41 

0092 

REF 

2 

L3S1 

16 7 

05,2072 

01731 

c 


lONAOR 

V-CTHER *2 

V-CTPER42 ,43 

0093 

REF 

3 

L^ST 

16 7 

05,2073 

C1733 

1 


lONAOR 

V-CTHER 44 

V-CTHFR44,45 

009^ 

REF 

1 



05,2074 

C1642 

c 


lONAOR 

T-OTHER 

T-CTPEP ,4 1 

0095 

REF 


L)»ST 

16 7 

05,2075 

76056 

c 


-IDNAOR 

R-OTHER 

R-OTHER, 41 













0096 

REF 

1 



05,2076 

01432 

c 

CHPCWE06 

lONAOR 

Rseec 

RS08C,4l CCMMQN DATA 

0097 

RfcF 

1 



05,2077 

10372 

c 


3DNA0R 

CADR FI SH 

CADRFLSH,4i,^2,FAlLREG,4U+2 

0098 

REF 

5 

LiSST 

162 

05,2100 

73741 

1 


-2DNA0R 

CODS 

CDUS,PIPAX,PIPAY,PIPA2 













0099 

REF 


L^ST 

99 

05,2101 

03073 

0 

CMPOhEu? 

lONAOR 

LEMMASS 

LEMMASS, eSMMASS COMMON DATA 

OJiOO 

REF 

1 



05.2102 

03066 

1 


IDNAOR 

DAPD ATRl 

0AP0ATR1,0AP0ATR2 

0101 

REF 

3 

LAST 

lie 

05,2103 

07167 

c 


2D NAD R 

ERRCPX 

ERRGRX rERRQRY , ERR GRZ. GARB AGE 

0102 

REF 


LAST 

113 

05,2104 

13125 

0 


30NADR 

W6CDT 

HBQDY, •. .45/GPECAC . .45 

0103 

REF 

1 



05,2105 

05 154 

i 


2DNADR 

REDOCTR 

REDOCTR, THETAC, *1,42 

010^ 

REF 

32 

LAST 

153 

05,2106 

C132C 

1 


IDNAOR 

INOCES30 

IMCOFS30, 1 MCCES33 

0105 





05,2107 

34011 

0 


DNCHAN 

11 

CHANNELS 11,12 

0106 





05,2110 

34013 

1 


ONCHAN 

13 

CHANNELS 13,14 

0107 





05,2111 

34030 

c 


ONCHAN 

30 

CHANNELS 30,31 

0108 





05.2112 

4 3 745 

c 


-ONCHAN 

32 

CHANNELS 32,33 
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PQIIO 

CS^ 

COAST 

/NO 

ALlG^RE^T LCWNLIST 



- _ _ _ _ 

— 









-CCNTRCL 

L 1ST 





M. Ifc.JL m - - 

Uli2 





Q5f 2113 

IL.1I f * 1 lW & 


cmcstadl 

EQUALS 


SENG ID BY SPECIAL COOING 

- 

Qil3 

REF 

1 



(J5,2113 

32097 

c 


ONPTR 

CMC5TA01 

COLLECT SNAPSHOT 


CUA 

- 1 1 — . 

REF 

7 

LAST 

166 

05t21l9 

29390 

c 


60NA0R 

DNTMELFF 

SEND SNAPSHOT 


0115 

REF 

1 



C5t2113 

32056 

c 


ONPTR 

CMLSTA02 

COLLECT SECCNC SNAPSHOT 


OIU 

REF 

8 

LAST 

168 

C5t21 16 

19390 

c 


90NA0R 

ONTR eUFF 

SEND SNAPSHOT 


0117 

REF 

1 



05,2117 

32063 

c 


DNPTP 

CMCSTA03 

CCHRQN DATA 


one 

REF 

A 

LAST 

166 

05,2120 

039 12 

c 


lONADR 

T IG 

TIC, 41 


Oils 

REF 

2 

LAST 

6 A 

05,2121 

00302 

c 


lONADR 

BEST I 

BEST I ,eeST J 


0120 

REF 

A 

LAST 

122 

05,2122 

17679 

1 


90NAr)R 

MARKCORN 

RARK0CNN,4l .. .^S, 46,GAPBAGE 


0121 

REF 

1 



05,2123 

175C2 

c 


90NA0H 

HARK2CWN 

MARK2DNN,4l.. .45, *6 


0123 

REF 

2 

LAST 

e S 

05,2129 

06363 

1 


20NA0R 

HAPC 

HAPC IfHPEPf + l 


(J12A 

REF 

1 



05,2125 

02355 

c 


lONADR 

RSP-PREC 

RSP-RR£C,4l 


0125 

REF 

A 

LAST 

166 

05,2 126 

13720 

c 


30NAUR 

VGT IC 

VGTIG 


0126 

REF 

2 

LAST 

166 

05,2127 

25735 

1 


60NA0R 

REF SPRAT 

REFSRRAT, 41 ,, ,* 4lO, + ll 


012 7 

REF 

1 



05,2130 

32065 

c 


ONPTR 

CMCSTAC9 

CCHMCN DATA 


0128 

REF 

2 

LAST 

166 

05,2131 

00029 

1 


lONAOP 

TIRE 2 

TIRE2,TIMei 


0129 

REF 

1 



05,2132 

32067 

1 


ONPTR 

CRCSTA05 

COLLECT SNAPSHOT 


G130 

REF 

9 

LAST 

168 

05,2133 

29390 

c 


6UNA0K 

DNTREIFF 

SEND SNAPSHOT 


0131 

REF 

dC 

LAST 

168 

05,2139 

32056 

c 


ONPTR 

CMCSTA02 

COLLECT SNAPSHOT 


0132 

REF 

1C 

LAST 

16 8 

05,2135 

19390 

c 


9DN ADR 

DNTRELFF 

SEND snapshot 


0133 

REF 

2 

LAST 

168 

05,2136 

32063 

c 


ONPTR 

CMCSTA03 

COMMON DATA 


013A 

REF 

1 



05,2137 

320T6 

1 


ONPTR 

CRCSTA06 

CCMRCN DATA 


0135 

REF 

2 

LAST 

92 

05,2190 

12757 

1 


3DNA0R 

OGC 

0G(r,4l,IGC,4l,RGC,4l 


C136 

REF 

2C 

LAST 

167 

05,2191 

00106 

c 


lONAOR 

STATE +100 

FALGRROS 10 AND 11 


0137 

REF 

3 

LAST 

166 

05,2192 

01336 

c 


lONADR 

TEVERT 

TEVENT ,41 


0138 

REF 

1 



05,2193 

02633 

c 


IDNAOR 

LAUNCHAZ 

LAUNCHAZ, 41 


0139 

REF 

2A 

LAST 

16 6 

05,2199 

01331 

1 


lONADR 

OPTMCCES 

CPTMOOES ,H0L0FLAG 


OlAO 

REF 

1 



05,2 195 

32101 

c 


ONPTR 

CRCSTA07 

CCRMCN DATA 


QlAl 

REF 

18 

LAST 

167 

05,2196 

52759 

c 


■60NA0R 

OSPT AB 

DISPLAY tables 






- 









H i) 1. ^ 






L 1 a 1 j" ' 





— 

- 

01*t3 

REF 

2 

LAST 

166 

C5,2C97 



cmcstaoi 

EQUALS 

CRPCRECl 

CCMRCN DCrNLIST DATA 

- 

OlAA 

REF 

3 

LAST 

1 66 

05,2056 



CHCSTA02 

EQUALS 

CRP0Rt02 

CCRMCN DCRNLIST DATA 


aiA5 

REF 

3 

LAST 

166 

05,2063 



CHCSTA03 

EQUALS 

tRPCRE03 

CCRMCN DCRNLIST CATA 


Q1^6 

REF 


LAST 

166 

05, 2065 



GF‘CSTA09 

EQUALS 

CRPCRE09 

CCRMCN DQPNLIST CATA 

- - 

ulA7 

REF 

2 

LAST 

166 

05,2067 



CHCSTA05 

EQUALS 

CRPCWEC5 

COMMON OOwNLlST DATA 


C1A8 

REF 

2 

LAST 

166 

05,2076 



CPCSTA06 

EQUALS 

CHP0WE06 

CCRMCN OCRNLISI data 

- — ■ — — - — 

01A9 

REF 

2 

LAST 

166 

05,2101 



CMC STA07 

EQUALS 

CRPCV.E07 

COMMON DORNLlSt OAtA 
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PQ151 Rt^TzVObS ANC PRETHRIST IIST ^ 


k (]152 CCNTBOL LIST- 


0153 

51^5^ 





05t21A7 



CWRENCDL 

EQUALS 


SEND ID BY SPECIAL CODING 

REF 

1 



05f 2 147 

32047 

C 


DNPTR 

CMPEFCOl 

COLLECT SNAPSHOT 

0155 

REF 

11 

LAST 

166 

C5»2150 

24340 

C 


60NA0R 

ONTHEUf F 

SEND SNAPSHOT 

0156 

REF 

1 



05,2151 

32056 

c 


DNPTP 

CPREFCOi’ 

COLLECT SECCNL SNAPSHOT 

015? 

REF 

u 

LAST 

17C 

05.2152 

14340 

c 


40NADk 

DNTHGUFF 

SEND SNAPSHOT 

0150 

REF 

1 



05,2153 

32C63 

c 


DNPTR 

CHR ENCC3 

CCMHCN DATA 

015S 

REF 

5 

LAST 

168 

05,2 154 

03412 

c 


lONAOR 

T IG 

TIC, + 1 

0160 

REF 

1 

LAST 

16 6 

05,2155 

C3422 

0 


IDNADK 

0ELLT4 

0ELLT4,+1 

0161 

REF 

3 

LAST 

166 

05,2156 

13414 

1 


3DNAUF 

PTARG 

RTARGf’^1* 

0162 

REF 

1 



05,215? 

C1151 

c 


lONAOR 

VHFT IRE 

VHFT IHE,+ 1 

JLt3 

REF 

5 

LAST 

168 

05,2160 

17674 

1 


40NA0R 

HARK CCQN 

MARK! IRE (CP 1 ,YCCU,SCDU ,2C0U,TC0U,XC0U,RM 

0 1 

REF 

1 



05,2 161 

01125 

c 


IDNADR 

VHFCRT 

VHFCNT , + l 

U165 

REF 

2 

LAST 

121 

05,2162 

03662 

c 


IDNADR 

TTF 1 

TTPI,+l 

0166 

REF 

1 



05t 2 163 

C3424 

c 


IDNADR 

EC STEER 

eCSTEER. +1 

C167 

REF 

2 

LAST 

9C 

05,2164 

02636 

c 


lONACR 

DELVTPF 

DELVTPF, +1 

oite 

REF 

7 

LAST 

166 

05,2165 

COOG7 

c 


lONAOR 

SPAR E 


0169 

REF 

6 

LAST 

17C 

05,2166 

COOC7 

c 


ICNAUR 

SPARE 


0 170 

REF 

3 

LAST 

i2C 

05,2167 

C3655 

1 


LONAOR 

TFASS4 

TPASSa ,+ l 

J 1 7 1 

REF 

3 

LAST 

1 

05,2170 

13404 

0 


3DNADR 

OELVSLV 

DELVSLV,+l.,,+4,+5 

0172 

REF 

5 

LAST 

88 

05,2171 

06320 

c 


20NA0R 

RANG i 

RANGE, ♦l,RRATE, + l 

0173 

REF 

1 



05,2172 

32065 

( 


DNPTR 

CHREKC04 

CQHMCN DATA 

017A 

REF 

■3 

LAST 

168 

05,2173 

C0024 

1 


lONAOR 

TIMF2 

TI«e2,TIMEl 

Cl 75 

REF 

1 



05,2174 

32067 

1 


DNPTR 

CMPENDOS 

COLLECT SNAPSHOT 

C176 

REF 

13 

LAST 

17C 

05,2175 

24340 

c 


60NA0R 

DNTMELFF 

SEND SNAPSHOT 

017 7 

REF 

2 

LAST 

17C 

05,2176 

32056 

c 


DNPTR 

CMF E RC02 

COLLECT SNAPSHOT 

0178 

REF 

1 A 

LAST 

17C 

05,2177 

14340 

c 


40NA0R 

DNTHEGFR 

SEND SNAPSHOT 

0179 

REF 

2 

LAST 

i7C 

05,2200 

32063 

c 


ONPTP 

CMREKCC3 

CCMHCN DATA 

oltiO 

REF 

1 



05,2201 

22076 

1 


ONPTR 

CHRENC06 

CCHHON DATA 

C IBl 

REF 

-3 

LA5T 

166 

05,2202 

03743 

1 


lONAOR 

ELEV 

ELEV ,+l 

uiei03 REf 


LAST 

16 6 

05,2203 

C375i 

c 


lONADP 

C ENT ANG 

CENTANG,+1 

(-ieiC6 PlF 

3 

LAST 

\bt 

05, 2204 

C261C 

1 


IDNADR 

OEL T AP 

OELTAR , + l 

oibz 

REF 

3 

LAST 

12^ 

05,2205 

13645 

1 


30NADH 

0ELVEET3 

DELVEET3, ♦l,..,+4,+5 

viiea 

REF 

it 

LAST 

168 

C5,22C6 

01331 

1 


lONAOR 

OPTHCOtS 

OFTHCCES.HCLCFLflG 

01 £<♦ 

REF 

1 



05,2207 

32101 

0 


ONPTR 

CHRENDO? 

ccmmcn data 

Ci 65 

REF 

2 

LAST 

87 

05,2210 

02324 

c 


lONADP 

R theta 

rth6ta,+i 

Glee 

REF 

2 

LAST 

IM 

05,2211 

C7400 

1 


20NA0R 

LAT( SPL) 

LAT{ SPLl , LNGI SPL 1 ,+i 

CIS 7 

REF 

'a 

LAST 

in 

C5,2212 

C 7 7 66 

1 


2 ON AC VPREC 

VPRED , + l .GARHAE I , ♦! 

0168 

REF 

21 

LAST 

168 

05,2213 

77671 

1 


-IDNADR 

STATE +100 

FAlCRRHS IQ AND 11 

P 1 P Q 





— — ^ C 1 1 1 T CTC 






A ^ 

VJ 4 O * 























CISC 

REF 

3 

LAST 

166 

C5,2C47 



CKREMLOl 

equals 

CPPC REOl 

CCPHCN DCQNLIST DATA 













0191 

REF 


LAS! 

168 

C5,2056 



C MR E N 002 

equals 

CHP0kE02 

CCHMCN DdWNLIST DATA 













0192 

REF 


LAST 

166 

C5,2C63 



CRRENC03 

EQUALS 

CHPQV<EC3 

CCHMCN OQViNLISI CATa 
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ui93 

REF 

3 

LAST 

166 

C5.2Ce5 

chrenco^ eouals 

CFPQhLO*^ 

CCRMCN 

OCRNL 1ST 

DATA 

iLL<^ 











REf 

2 

LAST 

16E 

C5.2C67 

CHRENCQ5 equals 

C^PQV»EC5 

CGMMCN 

OGMNLIST 

DATA 


0195 

REF 


LAST 

161 

C5,2C7e 

CHRENC06 EQUALS 

CHPCViEOe 

CCRWCN 

OORRLl ST 

DATA 












0196 

REF 

3 

LAST 

168 

C5t2101 

CMRENC07 equals 

CRP0HE07 

CCMHCN 

OOmNLIST 

DATA 





R 



R 


i 

« 



T 


L ■ .1' JPi ' . A.' 

ZM. *•* 
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_VJ l: ♦ r 

L 




” ^ .r. . . ~ — - — - . .. . 


□ CiihLlFK LISTS 



LStR'S PAGE NO, B 60 S3 







P0158 

CSF EPTPM ARC LPCATE 

CCHM 1ST 










RCJJi9^ 


ClNTPCL LIST 










C2Q0 


05,221A CRENTROL 

EQUALS 

SEND ID BY SPECIAL COOING 


Q20I 

R E F_ 

05,221^ 32C47 C 

DNPTR CHENTFOl 

COLLECT SNAPSHOT 



Q2C2 ReF 15 l/S? 17C OJt2215 2^340 C ^OHADR DNTMeUFF S6N0 SNAPSHCT 

C2U3 REF 1 05,2216 22056_J ONPTP CMENTP02 CCLLECT SECCNC SNAPSHOT 

02Q^ RFf 16 LAST 172 C5.221? 143AC C ^QNAQR DNTNfcllFF SEND SNAPSHOT 

0205 PBF 1 05,2220 3 2063 C ONPTR CMFNTR03 CCHHCK DA TA 

C20e REF 2 L^ST iOE C5,222 l C?3C0 C 2DNADP CMLAFPCD CNOAPPCD, PREL , QPEL,RREL 

02C^ RiF_ 2 L4ST 11 5 05, 2222 03635 1 IDNADRL/Dl l/Ol,*l 

C2CS REF 3 L^ST 7C 05,2223 2A3CA C 6DNA0R UPbOFF UPBLIFF ,+ l , , • + 10 , ♦ 11 

0210 REF ^ L^ST 172 05,222^ 1^320 C <»ONADP UPtUFF -f-UO UPBUFF ♦ 12 , 1 3. . . -H S , 1*50 


02U 

REF 

*3 

LAST 

6 S 

C 5, 2 2 25 

C93C0 

C 

2DNA0R CORPNUMB 

CCRPMHb,UPCLCHCD ,UPV£Re , UPCOUNT 

C212 

REF 

2 

LAST 

10 8 

05,2226 

03313 

C 

lONADR PAXEPKl 

PAXERR l,ROLLTH 

0213 

KEF 

3 

LAST 

lie 

05,2227 

13675 

1 

3t)NADR LATANG 

LATANG, + l ,RCOT, +1 ,THETAH, + l 

C216 

REF 

3 

LAST 

17C 

C5,223G 

C79C0 

1 

2DNADR LAT ( SPL ) 

LATtSPLJ,+l,LNG(SPLI,+l 

0217 

REF 

2 

LAST 

LQ8 

05,2231 

03265 

C 

lONADP ALFA/ieO 

ALFA/ 180, BETA/ieO 

0218 

REF 

1 



05,2232 

22Ct5 

c 

DNPTR CHtNTR09 

CCMKCN DATA 

0219 

REF 

9 

LAST 

17C 

05,2233 

00029 

1 

IDNAUR TIRE2 

T IME2 ,T IM£1 

022C 

REF 

1 



05,2239 

32269 

c 

ONPTP CMFNTR05 

COLLECT SNAPSHOT 

0221 

REF 

17 

LAST 

172 

05,2235 

29390 

c 

bONAOP DNTHEIFE 

SEND SNAPSHCT 

0221 

REF 

2 

LAST 

172 

C5,2236 

3 20 5 6 

c 

DNPTR CWENTP02 

COLLECT SNAPSHOT 


KEF 

18 

LAST 

172 

05,2237 

19390 

c 

90NA0R DNTMBLIFF 

SEND SNAPSHCT 

0229 

REF 

3 

LAST 

16? 

05,2290 

07G76 

1 

20NA0R AK 

AK,AK 1 ,AK2,RCSPLAGS 

0225 

KEF 

9 

LAST 

16? 

05,2291 

13167 

c 

3DNADR ERRLRX 

EPRQRX/V/2,7H£TA0X/Y/2 

^I2t 

REF 

3 

LAST 

172 

05,2292 

07300 

c 

2DNADR CMDAPRCO 

CROAPMOD, PflEL,C3PEL,RREL 

0227 

REF 

5 

LAST 

172 

05,2293 

293C9 

c 

60NADR UPBUFF 

UP0UFF+O, + l.,. + lO,+l 10 

024.6 

REF 

6 

LAST 

172 

05,2299 

19320 

c 

9DNA0R UPBUFF +120 

UPBUFF^12f'^l3# » •♦l0f"^19O 

G22S 

KEF 


LAST 

161 

C5,2295 

C3l?3 

c 

lONADR LEHHASS 

LEMHASS,CSRRASS 

0230 

REF 


LAST 

167 

G 5 , 229c 

03066 

1 

lUNADR DAPOATRl 

OAPOATRl ,GAPCATP2 

C23i 

REF 

c 

LAST 

lOE 

C5,2297 

C3319 

1 

lONADR RULLTP 

RQLLTP ,ROLLC 

0 2 32 

Rtf 

It 

LAST 

1 7C 

05,2250 

01331 

1 

IDNADR UPTNCLES 

CPTHCOES,HOLOFLAG 

0233 

REF 

5 

LAST 

16? 

05,2251 

13125 

0 

30NA0R vgbCDY 

WB00Y,...+5/CHEGAC,..,+5 

0239 

REF 

2 

LAST 

16? 

05,2252 

05159 

1 

2UNADP REDUCTP 

REOOCTR, THETAC+C ,+lf +2 

023 5 

Rt F 


LAST 

16? 

C 5 , 2 2 5 3 

C132C 

1 

lONADP IPODES30 

IRCDES3&, IMCQES33 

L. J t 





05, 2259 

39C11 

c 

ONCHAN 11 

CHANNELS 11,12 

'.'^3 7 





05,2255 

39013 

1 

DNCHAN 13 

CHANNELS 13,19 

: 3 t 





05,2256 

39C30 

t 

ONCHAN 3C 

CHANNELS 30,31 

w 2. ^ 





05,2257 

39032 

1 

DNCHAN 32 

CHANNELS 32,33 


RLF 

2 

LAST 

16? 

05,2260 

0193^: 

c 

IDNApP RSBbC 

RSBEC ,+ 1 

w ^ i 

Rt F 

i. 

LAST 

16? 

05,2261 

10372 

c 

3DNADR CACkFLSH 

CAORFLSH, + l ,^+2, FATXR^G, + 1,+^ 


RtF 

ti 

LAST 

17C 

05,2262 

00106 

c 

IDNAOR STATE +1^ 

FALOhRDS 10 AND ll 

0293 

ELF 

a 

LAST 

116 

05,2263 

?9CC7 

c 

-IONAOR GANHAEI 

GARMAtW + l 


SOb LISTS 


siLF ^ L 4 S T 1 7 C 05, 2C<.7 


CREMPUl EOOALS CHPChECl 


CCMMCN DORNLIST DATA 


lin ALG. 2^. 1^68 KCOLADfc .064 PAGE 
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C2A6 REE 5 LASl 17C C5f2C56 CHtNTP02 EQUALS CMP0hEC2 CCMMCN OOJuNLISl DAJA 


aZ4 7 _ REF 5 LAST I7C C5.2063 CMENTRQ3 EQUALS CNP0UE03 CCNHCN OOWNLIST DATA 


C2A8 REF A LAST 1 7J 05,2C65 CPEMR OA E QUALS CMPCUEOA CCMHCh DOKNLIST DATA 


Q2A9 REF 5 LAST 164 05t226A 76615 1 CHEMP05-IDN ADR QELV DELVfH SNA PSHOT DATA 

0250 REF 6 LASJ ^173 05^2265 _ C116A C lONADR DELV *2 0ELV42, + 3 

A211 REF 7 LAST 173 05.2266 01166 1 lONAOF DELV 4A D6LV + A,+5 

0252 REF 3 LAST lU 05,2267 C3726 1 lUNADP TTE 776,41 

0253 REF 2 LAST 116 05,2270 C372A C lONAOR VIL VI0,4l 

QiSJt REF A LAST 17C 05,2271 03766 C _ IDNAOR VPREC VPRED,4l 

C255 REF 3 LAST 166 05,2272 76532 1 -IDNAOR PIP7IME1 PIPTINEI,*! 


JCL25l 6 _SEi A LAST 171 05.2101 


CMENTRQ7 EQUALS CHPChEO? 


CCMMCN DQWNLIST DATA 


It — ' — _ 't* 
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P0258 

P22 

ccvMi ns 




















f-J.* 1 

K C25J 

M M w 

„ ^ 

-1 







m 













1 

02t0 





05f 2273 


CMPG220L 

EQUALS 



SENG ID BY SPECIAL CODING 


C2fei 

PEF 

1 



05.2273 

32047 

C 

DNPTP 

CNFG2201 


COLLECT SNAPSHOT 


0262 

REF 

19 

L/ST 

172 

05.2274 

24340 

C 

60NA0R 

DNTNEUFF 


SEND SNAPSHOT 


C263 

REF 

1 



05,2275 

32CS6 

C 

ONPTR 

CMPG2202 


COLLECT SNAPSHOT 


02t9 

REF 

20 

LAST 

174 

05.2276 

14340 

c 

40NA0R 

dntnelff 


SEND SNAPSHOT 


0265 

REF 

1 



05.2277 

32063 

c 

OKPTP 

CMPG2203 


CCKNCN DATA 


0266 

REF 

2 

LAST 

lie 

G5,23G0 

2753? 

c 

6DNA0P. 

5VMP KCAT 


LANDING SITE HARK DATA 


0267 

REF 

3 

LAST 

174 

C5,23Cl 

27553 

I 

60NAUF 

SVNRJ<DAT 

+ 120 

SVMRKCAT+0. ..+34 


C268 

REF 

A 

LAST 

174 

C5,23C2 

27567 

c 

60NAUR 

SVMK KDAT 

+ 240 

LANDING SITE HARK OATA 

• 

0269 

REF 

2 

LAST 

94 

C5,23C3 

02751 

c 

lONAUR 

LANDPAKK 


LANDMARK, GARBAGE 


027C 

KEF 

9 

LAST 

17C 

05.2304 

CCCC7 

c 

IDNAOP 

S PA R E 




C271 

REF 

1C 

LAST 

174 

05,2305 

C0007 

c 

IDNAOP 

STAR E 




0272 

REF 

1 1 

LAST 

174 

05,2306 

CQ007 

c 

IDNAOK 

SPAF E 




0273 

REF 

1 



05,2307 

32065 

c 

ONPTR 

CMPG2204 


COMMON DATA 


C2 74 

REF 


LAST 

172 

05,2310 

00024 

1 

lONAOR 

T IME2 


TIMe2,TlH£l 


0275 

REF 

1 



05,2311 

32337 

1 

ONPTR 

CNPC2205 


COLLECT SNAPSHOT 


0276 

REF 

21 

LAST 

174 

05,2312 

C4340 

1 

2UNAUk 

DNTN8UFF 


SEND SNAPSHOT 

H 

02 7 7 

REF 

12 

LAST 

174 

05,2313 

0G007 

c 

IDNAOK 

SPAR E 



1 

02 76 

REF 

13 

LAST 

174 

05,2314 

00007 

c 

IDNADR 

SPARE 




0279 

REF 

14 

LAST 

174 

05,2315 

C0C07 

c 

IDNADR 

SPAKE 




0280 

REF 

It 

LAST 

174 

C5,2316 

00007 

c 

IDNAOR 

SPARE 




0261 

REF 

2 

LAST 

174 

C5,2317 

32C56 

c 

UNPTR 

CNPb2202 


COLLECT SNAPSHOT 


0282 

REF 

22 

LAST 

174 

05,2320 

1434U 

c 

40NA0R 

ONTPieUFF 


SEND SNAPSHOT 


0283 

REF 

2 

LAST 

174 

05,2321 

3206 3 

c 

dnptr 

CMPG2203 


CCMHON DATA 


C28A 

REF 

1 



05, 2322 

22076 

1 

ONPTR 

CWPG22C6 


CCHMCN DATA 


0285 

REF 

2 

LAST 

94 

C5,2323 

02747 

1 

lONAOR 

8NN 


6NN , GARBAGE 


0286 

REF 

23 

LAST 

172 

05,2324 

00106 

c 

lONAOR 

STATE +100 

FALGNRCS 10 AND ll 


0207 

REF 

1 



05,2325 

12025 

c 

3DNADP 

RLS 


RLSf"^lf •• 


0286 

REF 

U 

LAST 

174 

05,2326 

C00C7 

c 

lONAOR 

SPAF E 




0289 

REF 

27 

LAST 

172 

05,232? 

C1331 

1 

lONAOR 

GPTPCCES 


OPTMCCES, HQLOFLAG 


0290 

REF 

1 



05,2330 

32101 

c 

ONPTR 

CNPG22C7 


CCMHCN OATA 


0291 

REF 

17 

LAS1 

174 

05,2331 

00CC7 

c 

lONADR 

SPARE 




0 292 

REF 

10 

LAST 

174 

05,2332 

CC0C7 

c 

lONAOR 

SPAR E 



R 

0293 

REF 

19 

LAST 

174 

05,2333 

0000 1 

c 

lONAUH 

SPAK E 




029A 

REF 

20 

LAST 

174 

05,2334 

CCCC7 

c 

IDNADR 

SPARE 




U295 

REF 

21 

LAST 

174 

05, 2335 

CC0C7 

c 

lONAOR 

SPAR £ 




02 96 

REF 

£ ^ 

LAST 

174 

05,2336 

7777G 

1 

-lONADK 

SPARE 





ko^97 — SUB LISTS 

0 Z 98 _ REE 5 LAST 172 C5t2CA7 CHPG220I EQUALS C^FGhEGl CCHWCN OOWMIST DATA 

C29S REF 6 LAST 17 3 05,2C56 CMP(j 2202 EQUALS CPPO V^EOZ CCPMCN OOwNL I ST OATA 

u 3U0 rTf 6 LAST TtI C5f 2C6 3 CMPC22a3 EQUALS CWFCV»f03 CCPMCN DCwNLlST DATA 


ff 


GAP J iiEJtiSailA, ai7 Cf A GX: P.H C G RAM 


S BY NA 


m 


Itn AUG. 2^tlS 6a KCQLADE .064 P/^GE 1? 5 


P0307 


0306 
0309 
0 310 

0311 

0312 


COhMlAK lists 


USER'S PAGE NO, 11 


F.0 S3 


0 30 1 

REF 

5 

LAST 

173 

05,2065 



CNPG220A 

EQUALS 

CRPtREOA 

CCMMCN 

OOV<NLIST 

DATA 

aaflz ^ 



LAST 

L2_ 

05^233? 

76672 

0 

CNPG2205 

-lONAUR 

LONG ^ 

LCNGt4>l 


SNAPSHOT 

0303 

REF 

2 

LAST 

75 

05,23AC 

01107 

c 


lONADR. 

ALT 

ALT ,♦! 



03CA 

REF 

3 

last 

75 

C5,23A1 

7667A 

c 


-IDNAOR 

LAT 

LAT ,4 1 



0305 

REF 

A 

LAST 

171 

05,2076 



CMPG2206 

EQUALS 

CRPCWE06 

CCRNCN 

OOWNLIST 

DATA 

.02^. . 

RJLt-_ 

c: 

_ LAST 

173 

OJiilQl 



(,MPG2207 

EOUALS 

CMPCVEC7 

CCRMCN 

OOmNLIST 

OATA 


REF 

REF 

PJF 

REF 

REF 


2 

2 

1 


LAST 

LAST 


165 

165 


C5, 23A2 
C5,23A3 
OSt 23AA 


C2113 C 
0221A 1 
C21<i7 1 


ONTAflLE 


GENAOR CMCSTACL 
GENADR CMENTPCL 
GENAOR CNRtACCL 


1 

1 


05.23A5 

C5,23A6 


02001 1 
02273 C 


GENADR CKROkieCt. 
GENAOR CMPG22CL 


R0013 

RaQl<* 


£ABA A 

L 

151SFRBLF HF.VIS1CN 237 LF AbL PKLbHAN LLLLiiUb HY M A5 A 4 4 i 4 1“ V 3 7 



FRESH START AND RESTART 

USER'S PAGE NO. 1 EO S3 





PQOQC'l 

RFCGP^F CE5CPIFTICN 6 APRIL» 196? 



ROOCi 

SUNDISK REV 120 



RQG.U2 

FIRCIICNAL OESCRIFTICN 







R0003 

SLAPl PAN IMTIATEO FRESH START 



RQOC4 

K EXECUTE STARTSUB 



R0005 

2. TIRN CFF CSKY 0 I SCRET 6-LAPPS 



R0U06 

3. CLEAR FAIL R EG I S T ERS t SELF CHECK ERRCR COUNTER AND RESTART 



RCQG7 

CCUMER 



Rooce 

execute ccfstart 







R0009 

DCFSTAPT MACHINE INITIATED FRESH START 







ROOlO 

1. CLEAR SELF-CHECK REGISTERSf PCCE REGISTER AND CDUZ REGISTER 



aoaii 

2. CLEAR PHASE TABLE 



R0012 

3. 1MTIAL12E iPU FLAGS 




N 


^ . 1 M T I 4LI2E FlftGWCRCS 

TFA^SFER CC^TROt TO tCl£ ICCP IN OUMHVJQB 


RU015 (iCPR CG H/SCWARE PEST/IRI 

R0016 C. £>ECME JI^RTSUe ^ I I " 

RC017 1. TRANSFER CCNfPGL TC CCFSTART IF ANY GF THE FOLLOWING CONOITICNS 

R0018 EM ST, 


RQ0I9 A. RESTART CCCUREC OlRlNG EXEClTIOh CF ERASCHK 


R0020 

6. BOTH CSCILLATCR FAR AND AGC EARNING ARE ON 




R0021 

C. PARK REJECT AND EITHER NAV CR PAIN DSKV ERROR LIGHT RESET 




R0022 

ARE ON. 




R0023 

2. SCHEDULE A T5RUPT PPCGPAN FCP THE CAP 




R0024 

a. SET FLAGNRC5 BITS FOR INTNAKE PCUTINE 




R0025 

A. EXTINGUISH ALL CSKY LAPRSt EXCEPT PROGRAM ALARM, GIMBAL LOCK AND 




RC026 

NC ATT 




P0027 

!. INITIALUE IPU FLAGS 




KOQZB 

6. If ENGINE CCPPANC IS CN ( FL AGWPD5 ,6 IT 7), SET ENGINE ON tCHAN- 




K0Q29 

NEL 11, eiT 131 




P0Q30 

7, TRANSFER CCNTRQL TC GCFR0G3 









R0031 

ENEMA SOFTWARE RESTART INITIATED BY MAJOR MODE CHANGE 









ROUi2 

1, EXECUTE 5TARTS82 




R0033 

2. KILL FROGRAPS THAT WERE INTEGRATING OR WAITING FOR INTEGRATION 




R003A 

RCUTINE 




R0035 

3. TRANSFER CCNTPQL TC GCFRCCi 









R(1Q36 

CCFRCG3 SUeRCUTlNE CCPHCN TC GQFRGG AND ENEMA 









H0CI3? 

1. TEST PHASE TABLES - IF INCORRECT, DISPLAY ALARM 1107 AND 




P0C3e 

TRANSFER CCNTROL TC CCFSTART 




R0C39 

2. DISPLAY NAJCR MODE 




ROOAO 

3. IF ANY GRCLPS WERE ACTIVE UPCN RESTART , TRANSFER CONTRCL TC THE 
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L FPESH and RiiTART ~ USER*S PAGE NO. 2 



EO S3 


KOQ^l PES1ARTS SGQPQUTINE 1C RESCHECCLE PENDING TASKS, LCNGCALLS, AND 

P00^2 JCBS <P2C IS RESTARTED VIA FlNCVAC) 

e.QDfi3 4. IE NQ GRCCPS NERE ACTIVE UPCN PESTART, DISPLAY ALARN CODE 

R004^f me (RESTART WITH NC ACTIVE GROU PS >. 

P00^5 5. TRANSFER CCNTROL TO IDLE ICCP IN DUHN YJOB 1 


PflO^fc STAPTSLB SlERCUT INi CCRNCN TC SL/Pl AND GOPKOG 


JiQjD47 U_CL£AR QUTEIT CHARNELS S AND 6 

ROO<te 2. IMTIALI2E T IHE5 ,T I RE^ ,T I NE3 

R00A9 3. TRANSFER CCNTRCl TC STARTSfi2 


R005D STARTSE2 S IBRCUTINE CCNHCN TO ST/RTSUE AND ENEMA 


fiflOSl- 1^ -JMT1ALI2E GUTaiT CHANNELS lltl2,I3 AND 14 

R0052 2. REPLACE ALL_^lASKS CN ViAlTLIST RITH ENDTASK 

R0053 3. R AKE ALL EyEClflVE REGIST ERS AVAILABLE 

RQ054 A. MAKE ALL VAC AREAS AVAILABLE 

RQC55 S. CLEAR D SKV REGISTERS^ 

R0056 A. 2ER0 hUMERCUS SWITCHES 

R005 7 7. IMTIALI2E CPTICS FLAGS 

RQ058 8. IMTIALI2E PiPA AND TELEMETRY FAIL FLAGS 

R005S 9. INITIALIZE CCWN TELEMETRY 


R006CJ INFlT/CLTPLT I M T I A L 1 ZAT I C N 


R0061 

A. CALLING SECUENCE 






SLAPl - TC PCSTJUNF CP 

VERB 36, ENTER 

RCGfc3 

CAOR SLAPl 





HQ,QtA 

ENEMA - TC POSTJUMP <♦* 

DO NOT CALL ENEMA WITHOUT 

R0065 

CACR ENEMA 

CCNSULTING POOH PECPLF 




-RGQfcA 

CLTFUT 





P0C67 

ERASABLE MEMORY I M T I AL I 2 A T IGN 





R0C6e 

PPCGPAM ANALYSIS 

' 




R0069 

A. SLePOLTlNES CALLED 





R0Q7O 

MP.KLEAN ,WAI TL 1ST, CSPMM, ALAR MfREST ARTS. FINOVAC 




RCC71 

e. ALARMS 





R(j072 

11C7 PHASE TABLE ERRCR 


RCd73 

lllC RESTART WITH NC ACTIVE GROUPS 


t 
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L FRESH STARl ANC RESTART USER *S PAGE NO. 3 EO""^ 


0C7A 

CQ75 

QMKl^ 





10.2203 




BANK 

10 


^ 1 

REF 

1 



C5t2COO 




SFl LCC 

FPANCRES 







05.2347 



BANK 

















0077 

REF 


L*ST 

127 

E3t 1400 




EaANK° 

LSTl 
















0078 _ 

REF 

1 







COUNT 

05/START 
















CC79 





05.2347 

0 C004 

C 

SLAPl _ 

INHINT 


FRESH START. CCRES HERE FROM PINBALL. 


0Q80 

REF 

1 



05,2350 

0 2750 

1 


TC 

STARTSUB 

SLBRCUTINE COES MOST OF THE WORK. 















anaj. 

REF 

_JL_ 



05.2351 

1 2356 

1 

STAR rsw 

TCF 

SKIPSIR 

PATCH... .TCF STARTSIM. ..FOR SIMULATICN 


0062 

REf 

19 

LAST 

145 

C5.2352 

3 4675 

1 

STARTSIM 

CAF 

b IT14 



0C83 

REF 

1 



05,2353 

0 5042 

1 


TC 

F INOVAC 



00 8A 





05,2354 

77777 

c 

S1H2CA0R 

OCT 

77777 

PATCH 2CA0R (ANC EBANK DESIGNATION) OF 


0065 





05,2355 

77777 

c 


OCT 

7777? 

SIMULATION START ADDRESS. 















aiiefi. 

B-tf 


LAST 

162 

05,2356 

3 46 74 

c 

SKIPSIM 

CAF 

BITl 5 

TURN OFF ALL CSPTAB+llD LAMPS ONLY ON 


0067 

REF 

19 

LAST 

168 

05,2357 

55*036 

1 


TS 

OSPTAB +U0 

REOUeSTEO FRESH START. 















0.QL6Q 

_ Blf 

_liL_ 

. LA5J 

161 

C5.236C 

3 4719 

1 


CAF 

ZERL 

SAME STCRY CN 2ERCING FAILREG. 


0089 

REF 

2 

LAST 

7S 

05,2361 

55*365 

1 


TS 

ERCCLFT 



0092 

REF 

1 



05,2362 

59 375 

1 


TS 

FAIL REG 



0093 

REF 

2 

LAST 

178 

05,2363 

59 376 

1 


TS 

FAILREG +1 



0094 

REF 

3 

LAST 

178 

05,2364 

59 377 

c 


TS 

FAILPEC +2 



0096 

REF 

3 

LAST 

172 

05,2365 

55* 159 

1 


TS 

REDCCTF 
















0100 

REF 

1 



05,2366 

9 96C3 

1 


cs 

PPI012 



QlOi 

REF 

10 

LAST 

132 

05,2367 

55*3C2 

c 


TS 

DSRUPTSW 




0102 

REF 

11 

LAST 

178 

05,2370 

3 9719 

1 

DOF START CAF 

ZERO 

OC A 

fresh start. 






Old 

REF 

2 

LAST 

TS 

05,2371 

55*360 

1 

TS 

ERESTCFE 


MUST NOT ee 

REMOVED 

FROM 

DOFSTART 



0109 

REF 

2 

LAST 

7S 

05,2372 

55*362 

C 

TS 

SMCCE 

***** 

MUST NOT EE 

REMOVED 

FROM 

DOFSTART 



01095 

REF 

2 

LAST 

82 

05,2373 

55*501 

c 

TS 

UPSVFLAG 

UPDATE STATE 

VECTOR REQUEST FLAGWORD 



01096 





05,2379 

C CCC6 

1 

EXTEND 










01C97 

REF 

1 



05,2375 

Cl 005 

c 

mRITE 

chan5 

TURN 

OFF RCS 

JETS 






0109E 





05,2376 

C 0006 

1 

EXTEND 










C1C99 

REF 

1 



05,2377 

01 0G6 

c 

WRlfl 

CHANd 

TURN 

DFF RCS 

JETS 






0105 





05,2900 

0 0006 

1 

EXTEND 










01C6 

REF 

6 

LAST 

153 

05,2901 

01 011 

c 

WRITE 

OSALMCUT 

ZERO 

CH AN h EL 

11 






0107 





05,2902 

C 0006 

1 

EXTEND 










dice 

REF 

18 

LAST 

169 

C5,29C3 

0] C12 

c 

WRITE 

Chan 12 

7IRC 

CHANNEL 

12 






0109 





0 5 f 2 ^ 0^ 

0 OOC6 

1 

EXTEND 










Clio 

REF 

1 



05,2905 

01 0 13 

1 

WRITE 

CHAN 13 

ZFRTT 

thannel 

13 






0111 





05,2906 

0 0006 

1 

fXTEND 










0112 

REF 

9 

LAS1 

169 

C5,29C7 

C] 019 

c 

WRITE 

CHAN 19 

zero 

Channel 

19 






0119 

REF 

7 

LAST 

15 S 

C5,29lC 

55*316 

c 

TS “ 

WTCP TICK 









0116 

REF 

2 

LAST 

7C 

05,2911 

59 3f2 

1 

TS 

ONLSTCCD 



























C 1 17 

REf 

1 



C5,2912 

59 3 71 

c 

TS 

NVSAVE 
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L FRESH ST^RT ANC RESTART USER'S PAGE NO. ^ E3 S3 


ilia 

ref 

1 



. _a5t.2413 

55*011 

1 

TS 

EbANHTEN 


0120 

REF 

1 



05t2414 

55*130 

C 

TS 

RATE INLX 


. _ j312Qi 

REF 

2 

LilST 

I5_ 

GS.2415 

55*126 

1 

TS 

TPKMKCNT 


C12C2 

REF 

2 

L/ST 

17C 

0 5 « 2 4 1 6 

55*125 

1 

TS 

VHFC^T 


01203 

REF 

1 



05,2417 

55*044 

1 

TS 

EXTVBACT 













0121 

REF 

1 



05.2420 

0 2465 

1 

TC 

MP.XLEAN 













CiZLS „ 

B£f_ 

12_ 

L/ST 

178 

05.2421 

4 4714 

c 

CS 

ZERO 


0121E 

REF 

1 



05,2422 

55*011 

1 

TS 

MOOR EG 













01217 REF 





05.2423 

3 4371 

0 

CAF 

PRI030 


0121E 

REF 

1 



05,2424 

54 366 

c 

TS 

RESTPEG 













- . ai22 

REF 

L_ 



05.2425 

3_ i 1 56 

c 

CAF 

1H30 IMF 

FRESH START IPU INITIALIZATION. 

0123 

REF 

34 

L^ST 

172 

05,2426 

55*320 

c 

TS 

1 NU0ES30 













-- Q12A 

REF 

7 

L^S7 

14S 

05.2427 

0 4633 

c 

TC 

1 ENKCALL 

IN CASE RESTART CALLS DQFSTART 

0125 

REF 

•a 

L4ST 

1 3S 

05,2430 

17C7C 

0 

CADR 

NGATTCFF 













.ai2i? 

PLf 

' 3 

L^ST 

156 

C5.2431 

3 1716 

c 

CAF 

NEGONE 


0127 

RLF 

15 

L/ST 

164 

C5f 2432 

55*303 

1 

TS 

OPTl ^D 

KILL COARSE OPTICS 












0129 

REF 

JL_ 



05.2433 

3 3161 

1 

CAF 

GPTI MTF 


0129 

REF 

2E 

L^ST 

174 

05.2434 

55*331 

c 

TS 

GPTHCEES 













- yi30_ aff_ 

L_ 



05,2433 

3 4763 

1 

CAF 

IM33 IMT 


0131 

REF 

17 

LASl 

16C 

05,2436 

53*321 

1 

TS 

I HUDES33 













jQiJ2._ 





05,2437 

0 C0C6 

1 

EXTEND 


LET T5 IDLE. 

0133 

REF 

1 



C5,244C 

3 3135 

c 

OCA 

T5IDLEP 


013A 

REF 

2 

L6S1 

12 1 

05,2441 

53*313 

c 

DXCH 

T5L0C 













0135 





05,2442 

0 C006 

1 

EXTEND 


INITIALIZE SNITCHES ONLY GN FPFSH START. 

0136 

REF 

1 



05,2443 

3 3164 

1 

OCA 

ShlNIT 


0137 

REF 

24 

L/ST 

174 

05,2444 

52 075 

1 

DXCH 

STATE 


C139 





05,2445 

0 0006 

1 

EXTEND 



0140 

REF 

2 

L/ST 

174 

05,2446 

3 3166 

c 

DC A 

SMMT +2 


01405 

REF 

25 

LAST 

174 

05,2447 

52 07 7 

0 

DxCh 

STATE >2 


0141 





C5,245C 

C 0006 

1 

EXTEND 



0142 

REF 

1 

L/ST 

174 

05,2451 

3 3170 

1 

OCA 

SWINIT +4 


0143 

REF 

26 

LAST 

17^ 

Or,24j2 

51”l0l 

c 

OxCh 

State +4 


0144 





03,2453 

C 0006 

1 

EXTEND 



0145 

REF 

4 

LAST 

174 

05,2454 

3 3112 

c 

OCA 

SWIMT +6 


0146 

REF 

21 

LAST 

174 

05,2455 

52 1C3 

1 

DXCH 

STATE +6 


01<t62 





05,2456 

0 0006 

1 

EXTEND 



01464 

REF 


LAST 

174 

05,2457 

3 3174 

c 

DC A 

SinTNTT +60 


01466 

REF 

28 

LAST 

174 

05,2460 

52 10? 

1 

DXCH 

STATf 













0141 

REF 

6 

LAST 

174 

05,2461 

3 3115 

1 

CA 

SwlNTT ♦100 















--U-ili' 5 — Ji 


-t HJ 

ih lun 


-■Lc auJb rnl 

Ujaiij&o Lui 


lu ni 


1 L A K J L r«vit 40W 

L 

FRESH 

ST/JRI /INC 

restart 





USER'S PAGE NO, 5 E3 S3 












Cl^G 

REF 

19 

L^ST 

17 5 

C5,l>i62 

54 106 

1 


TS 

STATE 4lOD 

0155 

REF 

z 

L/JST 

138 

05,2463 

0 4574 

C 

ENORSTRT 

TC 

POST JURP 

JLL56 

REF 

_x_ 



Q St 2 464 

C3225 

1 


CACR 

OUMRYJCB + 2 DOES A RELINT, (IN A SWITCHED BANK.) 












Ql5i 





C5j2465 

0 0004 

C 

KR. KLEAN 

INH INT 







Qlt2466 

0 0006 

1 


EXTENt) 

« 

cise 

REF 

4 

L/ST 

162 

05*2467 

3 4 714 

1 


OCA 

NEOO 

015S 

REF 

1 



05*2470 

52 755 

1 


OXCH 

-PHASe2 

ii6C 





05*2471 

C 00C6 

1 

RQOKLEAN 

exTENC 


0161 

REF 


L4ST 

18C 

05,2472 

3 4714 

1 


OCA 

NEGO 

C162 

REF 

1 



05*2473 

52 761 

C 


“Txch 

-PHAS64 

0163 





05,2474 

G 0006 

1 


EXTEND 

, 

C16A 

REF 

C 

L/ST 

18C 

05,2475 

3 471h 

1 


CCA 

NECO 

C165 

REF 

1 



05*2476 

52 753 

1 


DXCH 

-PHASEl 

Qlt6 





05*2477 

0 0006 

1 

V37KLEAN 

EXTEND 


0167 

REF 

6 

L/Sl 

160 

05*2500 

3 47 14 

i 


OCA 

NEGO 

0168 

REF 

1 



05,2501 

52 757 

c 


DXCH 

-PHASE3 

C.169 





05*2502 

0 C0C6 

1 


EXTEND 


0170 

REF 

7 

L4ST 

lec 

05,2503 

3 4714 

1 


OCA 

NEGO 

0171 

REF 

1 



05,2504 

52 763 

1 


OXCH 

^PHASES 

0172 





05,2505 

0 0006 

1 


EXTEND 


0173 

REF 

e 

L/S1 

idc 

C5,25C6 

3 47 14 

1 


OCA 

NEGC 

017A 

REF 

1 



05,2507 

52 765 

1 


OXCH 

-PHASE6 

0175 

REF 

15 

L^ST 

162 

05*2510 

0 0002 

c 


TC 

Q 
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P0177 C CHES HERE FRCH LCCA TICN 40CCf GUJAP. RESTART ANY PRCGRAMS WHICH MAY HAVE tEEN RUNNING AT THE TIME. 


_iUJ9. -_RfcF 4 LAST ITE Q5.25 1 1 25* 154 C GOPRCG INCR P.ELCCTF AOVAhCE RESTART COUNTER, 


0180 REF U LAST 18C 05,2512 22 002 C LXC H Q 

QieC'S 05.251 3 C COCt 1 EXTEND 

01806 REF 1 05, 2514 04 0C7 1 ROR SUIERQNK 

0181 REF 3 LAST 172 05,2515 53*43i C DXCH FSBBC 

0182 _ REF 2 LAST 17E €5.2516 0 2750 1 TC ST ART SUB 


RUIBB 
R_0_18 5 
RQie? 
Roies 
P0191 


ERASCHK TEMPORARILY STORES THE CCNTENTS CF TwC ERASABLE LCCATIONS, X 
AND X»1 I NTO SKEtP5 AND SKEeP6. IT ALSO STORES X INTO SKELP7 AND 
ERESTORE. IF LRASCHK IS INTERRUPTED BY A RESTART, CIERESTCPEI SHOULD 
EQUAL CtSKEEPtT ,ANC BE A ♦ NUMBER LESS THAN 2C00 OCT, OTHERWISE 
C (ERESTORE I SHGULC EQUAL +0. 


01S2 

REF 

2 

LAST 

13 C 

05,2517 

3 4364 

1 


CAF 

HIS 


0193 

REF 

3 

LAST 

178 

05,2520 

7 1360 

1 


MASK 

ERtSTCPE 


0194 





05,2521 

0 C0C6 

1 


EXTEND 



0195 





05,2522 

1 2524 

1 


lilF 

♦ 2 

IF EPESTORE NCT » +0 UR +N LESS THAN 2K, 

0196 

REF 

1 



05,2523 

1 2370 

C 


TCP 

DOF START 

DDUBT L MEMORY AND DC A FRESH START. 

U197 

REF 

4 

LAST 

lai 

05,2524 

4 1360 

1 


cs 

ERESTCPE 


C196 





C5,2525 

0 C0C6 

1 


EXTEND 



G199 

REF 

1 



05,2526 

1 2543 

c 


BZF 

DCRSTART 

» +0 CCNTINLE with RESTART. 

0200 

REF 

1 



05,252? 

6 1377 

c 


AO 

SKEE P7 


0201 





05,253C 

C C0C6 

1 


EXTEND 



^.202 





05,2531 

1 2533 

1 


bZF 


» SKEEP7, RESTORE E MEMORY. 

C u i 

REF 

2 

LAST 

181 

05,2532 

1 2370 

c 


TCP 

DOT START 

NOTa SK6EP7, CQL8E fc HEM, DO FRESH START. 

02 04 

RtF 

2 

LAST 

79 

05,2533 

3 1374 

c 


CA 

SKEFP4 


0205 

PE F 

1 



05,2534 

54 0C3 

c 


TS 

EBANR 

FBANK OF E MEMORY THAT WAS UNDER TEST. 

<J 0 r. 





05,2535 

0 0006 

1 


EXTEND 


(NOT DXCH SINCE THIS MIGHT HAPPEN AGAIN) 

0207 

REF 

2 

LAST 

79 

05,2536 

3 1376 

1 


DC A 

SKEtPS 


0206 

REF 

2 

LAST 

181 

05,2537 

51*377 

c 


INDEX 

SKCE F7 


0209 





05,2540 

52 OCl 

1 


DXCH 

GOOD 

e MEMORY RESTCRED. 

0210 

REF 

13 

LAST 

179 

05,2541 

3 4 7 14 

1 


CA 

ZtRO 


0211 

REF 

5 

last 

18 1 

05,2542 

55*360 

1 


TS 

FPESTCRE 


C212 

REF 

18 

LAST 

178 

05,2543 

3 4674 

c 

DOR start 

CA 

BIT 15 

TEST CSC FAIL BIT TQ SEE IF wE HAvE 

C2ii 





05,2544 

0 00C6 

1 


EXTEND 


HAD A POWER TRANSIENT. IF SO, ATTEMPT 

0214 

REF 

2 

LAST 

155 

C5,2545 

02 033 

1 


RAND 

CHAN33 

A RESTART. IF NOT, CHACK THE PRESENT 

0215 





Q 5 f 2 5^6 

0 0006 

1 


EXTEND 


STATE OF AGC WARNING. 

0216 

REF 

1 



05,2547 

1 2555 

1 


BZF 

BUTTONS 














0217 

REF 

2C 

LAST 

178 

05,2550 

3 4675 

1 


CA 

b I T 1 4 

IF AGC WARNING CN (BIT « 0), 00 A FRESH 

0218 





05,2551 

0 0006 

1 


EXTEND 


START CN The assumption THAT wE'RE IN A 

0219 

REF 

4 

LAST 

18 1 

05,2552 

02 033 

c 


RAND 

CHAN 33 

RESTART LCCP. 

0220 





05,2553 

0 0006 

I 


EXTEND 



0 221 

REF 

3 

LAST 

18 1 

05,2554 

1 2370 

c 


0ZF 

DOFS tart 














0222 

REF 

1 



05,2555 

0 2725 

c 

BUTTONS 

TC 

LIGHTSET 

EXIT 


A0223 MARK REjrCl DEPRESSED SIMULTANEOUSLY 






REV1SIC^ 237 


LF AGC PRCGRAM 


BY NASA 



i:n 4LG. 24.1968 KCQLAUE ,064 PAGE 162 


L FRESH START A^iP RESTART USER'S PAG E NO. 7 E 3 53 


G238 

REF 

1 



C5.2556 

3 0102 

1 

ELRSKIP CA 

FLAGWPC6 

RESTART AUTCPILCTS 




0239 





05,2557 

C 0006 

1 

EXTENiD 






Q2AQ 

REF 

li 

LAST 

156 

05,2560 

7 4710 

1 

HP 

BI T3 

BITS 15,14 CO T5IDL0C 




02^1 

REF 

A 

LAST 

159 

05,2561 

7 6211 

1 

MASK 

SIX 

Gl REDDRCS 




Q2A2 





05,2562 

0 0006 

1 

EXTEND 


10 RFDOTVC 




02A3 

REF 

26 

L^ST 

163 

05,2563 

5 COCO 

1 

INDEX 

A 

11 REOOSAT 




0244 

REF 

2 

LAST 

179 

05,256^ 

"3 3135 

c 

DC A 

T5IDLEF 





0245 

REF 

3 

LAST 

179 

05,2565 

5 3 • 3 1 3 

c 

DXCH 

T5L0C 



















0246 

REF 

1 



05,2566 

4 4675 

c 

CS 

IMFLBIT 





0247 

REF 

1 



05,2567 

7 OlCe 

1 

MASK 

RASFLAG 





C248 

REF 

2 

LAST 

182 

05,2570 

54 106 

1 

TS 

RASF LAG 



















0256 

REF 

29 

LAST 

179 

05,2571 

a 1331 

1 

CA 

CPTMCCES 





0257 

REF 

1 



05,2572 

7 3162 

c 

MASK 

OPTI MTR 





0258 

REF" 

17 

LAST 

166 

05,2573 

6 4704 

c 

AD 

8 IT7 





0259 

REF_ 

20 

L ^ S T 

162 

05,25 7<i 

55*331 

c 

TS 

CPTMCCES 



















C260 

REF 

20 

LAST 

16C 

05,2575 

3 4705 

1 

CaF 

BIT6 





0261 

REF 

16 

LAST 

179 

05,2576 

7 1321 

1 

MASK 

I MODES 33 





0262 

REF 

2 

LAST 

179 

05,2577 

6 4763 

1 

AO 

IN33 IMT 





0263 

REF 

19 

LAST 

182 

05,2600 

55*321 

1 

TS 

I rC0ES33 



















. - _Q2.6^ 

REF 

1 



05,2601 

3 3160 

c 

CA 

9,6,4 

LEAVE PROG ALARM, GIMBAL LOCK, 

NO 

ATT 

0265 

REF 

20 

LAST 

176 

05,2602 

7 1036 

1 

MASK 

OSPTAB ♦IID 

LAMPS INTACT CN HAPCWARE RESTART 


0'2tJ6 

REF 

19 

LIST 

101 

05,2603 

6 4674 

0 

AD 

BIT 1 5 





0267 

REF 

21 

LAST 

182 

05,2604 

57*036 

c 

XCH 

OSPTAB *110 

- - ^ 

1 • 



0266 

REF 

15 

LAST 

14^ 

05,2605 

7 4707 

1 

MASK 

£jIT4 

IF NO ATT LAMP kAS ON, 

L F A V E 


TN 

026 9 





05,2606 

0 0CC6 

1 

EXTEND 


COURSE ALIGN 




Q27C 

REF 

1 



05,2607 

1 2616 

c 

0ZF 

NCCOARSE 





02 71 

REF 

8 

LAST 

179 

05,2610 

0 4633 

0 

TC 

IBNKCALL 

IF NO ATT LAMP CNt RETURN ISS 

TO 


0272 

REF 

2 

LAST 

1^2 

05,2611 

16746 

c 

CADR 

SETCCARS 

COARSE ALIGN 


















02721 

REF 

C 

LAST 

162 

05,2612 

3 621 1 

c 

CAP 

SIX 





02722 

REF 

6 

LAST 

156 

05,2613 

0 5140 

1 

TC 

WAI T LIST 





02723 

REF 

A 

LAST 

143 

E3, 1474 



EBANKs 

CDU IhD 





0272 A 

REF 

2 

LAST 

143 

05,2614 

02742 

1 

2CAD'R 

CA+ECE 





G272A 





05,2615 

16063 

c 







0273 

KEF 

1 



05,2616 

3 3144 

c 

NCCOARSr CAF 

I FA IL IKH 

LEAVE FAILURE INHIBrTS 

TNTACT 

ON 


0274 

REF 

35 

LAST 

179 

05,2617 

7 1320 

c 

MASK 

IMODES30 

HARDWARE RESTART. 

RESET ALL 


0275 

REF 

1 



05,2620 

6 3157 

1 

aD 

1M3 0 IMF 

failure CODES. 




0276 

REF 

26 

LAST 

182 

05,2621 

55*320 

c 

TS 

iMooesac 



















0277 

KEF 


LAST 

13C 

05,2622 

4 Old 

c 

CS 

FLAGViPCS 





0278 

REF 

16 

LASi 

182 

05,2623 

7 4704 

1 

MASK 

Bit? 





C279 

REF 

39 

LAST 

182 

05,2624 

IC 000 

c 

CCS 

A 





0266 

REF 

1 



05,2625 

1 2640 

c 

TCP 

GCFkCGS 





02bl 

REF 

lA 

LAST 

162 

05, 2626 

3 4676 

1 

CAP 

BP 1 3 





0262 





05,2627 

0 0006 

1 

extend" 






0263 

REF 

7 

LAST 

178 

05,2630 

05 011 

1 

NOR 

OSALMCUT 

TURN Engine ON^ 





n 



» 


ft 


gap: JiJL^XSlQh. 217 CF ALC PKCGPAH 


NASA 2a21iU-C31 


l:I7 ALG. ^A^i<?e9 KCQLADE .06A PACE 183 


L fresh start and restart USER'S PAGE NO. 8 E3 S3 


u2eA 

REF 

2 

L/IST 

192 

C5t263l 

1 2640 

C 


TCF 

GCPF CG3 







05|2632 

0 GCC4 

C 

ENERA 

INHINT 



, d2b5aj,_R£f_ 2 

LIST 

191 

05.2e33 

0 2725 

JL_ 


TC 

LIGhTSET 

FXIT TO DCFSTART IF ERRUR RESET AND 

02651 

REF 

1 



05f 2634 

0 2760 

1 


TC 

STANTSb? 

MARK REJECT DEPRESSED SIMULTANEOUSLY 

0289 

REF 

1 



05,2635 

4 3151 

C 


CS 

IKTMASK 

RESET INTEGRATICN BITS 

Ji26Sl_ 

-R-Ei 


LAST 

192 

C5t2636 

7 01C6 

1 


HASK 

RASF LAG 


029C 

REF 

4 

LAST 

102 

C5,2637 

54 IC6 

1 


TS 

RASF LAG 

■ 

0291 

.R£t 




05.2640 

-1 4115 

x_ 

G0PRCG3 

CAF 

NUKGRPS 

VERIFY PHASE TABLE ACREEHENTS 

0292 

REF 

1 



05,2641 

54 161 

c 

PCIOOP 

rs 

MPAC *5 


C293 





05,2642 

6 COOC 

1 


COueL E 



0294 





05,2643 

C 0006 

1 


EXTEND 



0295" 

REF 

4C 

LAST 

182 

05,2644 

5 OOCO 

1 


INDEX 

A 


0296 

REF 

2 

LAST 

18C 

05,2645 

3 0753 

c 


OCA 

-PHASEl 

CCMPLEMENT INTO A, DIRECT INTO L. 

U29 7 





05t26A6 

0 0006 

1 


EXTEND 



0298 

REF 

9 

LAST 

162 

05,2647 

06 GCl 

c 


RXOR 

LCHAN 

RESULT MUST BE -0 FOR AGREEMENT. 

0299 

REF 

4 1 

LAST 

183 

05,2650 

1C ooc 

c 


CCS 

A 


030(1 

REF 

- 1 



05.2651 

1 2720 

1 


TCF 

PTbAC 

RESTART FAILURE. 

0301 

REF 

2 

LAST 

183 

05,2652 

1 2720 

1 


TCF 

PTBAC 


0302 

REF 

a 

LAST 

102 

05,2653 

1 272C 

1 


TCF 

PTBAC 


0303 

REF 

2 

LAST 

183 

05, £654 

10 161 

c 


CCS 

HP AC *5 

PROCESS ALL RESTART GROUPS. 


_&kt_ 

i 


t ^ m 

05,2655 

1 2641 

1 


TCF 

PCLOCP 














0305 

REF 


LAST 

183 

05,2656 

54 U2 

c 


TS 

HPAC +6 

SET 70 +0. 

0306 

REF 

1 



05,2657 

0 5247 

c 


TC 

MHDSPLAY 

DISPLAY MAJOR MCDE 


03 C 7 





05,2660 

0 0004 

C 


INHINT 


RELINT DONE IN MMDSPLAY 













QJ1171 


2^ 

LAST 

182 

05.2661 

3C 1C2 



-CAE 

FLAGRRC6 

IS RCS DAP RUNNING (BITS 15 14 OF 

030715 

REF 

1 



05,2662 

7 4105 

c 


MASK 

OCT 6 COCO 

FLAGNfl06 « Cl) 

03t72 





05, 2663 

0 0GC6 

1 


EXTEND 


YES, CC STCFRATE 

03U725 

REF 

1 



05,2664 

6 2673 

1 


8ZMF 

NXTRST -1 

NO, SKIP TC NXTRST -1 

03C73 

REF 

1 



05,2665 

3 4752 

c 


CAF 

EbANK6 

ST0PRAT6 IS DCNE IN L0ANK 6 

03074 

REF 

2 

LAST 

181 

05,2666 

54 003 

c 


TS 

EBANK 


03075 

REF 

9 

LAST 

182 

05,2667 

0 4633 

c 


TC 

IBNKCALL 

ZERO CELCCUS, NGOOYS, AND BIASES THUS 

03076 

REF 

1 



05,2670 

45245 

c 


CAOR 

STCPPATE 

STORING AUTCMATIC MANEUVERING 

03C77 

REF 

1 



05,2671 

3 4 744 

1 


CAF 

EbANR3 


03076 

REF 

3 

LAST 

183 

C5,2672 

54 CC3 

c 


TS 

EBANK 


03 ce 

REF 

2 

LAST 

183 

05,2673 

3 4715 

c 


~CaF 

NUHGRPS 

SEE IF ANY CROUPS RUNNING. 

U 

REF 

4 

LAST 

183 

06,2674 

64 161 

c 

NXTRSt 

TS 

MPAC 45 


0310 





05,2675 

6 0000 

1 


DUUBLb 



o311 

REF 

42 

LAST 

18 3 

05,2676 

5C OCO 

1 


INDEX 

A 


0312 

REF 

1 



06,2677 

IC 753 

1 


CCS 

PHAS El 


0313 

REF 

1 



05,2700 

1 2702 

1 


TCF 

PACT IVE 

PNZ - GROUP ACTIVE. 

G 3 14 

REF 

1 



05,2701 

1 2 7C7 

1 


TCF 

PINACT 

4(5 ■- GROUP “SO T BUNMIWir; ' 

0315 

R E F 

5 

LAST 

183 

C5,27C2 

6 4 184 

c 

P ACTIVE 

TS 

MPAC 


0316 

REF 

6 

LAST 

183 

C5,27C3 

24 164 

1 


I NCR 

mPac 

JFS“CF PHASE7 

0317 

REF 

7 

LAST 

183 

05,2704 

24 162 

1 


I NCR 

MPAC 46 

INDICATE GRCUP CEMANDS PRESENT. 


H 










BY NASA 


i:I7 AUG. KOQLAUE .06A PAGE 184 


iiA£i 


A<;5;£»BLP H EmSlflN 23? CP AGC 




L 


FPESH ST^Pl iSNC REiTAkT 


USER'S PAGE NC. 9 


63 S3 



C3ie 

0319 

REf 

1 



C5f 27C5 

3 2724 

1 

1 


CA 

P ACT C ADR 


REf 

1 



05t 2706 

0 4561 


TC 

SWCALL 

MUST RETURN TC SWRFTURN. 









J320 

REF 

e 

14S7 

183 

u5 t2707 

10 161 

C 

PINACT 

CCS 

hpac ♦s 

PROCESS ALL RESTART GRCUPS. 

Q321 

REF 

2 

L/ST 

183 

G5t2?lQ 

1 2674 

1 


TCF 

NXTRST 














0326 

REF 

9 

LAST 

10^ 

i5,271 1 

10 162 

c 


CCS 

MPAC +6 

NC, CFECK PHASE ACTIVITY FLAG 

0327 

REF 

1 



05f 2712 

1 2463 

c 


TCF 

ENORSTPT 

PHASE ACTIVE 

032^ 

REF 

it LJL7 

182 

C5f2713 

3 4674 

c 


CAF 

BI71 5 

IS MCCE “0 

0329 

REF 

2 

LAST 

179 

05,2714 

7 1011 

1 


MASK 

MODREG 


03291 





05,2715 

0 0006 

1 


EXTEND 



Q3292 

_RiF ^ 

. J 



05f 2716 

1 4106 

c 


BZF 

GCTDPCLH 

NO 

03293 

REF 

2 

LAST 

18^ 

05,2717 

1 2463 

c 


TCF 

ENDPSTPT 

YES 

0336 

REF 

1C 

LAST 

16 1 

05,2720 

0 5537 

c 

PTBAC 

TC 

ALAR R 

SET ALARM Tf SHEW PHASE TABLE FAILURE. 

0337 





05,2721 

01107 

c 


OCT 

1107 














0338 

REF 


L/ST 

16 1 

C5, 2722 

1 23 7C 

c 


TCF 

OOF START 

IN B2». 


P0339 

444*4 44* 

4 4 

# 4 # ^ # 







R0340 












RC341 

CC 1 

NCT USE GCPPUG2 

CP ENEFA wITFCUT I 

:ChSULTING POOH PEOPLE 


B0342 












0343 

REF 

1 



05,2632 



GGPPCG2 

EQUALS 

ENEMA 


C344 

REF 

15 

LAST 

182 

4676 



OCTIOQOO 

ti 

e 1 T 1 3 


C345 

REF 

2 

LIST 

179 

4 37 1 



GCT 30000 


PP 1030 


0346 





..€5, 2723, 

C7777 

1 ^CT77 77 

JJL T 

7777 

- 

0347 

REF 

1 



05,2724 

C352C 

T ^ACTCACir CAOir 

RESTARTS 


0346 

REF 

19 

LAST 

182 

05,2725 

3 4704 

c 

LIGHTSET 

CAF 

BIT7 

OCFSTART TF MARK REJFCt ANf ETTHER-' 

0349 





05, 2726 

0 0006 

1 


EXTEND 


ERROR LIGHT RESET BUTTONS ARE DEPRESSED 

C35C 

REF 

1 



05,2727 

02 016 

1 


RAND 

NAVKEYIN 


0351 





05,2730 

0 G0C6 

1 


EXTEND 



0352 

PEF 

1 



05,2731 

1 2745 

1 


BZF 

NONA VKfcY 

NC MARK REJECT 

0353 

REF 

1 



05,2732 

3 4362 

1 


CAF 

OCT37 


0354 





05,2733 

0 00C6 

1 


EXTEND 



03 55 

REF 

2 

LAST 

164 

C5,2734 

02 016 

1 


RAND 

N/.VK EY IN 

NAV CSKY KEVCC:DES,MARK,WARK REJECT 

0356 

REF 

1 



05,2735 

6 3155 

c 


AD 

-ELP 


C357 





05,2736 

0 CQC6 

1 


EXTEND 



0358 

REF 

2 

LAST 

164 

05,2737 

1 2 746 

1 


BZF 

NCNAVKEY 

♦ 1 

0359 





C5,274C 

0 0006 

1 


EXTEND 



0360 

REF 

1 



05,2741 

00 C15 

c 


READ 

MNKE YIN 

MAIN CSKY KEYCQDES 

C361 

REF 

2 

LAST 

184 

05,2742 

6 3155 

c 


AO 

-ELR 


(j 3c2 





05,2743 

0 QQC6 

1 


“EXTEND 



Q3t3 





C5,2744 

1 2746 

1 


BZF 

+ 2 














03 64 

RJF 

.i7 

LAST 

16 1 

05,2745 

0 0002 

0 

NCNAVKEY 

TC 

Q 














C365 

REF 

3 

LAST 

18 1 

05,2746 

0 2 750 

1 


TC 

STARTSLE 


G J66 

REF 

5 

LAST 

184 

05,2 747 

1 2370 

0 


TCF 

DOF START 


0367 

REF 

1 



05,2750 

3 3145 

1 

STAHT5UU 

TaT 

LDNPHASl 

SET POInTETJ'SC NEXTTGPS UCUNRUPT l,ILL 

0 36 0 

REF 

1 



05,2751 

54 335 

c 


TS 

ONTHGCTT 

CAUSE THE CURRENT DTTWNLIST TO BE 


LAP! A SSEMBLE REVISION 237 CF AGC PRCGHAM CQLCSSUS oY NASA 2021111-031 
L FPE5H ST/»R1 />NC- RESTART 


ACJ69 

A037C 


l!!? AUC, 2^,1968 KCQLADE .064 PAGE 163 

LSER'S PAGE NO. 10 E3 S3 


i^ERRUPTEO AND START SENCING FRQ^* THE 
BEGINNING OF THE CURRENT OOWNLIST. 


03 71 
0372 

Rtf 

REF 

5 

LAST 

163 

0Ss2752 

a 46 72 

C 

CA 

PGSHAX 





1 



05,2753 

5 4 026 

1 

TS 

T IME3 

37777 TO nPE3. 




Jli73 

REF 

1 



05,2754 

6 7 715 

C 

AO 

(4 INU S2 




0374 

REF 

4 

LAST 

132 

05,2755 

54 C27 

c 

TS 

TIME4 

37775 TO TI^E4. 




037S 

REF 

4 

LAST 

17« 

05,2756 

6 7716 

c 

AO 

NEGCNE 





C37fc 

REF 

0 ^ 

LAST 

126 

05,2757 

54 030 

c 

TS 

T IHE 5 

37774 TC TIRES. 


















0377 

REF 

22 

LAST 

16 C 

05,2760 

3 4712 

1 

STARTS62 CAF 

bin 

DURING SOFTWARE RESTART, 

DC 

NOT 

DISTURB 

0378 





05, 2761 

G 0006 

1 

EXTlND 


ISS WARNING 




C379 

REF 

6 

LAST 

18 2 

05,2762 

03 011 

1 

MANC 

DSALPQUT 



















0380 


1 



05.27t3 

3 3152 

1 

CAF 

UCT7C 

DURING SOFTWARE RESTART, 

DO 

NOT 

DISTURB 

C381 





05,2764 

0 0006 

1 

EXTEND 


IRU FLAGS. tCCURSE ALIGN 

ENABLE 

, ZEPC 

0382 

REF 

19 

LAST 

178 

05,2765 

03 012 

1 

WANO 

CHAM2 

IRU ecus. ENABLE IRU ERROR 

COUNTER! 















0303 

REF 

1 



05.2766 

3 3153 

c 

CAF 

OCT 74160 

DURING SOFTWARE RESTART, 

GO 

NOT 

DUSTURB 

0384 





05,2 767 

0 0006 

1 

tXT END 


TELERETRY FLAGS, RESET TRAP 

FLAGS, ANC 

_C365 

REF 

2 

LAST 

178 

05,2770 

03 013 

c 

wANO 

CHAN 13 

ENABLE T6RUPT FLAG. 














. ai^. V a 




03JL6 

R tj- 

21 

LAST 

1_0 2 

05,2771 

3 4705 

1 

CAF 

bIT6 

DURING SOFTWARE RESTART, 

DO 

NOT 

DISTURB 

0387 





05,2772 

0 0006 

1 

EXTEND 


GYRO ENABLE FLAG- 




0388 

REF 

5 

LAST 

178 

05,2773 

0 3 0 14 

1 

WANO 

CHAN 14 




















iL [ 



181 

05,2774 

4 4675 

c 

CS 

rt I T 1 4 

CLEAR P.21RAPK 




U3B82 

REF 

1 



05,2775 

7 0076 

1 

HASK 

FLAGVtRC2 

F21 SETS P21RARK AND RESETS 

IT 

IF R21 

03883 

REF 

2 

LAST 

18 5 

05,2776 

54 076 

1 

TS 

FLAGWRC2 

IS TERRINATEO NCRRALLY 




0389 

REF 

4 

LAST 

178 

E3, 1400 



EbANK» 

LSTl 





0390 

REF 

1 



05,2777 

3 3154 

1 

CAF 

STARTED 





0391 

REF 

4 

LAST 

183 

Q5,3CC0 

54 0C3 

c 

TS 

EBANK 

SET FCR E3 





C5S2 REF 3 LAST 162 G5,3C0l 3 ^67 3 1 CAF NEGi/2 INI T I AL I ZE WA I TL I ST OELTA-TS. 

0393 REF 5 LAST 185 IS, 3002 55*AC? 1 TS LSTl +7 

0394 REF 6 LA ST ^18 5 C5,3CC3 5 5*4C6 C TS LSTl +6 


C395 

REF 

7 

LAST 

185 

05, 3CC4 

55 *4(5 

C 

TS 

LSTl 

+ 5 

0396 

REF 

e 

LAST 

185 

C5,3CC5 

55*404 

1 

TS 

LSTl 

♦ 4 

0397 

REF 

9 

LAS1 

185 

C5,3CC6 

55*4C3 

C 

TS 

LSTl 

+ 3 


0398 

REF 

10 

LAST 

18 5 

C5,3C0? 

55*402 

1 

TS 

LSTl 

*2 

33 99 

REF 

1 1 

LAST 

185 

C5, 3010 

55*401 

1 

TS 

LSTl 

*■1 

04 CC 

REF 

12 

LAST 

185 

05, 3011 

55*400 

C 

TS 

IZT\ 



0401 

0402 

REF 

REF 

1 



C5, 3012 

4 5173 

C 

CS 

ENDTASK 


1 



05, 3013 

55'4K 

I 

TS 

LST2 


0403 

REF 

2 

LAST 

185 

05,3014 

55*412 

C 

TS 

LST2 ♦2 


0404 

REF 

3 

LAST 

185 

05,3015 

55*414 

C 

TS 

LST2 +4 


0405 

REF 

4 

LAST 

185 

05, 3016 

55*416 

1 

TS 

LST2 ->6 


0406 

RfcF 

5 

LAST 

18 5 

05,301? 

58*420 

1 

TS 

LST2 +60 


0407 

REF 

6 

LAST 

les 

05, 3020 

55*422 

0 

TS 

L^T2 ♦ICO 



GAPi AS SFtiPig Rem5;inN ?37 cf A(;f pwrnPAW cclcssus sy nasa 2Q21I11-C31 


L FP£SH 5T^H7 ANC RiS.TAU: 
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USER'S PAGE NO. 11 E3 S3 “ 



G^ioe 

REP 

7 

LAST 

i 

csiacii 

55 '424 

C 

TS 

LST2 +120 


o^cs 

REF 

e 

LAST 

186 

C5f 3022 

55'426 

1 

TS 

LST2 +140 



RIL 

S LAST 

186 

C5.3023 

55'430 

C 

TS 

LST2 +16C 


0411 

REF 


LAST 

105 

CSt3024 

4 5174 

1 

CS 

ENDTASK +1 


0412 

REF 

1C 

LAST 

106 

C5,3C25 

55'4U 

C 

TS 

LST2 +1 


0411 

_ R£t_ 

JLL_ 

LAST 

166 

C5i3C26 

5 5 '413 

1 

TS 

LST2 +3 


0414 

REF 

12 

LAST 

186 

C5t 3C27 

55'415 

1 

TS 

LST2 +5 


0415 

REF 

13 

LAST 

186 

C5# 3030 

55'417 

c 

TS 

LST2 +7 


Q416 

REF 


LAST 

186 

C5t3C31 

55*421 

c 

TS 

LST2 +90 


C417 

REF 

1* 

LAST 

166 

C5, 3C32 

55*423 

1 

TS 

LST2 +11C 


0416 

REF 

16 

LAST 

166 

05, 3033 

55*425 

1 

TS 

LST2 +130 


0419 

REF 

17 

LAST 

1 86 

C5,3C34 

55'427 

c 

TS 

LST2 +150 


0420 

REF 

16 

LAST 

186 

C5,3C35 

55'431 

1 

TS 

LST2 +170 



- REP JJ LAST UJ 05t3C36 ^ A714 C CS 

0^22 REF i C5t3 Q37 5A 1^7 _C TS 

u<»23 REP 2 LAST let C5,3C40 5A 2C3 1 TS 

QA2A REF 3 LAST 186 C5»3C<il SA 21T 1 TS 


0425 

REF 

4 

LAST 

186 

05,3042 

54 

233 

1 

TS 

0426 

REF 


LAST 

186 

C5,3C43 

54 

247 

1 

TS 

0427 

REF 

6 

LAST 

166 

05,3044 

54 

263 

1 

TS 

0428 

REF 

7 

LAST 

186 

C5,3C45 

54 

2 77 

1 

TS 


ZERO HAKE ALL EXECUTIVE REGISTER SETS 

PRIORITY AVAILABLE. 

PRIORITY +120 

PRIORITY +2^C 

PRIORITY +360 
PRIORITY +480 
PRIORITY +6d0 

PRIORITY +720 


I 


_C4Z9. 

REF 

a 

LAST 

178 

C5. 3046 

55'3C2 

C 

TS 

OSRUPTSW 


C43C 

REF 

1 



05,3047 

54 067 

1 

TS 

NEWJLB 

SHOWS NO ACTIVE JOBS* 












J34_3.L . 

REF 

1 



Cb,3C50 

3 3147 

c 

CAP 

V ACl ADRC 

HAKE ALL VAC AREAS AVAILABLE. 

0432 

REF 

1 



C5,3051 

54 4C0 

1 

TS 

vACi use 


0433 

REF 

1 



C5, 3^2 

6 3150 

c 

AO 

LTHV ACA 


0434 

REF 

1 



C5, 3053 

54 4 54 

< 

ts 

VAC2 ISF 


0435 

REF 

2 

LAST 

186 

C5,3C54 

6 3150 

c 

AO 

L THVACA 


043t 

REF 

1 



C5, 3C55 

54 530 

c 

TS 

VAC3LSE 


U437 

REF 

3 

LAST 

186 

05,3056 

6 3150 

c 

AO 

LTHVACA 


0438 

REF 

1 



C5, 3C57 

54 6C4 

1 

TS 

VAC4USE 


0439 

REF 

4 

LAST 

186 

C5, 3C6C 

6 3150 

c 

AO 

LTHVACA 


044 0 

REF 

1 



C5, 3C61 

54 660 

c 

ts 

VAC5LSE 












H 

0441 

REF 

1 



C5,3C62 

3 4377 

c 

CAF 

1 f;H 

BLANK CSKY REGISTERS ( PROGRAM , VE R6 , NOUN , 

A0442 










Rl,R2,R31 

' j 4 ^ 3 

REF 

1C 

LAST 

194 

C5, 3C63 

5 4 154 

C CSPlFF 

IS 

MPAC 


C4‘,4 

REF 

9 

LAST 

6C 

C5, 3C64 

4 4677 

1 

CS 

BlTl 2 


04^ 5 

REF 

1 1 

LAST 

166 

C5, 3Ce5 

5C 154 

i 

INDtX 

HPAC 


0446 

REF 

22 

LAST 

182 

C5, 3C66 

55*022 

c 

TS 

OSPT AE 


044 7 

REF 

12 

LAST 

186 

C5, 3067 

1C 154 

c 

CCS 

MPAC 


W44fi 

RtF 

1 



C5, 3C70 

1 3063 

c 

TCF 

DSPCFF 













s 

REF 

1 



C5, 3C71 

55*141 

c 

TS 

OELAVLCC 


'^45t 

REF 

2 

LAST 

186 

C5, 3C72 

55*142 

c 

TS 

OELAYLCTr^l 


0451 

REF 

■a 

LAST 

186 

C5, 3C73 

55*143 

1 

TS 

DELAYLCC +? 



JASiS REF A LAST 106 C&t3C7^ 55'!^^ C TS OELAYLCC *3 
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L 

FRE SF 

START ANC RESTART 





LSER'S PAGE NO. 12 

F3 S3 










C*f52 

REF 

1 

L5, 3C75 

55*073 

C 

TS 

PI SAVE 



0A53 

REF 

1 

1,5. 3C76 

54 04 5 

1 

TS 

INI I NK 



Q<»5A 

REF 

7 

LAST 13C C5.3C77 

54 776 

C 

TS 

D5PCM 



0<i55 

REF 

1 

05,3100 

5 5 *04 2 

1 

TS 

CADPSTCR 



0<»56 

REF 

1 

05,3lCl 

55*013 

C 

TS 

RECP ET 



0^57 

REF 

; 

05. 3 102 

55*015 

c 

TS 

CLFASS 



0A5 8 

REF 

1 

05,3103 

55*012 

1 

TS 

rSPLCCK 



045<5 

REF 

1 

05,3104 

55*020 

c 

TS 

HONSAVf 

KILL PCNITOR 


0^60 

REF 

1 

C5. 31C5 

55*021 

1 

TS 

MONS ^VEl 



0^61 

ref" 

1 

C5,31C6 

55*001 

c 

TS 

VERBREG 



0<(62 

REF 

1 

05,3107 

55*002 

c 

TS 

NOUNREG 



0A63 

KEF 

1 

05,3110 

55*043 

c 

TS 

DSF L 1ST 



046*^ 

REF 

1 

05,3111 

55*330 

1 

TS 

^APK STAT 



CA65 

REF 

1 

05,3112 

55*322 

1 

TS 

I MU C A OF 



0A6t 

REF 

i 

05,3113 

55*323 

c 

IS 

OPTCAOF 



0<f67 

REF 

1 

05,3114 

55*324 

1 

TS 

P AOCADP 



0468 

REF 

2 

LAST 78 05,3115 

55*325 

c 

TS 

ATTCACR 



046S 

REF 

1 

05, 3 116 

55*304 

c 

TS 

LGYRC 




0A7C REF 1 C5,3U7 5^ IOC 1 TS FLAGUPCA KILL INTERFACE CISPLAYS 


0^71 PEF 1 05f3120 3 <i717 1 CAF NGUTCCN 

0 ^72 REF S LAST 132 05t3121 55*016 C TS NCUT 


0473 

REF 

22 

LAST 

18 5 

C5, 3 122 

3 4675 

1 

CAF 

9IT14 




-Q4 24 

REF 

2 

LAST 

17S 

05,3123 

7 1044 

1 

MASK 

EXTVEACT 




G475 

REF 

3 

last 

187 

05, 3124 

55*044 

1 

TS 

E XTVEACT 




04 76 

REF 

1 



05, 3125 

3 3146 

1 

CAF 

LtSCFK 

SELF CHECK GO-TC REGISTER. 



C477 

REF 

2 

LAST 

7< 

05,3126 

55*361 

C 

TS 

SFLFRET 

















04 78 

REF 

1 



05, 3127 

^ 4(3 7^ 

1 

CS 

VOl 




0475 

REF 

2 

LAST 

13 1 

05,3130 

54 777 

1 

TS 

DSPCCLFT 





0480 

REF 

16 

LAST 

194 

05,3131 

0 0002 

C 


TC 

U 




0461 

KEF 

1C 

LAST 

163 

05,3132 

3 0001 

C 

T5I CLCC 

CA 

L 

T5RUPT CGHES HERE EVERY 163.84 SECS 



0462 

REF 

1 



05,3133 

1 5225 

C 


TCF 

nccrsh +l 

WFEN NCBOCY IS USING IT. 

















_ 0483 

REF 

2 

LAST 

L02 

E6. 1672 




E&ANK = 

OGANCR 




0484 

REF 

i 



05,3134 

03132 

1 

T5ICLER 

2CADR 

T5IDLCC 




04 84 

REF 

1 



05,3135 

12066 

1 







0465 

REF 

3 

LAST 

187 

66,1672 




EBANK- 

UGANCR 




86 

REF 

1 



05, 3136 

02071 

c 


2CA0R 

REUGRCS 




0486 

REF 

1 



1/5,3137 

42066 

1 







04 6 7 

REF 

4 

LAST 

167 

b 6 t 16 72 




EBANKs 

QGANCk 




0486 

REF 

1 



05,3 140 

03165 

c 


2CA0R 

REDCTVC 




^406 

REF 

1 



05, 3141 

34066 

c 







0469 

REF 

c 

LAST 

187 

E6, 1672 




E6ANK« 

OCANCM 




C490 

REF 

1 



05, 3142 

C2765 

1 


2CADP. 

REDOSAT 




0490 

REF 

1 



05,3143 

46066 

t 







0491 





05,3 144 

CC43S 

c 

IfAlL INH 

OCT 

435 




0492 

REF 

I 



05,31-45 

C3J40 

c 

LUNPHASl 

GENADR 

DNPHASEl 




0493 

REF 

1 



05,3146 

03333 

1 

LESCHK 

GENADR 

SElFCHK 
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L FPESP START ANC RESTART GStR'S PAGE NO. 13 63 S3 


049^ 

0495 

REF 

2 

LAST 

186 

05t 3147 

CC4C0 

c 

VACIACRC 

AORES 

VACILSE 








05,3150 

00054 

0 

LTHVACA 

DEC 

44 

















C4955 





05,3151 

20100 

1 

INTPASK 

OCT 

2010C 




C496 





C5, 3152 

00070 

c 

CCT7Q 

OCT 

0QC7Q 




0497 





05*3153 

74160 

c 

OCT 74160 

OCT 

74i6C 



i. 

oAse 

REF 

li 

LAST 

185 

05,3154 

C14C0 

1 

STARTEB 

ECADR 

LSTl 




0499 

REF 

1 



4715 



NLiRGRPS 

EQUALS 

FIVE 




05Q0 





05.3155 

77755 

c 

-ELR 

OCT 

-22 

-ERROR LIGHT 

RESET KEY CODE. 


C501 





C5.3156 

3 74U 

1 

IR30 IMF 

OCT 

3 741 1 

iNhiens iMu 

FAIL FOR 5 SEC AND PIP ISSR 


U5C2 





05,3157 

370C0 

c 

IP30IMR 

OCT 

37C0C 




i)503 

REF 

2 

LAST 

15A 

4763 



1R33 IMT 

a 

PRIC 16 

NC PIP OR TP 

FAIL SIGNALS. 


0504 





05, 3160 

C0450 

c 

9,6,4 

OCT 

450 




0505 





05,3161 

C0130 

c 

CPT IMTF 

OCT 

130 




0506 





05, 3162 

C0430 

c 

OPT INITR 

OCT 

430 




0507 





05,3163 

CQOOO 

1 

Sk.IMT 

OCT 

0 




0508 





05,3164 

COQOO 

1 


OCT 

0 




0509 





05,3165 

COOOO 

1 


OCT 

0 




0510 





05,3166 

CQOOO 

1 


OCT 

0 


















0511- 





05.3167 

COOOO 

1 


OCT 

0 




0512 





05,3170 

CC2C0 

c 


OCT 

0020C 




0513 





05,3171 

COOOO 

1 


OCT 

0 




C514 





05,3172 

COICC 

c 


OCT 

OOlOC 


















0515 





05.3173 

COOOO 

1 


OCT 

0 




0516 





05,3174 

COOOO 

1 


OCT 

0 





C5U2 05f3n5 CCOCO 1 OCT 


0 
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L FRESH START ANC RESTART tSER'S PAGE NO. 14 E3 $3 

FQ517 FFCGPAF AaTT GC TCPC CH ASSEMBLY SUND ISK 

H0518 LCC StCTlCh FPESh START AND RESTART 

RQ51S FLhCTRNAL DESCRIPTION 7 ~ IZ1ZZIIZ^I^ZIZ__ ^ 

PC^jQ 1. DISPLAY RAJCP MCCE NUMBER QC IN C SKV REGISTER Rl ANC R3. FLASH V5C NOT ON CSKY. (M M CHANGE REQUEST) " 

R0522 2. PERMIT A CURRENT PENDING RECLEST ULASH ON DSKY) TO BE REPLACED (WITHOUT AN ABCRTI BY THE MAJOR MODE 

RC524 CHANGE RECLEST 


B0525 INFU/CL1PLT_ I N F 0_P_MA T 1 C N _ _ 

Ra52t A. CALLING SEQUENCE TC GCTCPCOH i 

RL52 7 £. EPASAELE IMT1aL12A T10N N CNE Z 

P0528 C, OLTPLT ~ FLASH VERE 50 NCLN 07 CN D SKY 

PflaZj " C. CEBPIS L ^ ZZII 

H0 5 3G PRCGRfM ANA LYSIS ~ ~ ~~ ~ ~ 

R0331 A. SL 8P0LTINES CALIEC G0PERF3t LINUS ^ 

RQ532 " B. NCRMAL EXIT TCP ENCCFJCE ~ 

R 0 5 3 3 C. ALA RM ANC ABORT EXITS NCF^ ' ~~ ^ ZZZII^ 

C534 4106 BLOCK 02 ~~ 

0535 REF i 4 COO SETLLX FFTACIO ^ 

0536 4106 BANK 

■ I ■ - _ 


C537 

REF 

1 



COUNT 

02/P0C 









0538 

REF 

1 4106 

0 5301 

c 

GOTCPCOH TC 

PHASCHNG 

RESTART GCTCPCOH 

053S 


4107 

00014 

1 

OCT 

14 










0540 

REF 

3 LAST 18C 4110 

0 4574 

c 

TC 

PCST JUMP 


0541 

REF 

1 4111 

lOOCC 

c 

CAOR 

GLPOCFIK 


0542 


lQt2203 



BANK 

10 


0543 

REF 

1 C4»2000 



SETLOC 

VERb37 


0544 


C4, 2000 



BANK 




0545 

REF 

1 




COUNT 

04/PCC 











0546 

REF 

1 

C4t2Q00 

0 2315 

1 

GOPCOFIX TC 

INITSLP 


05465 

REF 

1 

G4t2001 

3 2007 

1 

CAF 

V37N99 


0547 

REF 

1 

C4t 200 2 

0 4555 

C 

TC 

BANKCALL 


0540 

REF 

1 

14, 2003 

20624 

c 

CAOR 

GOFl ASH 


0549 



C4f 2CC4 

i 2001 

<! 

TCF 

“3 


0550 



C4»2005 

1 2001 

0 

ICF 

-4 












u v. 

— H 


uAF • Lf dL t McV IJ lull Ur AAiAi ril.Lwl\f*n WJU-L. 

u:a^u^ Q,T_ r 


4,JLjL A 4 * V ^ 4^ 

I*!# HUU* #u r ^ V 1 , j* 7 w 

L FPtSH il/SRl ANi3 RtiTART 
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C551 X-^iZOCLfi 1 ZOfil C 


TCF 

-5 







C552 04«2fl07 11343 C 

.. ■VlT.Ni.'g 

■ .VM , .. 

3799 
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L FRESH S1<RT ANC RESTART 


USER'S PAGE NC. 16 E3 S3 


P0553 

PfCGR/P 

NAPE V3? assembly SUNDISK 



HQ656 

LCC SEC^IC^ FRESH START ANO RESTART 








R0555 

FIHCTICNAL CESCRIPTICN 








RQi56 

1 m 

CHECK IF NEN program ALLQHEC. IF BIT 1 CF FLAGV.RD2 ( HCCCFlAG ) ISSET 

, AN ALARM 

1520 IS CALLED. 

R0558 

2. 

CHECK FUR validity CF PflOGRAP SELECTED. IF AN INVAL IL PROGRAM IS 

SELECTED, 

THE OPERATOR ERROR LIGHT IS 

R056C 


SET AND CLRRENT ACTIVITYf IF ANY, CCNTINUES. 



R0561 


SERVICER IS TERMINATED IF IT HAS BEEN RUNNING. 



R0562 

A . 

INSTALL IS EXECUTED TC AVCID INTERRUPTING INT EGP. AT ICh. 



RU563 

5. 

THE ENGINE IS TURNED CFF ANC THE LAP IS INITIALIZED FCR COAST, 



R0566 

6. 

TRACK, UFCATE ANC TARGl FLAGS ARE SET TG ZERO. 



R05fc5 

7. 

CISPLAY SYSTEM IS RELEASEC, 



R0566 

8. 

THE FCLLCwING ARE PERFCRHED FOP EACH OF THE THREE CASES, 



RC567 


A. PRCGRAM SELECTED IS POO, 



R0568 


i, RENCEZVCUS FLAG IS RESET (KILL P20I. 



R056g 


2, STATINTl IS SCHEOULEC BY SETTING RESTART GROUP 2. 



R0570 


3. MAJCP MODE 00 IS STCREC IN THE MODE REG I STEP t MCDREG I . 



R0571 


4, SUPERQANK 3 IS SELECTEC. 



P0572 


5. ncccflag is reset. 



KC573 


6. ALL RESTART GRCUPS EXCEPT GROUP 2 ARE CLEARED. CONTROL ISTRANSFERREO TC RESTART PROGRAM (GUPR0C2I 

R0575 


WHICH CAUSES ALL CURRENT ACTIVITY TO BE DISCONTINUED AND A 9 

MINUTE INTEGRATION CYCLE TO BE 

PC577 


IN niATEO. 



RQ578 


B. PRCGRAR SELECTED IS P2C 



R057S 


1. IF THE CURRENT MAJOR MCCE IS THE SAME AS THE SELECTED NEHPROGRAM, THF 

PROGRAM IS RE-INITIALIZED 

RGSei 


VIA V37XEQ, all RESTART CROUPS, EXCEPT GROUP A APE CLEARED. 



RC5a3 


2. IF THE CURRENT MAJOR MCCE IS NCT EQUAL TO THL NEW REQUEST, A 

CHECK IS 

MACE TO SEE IF THE REQUEST- 

Roses 


ED MAJCR MCCE HAS BEEN RUNNING IN THE BACKGROUND, 



HCSflb 


ANC IF IT HAS, NC NEW FRCCRAM IS SCHEDULED, THE EXISTING 



R05e7 


P2Q IS RESTARTED TO CONTINUE, AND ITS MAJOR MCDE IS SET. 



Rosed 


3. CQNTPCL IS TRANSFERRED TC G0PRCG2. 



R0589 


C. FRCGRAN SELECTED IS NEITHER POO NCR P20 



ROSSO 


I. VJTxeC IS SCHEDULED US A JOB) BY SETTINC RESTART GROUP A 



PQ5SI 


2. ALL CURRENT ACTIVITY EXCEPT RENDEZVOUS AND TRACKING IS DISCONTINUED BY 

CLEARING ALL restart 

R05S3 


GRCUPS. GRCUP 2 IS CLEARED. IF THE RENDEZVOUS FLAG IS ON P20 

IS RESTARTED IN G0PR0G2 VIA REOOP2C. 

R05S5 


TO CONTINUE. 








R0S96 

INKTyCllFET INFQPPATICN 








RC597 

A. 

CALLING SEQUENCE 




RCSSd 


CONTROL IS ClKtCTEC TC V37 EV 7hE VEPbFAN RLUTINE. 



R059S 


VERBEAN GCES TC C ( VERE T AE+C ( VERBREG U . VERB 37 = MMCHANG. 



RQ600 


MNCHANG EXECUTES A TC FCSTJUMP, CADR V37. 








RU601 

e. 

ERASAELE I M T 1 4L I Z AT IC N NCNE 








R06C2 

c. 

CLTPUl 




BC603 fAJDR KCCE CHANGE 


n 


n 



XAfc*X- 
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L 

FRESH START ANC RESTART __ _ 

USER'S PAGE 

NO. 17 

E3 S3 








RCbO^ 

C •_ C £fi_8_L_S_ 





ft0605 

PRNLMBEPf HPAC -Ht RiNCEXt BASETEHP ♦CIMINDEX), FLAGWRDO» FLAGWRDlf PLAGURC2f 

MOOREG» GOLOC 

-If 


mtci. 

GCLCC. GCLCC +1. GCLCC ♦a# EASETEMP, -PHA$E2, PHASE2f 

-PHASE4 










R06Ce 

PPtGPAR ANALYSIS 











Rt60S 

A. SLBRGLTINES CALLEC 





R061C 

ALARHt RELCSPf PINCRNCH* INTSTALLt ENGIN0F2» ALICCAST» 

V37KLEANt GCPR0G2 f FALTCNt F INOVACv 

SUPERSN T 


R0612 

CSPPM 






RQ613 E. ^CP^4L E^n TC E^OCFJCB __ 

R 0 6 1 ^ C . ~ALARfi S 1520 (MAjQ P HCOE C HANGE NOT PERHITTEPl 


Q.<il.5 <ill2 BLOCK 02 


0616 

0617 

REF 

2 

LAST 

109 

4CC0 




SETLCC 

FFTAGIC 







4112 




BANK 















06 18 

REF 

1 







COUNT 

02/V37 



j 













1 C61S_ 





. 4112 

C0024 

1 

0CT24 

MM 

20 



1 C62Q 





4113 

0003 L 

C 

GCT31 

MM 

25 



U 0621 





27,2CC0 




BANK 

27 



' 0622 

REF 

2 

LAST 

189 

C4,2000 




SETLOC 

VEkB37 



C623 





C4«201C 




BANK 

















_£L624_ 









COUNT 

04/V37 
















0625 

REF 

1 



C4t2010 

54 775 

C 

V37 

TS 

MMNUMeER 

SAVE MAJOR MOCe 


0626 

REF 

3 

LAST 

184 

C4«2C11 

3 4371 

C 


CAF 

PFlC3d 

RESTART AT PINBALL PfilCRITY 


0627 

REF 

2 

LAST 

179 

C4,2C12 

54 366 

( 


TS 

RFSTPEG 
















Q6iLfl_ 

REF 

-TL 

-LAST 

182 

C4,2C13 

3 1320 

1 


CA 

IM0GES3CI 

IS IMU BEING INITIALIZED 


0629 

REF 

22 

LAST 

18* 

C4,2C14 

7 47C5 

C 


MASK 

B IT6 



Q63C 

REF 

43 

LAST 

183 

C4,2C15 

IL 000 

C 


CCS 

A 



0631 

REF 

1 



C4t2C16 

1 2070 

C 


TCF 

CANT ROC 
















0632 

REF 

16 

LAST 

164 

(4,2017 

3 4676 

1 


CAF 

B 1 T 1 3 

IS ENGINE CN 


0633 





C4, 2020 

0 0006 

1 


EXTEND 




0 63^ 

REF 

9 

LAST 

185 

C4,2C21 

02 011 

c 


RANG 

DSALPCUT 



0635 

REF 

^4 

LAST 

192 

C4,2C22 

1C OCO 

c 


CCS 




Ce36 

REF 

1 



04,2023 

1 2030 

1 


TCP^ 

ROOlCPXC 

YES, SET UP FCft POO 















0637 

REF 

1 

•md 

LAST 

18 2 

C4,2C24 

4 0102 

c 


CS 

F LAG h PC6 

NC, IS TVC CAP ON 


0638 

REF 

2 

LAST 

183 

C4,2C25 

7 41C5 

c 


MASK 

0CT6GCC0 



0639 





C4 , 2026 

0 00C6 

1 


EXTEND 




06^0 

REF 

1 



04, 2027 

6 2061 

1 


B7mF 

I StT PCC 

NC, CCNTIFtUE NiTH RQQ 



G6A1 

C6412 REf 


CA,^C30 C 000^ C POOTOPOC INHINT 
0^,2C3l 3 ^752 C CAP EEANK6 


2 LAST 183 
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06^2 

REF 

5 

LAST 

185 

C4,2C32 

54 0C3 

C 


TS 

ELaNK 




0643 

REF 

1 

LAST 

172 

E6» 1466 




EBANK> 

DAPC ATPl 




Q644 

REF 




04*2032 

3 1 ' 4 7 4 



CAE 

CSMMASS 




06^ 5 

REF 

2 

LAST 

102 

C4v2C34 

55*662 

C 


TS 

MASSTMP 




C647 

REF 

10 

LAST 

183 

04,2035 

C 4633 

c 


TC 

1 6NKCALL 





REF 

L 



C4, 2036 

5C741 

c 


CAOR 

SPSGFF 




Ot^S 

REF 

11 

LAST 

192 

04,203? 

0 4633 

c 


TC 

IBNKCALL 




C65C 

REF 

1 



04, 2040 

13176 

c 


CAOR 

MASS FRCP 




0651 

REF 

1 



04. 2C41 

3 2402 

c 


CAP 

3.1 SEC 




0652 

REF 

12 

LAST 

193 

C4,2C42 

0 463 3 

c 


TC 

1 BNKCALL 




Ot53 

REF 

1 



04, 2043 

42011 

1 


CAGP 

RCSDAPCN +1 





0654 

REF 

13 

LAST 

193 

04,2 C44 

0 46 3 3 

c 


TC 

1 bNKCALL 




06 55 

REF 

1 



04,2045 

51005 

c 


CAOR 

TVCZ AP 

DISABLE TVC 



0656 

REF 

_i5_ 

LAST 

186 

04,2046 

3 4714 

1 


CAP 

ZERO 




065 7 

KEF 

2 

LAST 

192 

04,2047 

54 775 

c 


TS 

MMNUMBER 




0656 





C4,2C5Q 

C 0003 

1 


RELINT 





0659 

REF 

2 

LAST 

ise 

04,2051 

3 4715 

c 


CAP 

FIVE 




G66C 

REF 

2 

LAST 

IBS 

04,2052 

0 4555 

c 


TC 

fiANKCALL 




Q66C2 

REF 

1 



C4,2C53 

01730 

1 


CAOR 

DELAVJCB 




0660A 

REF 

U 

LAST 

193 

04,2054 

3 4714 

II 

6 


CAP 

ZERO 




066C6 





04,2055 

0 0006 

1 


EXTEND 





C66Ce 





04,2056 

Cl 005 

0 


WR ITE 

5 




0661 





04, 2057 

0 0006 

1 


EXTEND 





06615 





C4,2C60 

01 CC6 

c 


RR1T6 

6 




0662 

REF 

3 

LAST 

193 

04, 2061 

3 0775 

1 

I SUPGQ 

CA 

MMNUPBER 




0663 





04,2062 

C 0006 

1 


EXTEND 





0664 

REF 

1 



04,2063 

1 2112 

c 


B2P 

I SSERVCN 

YES, CHECK SERVICER STATUS 















0 665 

REF 



LAST 

185 

04, 2064 

4 0076 

1 


CS 

PLAG^R02 

NC, IS NQCC V37 

FLAG 

SET 

0666 

REF 

23 

LAST 

185 

04,2065 

7 4712 

c 


MASK 

bITl 




0667 

REF 

A5 

LAST 

192 

04,2066 

10 000 

c 


CCS 

A 




0 6 b 8 

REF 

1 



04,2067 

1 2015 

c 


TCP 

CHECKTAB 

NC 



0669 

REF 

11 

LAST 

184 

04,2070 

0 3537 

c 

CANTRCG 

TC 

ALARR 




Oo7C 





C4,2C7l 

C1520 

1 


OCT 

152 0 


















C671 

REF 

1 



04, 2072 

0 4473 

c 

V37aAL 

TC 

RELOSP 

releases DISPLAY 

FROM 

ASTRONAUT 















il_6 72. . 

-B£.F_ 

4, 

LAST 

189 

04,2073 

0 4574 

c 


TC 

POST JLRP 

BRING SACK LAST 

NORMAL DISPLAY IF THERE 

0673 

REF 

1 



04,2074 

21176 

1 


CAOR 

PINBPKCh 

WAS CAE. CV 

















0674 

REF 




04,2075 

3 2475 

0 

CHECKTAB 

CA 

NCVi 7MM 

THE NO. OF PM 



0675 

REF 

13 

LAST 

186 

04,2076 

54 155 

1 

AGA IKRM 

TS 

HPAC +l 




0676 

REF 

14 

LAST 

19 2 

04,207? 

5C 155 

c 


NOX 

MPAC ♦! 




06 7 7 

REF 

1 



04,2100 

3 2440 

c 


CA 

PREMRl 

OBTAIN WHICH MM 

THIS 

IS FOR ~ 

0678 

REF 

1 



04, 2 10 1 

7 6043 

1 


MASK 

LOW? 




C679 

REF 




04,2102 

4 COCO 

c 


COM 





0680 


LAST 

193 

04,2103 

6 0775 

1 


AD 

MHNU MBFR 




C681 

REF 

46 

LAST 

193 

04,2104 

10 CCO 

c 


Tc3 “ 

A 




u682 

REF 

15 

LAST 

193 

04,2105 

1C 155 

1 


CCS 

mPAC +1 

IF GF, SEE IF AAVMCRE 

IN LIST ^ 
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0663 

REF 

1 



09*2106 

1 2016 

C 


TCF 

AGA 1 AMR 

YES, GET NEXT ONE 




06 6^ 

REF 

1 



09,2107 

1 2257 

1 


TCF 

V37MCNC 

LAST TIME OP PASSED RR 



















0665 

REF 

16 

LAST 

192 

09,2110 

3 0155 

C 


CA 

MPAC -H 





0666 

REF 

1 



09,2111 

59 779 

1 


TS 

MINOEA 

SAVE INDEX FOP LATER 



















0687 

REF 

1 



Q9t2_ll2 

9 0103 

1 

ISSERVON 

CS 

FLA&KP07 

V37 FLAG SET - UE. IS SERVICER 

GOING 



0688 

REF 

23 

LAST 

192 

09, 2113 

7 97C5 

c 


MASK 

8IT6 





0689 

REF 

97 

LAST 

193 

09,2119 

10 OCO 

c 


CCS 

A 





C69C 

REF 

1 



09,2115 

1 2123 

1 


TCF 

CANV37 

NO 



















C69i_ 





09,2116 

0 0009 

c 


INHINT 






C692 

REF 

29 

LAST 

192 

09,2117 

9 9712 

c 


CS 

b ITl 

YES, TURN OFF AVERAGE C FLAG AND 

WAIT 



0693 

REF 

1 



09,2120 

7 0075 

1 


MASK 

r LAGRRCL 

FOR SERVICER TO RETURN TO CANV37 




0699 

REF 

2 

LAST 

199 

09,2121 

59 075 

1 


TS 

FLAGVtPOl 




















0695 

REF 

1 



09,2122 

1 5112 

1 


TCF 

EMOCf JOB 




















0719 

REF 

1 



09,2123 

3 2377 

c 

CANV37 

CAF 

ROCAL 





0715 

REF 

1 



09,2129 

59 3 79 

c 


TS 

TEhPFLSH 




















0716 

REF 

2 

LAST 

189 

09,2125 

0 53C1 

c 


TC 

PHASCHNG 





0717 




09,2126 

COO 19 

1 


OCT 

19 




















0718 

REF 

1 



09,2127 

0 6006 

1 

ROO 

TC 

INTPPtT 




















msL 





09,2130 

77629 

1 


CALL 


WAIT FCR INTEGRATION TC FINISH 




U72C 

REF 

1 



09,2131 

27371 

1 



INTSTALL 





0721 





09,2132 

77776 

1 

OUMRyAD 

EXIT 





















07211 

REF 

2 

LAST 

189 

09,2133 

0 2315 

1 


TC 

IMITSUe 




















0.1212 _JiF 

1 



09,2139 

0 5997 

c 


TC 

CORNFLAG 





07213 

REF 

1 



09,2135 

CQ020 

c 


ACRES 

STIKFLAG 




















07 2133 

REF 

,3 

LAST 

193 

09,2136 

0 9555 

c 


TC 

bAMKCALL 




t 

072139 

REF 

1 



09,2137 

5772 1 

1 


CACR 

UPACTCFF 

TURN OFF UPLINK ACTIV LIGHT 



♦ i 
iji' 















C72135 

REF 

2 

LAS! 

199 

C9,2 190 

0 59 9 7 

c 


TC 

CORMFLAG 




I 

072136 

REF 

1 



09,2191 

C0215 

1 


ACRES 

VHFFFLAG 





07219 

REF 

3 

LAST 

199 

09,2192 

0 5997 

c 


TC 

CORN FLAG 





0 7215 


1 



09,2193 

000 3 7 

c 


AffffFS 

R21RAPK 




















0722 

REF 

5 

LAST 

192 

09,2 199 

10 775 

c 


CCS 

mmnurber 

IS This A POOH PEOUEST 




0723 

REF 

1 



09,2 195 

1 2295 

1 


tCF 

MCUV EAU 

NC, PICK UP NEW PROGRAM 



















0729 

REF 

2 

LAST 

189 TC 

192 : 

6 



COUNT 

09/PCC 




















0725 

REF 

2 

LASI 

193 

09,2196 

0 9973 

c 

PCOH 

TC 

RELOSP 

RELEASE DISPLAY SYSTEM 




R 




ncM i-a ii,>n 

■ L-C ft Hi, rn 

Ui. 


O 1 


L ay ^ f ^ t i ^ 

T Q 1- u 1 

•VlU*T 

r M t L ^ J 


L 

FH E SH 

STAPl ANC 

RESTART 





ISER *S 

PAGE NO. 

20 

E6 S3 















C725£ 

REF 

1 


3 ^7 5^ 

c 

CAF 

PF ICS 

SET VARIAGLE 

RESTART 

REGISTER 

FOR PCO. 


0725£ 

REF 

1 

_a4t215Q 

55*056 

1 

TS 

PHSPHCT2 




















C726 


CA,21Sl C OOC^ C 


INHINT 


II 



cin 

Rif 

15 

LAST 

19A 

0^.2152 

9 9712 



CS 

BITl 

TURN CFF NCCOFLAG 




0726 

KEF 

A 

t, 

LAST 

193 

0^,2153 

7 0076 

1 


MASK 

FLAGhRC2 




07Z<i 

REF 

LAST 

195 

C^,2 159 

59 076 

1 


TS 

FLACRFC2 



- 














0730 

REF 

2 

LAil 

192 

09,2155 

3 9715 

C 


CA 

FIVE 

SET 2.5 RESTART FOR 

STATE INTI 



0731 

REF 

11 

LAST 

187 

09,2156 

59 OCl 

1 


TS 

L 




w 

0732 





09,2157 

9 QOQC 

c 


CCM 






0 733 

REF 

2 

LAST 

idc 

09,2160 

52 755 

1 


UXCH 

-PHA SE2 



















t 

■ C73l^ 

REF 

1 



09,216 1 

9 2379 



CS 

BIT7-e 

RESET IMUS6 ♦ KILL 

P20 BY TURNING OFF 



0735 

REF 

1 



09, 2162 

7 0079 

c 


MASK 

FLAGkRCO 




K-- 

0736 

REF 


LAST 

195 

C9,2163 

59 079 

c 


TS 

FL6GWPCC 


RENDFLG 


f 

— 
















0737 

REF 

1 



09,2169 

3 9719 

1 


CAF 

ONLACFOO 



















t, _ 

J173JL ^ 

REF 

2 LAST 

192 TC 194? 

<39 

59* 


COUNT 

09/V37 




4 
















0739 

REF 

3 

LAST 

176 

09,2165 

59 332 

1 

SEUOCFOO 

TS 

DNLSTCCD 

SET UP APPROPRIATE 

DCWNLI ST. 


















AC740 











(OLD ONE MILL BE 

FINISHED FIRSTI 


1 

1 

07<il 

REF 

1 



09,2166 

9 2375 

C 


CS 

OCT0112C 

TURN OFF TRACK, TARGl, UPDATE FLAGS 



07A2 

REF 

2 

LAST 

179 

09.2 167 

55*071 

1 


TS 

EBANKTEM 




1 

Q7A3 

REF 


LAST 

19A 

09,2170 

7 0075 

1 


MASK 

FLAGliRDl 





C7<»<f 

REF 

A 

LAST 

195 

C9,2171 

59 0 75 

1 


TS 

FLAGkRCl 




















0751 

REF 


LAST 

192 

09,2172 

G 9633 

c 

GROLPK IL 

TC 

I bNKCALL 

KILL GROUPS 3(5,6 




0752 

REF 

1 



09,2173 

12977 

c 


CAOR 

V37KLtAN 




















0753 

REF 

6 

LAST 

19A 

09,2179 

1C 775 

c 


CCS 

MMNUPBER 

IS n POOH 




C75A 

REF 

1 



09,2175 

1 220‘t 

1 


TCF 

REND VCC 

NC 




c755 

PEF 

JL5_ 

LAST 

195 

09,2176 

C 9633 

c 


TC 

I BNKCALL 





0756 

REF 

1 



09,2177 

12971 

c 


CADR 

POCJKLEAN 

redundant EXCEPT FOR GROUP 9* 


















0757 

REF 

7 

LAST 

195 

C9.220Q 

3 0775 

1 

GOHQO 

CA 

MMNUPEER 





075 8 

REF 

3 

LAST 

18^ 

09,2201 

55*011 

1 


TS 

MOOR EG 




















0759 

REF 


LAST 

192 

C9. 2202 

C 9 579 

c 

GCGCPROG 

TC 

POST JLPP 





0760 

REF 

1 



09, 2203 

12632 

t 


CADR 

&0PRCG2 




















0761 

REF 

8 

LAST 

195 

C9, 2209 

9 C775 

c 

PEND VCC 

CS 

MMNUHBEP 

IS NEVi PRCC ■ 2C 




0 762 

REF 

2 

LAST 

16C 

09,2205 

6 9112 

1 


AD 

CJCT29 

20 




0763 





09,2206 

0 0006 

1 


EXTEND 





C7b4 

REF 

1 



09,2^01 

^ J M >» •« A 

1 2211 

c 


BZF 

RENCKCt 

YES 
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0766 

0767 

0 766 

REF 

9 

LAST 

i9J 

04,^211 

4 0775 

C 

C 

R ENCNCC 

CS 

MMNUHFER 




REF 

4 

LAST 

195 

C4t2212 

6 1011 


AO 

EXTEND 

MOUP EG 








04*2213 

0 0006 

1 





07o9 

REF 

1 



04,2214 

1 2225 

1 


BZF 

K1LL20 


















0770 

REF 

3 

LAST 

195 

C4,2215 

3 0074 

J_ 


CA 

FLAGhPOO 

IS RENCEZVCC FLAG SET 



0771 

REF 

<c 

LA IT 

164 

04i2216 

7 4704 

1 


MASK 

bIT7 




0772 

REF 

48 

LAST 

194 

04,2217 

IC COO 

c 


CCS 

A 




0773 

REF 

1 



04,2220 

1 2236 

c 


TCH 

STATCUC 


















0 774 

REF 

a 

LAST 

196 

04,2221 

3 4704 

c 

PCOF IZZ 

CAF 

BIT? 




Q775 

REF 

4 

LAST 

196 

04,2222 

7 0074 

c 


MASK 

F LAGHRDO 




0776 

ref' 

49 

LAST 

196 

04, 2223 

IC OCQ 

c 


CCS 

A 




0777 

REF 

1 



04,2224 

1 2233 

c 


7CF 

REV37 




0778 





04,2225 

0 0CC6 

1 

KILL20 

EXTEND 


NCt KILL GRCUPS 1 + 2 



0779 

REF 

9 

LAST 

lec 

04,2226 

3 4714 

1 


DC A 

NEGO 




C78C 

REF 

3 

LAST 

163 

04,2227 

52 753 

1 


OXCH 

-PHASEl 


















0701 





04«2230 

0 0006 

1 


EXTEND 





0702 

REF 

K 

LAST 

196 

04,2231 

3 4714 

1 


OCA 

NEGO 




0783 

REF 

3 

LAST 

192 

04,2232 

52 755 

1 


DXCH 

-PHASE2 


















0704 

REF 

1 



04,2233 

3 2376 

1 

ReV37 

CAF 

V37CCAD 

SET RESTART PCIM 



. 078? 

REF 

2 

LAST 

194 

04,2234 

54 374 

c 


TS 

TEMPFLSH 


















0786 

REF 

1 



04,2235 

1 2202 

1 


TCF 

GCCOPPQG 


















0787 

REF 

5 

LAST 

195 

04 , 2 2 36 

4 00 75 

1 

STATCUO 

CS 

FLAGRPCl 

SET TRACK FLAG AND UPDATE 

FLAG 


0708 

REF 

1 



04, 2237 

7 4 7 32 

1 


MASK 

OCT120 




0789 

REF 

t 

LAST 

196 

04,2240 

26 015 

1 


AOS 

FLACV»RD1 



) 















C790 





04, 2241 

0 G0C6 

1 


EXTEND 


KILL GROUP 4 



0791 

KEF 

11 

LAST 

196 

04,2242 

3 4714 

1 


OCA 

NEGO 




C792 

REF 

2 

LAST 

lec 

04,2243 

52 76 1 

c 


UXCH 

-PHASE4 

















V 

1 - , 

0793 

REF 

1 



04,2244 

1 2200 

c 


TCF 

GOMCC 


t 

1 J 














1 ^ - 

0794 

REF 

22 

LAST 

196 

04,2245 

3 4704 

c 

NCUVEAU 

CAF 

BIT? 



i 

0795 

REF 

5 

LAST 

196 

04.2246 

7 0074 

c 


MASK 

FLAGbROCi 


1 

- L 

0796 

REF 

f C 

LAST 

19 6 

04,2241 

10 000 

c 


CCS 

A 


/ 

t 

— 

0797 
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EBANK* WHCCAPES 

EBANK 

SETTING 

REQUIRED 

BY 

MM 

TT 


C995 

REF 

X 



E6, 1412 


EBANK* ESTRGKFR 

EBANK 

SETTING 

REQUIRED 

BY 

HH 

20 


0996 

REF 

2 

LAST 

It 

1150 


EBANK* TIME2SAV 

E6ANK 

SETTING 

REQUIRED 

BY 

HM 

06 


0997 

R E F 

1 



E5, 1425 


EBANK* QPLACE 

EBANK 

SETTING 

REQUIRED 

BY 

MH 

01 



R0996 

NCT E , 


TFE 

FCLLCWING CONSTANT 

IS 

THE NUMBER OF 

ENTRIES IK EACH 

OF 



R0999 




TFE 

ABOVE LISTS-U IE, THE 

NUMBER OF MAJOR MODESIEXCEPT 

POO) 



R loco 



TFAT 

CAN GE CALLEC FRCH 

THE KEYECARC MINUS ONE) 





1001 




04,2475 


EPREMMl 

EQUALS 


END CF PREMMl TABLE 


10C2_ 

REF 

3 

LAST 

197 04,2440 



SETLOC PPEMM 


THIS CCOING MILL AUTOMATICALLY CHANGE 


1GC3 

REF 

1 


OG35 


NO.MMS 

=MINUS EPREMMl 


THE 'NQVaTMM* CCNSTANT AS ENTPIES ARE 


1UC4 

REF 

3 

LAST 

192 C4,2C00 



SETLOr VEiaJ? 


INSERTEDdN) OR OELETECI FROM) THE 


1005 




04,2475 



BANK 


•PREMMl* TABLE. 



1006 

REF 

1 



04,2475 

CC034 

c 

NOV37MM 

AORES 

NO.MMS -1 

ITEMS IN 'PPEMMl 'TABLE - 1. •DON'T MOVE* 














1007 





04, 2476 



CNLADMMl 

EQUALS 



10C8 

REF 

1 



04,2476 

00QC2 

0 


AORES 

RENOEZVU 

P79 

1009 

REf 

£ 

LAST 

20 1 

04,2477 

C0002 

0 


AORES 

RENCEZVU 

P76 

1010 

REF 

3 

LAST 

201 

04,2500 

00002 

0 


AORES 

RENEEZVU 

P77 

10105 

REF 

4 

LAST 

20 1 

04,2501 

“00002 

C 


AORES 

afNDEZVU 

P76 

1011 

REF 

5 

LAST 

201 

04,2502 

C0002 

c 


AORES 

PENGEZVU 

P75 

1012 

REF 

6 

LAST 

20 1 

04,2503 

Q0C02 

c 


AORES 

REND 67 VU 

P74 
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1013 

BEf 

1 



04,2504 

CCCOl 

C 


ACRES 

ENTPTLPO 

P62 



101<» 

BEF 

1 



04,2505 

C0003 

1 


ACRES 

PGWEREC 

P6l 



lOii 


1 



OAfl 506 

OOOOO 

J. 


ACRES 

COST ALIN 




1016 

BEF 

2 

LAST 

202 

04,25C7 

cooco 

1 


ACRES 

ccstalin 




1017 

REF 

3 

LAST 

202 

(4,251C 

ccooo 

1 


ACRES 

COSTALIN 

P52 



101& 


_A_ 

LAS.T 

202 

0<i»25U 

cooco 

1 


ACRES 

COSTAL IN 

P5l 



lOlS 

BEF 

2 

LAST 

202 

04,2512 

00003 

1 


ACRES 

POWERED 

P47 



102C 

REF 

3 

LAST 

202 

C4,2S13 

COOC3 

I 


ACRES 

PCWEREC 

P41 



1021 

REF 

4 

LAST 

202 

04,2514 

C0003 

1 


ACRES 

PONEPEO 

P40 



1022 

BEF 

7 

LAST 

201 

C4,2515 

00002 

C 


ACRES 

RENCE2VU 

P39 



1023 

REF 

6 

LAST 

202 

04,2516 

00C02 

c 


ACRES 

RENOEZVU 

P30 



102^ 

REF 

9 

LAST 

202 

04,2517 

CC002 

0 


ACRES 

RENCE2VU 

P37 



1025 

REF 

1C 

LAST 

202 

04,2520 

GC0C2 

c 


ACRES 

RENCE2Vlj 

P35 



1026 

REF 

11 

LAST 

202 

04,2521 

00CC2 

c 


ACRES 

KENCE2VU 

P34 



1027 

ref 

12 

LAST 

202 

C4,2522 

COOC2 

c 


ACRES 

RENUE2VC 




1026 

REF 

13 

LAST 

202 

04,2523 

000C2 

c 


ACRES 

ReND£2VU 

P30 



1029 

REF 

14 

LAST 

202 

04,2524 

CCCC2 

c 


ACRES 

PENCE 2 VU 

P23 



1030 

REF 

1 



04,2525 

CQ0C4 

c 


ACRES 

M22CKLST 

P22 



1031 

BEF 

15 

LAST 

202 

04,2526 

000C2 

c 


ACRES 

R ENC E2VU 

P21 



1032 

REF 

16 

LAST 

202 

04,2527 

00002 

c 


ACRES 

RENDE2VU 

P20 



1033 

REF 

17 

LAST 

202 

04,2530 

0C002 

c 


ACRES 

REN0E2VU 

P17 



103A 

REF 

e; 

LAST 

202 

C4,253l 

coooo 

1 


ACRES 

COSTALIN 

P06 



1035 

REF 

t 

LAST 

202 

04,2532 

ccooo 

1 


ACRES 

COSTAL IN 

POl 



1036 

REF 

17 

LAST 

193 

4714 



CNLACPOO 

» 

ZERO 




1037 





OCOO 



COSTAL IN 

m 

0 




1038 





OCOl 



ENT BVUPD 

m 

1 




1039 





0002 



RENOEZVU 

s 

2 




ICAO 





GC03 



FChEBEO 

■ 

3 










0004 



P22CNLST 

S 

4 

- 


- — 

RlC<i2 

CBE ITU 

IMEGBAT Uh 

CCFiSTAhTS 









R 1.0A3 

TKESE CCFSTAN7S ABE 

USED Ih CCRFUTING 


ThE setting of HIDFLAG. 


- - - - 

■ ■ ----- 

104<i 





04,2533 

QC465 

c 

RHM 

20EC 

2536.09 63 0-27 

600 

KH ABC9F LUNAR SURFACE 


1044 





04,2534 

32324 

c 







1045 





04,2533 

CC3 33 

1 

RMt 

20EC 

7176165 a-29 

600 

KN ABOVE £0. RADIUS 


1045 





04,2536 

01733 

1 







1046 





13,2000 




BANK 

13 




1047 

BEF 

1 



13,2000 




SETLCC 

INTI MT 




1046 





13,2000 




BANK 





1049 

REF 

L_ 







COUNT* 

S $ / 1 N T I N 


— 

“ - 

1050 

REF 

2 

LAST 

82 

E3, 1554 




EBANK* 

PPEC TCSP 


- — - 

- 

1051 





13,2000 

43014 

0 

STATEUP 

SET 

BOF 

extrapolate cm STATE VFCTTTR^ 


1052 

REF 

1 



13,2001 

C14 74 

1 



VINTFLAG 




1053 

REF 

1 



13,2002 

C1751 

c 



OPEWFLAG 

ALSO 

6X6 W-PATRIX IF VALIO 


1054 





13,2003 

26006 

c 



♦ 3 


CREITAL NAVIGJTTUN — "*■ — 


1055 





13,2004 

17614 

1 


SET 






R 


i*A£J 
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1056 

REF 

1 



13.2005 

C1<»76 C 



OIHOFLAG 


1057 





13i2C06 

45014 C 


CLEAR 

CALL 


1058 

REF 

_1 



13.2007 

C1667 1 



PREC IFLG 


1059 

REF 

1 



13t2C10 

27113 1 



INTEGPV 

1 

1060 





13t2CIl 

71214 C 


BON 

OLLAC 


1061 

REF 

1 



13.2012 

C4307 1 



SURFFLAG 


iC62 

REF 

1 



13.2C13 

26031 1 



STAT ENC 


1063 

REF 

2 

L/ST 

0 3 

13f2Cl<i 

0157 1 C 



TETC SF 


IC6<t 

REF 

1 



13.2015 

34041 C 


STCALL 

TDECl 


1065 

REF 

2 

L4ST 

19<i 

13»2016 

27i7l 1 



I NTSTALL 


1066 





13, 2C17 

45014 C 


CLEAR 

CALL 

EXTRAPOLATE LM STATE VECTOR 

1067 

REF 

2 

UST 

202 

13.2020 

01674 C 



V INT FLAG 


1066 

REF 

1 



13,2021 

26621 C 



SETI FLGS 

AND 6X6 W-RATRIX IF VALID 

1069 





13,2022 

43014 C 


30F 

SET 


JJ37Q 

REF 

J 



13.2023 

02756 1 



RENOhFLG 

FOR RENDEZVOUS NAVIGATION 

1071 





13,2C2A 

26026 1 



+ 2 


1072 

REF 

2 

LiST 

202 

13,2025 

C1476 C 



DIHOFLAG 


_ liLTl 





13,2026 

45014 iC 


SET 

CALL 


1C7^ 

REF 

2 

L/ST 

202 

13, 2027 

01447 C 



PREC IFLG 


1075 

REF 

2 

ItSl 

203 

13,2030 

27113 1 



INTEGRV 


1076 





13,2031 

77614 1 

STATENO 

CLRGO 



1077 

REF 

1 



13,2032 

01236 1 



NODCFLAG 

B 

1078 

REF 

1 



13,2033 

26607 1 



END I FT 














R1079 

U ISUNT 

IS 

CALLEC 

ajy HlCTCAVl 

ANC2 
















1080 





13,203^ 

43414 1 

Thl SV INT 

SET 

RVQ 

— - “ — — - — 1 

1061 

REF 

3 

LAS! 

205 

13,2035 

C1474 1 



VINTFLAG 
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PQCOl R£Sl/fl TAtLtS 

fiCQOZ 

R00U3 Tl-EPE ARE INC 60R PS CF RES T ART TA BLES FCR EACH GROUP. THEY ARE KNOhN AS THE EVEN RESTART TABLES AND THE CDO 

RUQOS RfelTABT 1AELES. TEE CCD TABLES HAVE CNLY ONE ENTRY OF THREE LCCATTQNS RHlLE THE EVEN TABLES HAVE TWO ENTRIES 

R0007 EACH LSING THREE ICCATIQNS. THE INFOPHATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LCNGCALL IS GIVEN BY THE 

RCCL9 WAY THUGS ARE PUT UTC THE TABLES. 

hQGIO a JCa HAS ITS PRIORITY STCRED [N PPCTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A 

P0012 FUCV/C JOtf A negative PRIORITY A NLVAC. THE 2CA0R CF THE JCB IS STORED IN THE CADRTA0. 

ROOIA FCH E^AHFLE, 


A0Q15 5.7SPCT OCT 23C0C 

Aa016 2CA0R SCMbJOB 


P0017 A RESTART (F CPOUF 5 WITH PHASE SEVEN WCULO THEN CAUSE SCMEJCB TO BE RESTARTEC AS A FINCVAC WITH PRIORITY 23. 

KOCiS 5^5f Cl OCT -230QG 

A0020 2CA0R ANYJCB 

RQfl2i HFflf i RESTART OF GROUP 5 WITH PHASE 7 WOULC CAUSE ANYJOB TO BE RESTARTED AS A NCVAC WITH PRIORITY 23. 

K0U23 A ICNCCALL HAS ITS GENAOP OF ITS 2CADP STORED NEGATIVELY ANU ITS BBCON STCRED POSITIVELY. IN ITS PRDTTAB IS 

R0025 PLACIt THE LCCATICN CF A CP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED 
hQ027 WITH. EXAPPLE, 


AQC26 

A0v29 




3.6SPCT 

GENADR 

-GENAOR 

DELTAT 

LONGTASK 



A 00 3 0 





BBCON 

LCNGTASK 



AOOJl _ 





OCT 

31000 



Aa032 





2C6UR 

JObACA IN 



PQCL3J 

JUXi HCLLC START LP 

LCNGTASK 

AT THE 

APPROPR lATE 

TIML, OR 

IMMEDIATELY 

IF THE TIME HAC ALREADY PASSED. IT SHOULD 


P 0035 
••0037 

BE NCTED THAT IE CELTAT IS IN A SWITCHED E BANK, THIS INEOFMATOIN SHOULD BE IN THE BBCCN OETHE 2CADR OF THE 

TASK, FPCH ABCVEf WE SEE THAT THE SECCNC PARI CF THIS PHASE WCLLO BE STARTEC AS A JOB WITH A PRICRITY OF 31. 

- 

P0039 

POQAl 

R014»3 

WAITLIST CALLS ARE ICENTIEIEO 
IS FCSniVE, THEN IT CCNTAINS 
LCCATICN CCNTAINING THE DELTA 

BY THE FACT THAT THEIP 2CADR IS STORED NEGATIVELY, IF PRDTTAB CF THE PHASE SPOT 

THE DELTA TIME, If PROTTAB IS NEGATIVE THEN IT IS THE -CENAOR CF AM ERASABLE 

TIME, THAT IS, THE TIME IS STCPEC INDIRECTLY. IT SHCLLD BE NOTED AS ABOVE, THAT 


^ 00^& 

IF THE TIRE IS STCPEC INDIRECTLY, THE BBCON MUST 

CONTAIN 

THE necessary E BANK INFQRMATICN IF APPLICAB^LE. WITH 


PCC^7 

WAITLISl WE HAVE CN6 FURTHER 

C FT ION, 

IF -0 IS STORED IN 

PPDTIAB, IT 

WILL CAUSE AN IMMECIATF RESTART OF THE 


^00A9 

task, exahples, 








A005C 

Au05l 





OCT 

-2CA0R 

77777 

A TASK 

THIS WILL CAUSE AN IMMEDIATE RESTART 

OF THE TASK ;ATASK: 











A0052 





DEC 

200 

IF THE TIME OF THE 2 SECONDS SINCE DUMMY 


A0053 





-2CA0R 

OUMM Y 

WAS PUT ON WAITLIST IS UP, IT WILL BEGIN 


A005<i 







IN Ifl MS, CtHERWISE IT Hlir“5TG IN WhEIT 


ACC55 







IT NCRMALLY wCULC HAVE BEGUN. 



II 


4 


gap: j 
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L 

RESTART 

TAELES 



USFR*S PAGE NO. 

2 

EO S3 














-GENADR 

UTIME 

MHERE OTIME CCNTAINS 

THE DELTA 

TIME 


A0057 



-2CA0R 

TASKTASK 

CTHEPVtISe THIS IS AS 

ABOVE 












R00d8 

4 * 4 «« 

NCh ThE TABLES THEMSELVES A**** 
















ClL5<i 


C1.2C00 

BANK 

01 





00^0 

REF 1 

Clt 2000 

SETLOC 

RESTART 





CC6i 


CltZCCO 

BANK 















0062 

REF 1 


COUNT 

GI/RSTA6 






_ QQf^3 





Clt2C00 



PRCTTAB 

EQUALS 

12000 


USED 

TC FINC 

THE PRIORITY OR DELTATIME 

0064 





01*2001 



caortab 

EQUALS 

12001 


THIS 

AND THE 

NEXT RELATIVE LOC CONTAIN 

A006S 












RESTART 2CACR 

















0066 

REF 

1 



Clt2C00 

0 0063 

1 

sizetab 

TC 

1.2SFCT - 

12006 




0067 

REF 

1 



Cl, 2001 

0 0010 

C 


TC 

1.3SPCT - 

12004 




0068 

REF 

1 



Cl, 2002 

0 CC63 

1 


TC 

2.2SFCT - 

12006 




006S 

REF 

1 



01,2003 

0 0024 

1 


TC 

2.3SPCT - 

12004 




0070 

REF 

1 



Cl, 2004 

0 0063 

1 


TC 

3.2SFCT - 

12006 




. 0071 

RfF 

1_ 



01,2005 

0 0043 

c 


TC 

3.3SPCT - 

12004 




0072 

REF 

1 



01,2006 

C 0063 

1 


TC 

4.2SFCT - 

12006 




0073 

REF 

1 



01,2007 

C 0107 

1 


TC 

4.3SFCT - 

12004 




0074 

REF 

1 



Cl, 2010 

0 0242 

c 


TC 

5.2SFCT - 

12006 




0C75 

REF 

1 



01,2011 

0 0260 

c 


TC 

5.3SPCT - 

12004 




0076 

REF 

1 



01,2012 

0 0336 

1 


TC 

6.2SFCT - 

12006 




QQll 

REF 




Cl. 2013 

0 0346 

c 


TC 

6.3SPCT - 

12C04 




0070 

REF 

2 

LAST 

205 

01,2071 



1.2SPCT 

equals 

3.2SPCT 





R0079 

ANY 

NCFE 

GPOLP 

1 . EVEN 

! RESTART 

VALUE S 

SHCULD GC HERE 





















Qoeo 





01,2014 

CC170 

1 

1.3SP0T 

DEC 

120 


THIS 

NUMBER MUST EQUAL ClJTAGTIMEl 

0081 

REF 

A 

LAST 

201 

E6, 1661 




EBANKs 

ACG 





0082 

REF 

1 



01,2015 

74555 

1 


-2CA0R 

SET JTAG 





0062 

REF 

1 



01,2016 

45711 

1 








0083 





Cl, 2017 

ICCCQ 

0 

1.5SPCT 

OCT 

lOOOC 





0064 

REF 

c; 

LAST 

199 

66, 1466 




EBANK» 

DAPDATRl 





0085 

REF 

1 



01,2020 

02362 

1 


2CADR 

RED04C.9 





0085 

REF 

1 



01,2021 

34066 

€ 








0066 





01,2022 

ICOCO 

C 

1.7SPCT 

OCT 

lOOCG 





0087 

REF 

2 

LAST 

201 

E6, 1412 




EBANKs 

ESTRCKER 





0086 

REF 

1 



01, 2023 

02C74 

c 


2CA0R 

REL I NUS 





0068 

REF 

1 



C1,2C24 

56066 

1 








0069 





01,2025 

ICQCC 

c 

1.1 ISPQT 

OCT 

lOOOC 





0090 

REF 

3 

LAST 

20S 

E6, 1412 




fcBANK= 

estrcker 





0091 

REF 

1 



01,2026 

02273 

c 


2CA0R 

PIKUP20 





0091 

REF 

1 



01,2027 

76066 

c 








K0092 

ANY 

MC FE 

GFQUP 

I. CCD 

RESTART 

VALUES 

SHOULD GO HERE 





















0093 

REF 

2 

LAST 

205 

Cl, 2071 



2.2SPCT 

equals 

1.2SPCT 





R0094 

ANY 

MCFE 

GROUP 

2. EVEN 

! RESTART 

VALUES 

SHCULO GC HERE 






- 
















n 


flEVlSlCh 


-L3i 


l:n auC. 24.19^8 KOQLADE >Q6^ PAGE 206 


CCS5 

009t 

QO.9.7 

oose 

0093 

0100 

0101 

^lOi 

0102 

0103 


RJESlilM TAELtS 


liSPR'S PAGE NO, 


EO S3 


REF 

REF 

REE 

REF 


REF 

REF 

REF 


REF 


1 

1 

1 

Z 


L^ST 

CAST 


2A1 


C1.2C30 C2 6C5 C 
CU2031 15216 C 
E3. ISS^ 


2.3SPCT 


GENAOR 

GENAOR 

feBANK» 


60USECS 

stateint 

RREC TCSM 


01.2C32 26063 C 


BtiCON STATEINT 


A 

1 

1 


LASl 206 


LAST 


C 2X11 
E3t 155A 
Olf 2C3A 
0U2035 

Clf 2C36 
122 E7, 1?3A 


C50C0 1 2.5SPGT OCT 


05000 


C257Q 1 
26063 C 


E B A N K 
2CADR 


RKtCTCSP 


STAT INTI 


ICOCO C 2.7SPCT 


OCT 

EBANK 


lOOOC 


MRKBLF2 


OlOA 

0105 

0106 

ntr 

REF 

-l-.. 

1 



i t ^ V ^ f 

C1,20AG 

70067 

1 


C V r% 


^ - • - • ■ ■ - ■ ■ - ■ - 1 1 ,.— 

REF 




G1,2CA1 

lAOGQ 

1 

2.11SPCT 

OCT 

1400C 


A 

LAST 

201 

Es.nsi 




EBANK- 

L ANUNARK 


0107 

REF 

1 



Cl, 20A2 

C2173 

C 


2CADR 

V3AENTeP 


0107 

REF 

1 



C1,2CA3 

6206 5 

C 





0108 





01,20AA 

lOOOC 

C 

2.13SPOT 

UCT 

lOOOO 


01C9 

REF 

A 

LAST 

206 

E7, 1 73A 




EBANK- 

MRKaiF2 


0110 

REF 

1 



ai,20A5 

C2377 

C 


2CA0R 

RfcDLP22 


0110 

REF 

1 



C1,2CA6 

56C67 

c 






ROlll ANY KCPE GFCLP 2, CCD BESJART VALliES SFCOLD GC HERE 


0112 P_EF 2 LAST 20S 01t2C71 


2,2SPQT EQUALS 4.2SPCT 


R0113 ANY NCPE GPOLP 3,EVEN RESTART VALUES SFCULD GC HERE 


OllA C1.2 C^7 2C OOO C 3.3SPtT OCT 200 00 

0115 REF 3 LAST 166 E7,1A27 EbANK= TGO 

011 6 REF 1 Clt2050 C2^Q<> C 2CA0R SAC, 13 

0116 REF 1 CltZCSl 3A067 1 

0117 01,2052 COOCO 1 3.5SP0T DEC 0 

Ollb C1,2C53 COOOO 1 DEC 0 

dll<3 01,205^ COOOO 1 OtC 0 

0120 C1,2C55 220C0 1 3.7SPCT OCT 22C00 

0121 RE F 2 LAST 8 £3,1706 EbANK= TEPhEN 

0122 REF 1 01,2C56 C2127 1 2CA0R MATPXJCB 


0122 REF 1 01,2057 70063 C 

0123 C1,2C6C 22000 1 B.llSPUt OCT 2200C 


012A 

REF 


LAST 

206 

E3, 1706 



EBANK> 

TEPHEN 



C125 

REF 

1 



Cl,2C6l 

022A7 

1 

2CA0k 

REF 1 1 



0125 

REF 

1 



C 1,2062 

7C063 

C 





C126 





01,2063 

220CC 

1 

3.13SPOT OCT 

2200C 



C127 

REF 

A 

LAST 

206 

E3,i fee 



EBANK- 

T EPHEN 



l126 

REF 

1 



C1,2C6A 

C2U26 

1 

2CADR 

REPl 1 A 



C128 

REF 

1 



C1,2C65 

7CC63 

C 





0129 

KEF 

A 

LAST 

206 

C1,2C66 

763A7 

e 

3.l5SPGT-C6NACrR 

TGC ♦! 



Li13Q 

REF 

5 

LAST 

206 

e7,lA27 



Ebank* 

TGO 



C'l3l 

REF 

1 



01,2067 

1506 7 

1 

-2CADP 

ENGI NCFF 
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01*2336 

77777 

c 

5.37SHOT OCT 

77777 


0299 

REF 

12 

LUST 

21C 

E 6 * 1661 



EBANKa 

A 06 


0 300 

REF 

1 



01,2337 

75035 

c 

-2CADR 

CHEK AV6G 


0300 

REF 

1 



C1*23AC 

C1711 

1 




C3Ci 





01,23A1 

77777 

c 

5.41SP0T OCT 

77777 

TC PROTECT PREREAD AT TIG-30A 

0302 

REF 

9 

L4ST 

211 

E7, 1A31 



EBANKs 

DVCNTF: 

TIG-15 T460 

C3C3 

REF 

1 



01,2342 

75173 

c 

-2CA0R 

PR E READ 


0303 

REF 

1 



01*2343 

C171C 

c 




ROaOA 

AK)I 

pcfe. 

GROUP 

5.CCC 

RESTART 

VALUES 

SFUULD GO HERE 














0305 





01*2344 

77777 

C 

6.2SP0T OCT 

77777 

USED 6Y P40 AFTER GIMS OR TST TC PEPCS'N 

C3C6 

REF 

A 

L/ST 

172 

E6, 1476 



EBANK= 

AK 

ENGINE UNTIL TVCOAPON 

0307 

REF 

1 



01,2345 

75737 

C 

-2CADR 

PRE4CI.6 


03C7 

REF 

1 



01*2346 

3771 1 

1 















0308 





01*2347 

CC144 

c 

DEC 

100 


0309 

REF 

2 

LR5T 

12C 

E 7 * 1660 



eBANK= 

TTOCC 


0310 

REF 

1 



01*2350 

74603 

\ 

-2CADR 

CLCKTASK 


0310 

REF 

1 



01,2351 

27710 

1 















R0311 

Ah)l 

FCPE 

6 .OCC 

RESTART VALUES 

SFCULC 

GC 

HERE 



- __ 
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L REST^PT TACLES 


USER'S P^GE NO. 9 EO S3 


Q312 





Olf 2352 

C0144 

c 

6.3SPCT 

DEC 

100 



0313 

REF 

14 

LIST 

20S 

t7,14l2 




EBANK>* 

T IG 




RtL. 


LIST 

211 

01i2353 

74603 

1 


-2CACR 

CLCKTASK 



031^ 





01r2354 

27710 

1 






0315 





01#2355 

30000 

1 

6.5SP0T 

OCT 

300 UC 

PROTECT INCPENENTINC 

OF TIME2*TIPE1 BY 

0316 

REF 



LIST 

2Qt 

63 1.1 106 




EBINK- 

TEPHER 

P27NUPCArE PROGRAM) 


0317 

REF 

1 



01*2356 

03535 

1 


2CA0R 

T IMECIDR 



0317 

REF 

1 



01*2357 

56063 

1 






ojie 





01*2360 

COOOO 

1 

6.7SPQT 

OCT 

0 



0319 





01*2361 

coocc 

1 


OCT 

U 



C320 





01*2362 

COQGO 

1 


OCT 

0 
















0321 

REF 

2 

LIST 

lOS 

0 1*2363 

76052 

1 

6.11SPCT 

-GENADR 

CM/GVRCT 

PROTECT TASK TO READ 

ecus. 

0322 

REF 

3 

LIST 

212 

E6* 1725 




EBANK- 

CN/GTNCT 

FOR entry OAP 


0323 

RE.F 

.1 



01*2364 

15323 

1 


-2CA0h 

REAOCYNB 



0323 

REF 

1 



01*2365 

45711 

1 






0324 





01*2366 

COOOO 

1 

6.1 3SP0T 

DEC 

0 



0325 





01*2367 

CCOOC 

1 


OEC 

0 



0326 





01*2370 

00000 

1 


DEC 

0 




BY N*SA 20^1111-031 





RfVlSiQN 23? CF AGC PRCGRAM 
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L PtS14RT lAfitej 


USER'S PAGE NO. 10 EO S3 


date: 11 NOV 1<}66 
ASSERBLYI SUNBURST REV 
LOG section; phase TABLE MAINTENANCE 

R0336 Fl^CTIC^AL C fcS uR I FT I CN*__ 

R03i7 N EwPhASe i S THE GUICK NAY 1C RAKE A NON VARIABLE PHASE CHANGE. IT INCLUDES THE CPTICN CF SETTING 

RQ339 TEASE OF THE GROUP. IF TBASE IS TO BE SET, -C(TIWEl) IS STORED IN THE T6ASE TABLE AS FOLLOWS! 


P03A1 U-1) TBASEO 

RQ_3A2 U) TBASfcl (IF GBCUF«l ) 

k03A3 _ 

R03AA lL + 21 TBASE2 UF CPCUF-2) 

R03A5 

RC3A6 (L«61 TBASEA <IF GR0UP«A1 

R03A7 (L*7» 

RQ_3A8_ {L-»ei TBASfcS <1F &RCUF«S1 


F0330 PFCGRAR CtSCRIPTICN: NCWPHASE 
RG332 MCC J 1 




RU3A9 IF ANY CASEf THE NEGATIVE OF THE PHASEi FCLLOWtD (IN THE NEXT REGISTER) BY THE PHASE. IS STORED IN THE 

RO.331 PHASE TAELE AS FClLCVtS: 


H0352 (L) -PHASEI (IF GR0LP»1) 

PQ 353 _ ( L4l ) PHASEI 


RQ35<» 

PQ355 

RQ35fc 

( L + 2 ) 

-PhASE2 (IF GRCLP»2) 



( 143 ) 

PHASE2 



- ^ 




poas? 

( 147) 

PHASEA 



R0358 

( L48 ) 

-PHASES ( IF GRaLP»5 1 



R0359 

( L49) 

PHASES 








R0360 

CALLING SECUENCE: 




RQ361 

EXAFPLE 

IS FCP PLACING A PHASE OF 

FIVE 

INTO GRCUP THREES 






R0382 

1 J IF TBASE 

IS NCT TC EE SET: 



AC3t3 


L-1 

CA 

FIVE 

AQitA 


L 

TC 

NEHPHASE 

40365 


L4l 

OCT 

0000 3 

R0366 

21 IF TBASE 

IS TC ee SETS 



A0367 


L-l 

CS 

F IVE 

40368 


L 

TC 

NEKPHASE 

A0369 


L + l 

OCT 

OC00 3 

Pa37C 

SUEPOLTINES CALLEti NCNE 


— - . _ . , — — ■ - 

R0371 

NCPRAL EXn RCCE: AT 

L42 CF CALLING SEQUENCE 


— - - - — - — _ _ __ — _ — , 

«Oi72 

ALAPR CP AEORT EXlTSi 

NONE 



R0373 _ 

QLTFL12 PHASE TABLE ANC TCASE TABLE UPCATED 


- - - - — . ^ — — ^ — — - - 


HQ37^ EPA5AELE IMTIALUATICN KEGfC: NONE 









I 




is- 


. J 







^ 


ijjkpi 




rF AGC PPC 



NASA 



l:n ALC. 24il968 KCOiaCE •Of>^ PAGE 2l< 


L HES14F1 l/ifiLES 


USER'S PAGE MO. 11 EO S3 


P0375 CtEFlS: AtUTEPPG 

R 0 J 7 6 « -AJLki 1 M MG4»4 this PRCCRAP IS TC B_E PLACfeC IN F 1 XEQ- F I XfcD ANH UN SWI TCHED EA A 5 A BL E ^ 

0378 All<i BLOCK 02 

QJ IS RE i __ 1 ^Q C Q SETLOC FFT^Cl 

0380 BANK 


Q3ai -R£l 


COUNT* St/PEASE 


0362 





9119 

0 00C9 

C 

NEH PHA S E 

INRINT 


- 


0363 

REF 


LAST 

197 

9 115 

59 001 

1 


TS 

L 

SAVE 

POR FURTHER USE 

- 

03 6/1 

REF 

19 

LAST 

187 

9116 

50 0C2 

C 


NDX 

0 

OBTAIN THE GRCUP NUMBER 

— — — - 

0385 





911? 

3 0000 

1 


CA 

c 




0386 

REF 

20 

L/ST 

21A 

9 120 

29 0C2 

c 


INCR 

Q 

CeTAIN THE RETURN ADDRESS 


0367 





9121 

6 0000 

1 


DOUBLE 

SAVE 

THE GRCUP IN A FORM USED FOR 


0386 

REF 

1 



9122 

S9 061 

1 


TS 

TENPG 

INDEXING 


OJJlS 

PEE 

1£ 

LAST 

219 

9123 

10 001 

\ 


CCS 

L 

SEE 

IF HE ARE TC SET TBASE 


0390 





9129 

1 9133 

c 


TCP 

+ 7 

N C f 

THE DELTA T HAS POSITIVE 


0391 





9125 

1 9133 

c 


TCF 

46 


- 


0392 

REF 

52 

LAST 

197 

9126 

29 OCO 

1 

NUF AZ+IU 

INCP 

A 

SET 

TBASE AND STORE PHASE CORRECTLY 


0393 

REF 

l€ 

LAST 

219 

9127 

59 001 

1 


TS 

L 




0399 

REF 

3 

LAST 

12 7 

9130 

9 0025 

1 


CS 

TINE 1 

SET 

TBASE 


0395 

REF 

2 

LAST 

219 

9 131 

50 061 

c 


NOX 

TENPG 




Q3.96 

REF 

X 



9132 

55 '051 

c 


TS 

TbASEl -2 




039? 

REF 

n 

LAST 

219 

9 133 

9 0001 

1 


CS 

L 

NCH 

PUT THE PHASE IN THE RIGHT TABLE LOC 


0396 

REF 

.3 

LAST 

219 

9139 

50 061 

c 


NOX 

TENPG 




0399 

REF 


LAST 

19€ 

9135 

52 751 

c 


OXCH 

-PHASEl -2 




CACQ 





9136 

0 OOC3 

1 


RELINT 



- 

0901 

REF 

2 1 

LAST 

219 

9 137 

C Q0C2 

c 


TC 

0 

NCW 

RETURN TC CALLER 
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USER'S PAGE NC. I £0 S3 


ROOCl PPCGP/F ^A^'£ - SXlfARK ______ CATE- 5 APRIL 1967 

P00U2 PPCGP/^' PCCIFIED EY 258/278 PRCGRAMHERS LOG StC 1 ICN SXTMARK 

Ha 0 03 HCC B\- R. WELANSCR TC ADC CCCOPEMAT ICA ASSEMBLY SUNOISK REV. 116 


RCOCA FUFCIKAAL OESCRIFIICF- 

RC0 Q5 jylPABK IS CALLEC FROM INfERMAL RCLTINES WUCK MAY REQUIRE STA R OR LANDMARK MARKINGS BY THE ASTRONAUT. IF 

R00C7 THE MARK SYSTEK IS NOT IN USE» SXTRARK RESERVES A VAC AREA FOR HARKING AND REQUESTS EXECUTION OF THE MKVB51 

R00C9 FGLTINE VIA THE EXECUTIVE JOE PRIORITY LIST. R21 USES THIS RCUTINE TO DETERMINE IF THE MARK SYSTEM CAN BE 

R 0 ESEC. If YESt SxTMARK RETURNS TC R2i TC PERFORM ITS CNN MARK REQUESTS VIA THE V51 FLASH. 


F0013 CALLIFG SECUEN CE- 

R COKi I 

R0U15 CAF (NC. HARK RECOESTS IN 6ITS 1-3 CF A) 

ROOLt TC EANKCALl 

R0Q17 CACR SXTMARK 


RCQ18 NCPMAL exit MCCEj^ 
^19 S KPETURK 


R0020 ALAFM CP AEORT EXIT MCCE- 
P0 Q21 ABCPT 


PQ022 CLTPLT- ^ 

R0023 1^) MARKSTAT COFTAINS MARK VALUE (BITS 1A-12» AND VAC AREA ADDRESS 

Ra02A 2) CPRET * VAC AREA POINTER VALUE 

R0025 31 1ST KRC OF PESERVEC VAC AREA SET TC *0 

R 002^6 A I PPIC32 PLACEC IN A REGISTER 


RC027 EPASAELE IMT I AL 1 2AT ICN- 

R Q CZQ 11 BITS i-3 OF A » NO. MARKS RECUESTEC 

RCC29 21 enS 2,3 OF EXTVBACT »0 

RQ030 3) A VAC AREA PCST BE AVAILAELE (KCRC 1 • ADDRESS OF VAC AREA I 


R0031 CEtRIS- 

B0032 A,C,L,PLPTPEGliMARKS TAT,QPRE 1fBn2 CF EXTVBACT 


0033 

003A 

0035 

REF 

1 



13,2036 



BANK 

13 



- 

- 

' — 


C 7, 2000 
0,2CC2 


SETLCC 

BANK 

SXTMARKE 

















0036 

REF 

5 

LAST 

127 

E7, 1 725 



EBANKe 

MRKBLFl 





0C37 

REF 

1 






COUNT 

07/SXTMK 





0038 





C7, 20G2 

0 0004 

c 

SXTMARK INHINT 



- 

- - 

- - - 

0C39 

REF 

15 

LAST 

155 

C7,20C3 

54 070 

1 

TS 

ftUPTREGl 

number 

OF MARKS KANTEO 



OOAO 

REF 

t 

LAST 

182 

C7,2CCN 

3 621 1 

c 

CAF 

SIX 

filT2 « 

MARKING SYSTEM IN 

USE 

— - - 

OQ<>i 

REF 

4 

LAST 

18 7 

C7,2CC5 

7 1044 

i 

MASK 

EXTV e ACT 

01T3 « 

EXTENDED VERB IN 

PRCGRESS 


00^2 

REF 

53 

LAST 

214 

C7,2GC6 

ic 000 

c 

ccl 

A 





00^3 

REF 

1 



C7,2CC7 

0 2013 

1 

TC 

mkabcrt 

SET THEREFORE ABORT 





AUG. 2<i«lSta KOOLADE .06^ PAGE 2l6 


GAPi fl£VlSlQ>. 2il OF AGC PRCGRAM COLOSSUS BY NASA 2Q211il-L31 LLU 


S)(lhAfK USER'S P4Ge NC. 2 E7 S3 


OG^A 

REF 

18 

LAST 

16A 

C7t2C10 

3 9711 

1 


CAF 

61T2 

NOT SET 


OOA5 

REF 

5 

LAST 

215 

C7,2C11 

27*099 

1 


ADS 

EXTVEACT 

SET IT, RESET IN ENDMARK 


CQ4Al 

REF 

1 



C7t2Q12 

0. 2015 

1 


TC 

MAKKCK 

YES, FIND VAC AREA 















00A7 

REF 

1 



C7,2C13 

0 5 6 C 9 

c 

HKABCRT 

TC 

BAIL CUT 



Q0A8 





07.2C1A 

CL211 

1 


OCT 

01211 



00A9 

REF 

2 

LAST 

188 

C7,2C15 

1C 9C0 

1 

HARKCK 

CCS 

VACUSE 

FIND VAC AREA 


0050 

REF 

1 



07,2016 

C 2031 

I 


TC 

HKVACFND 



0051 

ref 

2 

LAST 

186 

C7i2Cl? 

iC 959 

c 


CCS 

VAC 2 USE 



0052 

REF 

2 

LAST 

216 

07,2020 

0 2031 

1 


TC 

MKVACFKC 



0053 

REF 

2 

LAST 

186 

C7,2C21 

iC 5 30 

c 


CCS 

VAC 3LSE 



005A 

REF 

3 

LAST 

216 

07,2022 

0 2031 

I 


TC 

HKVACFND 



0055 

REF 


LAST 

186 

07,2023 

10 609 

1 


CCS 

VAC9L5E 



0056 

REF 

A 

LAST 

216 

C7,2024 

0 2031 

1 


TC 

MKVACFND 



0057 

R1 f - 

2 LAST 

1 86 

C7.202S 

10 660 

c 


CCS 

VAC5L5E 



0058 

REF 

5 

LAST 

216 

C7,2C26 

0 2031 

1 


TC 

HKVACFND 



0059 

REF 

2 

LAST 

216 

07, 2027 

0 5609 

c 


TC 

bAI LCLT 



0060 





07,2030 

CL207 

c 


OCT 

012G7 



0061 

REF 

i 



^C7,2C31 

6 9711 

1 

PKVACFNO 

AO 

TkC 

ADDRESS CF VAC AREA 


iI062 

RiF 

2 

LAST 

iai 

07,2032 

59*330 

1 


TS 

MAR K STAT 



0063 

REF 

5a 

LAST 

215 

07,2033 

90 OCO 

1 


INDEX 

A 




QUb<i REF I C7,2C3A 5A 052 1 TS QFPtT STORE NEXT AVAILABLE HARK SLOT 


0065 REF U LAST 202 07f2035 3 A7l<* 1 CAF ZEKC S HOR VA C AREA OCCUPIED 

0066 REF 3 LAST 2lt C7,2C36 51»33C C INDEX MAKKSTAT 

0067 C7,2C37 53* 777 C TS 0 -1 


0060 REF 1 C7f2CA0 0 9253 C TC CHECKPH BACKUP HARK ROUTINE USES SX7HARK 

0069 _ C7i2041 C0U6S 1 MH 53 


0070 07,20^2 1 20A^ 1 TCF +2 

0071 REF 1 C7,20A3 I A570 C TCF ShRETURN 


CCL2 

REF 

2 

LAST 

216 

07,2099 

0 5293 

c 

TC 

CHECKHH 



0073 





07,2095 

C0066 

1 

HH 

59 



0079 





07,2096 

1 2050 

i 

TCF 

♦2 



0075 

REF 

A 

LAST 

216 

07,2097 

1 9570 

c 

TCF 

SKPETURN 



00 76 

REF 

11 

LAST 

191 

07,2050 

3 9677 

c 

CAF 

BIT12 

DESIRED NUHBFR CF HARKS IN 12-19 


0077 





07,2051 

0 C0C6 

i 

EXTEND 




0076 

REF 

U 

LAST 

215 

07,2052 

7 0070 

1 

HP 

PUPT REGl 



0079 

REF 

16 

LAST 

219 

C7,2C53 

56 OCl 

c 

XCH 

l 



coao 

REF 

9 

LAST 

216 

07,2059 

21*330 

1 

ADS 

HARKSTAT 















0081 

REF 

1 



C7, 2055 

3 1661 

1 

CAF 

PRI032 

ENTER HARK JCB 


0062 

REF 

. m 

4 , 

LAST 

131 

07,2056 

0 5027 

1 

TC 

NOVAC 



0083 

REF 

5 

LAST 

216 

1 3 3d 



EbANK> 

HAP K STAT 



0089 

REF 

1 



C7,2C57 

02396 

1 

2CADP 

MKV651 



0089 

REF 

1 



07,2060 

16062 

1 





0085 





07,2061 

C 0003 

I 

rel int 




0066 

REF 

3 

LAST 

216 

07,2062 

in 

c 

TTF 

StaRETURN 

SAME AS MCCEEXIT 
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L S?>U4Ft< ~~ lS£ft*S PAGF NC. 3 E7 S3 

Tjoe? ~7pTG^7rT7?F^^~^iirFiLT7s catl- ; april i s67 

hOOee PFCGP4P FCCIFIEO fv 258/270 PRCGRAHMEPS LOG SLC IICN SXIMARK 

MCL flY- R. HELANSCh TC ACC GGCUMENTAT ICK ASSSMblV SUNOISK REV« 116 

Rfl09Q flFCTlCNAl CESCklFTlC N- 

RLX/il FKFELEAS IS EXECUTEC BV INTERNAL RCLTINPS TQ RELEASE T H£ HARK SYSTEP TC HAKE IT AVAILABLE TC OTHER INTEP-NAL 

ROG'Si SYMEH FOGTINES. IT ALSC CLEARS THE CCARSE OPTICS FL AG FIT AHO OISABLES TFE OPTICS EPROR COUNTER, 


PQQ95^ 


«CC96 1C BANKCALL 

80197 CALF FKFELEAS 


K0C98 NCPFAl Exn PCCE- 
PQ09 9 ShFElURN 


ROlOO ALAFR CF AEORl fcX 11 RCOE- NONE 


POlOl CL1PL1- _____ 

ft0i02 1) BIT9 CPTRODES SET TC 0 

RCi^i 21 CFllFD SET TC -1 

RCIGA 2) ISl kCFO OF VAC AREA SET TC VAC ACCFESS TC SIGNIFY AVAILABILITY, 

KCi05 A1 RAFKjfAT CLEAR6C 

_P.O 1 0 6 5) El 12 CHAhNEl 12 SET TC C 


RCLC7 ERASAELE 1 M 1 1 AL I 2 A 1 1 C h- hCNE 


R0108 

CEERI5- 











RCIC9 

A 

, FAR KSIAT 1 

ei T9 

CPTROOESi 

CFT INC, e 172 

CHANNEL 

12 

















QUO 

REF 

19 

LAST 

216 

07,2063 

3 4 71^ 

1 

HKRELEAS 

CAF 

ZERO 

SHOW HARK SYSTER NOR 

AVAILABLE 

0 111 

REF 

t 

LAST 

216 

C7,2CtA 

57*330 

C 


XCH 

MARKSTAT 



0112 

-i»i,F_ 

i «; 

LAST 

216 

C7,2C65 

1C OCO 

C 


CCS 

A 



0113 

REF 

56 

LAST 

217 

C7,2C66 

5C OCO 

1 


INDEX 

A 



OllA 





C7,2C67 

5A OCC 

C 


TS 

0 



0115 





C?,2C70 

C OOCA 

C 

RKRLEES 

INH INT 




0116 

REF 

16 

LAST 

ISfi 

C7,2C7l 

A A7C2 

1 


CS 

BIT9 

CCARSE OPT ICS RETURN 

FLAG. 

UU7 

REF 

31 

LAST 

162 

C7,2C72 

7 1331 

C 


RASK 

OPTHCDES 



0118 

REF 

32 

LAST 

217 

Cl, 2073 

55*331 

C 


TS 

LHTRCCES 




C119 REF 6 yST 198 C7,2C7A 3 7716 C CA NEGCFE 

J120 REF 17 LAST 198 C7,2C7 5 55'3C3 1 IS OPT I AC KILL CCAPS CPTICS 


Qi2l REF 19 last 21E C7,2C76 9 A?ll C CS bIT2 DISABLE CPTICS ERPCR COUNTER 

'±122^ C7,2C77 C C006 1 EXTEND 

C123 REF 2C LAST 18S C7,21C0 03 012 1 WANO CHAM2 


ul2A C7#210l 0 0003 1 RELINT 

0 12 5 REF A LAST ITe CTTlTcl 0 95 7C 1 K SWFE TIjRK 



L 







* ' • 
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~ ~ LSER'S PAGE NC. A F7 S3 


R0126 PHCCP4^ ^A^E - MAPI^PGPT DATE- 5 APRIL 1*367 
K0127 PFCGH^P I“CIIFIED EY 256/278 PRCGRAPMEPS LCC SEC HCN SXT^^ARK 
E11126_ MCE flY- R. PELANSCh TC ADC CCCUPEMT AT ICN ASSEHBLV SUNQISK REV. 116 


f<C12S F^.^C^IC^AL CfeSCRiniCA- ___ 

fiQl2Q_ ^_i!JLPAP LPT STCRES CPUS. OPTICS AND TINE AND TRANSFERS CCNTROL TC THE PARKIT,PARK REJECT QR KEYCQM ROUTINES IF 

R0132 eiU IN LhAhNEL 16 ARE SET AS REGUlBEC. _____ 

^^‘^PCLTIAE^EMEREC VIA K6Yf<UPT2 >tHEN PARK, HARK REJECT OP DSKV KEYS CEPRESSEC BY THE OPERATOR. 


RQ.L3£ - JiCEfAL EXIT KCCE- — 

H 0137 P/iPKn, HKRFJECT CP PGSTJUPP RCirihES IMARKfRARK REJECT CP CSKY CODE) 


Ful3i ^ ALAP H CP AEQP.T EX IT HCDE- 
RG13S ALARF APO PESUPE 


PC IkQ^ jgLIFCJL- 

ROlAl PLPTSTCP+5 » CCLlf RUPTSTCR+3 “ CCCSt RUPTSTCR+2 = CDUY, 

RJIA2 RUFTRE63 = CUUZi RCPTSTCR + 6 » CCUX , PLFTSTQR+l ANO SAKPTIPE+l *TIM6l, 

RUIA3 ROFTS TOP AND SAPPTIHE TIPE2 


ROIAA EPASAELE IMT 1 AL I ZAT ICf<- 

u 0 I A 5 COLTtCCLSfCCUY iCOUZ tCDCXiT lN£2t T IPEi tCHANNEL 16 BITS 6,7 CR 1-5 


KUIA6 CEEPIS- 
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RiL3 9^0- ££R£T« ^C. HARKS 


OAOl 

REF 

7 

LAST 

198 

07,2346 

0 4555 

C 

HKvesi 

TC 

BANKCALL 
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07,2265 

0 5435 

c 

T6RHP03 

TC 

UFF L AG 


04147 

REF 

1 



07,2366 

CCC32 

c 


ACRES 

TRM03FLC 


U4 1 5 

REF 

3 

LAST 

224 

C7,2367 

3 47^1 

1 

ENTANSMR 

CAF 

L0W9 
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07,2370 

7 1330 

1 


MASK 

MAFKSlAT 
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1 



43, 2042 

0 

3725 

1 


TC 

V72UPDAT 

VB72 UNIVERSAL UPDATE - SINGLE’ AODPE 5S- ’ 

0043 

REF 

1 



43,2043 

c 

3?27 

c 


TC 

V730FCAT 

Vfl73 UPDATE ACC TIME ICCTALI. 

0044 

REF 

1 



43, 2044 

0 

2710 

c 


TC 

Dn&olpp 

V074 INITIALIZE DOHN-TELEMETRY PROGRAM 

A00^5 












PCP ERASABLE WWP. 

0C46 

REF 

1 



43,2045 

“0 

2714 

1 


TC 

LFTFLCCN 

VB75 SET LIFTCFF FLAG. 
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0097 

PEF 

1 

93,2C96 

0 

3013 

C 

TC 

SETPRFLG 

V876 SET PPEFERPEO ATTITUDE FLAG 

0098 

REF 

1 

93, 2C97 

c 

3016 

C 

TC 

RESETFRF 

Ve77 RESET PREFERRED ATT. FLAG 

aw9SL 

REF 

1 

93. 2050 

0 

2909 

C 

TC 

CHAZFCfX 

CHANGE GYRCCCNPASS LAUNCH AZIMUTH y78 

00^0 

REF 

1 

93, 2C51 

c 

3 009 

C 

TC 

CALLP35 

Ve79 REQU LLNAR LNDMRK SELECTION (R35) 

0051 

REF 

1 

93,2052 

0 

2702 

C 

TC 

LFF^VEC 

VB80 UPDATE LEM STATE VECTOR 

CQ5Z 

R£F 

1 

93,2C53 

0 

2705 

1 

TC 

CSMV EC 

vaei UPDATE CSM state vector 

0053 

REF 

1 

93,2059 

0 

2551 

1 

TC 

V82PERF 

ve82 request CRBIT PARAM display IP30» 

0059 

REF 

1 

93,2C55 

0 

2556 

0 

TC 

VeBPEPF 

V0e3 RANGE, RANGE RATE, AXIS (8311 

0055 

REF 

_J 

9 3, 2 C 56 

0 

2129 

1 

TC 

ALH/ END 

V89 SPARE 

005b 

REF 

1 

93,2057 

0 

2570 

1 

TC 

V85PEPF 

Ve85 RANGE, RANGE RATE, SLGS (P39) 

0057 

REF 

1 

93, 2060 

0 

2635 

c 

TC 

V8t PEPF 

VBe6 BACKUP MARK REJECT 

055J_ 

REF 

^ 

93, 2C61 

0 

3U21 

1 

TC 

SfcTVFFLG 

7887 SET VHF RANGE FLAG 

0059 

REF 

1 

93,2062 

0 

3025 

c 

TC 

RESE TVhF 

VBfle RESET VHF RANGE FLAG 

0060 

REF 

1 

93, 2063 

b 

2739 

c 

TC 

V&9P ERF 

V89-ALIGN X OR PPF CSM AXIS TO LOS (R63) 

006X 

REF 

1 

93,2069 

c 

3190 

1 

TC 

VS^CPEPF 

VB90-CLT CF PLANE PARAMETERS tR36" 

0062 

REF 

I 

93,2065 

0 

2751 

c 

TC 

GUSHCSUM 

V891 TEMP FCR HYBRID AND STG. 

0063 

REF 

1 

93, 2C66 

L 

2369 

1 

TC 

SYS test 

VB92 OPERATE IHL PERFORMANCE TEST 

0069 

REF 

1 

93,2067 

0 

2799 

1 

TC 

WMAT RXNG 

VB93 CLEAR PENGHFLG 

0065 

REF 

1 

93,2C7C 

0 


c 

TC 

VtRB?9 

VB99 DC R69 

0066 

REF 

2 LAST 23C 

93,2C71 

0 

2129 

1 

TC 

ALM/ END 

ve95 SPARE 

0067 

REF 

1 

93,2072 

1 

3196 

c 

TCP 

VEFE.96 

7096 SET QUITFLAG TO STOP INTEGRATION 


006ti REF 5 LAST 22S A3t2C73 0 23C1 1 TC GpjJiAGLV V97 PLEASE PERFfRM ENGINE-FAIL IR^U 

QQ69 REF 3 LAST 23C 43,2C74 C 2129 1 TC ' ^SZIS^L- V698 SPARE 

0070 REF 6 LAST 23C 93f2C75 C 23CI I TC CaLFAOLV Ve99 PLEASE ENABLE ENGINE 


R0071 £hC OF EXTENCEC VERE FAN 


0072 

REF 

7 

LAST 

22 1 

93,2076 

1 1 

*099 

1 

lESlXACT 

CCS 

EXTVEACT 



Ou73 

REF 

9 

L A IT 

23C 

93,2077 

0 

2129 

1 


TC 

ALM/ END 

YES. TURN CN 

OPERATOR ERRCR LIGHT 

QC731 

REF 

2 

LAST 

187 

93,2100 

3 

OICC 

C 


CA 

F LAGVRC9 

ARE PRIOS USING DSKY 

00732 

REF 

1 



93,2 101 

7 

2127 

C 


MASK 

GC29 ICC 


1 

CC732 

REF 

,A9 

LAST 

22E 

93,2102 

1C 

OOU 

C 


CCS 

A 



00739 

REF 


LAST 

23C 

93,2103 

0 

2129 

1 


TC 

ALM/ENC 
















1 

0079 

REF 

■a 

LAST 

195 

93,2109 

3 

9112 

1 


CAF 

(JCT29 

SET BITS 3 AND 5 t 

0075 

REF 

8 

LAST 

23C 

93,2105 

55 

•099 

1 

SETXIACT 

TS 

EXT VEACT 

NC. SET FLAG 

TO SHOW EXT VERB DISPLAY 

AC076 












SYSTEM BUSY 

— 

0077 

REF 

25 

LAST 

22 fi 

93,2106 

3 

C0C2 

C 


CA 

Q 



0076 

REF 

25 

LAST 

229 

93,210? 

59 

15 5 

1 

— 

TS 

MPAC +1 



0079 

REF 

3 

LAST 

22 1 

93, 2110 

3 

9759 

c 


CAF 

PRIC5 

ALLON RELOSP 

AWAKENED JOB TO FINISH “ — — 

0080 

REF 

1 



93,2111 

0 

5103 

0 


TC 

PHICCHNC 



U081 

REF 


LAST 

192 

93,2112 

3 

937 1 

c 


CAF 

Fk IC 3C 



0062 

REF 

2 

LAST 

23C 

93,2113 

0 

5103 

c 


TC 

PklQCHNG 



0003 

REF 

3 

LAST 

22 1 

93,2119 

A 

9711 

c 


CS 

ThC 

BLANK E76flVTHlNG EXCEPT M- AND VERB 

U089 

ref 

1 



93,2 1 15 

c 

9170 

c 


TC 

NVSUE 



0085 





93,2116 

0 

2117 

1 


TC 

♦ 1 
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0086 

BEf 

26 

LAST 

ZiC 

<i2t2U? 

C 

C155 

C 


TC 

MPAC *l 




GO 82 ^ 

R£f 



LAST 

196 

43*2 120 

_JL 


J_ 

XACTALM 

TC 

FALTCN 

TURN CN 

OPERATOR 

ERROR LIGHT. 

0088 

REF 

1 



^at2X21 

0 

5423 

1 


TC 

ENCEXT 

RELEASE 

MARK AND 

EXT. VERB DISPLAY SYS. 
















QQfl9 

REF 

L. 

■LA5I 

231 

5A23 




TER BEX TV 

EClUALS 

ENCEXT 




0090 

REF 

1 

LAST 

23 1 

5<i23 




ENOeXTVB 

EQUALS 

ENDEXT 





ao9i_. 

H£i__ 

21 LAST 

All 

43.2122 

-i 4714 

J_ 

XAC 10 

CAP 

2EFC 

RELEASE 

HARK ANC 

EXT. VERB DISPLAY SYS. 

0092 

REF 

1 


43, 2123 

0 21C5 

1 


TC 

SETXTACT 

















. _Qa93___ 

REF 

2 LAST 

23 1 

^3*2124 

C 44CC 

J_ 

ALM/ENO 

TC 

FALTCN 

TURN CN 

CPERATCR 

ERROR LIGHT 

0094 

REF 

8 LAST 

225 

43,2125 

0 4574 

0 

GOPIN 

TC 

POST JUMP 




C095 

REF 

2 LAST 

192 

43, 2126 

21176 

1 


CADR 

PINBPNCH 





2410C 


QQS55 


^3t2127 2^100 C CC2'iiqO OCT 
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PG096 



VEZEPC 


VERB ^0 


CESCRIPTION 




P00S7 



ZERC 







ACQSe 



1. 

RECLIRE NCUN 

20 (ICDU ANGLES) 




PQgS9 



2. 

RECtIRE AVAlLAeuny CF 

EXT VERB DISPLAY 

SYSTEM 



POICO 



3. 

IF 

EITHER CF 

A8CVE CCNCITIUNS NCT PRESENT, TORN ON 

OPERATOR ERROR LIGHT AND 

GO TO PIN8RNCH. 

RCia2 



^ • 

SfT 

£>T VERB 

CISPLAT ACTIVE FLAG. 




R0103 



5, 

EAECLTE IROZEPC (ZERO IRL CCU ANGLES). 




PQIGA 



6 • 

EJECITE IRLSTALL (ALLCVi 

TIME FOR DATA TRANSFER). 



fi0l05 



7, 

RELEASE EAT. 

VERB DISPLAY SVSTEN. 















0106 

Rtf 

1 



93,2130 

C 2192 1 

VBZERC TC 

OP/ I NEPT 



0107 

REF 

X 



93,2131 

0 2133 1 

TC 

IMUZERCK 

RETURN HERE IF NOUN 

« 1COU(20) 

QlOfi 

REF 

6 

L/ST 

23C 

93,2132 

0 2129 1 

tc 

ALM/END 

RETURN HERE IF NCUN 

• CC0U(91) 

A0109 









(NCT IN USF 

YET) 












QUO 

REF 

1 



93(2133 

0 2275 C 

IMOZEROK TC 

CKMCCCAD 

KEYBCARC RECUEST FOR 

iSS CCU ZERC 

01101 

REF 

9 

LAST 

22S 

93,2139 

C 9555 C 

TC 

BAKKCALL 



Olll 

REF 

1 



93,2135 

16516 1 

CADR 

IMUZ EPC 














0112 

REF 

1C 

LAST 

232 

93,2136 

C 9555 C 

TC 

tiANKCALL 

stall 


0il3 

REF 

1 


93.2137 

17516 C 

CADR 

IMUSTALL 



011^ 





93,2190 

C 2191 1 

TC 

♦ 1 














0115 

ftf F 




93.2191 

0 2125 C 

TC 

GQPl F 














0116 

REF 

A 

LAST 

23C 

93,2192 

9 9112 C 

CP/INERT CS 

aCT29 



0117 

REF 

2 

LAST 

107 

93.2193 

6 1002 1 

AO 

NOUNREC 



one 





93,2199 

0 G006 1 

EXTEND 




0119 

REF 

1 



93,2195 

1 2979 C 

ezF 

XACTCC 

IF « 20. 













0120 

REF 

26 

LAST 

23C 

93,2196 

29 002 C 

INCR 

Q 



0121 

REF 

1 



93,2197 

6 21S3 1 

AO 

OPIMCIFF 

-71 


0122 





93,2150 

0 00C6 1 

EXTEND 




0123 

REF 

2 

LAST 

232 

93,2151 

1 2979 C 

BZF 

XACTCC 














Ci2A 

REF 

7 

LAST 

232 

93,2152 

0 2129 1 

TC 

ALM/END 

ILLEGAL. 













0125 





93,2153 

77670 C 

CPIMOIFF DEC 

-71 
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5 
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P0I26 



VeCCAPK VERS 91 CESCRIPTION 





R0127 



COURSE ALIGN IRU CP L'PTIGS 





PQ12a _ _ 



1. PECOIPE NLLN 20 CR NCLR 91 CR TORN CN CPERATCR ERROR 





ROUS 



2. REQUIRE E)«T VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO 

TO PINBRNCH. 

RU131 



CASE 1 NCUN 20 ( ICCU ANGLES) 





PQ132 



3. SET E>T VERB CISPLAY ACTIVE FLAG. 





R0133 



9 . DISPLAY FLASHING V25tN22 (LCAC NEW ICOU ANGLES). 





RCl 



RESPCNSES 





RQl3i _ 



A. TERMINATE 





P0136 



1. RELEASE EXT VERE DISPLAY SYSTEM 





R0137 



E. PROCEED 





PC136 



1. DISPLAY FLASHING V25,N23 (LCAD DELTA ICDL ANGLES). 




ROIAO 



RESPCNSES 





POLAl 



A. TERMINATE 








1. RELEASE EXT VERB DISPLAY SYSTEM. 





R01A3 



B. PRCCEEC 





PGIA^ 



1. EXECLTE ICCRK2. 





PCl<»5 



C. ENTER 





R0I46 



1. INCREMENT CCL ANGLES 





HOIA7 



2. EXECLTE 1CCRK2. 





ROl^e 



C. ENTER 





ROl^S 



1. EXECUTE 1CCRX2. 





HCISO 



IC0RI<2 





ROI51 



1 . RE-DISPLAY VERB 9 1 . 





RaiS2 



2. EXECUTE IMUCCARS URL COARSE ALIGN). 





P0153 



3. EXECUTE IMLSTALL (ALLCW TIME FCR DATA TRANSFER). 








9. RELEASE EXT VERB CISPLAY SYSTEM. 





R0155 



CASE 2 NCUN 91 (CCCL ANGLES) 





R0156 



5. (PEGUIRE CPTICS SWITCH TO BE AT COMPUTFR OF 7LRN CN 

OPERATOR ERROR ANC ALARM 

115 ) 

AND 

(REQUIRE 

R0158 



OPTICS AVAILABLE AND CISPLAY FLASHING V29 ,N9 2.. . .LOAD NEW OPTICS ANCLES.. ..OR 

TURN 

ON 

ALARM 117 

RCltO 



AKC RELEASE EXT VERB CISPLAY SYSTEM). 





P0161 



6. RESPONSES TC V29,N92. 





PGX62 



A. TERMINATE 





P0163 



RELEASE EXT VERB CISPLAY SYSTEM 





R016^ 



B. PRCCEEC CR ENTER 





RCi65 



RE-DISPLAY V9l. SET SWITCH TC INDICATE CCURS6 

ALIGN OPT ICS WCPKINC. 




R0167 



RELEASE EXT VERB DISPLAY SYSTEM. 













0166 

REF 

2 

L/ST 232 93i2159 C 2192 1 V8C0ARK TC OP/INEPT 





0 169 

REF 

1 

93,2155 0 2157 C TC IHUCCAPK 

RETURN HERE IF NOUN * 

td0U(20) 


0170 

REF 

1 

93,2156 0 2201 C TC OPTCCARK 

RETURN HERE IF NCuN » 

CC0U(91 ) 


R0171 



RETLRN TC L+l IF NCUN 2C - TC L+2 IF NCUN 91. 





0172 

REF 

2 

LAST 232 93,2157 0 2273 C ImUCOARK TC CKMCCCAD 

CCARSE align FROM K£YBCARO 



01721 

REF 

1 

93,2160 0 2076 1 TC TESTXACT 





C173 

REF 

1 

93.2161 3 217? 1 CAF VNLOCCOO 

CALL FOR ThETAD LOAD 




0179 

REF 

1 1 

LAST 232 93,2162 0 9555 C TC BANKCALL 





0175 

REF 

1 

93,2163 20965 1 CADR GOXCSpF 





C176 

REF 

1 

93,2169 0 5923 1 TC TERMEXtV 





0177 



93,2165 1 2166 C TCF +1 






f 



CAPi A-SSiAetE JU V iSiCN 2 3? Cf 


L 


EX7ENCEC Vt«8S 



KASA 2Q2I111-C31 


1; n AUG* ^Atl968 


KOOLADE .064 PAGE 234 
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0178 

PEf 

1 



43t 2 166 

3 22C0 

1 

1C0RK2 

CAP 

I MUCCAPV 

RE-OISPLAV COARSE ALIGN VERB. 



0179 

REF 

12 

L^ST 

232 

43,2167 

0 4555 

C 


TC 

BANKCALL 




C160 

REF 

1 



43j2110 

20746 

c 


CAOR 

fcXOSPPET 




0161 

REF 

13 

IASI 

23< 

43,2171 

C 4555 

c 


TC 

BANKCALL 

CALL HCDE SPITCUNG PPCG 

- 

-- — - — 

QL62 

REF 

L 



43t2J72 

16602 

1 


CAOR 

IMUCCARS 




0163 

REF 

lA 

LAST 

23A 

43,2173 

0 4555 

c 


TC 

QANKCALL 

SULL 



016^4 

REF 

2 

LAST 

232 

43.2174 

17516 

c 


CAOR 

IHUSTALL 




Q , gg 

REF 

1 



43,2175 

C 5423 

1 


TC 

ENDEATVB 




0166 

REF 

2 

LAST 

234 

43,2176 

C 5423 

1 


TC 

ENCEATVe 


- - 


0167 





43,2177 

C6226 

1 

VNLQOCOU 

VN 

2 52 2 




oiee 





43,2200 

12200 

c 

IHUCCARV 

VN 

4100 



- 
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PQl^S lEPfCPAPV PClTINE 7C PUN CPUCS CClS FHCP THE KEVBCAHC 


Ji9fl 

REf 


LAST 

167 

<i3.22Cl 

3 1323 

1 

CPTCCAPK CA 

CPTCACR 

019001 

REF 


LAST 

232 

^3i2202 

0 

2276 

C 

TC 

cfnoccad *\ 

C190C2 

REF 

2 

LAST 

23 3 

43»22C3 

C 

2076 

1 

TC 

TESTXACT 

.aisiu 

R.EJ 




A3.220A 

3 

9 751 

( 

CAF 

E bA N K 5 


01902 REP 7 last 197 ^3,22C5 5A 0C3 C IS EBANK 


QI91 HEF 7 LAST 161 43.2206 11*31% 1 CCS SWSAPPLE SEE IF SWITCH AT COMPUTER 


0192 





93,2207 

0 

2219 

1 

TC 

♦ 5 

SWITCH AT CCMPUTER 

0193 





93,2210 

G 

2211 

1 

TC 

♦ 1 

NOT CN COWPLTER 

C199 

REF 

9 

LAST 

23 1 

93,2211 

0 

99 00 

1 

TC 

r ALTCN 

TORN CN OPERATCP ERR 

C195 

REF 

18 

LAST 

226 

93,2212 

0 

5537 

C 

TC 

ALAR R 

AMO ALARM 

C196 





93,2213 


COl 15 

1 

OCT 

001 1 6 



0197 

0198 

0199 

REF 16 
REF 1 

REF 2 

LAST 

LAST 

217 

23 5 

93,2219 

93.2215 

93.2216 

11*303 
0 2223 

C 2223 

I 

C 

C 

CCS 

TC 

TC 

OPT I KC 

OPTC 1 

OPTCl 

SEE IF OPTICS available 

IN use 

IN LSE 

0200 

REF 3 

LAST 

235 

93,221? 

0 2223 

c 

TC 

0 PTC 1 

IN USE 

0201 

_a£f 

-LAST 

■ 233 

93.2220 

0 552 7 

c 

TC 

ALARM 

OPTICS RESERVED (QPTIND--OI 

0202 




93,222 1 

COl 17 

0 

OCT 

00117 


0203 

REF 9 

LAST 

23 1 

93,2222 

0 5922 

1 

TC 

ENCEXT 












02C9 

REF 1 



93,2223 

3 2293 

C OPTCl 

CAF 

VNLDCCDU 

VERB-NOUN TC LOAD OPTICS CDUS 

0205 

REF 15 

LAST 

239 

93,2229 

0 9555 

C 

TC 

B AM K call 


C2C6 

REF 2 

LAST 

233 

93,2225 

20965 

1 

CADR 

GCXDSPF 


0207 

REF 2 

L AS T 

23 3 

93,2226 

0 5923 

1 

TC 

TERMEXTV 


0208 




93,2227 

0 223C 

1 

TC 

♦ 1 

PRCCEEC 


02082 

02069 

02066 

REF 

REF 

REF 

2 

3 

2 

LAST 

LAST 

LAST 

92 

162 

92 

93.2230 

93.2231 

93.2232 

3 1773 
55*161 

3 1775 

C 

1 

C 


CA 

TS 

CA 

SAC 

Dt SOFTS 

PAC 



02086 

REF 

9 

LAST 

162 

93,2233 

55*160 

c 


ts 

OESOPTT 



0209 

REF 

1 



93,2239 

3 2200 

1 


CAF 

OPTC CAPV 

RE-OISPLAV CUP OWN VERB 


0210 

REF 

~T6 

LAST 

23 5 

93,2235 

0 9555 

c 


TC 

BANKCALL 



0211 

REF 

2 

LAST 

239 

93,2236 

20796 

c 


CADR 

tXt SPRET 




02.12 

REf-_ 

11 

LAST 

22 7 

93.2237 

3 9712 

1 


CAF 

ONE 



0213 

REF 

19 

LAST 

235 

93,2290 

55*303 

1 


ts 

OPTI ND 

SET CCARS WORKING 


J12A9_ 

RtF 

1 

LAST 

239 

93.2291 

0 5923 

1 


TC 

ENDEXTVB 



0215 

REF 

9 

LAST 

23 5 

93, 2292 

0 59 2 3 

1 

^ • 

TC 

ENDEXTV6 



0216 





93,2293 

C6139 

1 

VNLCGCDU 

VN 

29S2 


- - 

0217 

REF 

2 

LAST 

239 

93,2200 



CPTCOARV 

EOUALS 

IMUCCAPV 

DIFFERENT NCUNS. 
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P0218 VERB A2 CESCRIPTION 

R0219 /INE ALIGN I NU 

1. RECUIRE EXT VERB DISPLAV AVAILABLE AND SET BISY FLAG CR TURN CN QPER ERROR AND GO TO PINBPNCH. 

ftC222 2. CISP LAY FLAS UNG V25 t N 93 . . . . LL AQ DELTA GYRO ANGLES.... N 

PC223 RLSPCNSeS 

RLQ22<l A. TERMINATE 

K0225 1. RELEASE EAT VERE CISPLAY SYSTEM. 

R0226 _ I ^ 0. PRCCEEC CR ENTER 

k02 27 , 1. RE-CISPLAY VERB ^2 


2. EXECUTE INUPINE (IRL FIVE ALIGN MODE SWITCHING). 

3. EXECUTE IHUSTALL (ALLOW FOR DATA TRANSFER) 

A. FAILEC 

1. RELEASE E)il VERB CISPLAY SYSTEM. 

0. GCCl 

1. EXECUTE IPUPULSE (TORQUE IPIGS). 

R023A " 2. EXECUTE IPUSTALL AND RELEASE EXT VERS DISPLAY SYSTEM. 


Q236._ 

J^EF 

^ 

LAST 

235 

43t2244 

0 2275 


IMUFINEK TC 

CKMCLCAO 

FINE align with gyro TGRQUING 


02361 

REF 

*3 

LAST 

235 

43t2245 

0 2076 

1 

TC 

test XACT 



0237 

REF 

1 



43,2246 

3 2273 

C 

CAF 

VNLGCGYP 

CALL FCR LCAD OF GYRO COMMANDS 


0236 

REF 

17 

LAST 

235 

43,2247 

0 4555 

c 

TC 

BANKCALL 



0239 

REF 


LAST 

235 

43,2250 

20465 

1 

CAOR 

GOXOSPF • 



0240 

REF 

3 

LAST 

235 

43,2251 

0 5423 

1 

TC 

TERMEXTV 



0241 





43,2252 

0 2253 

1 

TC 

+ 1 

PROCEED WITHOUT A LOAD 



0242 

REF 

1 



43,2253 

3 2274 

1 

CAF 

IMUF INEV 

RE-OISPLAY CUR CWN VERB 


0243 

REF 

=J1_ 

LAST 

236 

43,2254 

0 4555 

C 

TC 

BANKCALL 



0244 

REF 

3 

LAST 

235 

43,2255 

20 746 

C 

CAOR 

E XOSFPET 















. 0245 

J81i_ 

05- 

LAST 

236 

43,2256 

0 4555 

C 

TC 

BANKCALL 

call MODE SWITCH PROG 


0246 

REF 

1 



43,2257 

17012 

1 

CAOR 

IMUF INE 



C24J 

REF 



236 

_ 4i,aieo 

0 4555 

C 

TC 

BANKCALL 

HIBERNATICN 

— - - - • 

0246 

REF 

3 

LAST 

234 

43,2261 

17 516 

c 

CAOR 

I MU ST ALL 



0249 

REF 


LAST 

23 5 

43,2262 

0 5423 

1 

TC 

ENOE XTVB 















0250 

REF 

1 



43t 2263 

3 2272 

1 

FINEK2 CAF 

LGYF CBIN 

PINBALL LEFT COMMANDS IN CGC REGIST5RS 


0251 

REF 

X 1 

LAST 

236 

43,2264 

0 4555 

c 

TC 

BANKCALL 



0252 

REF 

1 



43,2265 

17125 

1 

CAOR 

IMUPLLSE 



0253 

REF 

22 

LAST 

236 


0 4555 

c 

TC 

BANKCAL L 

WAIT FOR PULSES TQ GET OUT. 

- ■ 

0254 

REF 

4 

LAST 

236 

43,2267 

17516 

c 

CAOR 

IMUSTALL 



u255 

REF 

6 

LAST 

236 

43,2270 

0 5423 

1 

TC 

ENDE XTVe 



0256 

REF 

7 

LAST 

236 

43,2271 

C 5423 

I 

TC 

f 

ENCfc XTVB 


- 

0257 

REF 

5 

LAST 

229 

43,2272 

QZ151 

c 

LCYRCBIN ECAOR 

OGC 



0256 





43,2273 

06335 

1 

VNLCCGYR VN 

2593 



0259 





43,2274 

12^00 

c 

IMUFINEV VN 

4200 

FINE ^LIGN VEP8 


02591 

REF 

4 

LAST 

7fl 

43,2275 

3 1322 

c 

CKMCOCAO CA 

MCDECALR 




P0228 
RU229 
R0230 
R02 31 
R0232 
RU233 


\ 


S 


- 1. 



..:x 

\ 


II 




— m 1 

■ C l, s n 1 

mil 





ULil B-E 

LAJLJL-TId^ i 

A. * X f AllJ W f 

^7 G a 

rv ^ M ^ c •VALJ'T 

r AX c < V ' 


L 

EXTENDED 

VERBS 







USER’S 

PAGE 

NO. 9 

65 SA 
















025^2 



A3,227t 

C 

C006 

1 

EXTEND 







02593 

REF 2 

LAST 16C 

A3f2277 

1 

6711 

I 

BZF 

TCU 






0259^ 

JL£f_ 

LAST 232 

43.23C0 

JL 

212^ 

_1_ 

TC 

ALM/ENO 

SCHEfiCOY IS 

USING 

MOCECADR SC 

EXIT 


R0260 


CCLCACLV 

VERB 50 




DESCRIPTION 







R0261 



AND OTHER 

PLEASE 








RjQ 2t2 ^ 



DO SCHETHING VERBS 









P02fc3 

8026^ 

S0266 

>40267 


PLEASE PERFQP^*» FAPK, CALIEPATE, ETC 
1. PFESSING ENTER CN CSK Y INC 1CAT6S REQUESTED ACTION HAS BEEN 
SAME RECALL AS A CCMPLETEC LCAO. 


PERFCRMED, ANC THE PROGRAM DOES THE 


2. THE EXECUTION CF A VEPE 33 (PROCEED MITHOUT CATAI INDICATES THE PEQLESTEC ACTION IS NOT DESIRED 


Q26l9 

Aif 

1 



’>3*2301 

0 <1 A 7 


GOLOACLV 

TC 

flashcff 



0270 

REF 

1 



A3, 2302 

3 A215 

C 


CAF 

PINSLFET 



0271 





^3,2303 

0 0006 

1 


EX 1END 




_Q27Z 



-LAST 

lliJ 

43t23Q’^ 

01 CC7 

1 


NR ITC- 

SUPERBNK 

TLRN ON FE? 


0273 

REF 

9 

LAST 

2 3 1 

<i3,23C5 

0 <*57^ 

c 


TC 

POST JIMP 



027A 

REF 

1 



A0,2C0G 




SbANKs 

PINSLPER 



. Ji2 7 5_ 

REF 




A3, 2306 

620C1 

1 


CAOR 

LOADLVl 



R0276 



V6U 

VERB 

6 0 





















0277 





A3, 2307 

0 0006 

JL- 

V60 

EXTEND 


SET ASTRONAUT TOTAL ATTITUDE (M7) EQUAL 


0278 

REF 

A 

LAST 

228 

A3, 2310 

3 0033 

1 


DC A 

COUX 

TO PRESENT ATTITUDE 


0279 

REF 

1 



A2, 2311 

52*33A 

C 


OxCh 

CPHI X 



02 60 

REF 

A 

LAST 

216 

A3,2312 

3 OOBA 

c 


CA 

CDU2 



0261 

REF 

2 

LAST 

237 

A3, 2313 

52*335 

I 


TS 

CPHIX 42 



0282 

REF 

2 

LAST 

232 

A3, 231^ 

0 2125 

c 


TC 

GCPIN 




RQ2e3 Vei VERB 61 


a28A 

REF 

C 

LAST 

196 

’,3,2315 

0 5AA7 

C V6l 

TC 

DOWN FLAG 

SET NEEDLFLG TO 0 (FLACWRCO,B 1T9 J , PHASE 

0265 

REF 

1 



A3, 2316 

00006 

1 

ACRES 

NEEDLFLG 

PLANE A/P FOLLOWING ERROR DISPLAYED 


■ MF 


LAST 

23 7 

A3, 2317 

C 2125 

C 

TC 

GCP I N 



PQ287 



V62 

VERB 62 









0286 

REF 

3 

LAST 

225 

A3, 2320 

0 5A35 

C 

V62 

TC 

UPFLAG 

SET NEEDLFLG TO 1 

(FLAGWRD0,aiT9l , 

- 

. 0289 

REF 

2 

LAST 

237 

A3, 2321 

00006 

1 


ACRES 

NEEDLFLG 

TCTAL ATTITUDE ERROR DISPLAYED 
















C290 

REF 

A 

LAST 

237 

A3, 2322 

0 5A35 

C 


TC 

UHF L AC 

SET N220RM7 TO 1 

(FLAGMRC9,B 1T6) , 


02902 

REF 

1 



A3, 2323 

C022C 

1 


ACRES 

N22CRM7 

CCMPUTE total ATTITUDE ERROR WRT N22 


0290A 

REF 

A 

LAST 

237 

4 3 f 2 3 2 ^ 

0 2125 

c 


TC 

GOPI N 

- 



R<j2905 



V63 

VERB 63 








- 

V.29G6 

Rtf 

5 

LAST 

23 7 

A3, 2325 

0 5A35 

c 

V63 

TC 

UPFLAG 

SET NEEDLFLG TO 1 

(FLAGRRC0,BIT9) , 

- — ^ -- — 

02907 

REF 

3 

LAST 

237 

A3, 2326 

00006 

1 


AORES 

NEELLFLC 

TCTAL ATTITUDE ERROR DISPLAYED 


C290e 

REF 

6 

LAST 

237 

A3, 2327 

0 5AA7 

c 


TC 

DOWN FLAG 

SET N22CRN17 TO 0 

(FLAGrRC9,B IT6, 

' - - - - — - 


lSSE>BLt RgVlSlCK 237 CF ACC PKCGRAM COLCSSUS BY NASA 202111 1-C31 1:17 2^i_19fea KOQLACE .06A PAGE 23b 


L EXIENCCC VtKeS USER'S PAGE NG, 10 E5 S4 


O2S0S REE 2 LAST 23T A3f233C C022O 1 ACRES N22CPM7 COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR 

Q29CS3 BEF 5 LAST 237 A3i2331 0 2125 C TC GC'PIA 


f 


i, A£J iSSeiigLE R&V1SICK 231 CF AGC PRCGRAM COLOSSUS BY MSA 2021111-C31 1:1? AUG. 2k,l96B KOQLAOE .06A PAG6 239 


L EXTENCtC VER8S USER'S PAGE NC. 11 F5 


PC291 AUMIME VERB 55 DESCRIPTION 

R0292 1. SIT EAT VERB DISPLAY ELSY FLAG. 

^ Fia293 2. DISPLAY FLASHING V25tg2A ILQAD DELTA TINE FOR AQC CLOCK. 

B029A 3. RECLIRE EABCLTICN OF VEP 6 2 3 . __ 

RU29S A-_ACC DELTA TIREi RECEIVEC FROR INPUT REGISTEk, TO THE CCRPUTEP TIME. 

RC297 5. RELEASE EAT VERB OISPLAY SYSTEM 


C290 

REF 

1 







COUNT 

09/P33 




0299 

REF 

A 

LAST 

23 1 

43t2332 

0 20 76 

1 

ALINTIHE 

TC 

TEST AACT 


















JL3.CC 

ALl 

X 



^3t2333 

-3 2 363 

_L_ 


CAF 

VNLUDDT 




G301 

REF 

22 

LAST 

23E 

93,2334 

C 9555 

C 


TC 

BANKCALL 




03C2 

REF 

1 



93,2335 

20965 

1 


CAOR 

GOMARKF 




.Q3.Q3 _ 

_ R£F 

— ai 

LAST 

235 

93.2336 

C 5923 

1 


TC 

ENt EAT 

TERMINATE 



03DA 

REF 

6 

LAST 

239 

93,2337 

0 5i923 

1 


TC 

ENUE AT 

PROCEED 



03C5 

REF 

1 



93,2390 

9 2362 

C 


CS 

DeC2 3 

DATA IN OR 

RESECUENCE(UNLIKELY) 


OiOC 

REF 

27 

LAST 

231 

93.2391 

6 0159 

1 


AO 

RPAC 

RECALL LEFT 

VERB IN MPAC 


0307 





93,2392 

0 OOC6 

1 


EXTEND 




0308 

REF 

1 



93,2393 

1 2395 

c 


BZF 

UPDAT IRE 

GC AHEAD WITH UPDATE ONLY IF RECALL 


0309 

REF 

7 

LAST 

239 

93,2399 

0 5923 

1 


TC 

ENOE AT 

with V23 

(DATA IN). 


0 310 





93,2395 

0 0009 

c 

UPOATIHE 

INHINT 

DELTA TIME 

IS IN CSPT6M1, ♦!. 


0311 

REF 

22 

LAST 

23 1 

93,2396 

3 97 19 

1 


CAF 

ZEFQ 




0312 

REF 

28 

LAST 

239 

93,2397 

59 156 

1 


TS 

MPAC +2 

NEEDED FCR 

TP AGREE 


u3l3 

REF 

19 

LAST 

216 

93,2350 

59 OCl 

1 


TS 

L 

ZERO T1 C 2 

WHILE ALIGNING. 


031A 

REF 

7 

LAST 

216 

93,2351 

52 025 

1 


CXCH 

T IHE2 




C315 

REF 

29 

LAST 

?39 

93,2352 

52 155 

1 


DXCH 

NPAC 




0316 

REF 

2 

LAST 

73 

93,2353 

53*052 

c 


DXCH 

0SPTER2 ♦! 

lACREMENT 



0317 

REF 

3C 

LAST 

239 

93,2359 

2C 155 

1 


DAS 

MPAC 




0318 

REF 

1 



93,J355 

0 7226 

c 


TC 

TPAGPEE 

FORCE SIGN 

AGREEMENT. 


Ji 19 

REF 

31 

LAST 

239 

93,2356 

52 155 

1 


DXCH 

MPAC 

NEW CLOCK. 



C 320 

REF 

8 

LAST 

_215_ 

93.2357 

2C 025 

_L 


DAS 

T IME2 




0321 





93,2360 

0 0003 

1 


RELINT 




0 322 

REF 

8 

LAST 

239 

93,2361 

0 5923 

1 

LPOTRENC 

TC 

FNDE AT 




0323 





93,2362 

0002? 

i 

dEC23 

DEC 

23 

V 23 



J32<* 





93,2363 

06230 

€ 

VNLCDCT 

VN 

2529 

V25N29 FOR 

LOAO DELTA TIME 

- - 
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L £>TENCEC VERES USER^S PAGE NO. 12 E5 SA 


PQ225 SVSIEST VERB S2 CESCKIPTION 

R0326 OPERATE SELECTED SVSIEP TEST 

,Riia2.1 _ I. REQUIRE PCC CP PCC- CP TIRN_ Ch OPERATOR ERHCR. 

R0328 2,. TLRN off CAP IF IT IS CN . 

Rfl329 3. CISPLAY FLASHING V21fNCl (LOAD TEST NUPBER 1 THPD 17). 

30330 A. UPCN ENTRY OF TEST NUPBERt SCHECDLE TSELECT HlTH PRICPITY 20. 

R0332 TSELECT 

R0333 1. IF IQACEC TEST NLNEEP IS VALlOf GO TO THAT TEST ROUTINE, CTHERWISE TURN ON OPERATOR ERROR AND 

P0335 REPEAT LCAC REQUEST DISPLAY. <N0. 3 ABOVE) 


0336 

REF 

2 LAST 

201 

E5, IA25 



ebank* 

QPLACE 










C337 

RtF 

1 





COUNT 

OA/fcXTVB 

C3iiL_ 

REF 



AX.2^6A 

0 2717 

1 

SYSTEST TC 

CHKPCCH 

C339 

REF 

I 


A3, 2365 

0 2723 

C 

TC 

6XCAPCFF 

C» 5 ^ 0 

REF 

1 


A3, 2366 

3 A675 

1 

CAF 

PR 1G2C 


REF 

1 LAST 

17E 

A3,236T 

0 50A2 

1 

TC 

F INDVAC 

03A3 

REF 

3 LAST 

2AC 

65,1225 



EBANK* 

QPLACE 

03AA 

REF 

1 


3C, 2C00 



SBANK* 

IMUSLFEP 

03A5 

REF 

1 


A3,237C 

02002 

1 

2CA0H 

REDO 

C3A5 

REF 

1 


A3, 2371 

66065 

1 



0JA_6 


j5! last 

238 

A3. 2372 

0 2125 

C 

TC 

GCPI N 


HJlUil , RECC ANC TSElECT APE NOW IN SYSTEP TEST, 


LjAe REF 2 LAST 229 TC 239: 216 2ii* COUNT* i5/tATVB 

RU3A9 CKCPTVB VERB 65 DESCRIPTION 

R0350 optical VERIFICATICN FCR PPELACNCH. 

R035I 1. SCHEDULE GCOPPVER, OPTICAL VERIFICATION SUBPRCGRAP, PITH PRIORITY 17. 


0353 

REF 

A 

LAST 

22 5 

A3, 2373 

C 5253 

C 

CKOPTVB TC 

CHtC PPM 



035A 





A3, 237A 

00002 

0 

MM 

02 

1 monger if prelaunch is running 


0355 

REF 

9 

LAST 

237 

A3, 2375 

0 212A 

1 

TC 

ALM/ENO 

NCT RUNNING OPERATOR ERROR 


0356 





A3, 2376 

C OOOA 

c 

INHINT 




0357 

REF 

3 

LAST 

188 

A3, 2377 

3 A763 

J 

CAF 

PR 10 16 

PRELAUNCH OPTICAL VERIFICATION 


j35b 

RtF 


LAST 

2AC 

A3,2A00 

0 50A2 

1 

TC 

F INDVAC 



G3 59 

REF 

A 

LAST 

2AC 

E5, 1A25 



EBANK s 

QPLACE 



ij 3 c C 

REF 

2 

LAST 

20E 

A3,2ACl 

02000 

c 

2CADR 

CCMPVER 

STANCARO LEAOIN to GCOPPVER. 


0360 





23,2202 

66065 

1 





03 61 

REF 

7 

LAST 

2AC 

23,2203 

0 2125 

c 

TC 

GCPiN “ 




Ru3e2 V 78.... TC CHANGE GYfiCCCPPASS AZIMUTH 

0363 KEf 5 LAST 2AC A3,2A0A 0 5223 C CHAZFCGC TC CHECKPM IS IT PRELACNCM 

Q3631 A3,2AC5 C0002 C PM 02 

03632 REf 1C LAST 2AC A3,2A06 0 2l2A 1 Tt ALM/'£ND NC - CPERA TCP ERROR 


_iaAP; ASS£l»BLg RfVlStCN 237 CF AbC PRCGRAH COLOSSUS BY NASA 20 ^ 1111-031 Ull AUG. 24,1968 K 00 LAD 6 .064 PAGE 241 


L EXTEhC^C 

vEPes 








USER'S PAGE NO. 13 

E 5 S 4 










C 3 t 4 i^fcF 


L/ST 

29 C 

43,2407 

3 4763 

1 


CAF 

PR IC 16 

PRELAUNCh AZIHCTH CHANGE 


0365 fitF 


L 3 ST 

29 C 

43, 2410 

0 5042 

1 


TC 

FINDVAC 



A 3 tt B.U 

_JA 

1^57 

^ll 

E 5 t 1671 




EB ANK s 

XSK 



036 ? REf 

2 

L JST 

2 Ae 

43,2411 

C 3737 

1 


2 CA 0 f< 

AZPTPCOl 



0367 




43.2412 

66065 

1 






0366 PEF 

■ ** 

UST 

194 

43.2413 

C 53 C 1 

C 


TC 

PHASCFNC 



0369 




43.2414 

CO 1 74 

c 


OCT 

00174 



0370 REF 

e 

L/ST 

29 C 

43,2415 

0 2125 

c 


TC 

GGPI B 




I 

( 




I 


R 


M 


f 




A 


A 
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L EX7ENCEC VER85 USER'S P/>Gt NO. lA E5 S4 


P0371 IPU^TTCK VERB ^3 OESCRIPTION 

hQ2^^ LEAD INU ^TTITUCE 6RRCR PETERS 

^UJ73 1- RECUIRE PRCGRAP 00 ACTIVE. COURSE ALIGN ENABLE BIT CFF AND 2ERQ ICCU BIT OFF. 

R0375 2. If GUID REP RELEASE CR LIFTOFF HAS CCCUFRED REQUIRE EXT VERB CISPLAV AVAILABLE AND SET BUSY 

R0J77 FLA G* OTHEPKISE ALLGH CURRENT EXT VERB OlSPLiY TC BE CVER-RICDEN. 

RGilA 3. PfcPCVE CCARSE ALIGN ENABLE ANC INU ERROR CCLNTER ENABLE 

R03e0 A . 0 ISPLAY FLASHING V25*Rii (LOAD NEW ICDU ANGLES). 

Pa381 5. UFCN PROCEED CR ENTER RESPCNSE# INITIALIZE CURRENT CAC ANC CCPHAND VALUES* ENABLE ERROR COUNTERS 

PQ3e3 TRANSFER LOADED VALUES TC REGISTERS, AND SENC COWHANDS. 

ROIfiA 6. IF BUSY FLAG SET, RESET IT TC RELEASE EXT VERB DISPLAY. 


Qlfii RE F 2 LAST ZAC A3t2A16 0 2717 I IHUATTCK TC CbKPCCH 


0366 

0367 

REF 

1 




A3,2A17 
<3, 2A2C 

3 2A75 

0 CQC6 

C 

1 

CA 

EXTEND 

0CTAL3C 

CHECK IF IMU 

ZERO 

AND INU 

COARSE 

ARE CN 


0388 

REF 

21 

LAST 

217 

A3, 2A21 

02 C12 

C 

RAND 

CHAM2 







038S 

REF 

<5 

LAST 

23C 

A3,2A22 

IC OCO 

c 

CCS 

A 







0390 

REF 

1 1 

LAST 

ZAC 

A3,2A23 

1 212A 

c 

TCF 

ALh/ENC 

NOT allowed 

IF IMU 

COARSE 

OR INU 

ZERO ON 



0391 

0392 

REF 

REF 

1 

«• 

LAST 

239 

A3, 2A2A 
A3,2A25 

0 2A63 
0 2076 

1 

1 


TC 

TC 

CKLFT6TS 

TESTXACT 

IS IT 0EFCBE CR AFTER 
AFTER 

LIFTOFF 

- 


0393 

REF 

1 



A3,2A26 

A A726 

1 


CS 

0CT5C 

REMOVE CCARSE AND ECTR 

ENABLE. 



039A 





A3,2A27 

0 0006 

1 


EXTEND 






C395 

REF 

22 

LAST 

2A2 

^3,2A3C 

C3 012 

1 


WAND 

CHAM2 





0396 

REF 


LAST 

232 

A3,2A31 

3 2177 

1 


CAF 

VNLUCCDU 






C3S? 

BEf 


LAST 

239 

A3,2A32 

C A555 

C 


TC 

BANKCALL 





0398 

REF 

A 

LAST 

236 

A3,2A33 

2CA65 

1 


CADR 

GOXDSPF 





0399 

REF 

1 



A3, 2A3A 

1 2A90 

c 


TCF 

TRPATTCK 





OACC 





0,2A3« 

C 2A36 

1 


TC 

•H 





OAOl 

REF 

A 

LAST 

197 

A3,2A36 

3 A752 

c 


CAF 

EBAN K6 





0AC2 

REF 

8 

LAST 

23 5 

A3,2A37 

5A 003 

c 


TS 

LfaANK 

SET E6 FCR NEEDLES. 




0AU3 

REF 

5 

LAST 

211 

E6, IA76 




EBANK« 

AK 





OAilA _ 

BEE 

2 ^ 


2A2 

A3. 2AA0 

0 A 5 5 5 

c 

— - — — 

TC 

DANKCALL 

INITIALIZE CURRENT DAC 

ANC 

- - - - 


0A05 

REF 

1 



A3,2AA1 

A2A27 

c 


CADR 

NEEOLEil 

CCMMANO VALLES 


- 


OAOt 

REF 

26 

LAST 

2A2 

A3, 2A A2 

0 A555 

c 


TC 

BANKCALL 

ENABLE ERRCR CCLNTERS. 




0A07 

REF 

1 



A3, 2AA3 

A2AA6 

1 

. 

CADR 

needier^ 






CAC8 

REF 

A 

LAST 

23C 

A3,2AAA 

3 A7n 

1 

- - 

CAF 

T WO 

A MS PIN. 



- 

OAIO 

REF 

9 

LAST 

227 

A3,2AA5 

0 51AC 

1 


TC 

waitlist 





CAll 

REF 

6 

LAST 

2A2 

E6, IA76 




EBANK* 

AK 





Ca12 

REF 

1 



A3,2AA6 

02A53 

1 


2CA0R 

ATTCKl 





0A12 

REF 

1 



A3,2AA7 

661C6 

c 








0^13 

REF 


LAST 

2A2 

A3,2A50 

0 2A63 

i 

IPMATTCk 

Tt 

CKl F TBTS 

IS IT BtFCRE CR AFRER 

LIFTOFF 



OAIA 

PEF 

9 

LAST 

239 

A3, 2A51 

1 5A23 

( 


TCP 

ENDE XT 

AFTER 




0A15 

REF 

9 

LAST 

2A ] 

A3, 2A52 

0 2129 

c 


TC 

GCFI N 
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USER'S PAGE NO 


15 


E6 S'* 


0516 

0517 

C AIi 

REF 

5 

■ 7 



53,2553 

0 0QC6 

1 ATTCKl 

1 

-i 

EXTEND 


TRANSFER LOADED VALUES 

TO 

DESIRED REGS. 

L/ST 

LIST 

76 
lit 2 

53.2555 

53.2555 

3 1156 
53*577 

OCA 

CXCH 

THL TAD 

AK 



05l<3 

REF 

6 

L/ST 

253 

*3,2556 

31*157 

c 

CAE 

THET/D +2 





0520 

REF 

e 

L/ST 

25 3 

53,2557 

55*5CC 

1 

TS 

AK *2 



















0521 

HEf 

18 

L/ST 

227 

53,2560 

G 563 3 

c 

TC 

I BNKCALL 


SENDS CCHMANDS LIMITED 

TO 

385 PULSES 

0522 

REF 

1 



53,2561 

52562 

1 

CADR 

NEEDLES 


AND LEAVES ERROR COUNTERS 

ENABLED. 


0^123 


REF 11 L/ST 22E A3,2^t2 0 52 U 1 


1C 


TASKCVER 


0^25 
0^126 
Jl^2 7 

O^Zt 

C^2<i 


0531 

0532 

0533 


REF 

REF 

R EF 

REF 

REF 

REF 

REF 

REF 


LiST 15; 53.2563 3 5706 1 CKLFTETS CAF 


BITS 


3 

ee 


L/ST 

L4S7 


182 

252 


JJLU 211 


5 3 f 25 4 5 

53.2565 

53.2566 


7 OlCl C 
1C OCO C 
0 0002 C 


MASK 

CCS 

TC 


FLAGWRD5 

A 

Q 


12 L/ST 252 53,2567 3 5706 1 


A3, 2570 


5_ 

67 

2 

2 8 


L/ST 16C 53,2571 


C 0006 1 
C2 C3C C 


CAF EIT5 

extend 


RANG 


CHANSO 


L/ST 

L/ST 

L/ST 


252 

13C 

252 


53.2572 

53.2573 
53,2575 


1C 000 C 
1 6706 1 
C C0C2 C 


XACTQU 


CCS 

TCF 

TC 


A 

Q-H 

Q 


0535 
-05 3 A 


MF. 


51,2575 


■7 


L/ST 252 53,2576 


C0030 I 
C 2717 1 


CCTAL3C OCT 
VBt>5 TC 


30 

CHKPCCH 


0536 

REF 

6 

L/ST 

252 

53,2577 

0 

2076 

1 

TC 

C537 





53, 2 500 

0 

C0G5 

C 

INHINT 

0538 

REF 

1 



53,2501 

3 

5677 

c 

CAF 

0539 

REF 

5 

L/ST 

25 1 

53,25C2 

0 

5052 

1 

TC 


TLSTXACT 


PR 105 


0550 

REF 

2 

L/ST 

8T 

£5 

0551 

REF 

i 



53 

0551 

REF 

1 



53 

0552 

REF 

3 

L/ST 

197 

53 


03565 1 


EBANK 

2CA0R 


F INDVAC 

RHCSe 

SBANCANT 


651C5 C 
C 5112 C 


TC 


ENL'CFJCB 


RC5H3 

R0555 


EhATNA VE_R8 5 8 DESCRIPTION 

EAABLE AUfOM/TlC ATTITUDE MANEUVER 


H/S LIFTOFF OCCURRED 


YES 


YES 


OEHANC PRCGRAR CO. 


IF display SYS. NOT BUSY, RAKE IT BUSY 


C/LC., DISPLAY S-8AN0 ANTENNA ANGLES. 


R0555 VEPBSe RESETS STIKFLAG TO EX/BLE P61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INT'^RUPT IONS BY RHC ACT- 

FC557 IVllY. 


0558 

REF 

7 

L/ST 

231 

53,2506 

0 5557 

c enatm/ 

TC 

DCHNFLA6 

RESET STIKFLAG. 

0559 

REF 

2 

L/ST 

1 95 

53,2507 

C0020 

c 

ACRES 

STIKFLAG 

BIT 15 flag 1 

0550 

REF 

1C 

L/ST 

252 

53, 251C 

C 2123 

c 

tc 

GLPI X 



R 0 5_51 STRCKCN VERB 68 DESCRIPT ION 

RU552 stroke TEST SETUP/ENABLE 

RC553 1. SET EKT VERB CISPLAY ElSY FL/G 

R055^ 2. SCHEDULE STRKTSTI WITF PRlORrff^^. 

R0555 3. RELEASE EXT VERB OISPL/T. 
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Q<f56 

Q<i37 

REF 

REF 

REF 

2 

A 

L/ST 

L4ST 

101 

19i 

E6f U35 
93f 25U 

9 C1G2 

C 

£dANK> 
STRCKCN CS 

T5TVCCT 

FLAG VPC6 

V68 PERPIT7EC ONLY CURING TVC 



LAST 

192 

93t25l2 

7 9105 

C 

MASK 

OCT60000 

# 

C^59 





93f 2513 

C CQC6 

1 

EXTEND 



0^60 

REF 

12 

LIST 

292 

93»25 19 

6 2129 

1 

BZHF 

ALH/END 

NOT TVC.. ..FLASH OP ERROR LIGHT 


G961 

REF 


LAST 

23C 

93t25l5 

3 9371 

c 

CAF 

PRIG 30 

JOB REQUeSTt TC SET UP STROKE TEST, 


0^t3 

BEF 

6 

LIST 

229 

93,2516 

0 5027 

1 

TO 

NOVAC 

INCLUDING INITIALIZATIONS 


0<»6<> 

REF 

2 

LIST 

101 

E6, 1619 



EBANK> 

STROKER 



0^6*. 

PEF 

1 



93,2517 

C3931 

1 

2CADR 

STRKTSTI 



0^65 

REF 

1 



93,2520 

90 1C6 

1 





0^66 

REF 

11 

LIST 

29 2 

93,2521 

0 2125 

c 

TC 

GUPI A 















R0Ae7 



SUBL iSH 

VERB 96 



DESCRIPTION 




RQ^6 £ 



establish G l^0 

h CONTROL 





R0^»69 


1. 

IF TVC DIP 

IS UN, ALIRH AND 

PETUPN CThERRISE REQUIRE EXT VERB OISPLAV SYSTEM 


R0A71 




AVAILABLEi set busy 

FLAG 

AND GO rc DAPFIG TO CETEPMINE VEHICLE CONFIGURATION, 


0*.73 

REF 

5 

LIST 

299 

93,2522 

9 0102 

C 

STABLISH CS 

FLAGWPD6 

Ve 96 


C47A 

REF 


LAST 

299 

93,2523 

7 91C5 

C 

HASK 

0CT6CCCC 

NOT PERMITTED RHEN TVC DAP IS ON. 







93,2529 

C 00C6 

1 

EXTEND 



CA76 





93,2525 

6 2527 

C 

BZHF 

*2 



CjA77 

REF 

13 

LIST 

299 

^ 3 f 2 526 

0 2129 

1 

TO 

ALM/ END 



0^76 

REF 


LAST 

292 

93,2527 

3 9752 

C 

CAF 

EBAN K6 

SET EEANK TC E6 


0^79 

REF 

<3 

LIST 

29 2 

93,2530 

59 0C3 

C 

TS 

EBANK 



0460 

REF 

K 

LIST 

23T 

93,2531 

0 9579 

C 

TC 

POST JUMP 



0461 

REF 

1 



93, 2532 

6552 1 

1 

CAOP 

DAPF IC 





I 


B 


liAP.i _ J 

lSSElLBL£_MVlSlQh 2 37 

CF AGC 

PRCGRAH 

CQL0iSU5 ev NASA 2021U1-C31 

L:l7 AUG. 2Afl9£8 

KCGLACE 

,064 PAGE 245 









L 
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USER'S PAGE 

NO. 17 

E6 S4 

P0Ae2 

CRERHANU 

VERB 


description 





ROASa STAR! ^UlCMAllC ATTITUC6 RANtUVER 

RQ^l^ 1. RECUlRfc PPCGRAM 00 ACTIVE. 


ROAas 



2 

. SET EXT VERB CISPLAV ElSV FLAG. 

RCABt 



3 

. SCPECULE H620ISP RiTh PRIORITY 10, 

HCA87 



A 

. RELEASE EXT VERB DISPLAY, 






RCABB 

R0469 



R 6 2 C I S P 

1. DISPLAY FLAShlNG V06,R22 (DECIMAL DISPLAY NER ICCU ANGLES). LPCN IMMEDIATE RETURN, SET-UP GROUP 

RG491 




4 FCR RESTART OF DISPLAY StCUENCE, 

RCA92 




RESPChSeS 

RCA93 




A, TERMINATE 

HQ49A 




1. GQ TO GCTCPOCH, 

K0A95 




a, PRCCEEC 

HC496 




1. SET 3AXISFLG TC INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. 

R0496 




2, EXECUTE R60CSM (ATTITUDE MANEUVER), 

R0499 




3, ZERC GRCUF A (END R62 ) . 

^ PQ5JQ.L 




C. ENTER 

P05C1 




1, REPEAT FLASHING V06,N22. 

0502 

AiP 



243 A3. 2533 0 2717 1 CRERMANU TC CHKPCCF DEMAND POC 






05C3 

REF 

7 

LAST 

2A3 A3,253A 0 2076 1 TC TESTXACT 






Q5031 

REf 

1 


A3, 2535 3 A676 1 CAF PRIOlO 

05C32 

REF 

b 

LAST 

2A3 A3, 2536 0 50A2 1 TC FINOVAC 

0504 

Rl^F 

_1_ 


1155 EBANK* CPHI 


05C5 REf 1 A3, 2537 C2330 C 2CA0P R620ISP 


05C5 REF 1 A3«2SA0 361C2 1 
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E>7ENCEC VERBS USER'S PAGE NG. 18 E6 


P0513 CAPCISP VERB ^6 DESCRIPTION 

P051^ LCAD flCTCPlLCT OITA (PCLTINE H03» 

&Q5-L5_ Q, ChECKFAIL AND RETUPN 1F_TVC^ 

PC516 U RECLIRE EXT VERB CISPLIY AVAILABLE AND SET BLSV FLAG. 

R0517 2 , LCWEP PRICPITY TO 10. ___ 

3. DISPLAY FLASUNC V0^t^A6 (DISPLAY AUTOPILOT CONF IGliR A T ICM 

R0520 <t. UPCh PROCEED PESPONSEi EXECUTE S^l.2. 

Rg52l 5. DISPLAY FLASHING V06|NA7 (DISPLAY CSM WGT . # LEH WGT.I 

RG522 6. Uf CN PROCEED PESPCNSE EXECUTE SAQ.I^. 

P0523 7. DISPLAY FLASHING VCBtN^B (DISPLAY PITCH TRIP, YAH TRIP* _ 


R0525 8. UFCN PMCEEO RESPONSE f RELEASE EXTENDED VERB DESPLAY SYSTEM 


0527 

REP 

0 

LAST 

240 TC 

246 : 

102 32C4 

COUNT* 

tS/EXTVB 



0528 

PEP 

6 

LIST 

2A4 

2 4 4 

43, 254 1 

4 CIC2 

C CAPOISP 

cs 

PASK 

FLAChPCC 



0529 
053 C 

REF 


LAST 

43,2542 

7 41C5 

C C0G6 

c 

0CT6CC0C 






43,2543 

1 

EXTEND 




0531 





43,2544 

6 2 546 

1 

BZMF 

*2 

« 

0 

1 

CS YIELDS 01, BZMF TO CONTINUE 

0532 

REP 

H 

LIST 

244 

43,2545 

0 2124 

1 

TC 

ALM/ENC 

RETURN IF 

TVC 

0533 

REP 

6 

LIST 

245 

43,2546 

0 2076 

1 

TC 

TFSTXACT 



0533 1 

REP 

27 

LIST 

242 

43,2547 

0 4555 

c 

TC 

BANKCALL 



C5332 

REP 

1 



43,2550 

640C0 

c 

CAOR 

OAPDISPl 



U536 





42,2000 



BANK 

42 



0537 

REF 

1 



42,2CCC 



SETLCC 

EXT ves 



0538 





42,2000 



BANK 





C539 REF 1 COUNT 24/RC3 


Q54U REP 6 LAST 2^4 A2.2C00 3 A752 C DAPCISPl CAF EBANH6 


0541^ 

m TL ^ It 

REF 


LIST 

244 

42,2CC1 

5 4 0C3_ 

0 


TS 

EBANK 
















J15415 

RLP 

2 

LIST 

_245 

42,2C02 

3 46 ?6 

1 


CAF 

PPIOIC 



05416 

REP 

*3 

LIST 

23C 

42, 2CC3 

C 51C3 

c_ 


TC 

PRI CCHNC 



ja542 

REF 




42.2C04 

3 2061 


DCNCUN46 

CAF 

V04N46 

R 1 R2 


0543 

REF 

28 

LAST 

246 

42,2CC5 

0 4555 

0 


TC 

3ANKCALL 

CAPCATRl DAPCATR2 


G544 

REF 

C 

LIST 

242 

42,2CC6 

20465 

1 


CAOR 

GOXOSPF 

QOXOSP ROUTINES USED 

FOR EXTENDED VEReS. 

0 545 

REF 

1C 

LIST 

24 2 

42,2C07 

0 5423 

1 


TC 

ENOEXT 

EXT. V0S GO TC ENOEXT 

, NOT ENDQFJOB. fl 

0546 





42, 2C1G 

0 2012 

c 


TC 

♦ 2 



0547 

PEP 

1 



42,2C11 

0 2004 

1 


TC 

DCN0LN46 
















0 5471 

REF 

11 

LIST 

209 

42,2012 

3 146 6 

1 


CA 

OAPDATRl 



U54 72 

REF 

17 

LIST 

19 7 

42,2013 

? 4707 

i 


MASK 

BIT4 



05473 

REF 

ZE 

LIST 

243 

42,2014 

10 COO 

c 


CCS 

A 



05474 

REF 

1 



42,2C15 

1 2C54 

c 


TCF 

HAXl N 



05475 

REF 

8 

LIST 

243 

42,2Cl6 

0 54 4 7 

c 


TC 

ocwnflag 


f 

05476 

REF 

1 



42, 2G17 

C0212 

~T~ 


ACRES 

MAXD E^LG 



C548 

REF 

29 

LIST 

246 

42,2C20 

0 4555 

0 

PAX cur 

TC 

“B^Af'KCALL 



0549 

REF 

1 



42,2021 

40145 

c 


CAOR 

S41.7 



0550 

REF 

1 



42,2022 

3 2C6C 

c 

CCNCUN47 

CAF 

V06N47 

Rl R2 

R3 - -- - 



iiAP 
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0551 

REF 

2C 

LAST 

2^8 

'•2t2023 

0 

4555 

C 

TC 

BANKCALL 

CSM KGT 

• LEM HGT. BLANK 

0552 

REF 

6 

LAST 

24C 

A2t2024 


20465 

1 

CADR 

GUXDSPF 
















0553 

REF 

11 

LAST 

24 ( 

42t2G25 

0 

542 3 

1 

TC 

ENDtXT 



t55N 





A2f 2C26 

0 

20 30 

C 

TC 

*2 



OSiS 

Rfcf 




42,2C27 

_SL 

2022 


TC 

0LNCLN47 



0555CI 

REF 

u 

LAST 

24£ 

A2f 2C30 

31*466 

1 

CAE 

DAPOATkl 

DC MASS 

PROPERTIES calculation ONLY IF 

0555t2 

REF 

£ 

LAST 

24A 

A2t2C31 

7 

A371 

1 

MASK 

PRIC30 

CCNF IG 

= KCSMI, 2(CSM/LM), 6(CSM/LMAT 






A2f 2C32 

C 

C0C6 1 

EXTEND 




0555C-i 

REF 

1 



A2,2C33 

1 

2046 

C 

B/F 

00NCLN4e 

SKIP IF 

O t 4 

C555C5 





A2t2C34 

4 

COCO 

0 

COH 




C355C6 

REF 

7 

LAST 

241 

42t 2C3S 

7 

4311 

1 

MASK 

PRIC30 



C555C7 





A2f2C36 

C 

0006 

I 

EXTFND 




C555C8 

REF 

2 

LAST 

241 

42,2C37 

I 

2046 

c 

BZF 

DCNOLNAB 

SKIP IF 

3, 7 

C555C9 





A2t2CA0 

c 

0CO4 

c 

INHINT 




05551 

REF 

IS 

LAST 

2A2 

A2t2CAl 

0 

4633 

c 

TC 

IBNKCALL 



05552 

REF 

2 

LAST 

192 

42t2CA2 


13116 

c 

CADR 

massprcp 

UPDATE 

IXX« lAVCt lAVG/TLX 














Q5552S 





A2*20A3 

o 

0003 

1 

PEL INT 




G556 

REF 

21 

LAST 

iiA 1 

^ 2 1 2 

Q 

4555 

0 

TC 

BANKCALL 



0557 

REF 

L- 



't2«2045 


40216 

c 

CADR 

S40. 14 

COMPUTE 

RCS DAP STUFF 














0558 

REF 

1 



^2r2CA6 

3 

2037 

1 

CQNCUN48 CAF 

V064 8 

HI 

R2 R3 

. _Q55_5_ 

REF 

33 

LAST 

241 

42t26Al 

C 

4555 

c 

TC 

BANKCALL 

PTR IM 

YTRIM BLANK 

0560 

REF 

7 

LAST 

24 1 

A2>2CS0 


2C465 

1 

CADR 

GCXOSFF 




_ 0561 REF \2 LAST 247 0 SAj3 1 TC ENDEM 


0562 

REF 

13 

LAST 

24 1 

42,2052 

6 5423 1 


TC 

ENDE XT 


Q563 

REF 


LAST 

241 

42,2C53 

C 2046 1 


TC 

0CNCLN48 













0564 

REF 

t 

LAST 

23 1 

42,2054 

0 5435 C 

MAX IN 

TC 

UPFL AC 


C565 

REF 

2 

LAST 

246 

42, 2C55 

CC212 C 


ADRES 

MAXCEFLC 


0566 

P E F 

1 



42, 2056 

0 2020 1 


TC 

MAXCUT 













U 566 1 





42,2057 

C146Q 1 

V0646 

VN 

0648 


0566 1 1 





42,2C60 

C1457 C 

V06N47 

VN 

06^ 7 


056612 





42,2061 

C1056 C 

V04N46 

VN 

0446 


05662 





43,2551 



BANK 

43 


05664 

REF 

2 

LAST 

229 

43,2000 



SETLCC 

EXTVEPbS 


05666 





43,2551 



BANK 














057C 

REF 

4 

LAST 

246 TC 

246 : 

E 32 


COUNT* 

If/fcXTVe 


PC571 



V82PERF 

VERB 62 


DESCRIPTION 




R0572 P6UUES1 CRaU PARAMETERS CISPLAY («30» 

R017A 1. IF AVERAGE G IS CEF : 

P0575 FLASH DISPLAY V0AN06. R2 iNCfCATES VHICH SHIP'S STATE VECtCfl IS 

P0576 TO BE UPCATEO. INITIAL CHCICE IS ThIS SHIP (P2-1). ASTRONAUT 

Rq577 CAN CHANGE TO OTHER SHIP BY V22ExE, NHERE X NOT EC 1. 

R057e SELECTED STATE VECTCP UPCATEC EY ThISPREC IOTHPRECT. 

RQ579 CALLS SRlO.I (NHICH CALLS fFFCCNNU 4 TFFRP/RA) TO CALCULATE 



Tf 




C31 iin AUG. 2^.iq^e KC0LA0£ .064 P4Ct 2<»6 

tSER'5 PAGE NC, 20 66 S4 


PQ3eO fPEP (PEPIOEE P4CIiJS)t P^PC (APOGEE RA0IUS)f ^PEP (PEPIGEE 

K056i HEIGHT ABOVE LAUNCH PAC CR LUNAR LANDING SlTEIt HAPC (APOGEE 

R£L5B2 _ __ HEIGHT AS ABOVE). TPER (TIRE TO PEPICEEI. TFF (71HE TC 

R05ft3 INT ERSECT 3CC KFT ABOVE PAC tP SbKFT ABOVE LANDING SITE). 

ROSBA FLASH MONITOR V16N4A (HAPCf HPER, TFF). TFF IS -S9M69S IF IT HAS 

ROSeS NOT OONPUTAELEt CTHERVISE IT INCREMENTS ONCE PER SECCKC. 

ROSBfc ASTRLNALT HAS OPTION TO RCMTCR TPER BY KEYING IN N 32 E. 

Rose? CISPLAY IS IN HNSi IS NEGATIVE (A< NAS TFF), AND INCREHENTS 

pgsee cnce per seccnc cnly if tff cisplav has - 590159 $. 


RCS89 2, IF AVERAGE Q IS CN: 

R.0 5 9_0 CALLS SR30.I APPROX EVERY TNC SECS. STATE VECTOR I S AlwAYS 

R0591 FOR THIS VEHICLE. Ve2 DOES NOT CISlURB STATE VELTCP. RESULTS 

R05S2 CF SP30.1 APE RAPC, RFER, HAPC, HPER, TPER, TFF. 

KU5S3 FLASH MONITOR V16NAA (HAPC, HPEP, TFF), 

RQ5SA If NCCE IS PU, THEN C ALL C ELPSPL SC ASTRONAUT CAN NCMTCR 

K0596 RESULTS BY NSOE. SPLASH CCMPLTATICN DONE CNCE PEP TWO SECS. 


UAP; A_«;SF NBLF REVISION 73? CF ALC PROGRAM COLOSSUS BY NASA 
L eXTENCEC VERBS 


R05951 

R05952 

ACC EN CLP j 

HAPC 

ABOVE 

ANC HPER SHCULC 
REPARKS. 

EE CHANGEC TO READ 

HAPOX 

AND HPFRX IN THE 



C596 

REF 

9 

LAST 

2^6 

43,2551 

0 2076 

1 Va2PEflF 

TC 

TESTXACT 



0597 

REF 

1 



43, 2552 

3 4756 

1 

CAF 

PRI07 



€596 

REF 

A 

LAST 

246 

^3,2553 

0 5103 

C 

TC 

PRICCHNG 



0599 

REF 

11 

LAST 

24A 

^3,2554 

0 4 5 74 

c 

TC 

POST JUPP 



0600 

REF 

1 



43,2555 

46332 

1 

cadr 

VeaCALL ♦♦♦♦* V82CALL MIST NOT BE A FINOVAC JOB. 




R0601 VE83PERF VERB 83 DESCRIPTION 

P0602.^ REQUEST RENDEZVOUS PARARETEP DISPLAY (R31) 

R06C3 1. SET EXT VERB CISPLAY EISY FLAG. 

ROtO^ 2. SCHEDLLE V83CALL NITH PRIORITY 10. 


R06Q5 




A . 

DISPLAY 






R 0 6 06 





PI RANGE 






RC607 





R2 RANGE 

RATE 





R06Ce 





R3 THETA 

















0609 

REF 

1C 

LAST 

246 

43,2556 

0 2076 

1 

V83PERF TC 

TESTXACT 


Co 1 0 





43,2557 

C 0004 

C 

INHINT 



0611 

REF 

2 

LAST 

197 

43,2560 

4 C105 

1 

CS 

FI ACNPC9 

SEt R3l FLAG-eiT*4 FIAGwRC9 

0612 

REF 

16 

LAST 

246 

43,2561 

7 47C7 

1 

MASK 

BIT4 


Ocl3 

REF 


LAST 

24 6 

43,2562 

26 1C5 

1 

AOS 

FLAGPRC9 


0614 

RE> 


LAST 

23C 

43,2563 

3 A 7 S A 

c 

CAF 

PRIC5 


0615 

REF 

7 

LAST 

244 

43,2564 

0 5027 

1 

TC 

NOvAC 


0616 

REF 

4 

LAST 

20 1 

E4,n7C 



68ANK=^ 

SUBFX IT 


0617 

REF 

1 



43,2565 

C3150 

c 

2CA0R 

R31CALL 


0617 

REF 

1 



43,2566 

72064 

c 




0618 

REF 

4 

LAST 

243 

43,2567 

0 SU2 

c 

TC 

ENUOF JOB 



R 
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0619 

PEE 

11 

L/ST 

24S 

43i2S?0 

C 

207b 

1 

V85PERF TC 

TEST)tACT 

0620 





43,2571 

0 

0004 

C 

INHINT 


0421 

R4f 

IS 

LAST 

24 8 

43.2572 

4 

47C? 

1 

CS 

0IT4 

0622 

REF 

A 

LAST 

24 e 

43,2573 

7 

01C5 

1 

MASK 

FLAGViPCS 

0623 

REF 

5 

LAST 

249 

43,2574 

54 

IC5 

1 

7S 

FLA0ViPD9 

0614 __ 

R E -F _ 

-2 

LAST 

23C 

43,2575 

0 

2563 

( 

TC 

V83PEPF *5 


RESET R3l FLAG TO INDICATE R3A 


UAP; ASS EPBLE REVlSICh 227 CP AGC PftCGRAW COLOSSUS BY NASA 2Caail“C31 


1:1? ALG. 2^tl968 KCCLACa .064 PAGE 250 
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PC625 GCTCRil VERB 57 

ft0626 C(;TCR23- verb 54 OESCRiPTICN 

RC6Z7 SET LP MARKING FCP R22(REND TRACK CMA PRCC) 

R0628 1. SET EXT VERB DISPLAY BLSY FLAG 

P0629 2« IF PEND (P2a RUNNINGS TRACK (TRACKING ALLOKEOI FLAGS APE SET, 

Bii63U SCKEOLLE R21 OR K23 NITP PRIORITY 16, CTHERMISE TURN CN ALARP 406 


R0631 3. RELEASE EXT VERB DISPLAY SvSTbP 


0632 

0633 

REE 

REF 

9 

1 

LFST 

246 

43,25?6 

43,2577 

0 54 4 7 
00025 

C 

0 

GOrOR21 

TO 

AORES 

OCNNFLAG 

R23FLC 

CLEAR R23FLG 

BIT 9 FLAG 1 


C634 





43,26CC 

0 2603 

C 


TO 

>3 



0635 

REf 

7 

LAST 

24 ? 

43,2601 

0 5435 

C 

GaTCR23 

TO 

UPFL AC 

SET R23FLG 


0636 

REF 

2 

LAST 

25C 

43,2602 

00025 

c 


AORES 

R23F LG 

BIT 9 FLAG 1 


0637 

REf 

12 

LAST 

249 

43,2603 

0 2076 

1 


7C 

testxact 



0636 

REF 

e 

LAST 

196 

43,2604 

3 0074 

1 


CA 

FLACkRDO 

VB 57 UNNACCEPTA8LE UNLESS BOTH 


0639 

REF 


LAST 

219 

43,26C5 

7 4704 

1 


MASK 

BIT7 

RENCEZVCUS AND TRACK FLAGS 

CN 

0640 





43,2606 

0 0006 

1 


EXTEND 




C641 

REF 

1 



43,260? 

1 2632 

c 


BZF 

P22ALARP 
















0642 

REF 

7 

LAST 

196 

43,2610 

3 0075 

c 


CA 

FLACNPOl 



0643 

REF 

H 

LAST 

24 2 

43,2611 

7 4706 

c 


PASK 

BITS 



0644 





43,2612 

0 0006 

1 


EXTEND 




0645 

REF 

2 

LAST 

25C 

43, 2613 

1 2632 

c 


QZf 

R22 ALARM 



0646 

RIF 

E 

LAST 

25C 

43,2614 

3 0075 

c 


CA 

FLAGVPCl 

TEST R23FLG 

- 

0647 

REF 

n 

LAST 

21? 

43,2615 

7 4702 

1 


MASK 

6IT9 



0646 





43, 2616 

0 C0C6 

1 


EXTEND 




0649 

REF 

1 



43,2617 

1 2625 

c 


6ZF 

REGP21 

R21 


Q65C 

REF 

c 

LAST 

24 1 

43,2620 

3 4763 

1 


CAF 

PRibl6 



0652 

REF 

6 

LAST 

24 6 

43,2621 

0 5027 

1 


TC 

NCVAC 



0653 

REF 

12 

LAST 

22 ? 

67,1725 




EbANKB 

MFKfaLFl 



0654 

REF 

1 



43,2622 

C2447 

1 


2CA0R 

R23CSP 



0654 

REF 

1 



43,2623 

76067 

1 






0655 

REF 

S 

LAST 

246 

43,2624 

0 5112 

c 


TC 

ENDCFjCe 



0 656 

REF 

6 

LAST 

25 C 

43,2625 

3 4763 

I 

RE&R21 

CAF 

PR 10 16 



0658 

REF 

9 

LAST 

25C 

43,2626 

C 502 7 

1 


TC 

NOVAC 



0659 

REF 

13 

LAST 

2 5C 

£7,1725 




EBANK« 

MRKbLFl 



C66C 

REf 

1 



43,2627 

02445 

( 


2CA0R 

R 21CSP 



C66C 

REF 

1 



43,2630 

76067 

1 






0661 

REF 

6 

LAST 

25C 

43,2631 

0 5112 

c 


TC 

ENDCf jce 



0662 

REF 

2C 

LAST 

235 

43,2632 

C 5537 

c 

R22ALAP^' 

TC 

ALARM 

VERB 57 WAS SELECTED AND NEIThETT 

rENO 

0663 





43,2633 

C04C6 

c 


OCT 

004C 6 

NOR TRACK flag WERE CN. 


0 6 64 

REF 

14 

LAST 

24? 

43,2634 

C 5423 

1 


TC 

enoext 




4 
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POfcfcS 



VER6 

66 

DESCR IPT ICN 







R 0666 



ve6 

1 S 

TC R23 AS 

MARK REJECT 

IS TC R2l 






K0b6 1 



mi 

IS 

THE MARK REJECT FOR B23(THE BACKUP 

MAPKINC ROUTINE) 





C66e 

REF 


LAST 

2 5C 

£?♦ 1725 


EBANK* MPKBCfl 





066? 

REF 

1 



-^3,2635 

3 4753 1 

VP6P6RF CAP 

EfcAKK7 

BACKUP MARK REJECT {R23) 




0670 

REF 

_iX_ 

1 AS T 

ZMt 

43.2636 

56 CC3 1 

XCH 

EDANK 





0671 

REF 

e 

LAST 

22 3 

43.2637 

3 7716 C 

CA 

NECOKE 





0672 

REF 

15 

LAST 

25 1 

43,2640 

52*725 1 

TS 

MRKBLFl 





0673 

REF 

J2 

LAST 

2A* 

43,2641 

0 2125 C 

TC 

GOP IK 









V 
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L EXTthCfcC VIRES USER'S PAGB hC. 2^ E7 54 


PCbtS TP^CKTKM VgR^ 56 CESCHIPTION 

RQ6SC TERMIhATE TRACKING (P2QJ 

1, KNCCK DOWN RENDEZVOUS. TRACK* AND UPDATE FLAGS. 

R0cS 2 2 . RfcCUIRE P20 NCT RUNNING ALONE OP. GO TO GOTOPCCP (RECUEST PROGRAM QOI. 

R06<94 a. REQUIRE K22 RUNNING CP GC TC PlNBRNCH. 

pGeiS5 4. IP INTEGRATION PUNMNCt STALL UNTIL IT IS CCNPLETEOt THEN ZEPC GROUPS 2 AND 3 IQ KILL R21 ♦ R22. 

RQ697 3. KNOCK UGNN RENDEZVOUS* R22* R2Lt TRACK* UPDATE* AND TARGi FLAGS. 

P06SS A. GC TC ENEMA ISOFTwAPE RESTART!. 

RQ7CC REFEPENCE 

RC70i P2C RENOE2VCLS NAVIGATION. 

R0702 R21 RENOEZVCUS TRACKING SIGHTING MARK. 


RC7C3 




R22 

RENOEZVCUS 

TRACK INC 

CATA PROCESSING 

1 « 













0704 

REF 

25 

LAST 

25C 

A3»2642 

3 A 7CA 

C 

TRACKTRH CA 

6IT7 

IS RENC FLAG CN 

0105 

REF _ 

9 

LAST 

25C 

A3. 2643 

7 007A 

C 

MASK 

FLAGRPCC 


07C6 





A3, 26AA 

c c6c6 

1 

EXTEND 



0707 

REF 

13 

LAST 

25 1 

A3*2tA5 

1 2125 

1 

0ZF 

GOPI N 

NC 

Q70fi 

REF 

10 

LAST 

25C 

A 3 * 2 6 A6 

G 5^^ 7 

C 

TC 

OCWNFLAC 


0709 

REF 

1 



A3*26A7 

COOIO 

0 

ACRES 

RNOVZFLG 


0710 

REF 

15 

LAST 

25C 

A3* 2e50 

3 A7C6 

1 

CA 

BIT5 

IS TRACK FLAG CN 

0711 

REF 

c 

0 

LAST 

25C 

A3, 2651 

7 0075 

1 

MASK 

FlAGNRCI 


0712 





A3, 2652 

0 0006 

1 

EXTEND 



0 713 

REF 

lA 

LAST 

25 2 

A3, 2653 

1 2125 

1 

BZF 

GOPI N 


.0714^ 

RIF- 

_JX 

LAST 

252 

A3,2654 

0 5447 

c 

TC 

CCHNFLAG 

- — 

C715 

REF 

1 



A3, 2655 

CC0 31 

0 

ADRES 

TRACKFLG 













. C 715J_ 

RiF 

J2 

-_ki.ST 

252 

A3*2656 

C 54A7 

c 

TC 

CQHNFLAG 


07152 

REF 

1 



A3, 2657 

CC027 

I 

ACRES 

UPLATFLG 

_ - _ 

^716 

Ril 


LAST 

_252 

A2.266C 

0 5AA7 

i; 

TC 

OGNNFLAG 

. . - _ _ 

0717 

REF 

2 

LAST 

I9e 

A3, 2661 

00007 

c 

ACRES 

I MUSE 

— ^ 

Oil 7J_ 

R£F 


LAST 

24d 

A 3 , 266 2 

3 A752 

c 

CAF 

Et ANK6 

-- - - ~ — - — — - 

0 7 1 7 N 

REF 

12 

LAST 

25 1 

A3, 2663 

5A 003 

0 

TS 

FBANK 


C7175 

REF 

•3 1 
n ^ 

LAST 

247 

A3*266A 

0 4555 

c 

TC 

&ANKCALL 

_ _ - . - . 

07176 

REF 

3 

LAST 

196 

A3, 2665 

A 5 2 A 5 

c 

CAOR 

STOPPATE 


07177 

REF 

9 

UST 

251 

A3,2666 

i 7716 

c 

CAF 

NEGCNE 

- — — - — — - 

07170 

REF 

2C 

LAST 

235 

A3,2667 

55*3C3 

1 

TS 

OPT INC 

^ - - - - — 

C7i8 

REF 

2 

LAST 

19A 

A3,267C 

C 6006 

1 

TC 

I NTPPf T 

_ . - - - - - - -- 

0719 





A3, 2671 

7762A 

1 

CALI 



0720 

REF 

1 

LAST 

20 3 

A3, 2672 

273 7 1 

1 


INTSIALL 

DCNT INTERRUPT INTEGRATION - 

0721 





A3, 2673 

77776 

1 

EXIT 



0722 

REF 

1 



A3,267A 

0 5261 

1 

TC 

2PHSCHNG 

, 


X.AP; .fli-SU-Elt R£VJ5LDA 
L EXTENCtC VJRfiS 


0723 43,2475 CC002 C OCT 2 KILL GROUP 2 TO HALT P20 ACTIVITY 

0724 43,2676 OCCOl C OCT I ALSO KILL GROUP 1 


0725 

0726 
012 .7 _ 




43,2677 

C Q0C4 
C 4574 

U632 

0 

CLEANOUT INHINT 

TC 

CAUR 



REF 

REF. 

12 

m 

.A 

LAST 248 
LAST 184 

43,27C0 

43,2701 

c 

JL_ 

POST JURP 
ENEMA 

CAUSE RESTART 











80728 



LENVEC 

VERB 60 ~ 



D€ SCR IPTION 



R0729 



UPDATE 

LEW STATE 

VECTOR 





RC73C 



RESET VchLFFLG 

TC C 















0731 

REF 

14 

LAST 252 

43,27C2 

0 5447 

C 

LEMVEC TC 

OOWNFIAG 


0 732 

REF 

1 


43,2703 

CC026 

c 

AOPES 

VEHUPFLG 

VEHUPFLG OCUN INDICATES LE»^ 

0733 

REF 

IS 

LAST 252 

43,27C4 

1 2125 

1 

TCF 

GOPI N 



JiY NASA 2j21Ui-C3l 
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E7 S4 


R0734 
R0735 
„ B_0J36 



C5NVEC 

UPDATE 

SET 

VERB 61 

CSN STATE VECTOR 
VEHUPFLG TC I 


DESCRIPTION 

— 














0737 

REF 

6 

LAST 25C 

A3, 2705 0 5435 

C 

CSMVEC TC 

UPFLAG 



0738 

REF 

2 

LAST 253 

«3,27G6 00026 

C 

ADRES 

VEHUPFLG 

VEHUPFLG UP INDICATES CM. 





» 







0 7383 

REF 

16 

LAST 252 

43,2707 1 2125 

1 

TCF 

GOPI N 




80749 CKECU8P VERB 74 DESCRIPTION 

R0750 INITIALIZE OCWN-TELEHETflV FPCGRAR FOB ERASABLE 8E80RV DUHP. 

RjQ ? 5i 1. SET EAT VERB CISPLAY BUSY FLAG. 

PC752 2. REPLACE CURREM OChNLlST WITH ERASABLE REMCPY. 

P0753 3. RELEASE EAT VERB DISPLAY. 


0 75*, 





OCIC 




EBAKKs 

10 


sibt 

REF 

1 



43, 271C 

3 2713 

( 

CNECLNP 

LAF 

LCNCLRPl 


0757 

REF 

2 

LAST 

10 A 

43,2711 

54 335 

C 


TS 

DNTMGCTC 


0 756 

REF 

17 

LAST 

252 

43,2712 

0 2125 

C 


TC 

GOPI N 


Q 75 9 

__Ri.f 

.2- 

LAST 

229 

43,2710 



V74 

EQUALS 

DNEDLMP 


C76Q 

REF 

1 



43, 2713 

03532 

c 

LCNCURP 1 

REHAOR 

ONCUPP 1 



R0761 LFTFLGON VERB 75 DESCRIPTION 

PC762 SET LIFT-OFF FLAG 

R0763 l, SETUP GGBEKFLG, CUICAFCE REFERENCE RELEASE BACK-UP FLAG. 

R C 7 64 2 . RETURN VIA PINBPNCh 

0765 REF 9 L AS T 253 43,2714 0 5435 C LFTFLGQN TC UPFLAG V0 75 - SET LIFTOFF FLAG BIT 

C766 ref I 43, 2715 C0125 1 ADRE5 CRRTkFLC BIT 5 FLATT^ 

07e7 REF 16 LAST 253 42,2716 C 2125 C TC GOPIF 


C 



♦ 


mt- 




Aik. 


n 



I 
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L 

EXUNCEC 

VERES 

- 

- 

- - - 

-- 
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0768 

REF 5 

L^ST 

19« 

92,2717 

3 ICll 

C 

CHKPCCH 

CA 

MCOREG 


0769 




93,2720 

0 0006 

1 


EXTEND 



0770 

REF 2 


237 

93t272l 

1 6711 

1 


BZF 

TCQ 


0771 

REF It 

LIST 

296 

93,2722 

i 2129 

c 


TCF 

ALF^/ END 


07JI2 




93.2723 

0 0006 

1 

EXDAPCFF 

EXTEND 


— ■ - 

0773 

Rfif 1 



93,2729 

3 2733 

1 


DC A 

lOLECACR 

SET T5 TO IDLE. 

077^ 

REF A 

LIST 

182 

93,2725 

53*313 

c 


OXCH 

T5LCC 


Q77i> 

REF 6 

LIST 

29_6 

93,2726 

9 9105 

c 


CS 

0CT6CCC0 


0776 

REF 7 

LIST 

296 

93,2727 

7 01C2 

c 


I^ASK 

FLAGk«RC6 

RESET CAPBITS 1 AND 2. 

0777 

REF 8 

LIST 

259 

93,2730 

59 IC2 

c 


TS 

FLA&WRC6 


0778 

REF 29 

LIST 

293 

93,2731 

C CCC2 

c 


TC 

Q 


0779 

REF IC 

LIST 

21C 

E6, 1925 




E0ANK« 

PACTCFF 

- 

_07eo 

REF 3 LAS_T_ 

191 

93.2732 

C3132 

1 

idlecicr 

2CA0R 

T5I0LCC 


0760 




93,2733 

12106 

c 







R 


f 


R 


n 


CAP! ASSg>»BL{ REVISIOK 23? Cf AGC FftCGPAM CCLCSSUS EY N/>SA 202I111-C31 i:ll AUG* KOOIAPE .06<» PAGE 255 
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P07ei VEPe t*) CEiCPlPTICN KENCE2VCIIS F ]^4L ATTITUCE ROUTINE (R£3) 

J-^dLai CJLLEC £Y VERB 59 EhTER DOPING PQQ. PPIC 10 USED. CALCULATES AND 

R0783 CIJPKVS FINAL GIREAL ANGLES 1C POINT CSN ♦X AXIS CH PFEFEFREC AXIS 
R07BA (0MT(Z)CC555 LEG 4 LNITIXISIK55 DEG) AT LH. 


R0785 1. KET IN V 69 E CNLY IF IK PPOC 00. IF NCT IN POO, OPERATOR ER ROR AN D 

R07e6 EXn Pt3, CTHEPNiiE CCMlfUE. 


RC787 2. IF IN PCC, CO I Pt S TATES CHECK (R02eCTH). IF IPU ON AND ITS 

RC76a OPIEMATICF KNCWN TC CCC, CCNTINUE. 


fl0789 3. fLASF CISPLAY V N 06. R2 INDICAUS ViHICH SPACECRAFT AXIS IS TC 

R07S0 BE PCIKTEC AT LM. INITIAL CHCICE IS PREFERRED AXIS. ( F 2* I ) . 

RC791 ASTPCRAIT CAN CHARGE TC (tX) AXIS IR2 NCT» I) BY V 22 E 2 E. CONTINUE 

RC7S2 AFTER KETIfG IR PPCCEEC . 

Pj:7^3 A. SET PPEFERRED ATTITUDE FLAG ACCCRCIAG TC OPTION DESIRED. SET FLAG 
RC794 FUR PFEFERREC AXIS. RESET FLAG FOB X AXIS. 

RQ795 a. CLRPEM TIME 15 STLHED AND P63CCPP IS CALLED 


PC796 RtaCCPP jce: 


R07S7 LFCATES CSM ANC LM STATE VECTORS LSING CONIC EQUATIONS 


JiQJ3A 


CAICLLATES ECTH PREFEPREC ANC X AXIS TRACKING ATT FROM CSM TO LM. 


RG 799 CESIPEC GIMEAL ANGLES AS INOICATEC bY PREFERKED ATTITUCE FLAG 

R 0 BCD ARE STCREO FCP LATER H6CCSR CALL. 



w ^ mm 1 ^ w « w V ^ w v v ^ ^ ^ v v 



RCdOl 

6. FLASH CISPLAY V C6 N18 AND ANAIT RESPONSE. 

- - - - 

. _ — . _ — ... 

R0eO2 

7. RECYCLE- RETURN TC STEP 5. 



RCeC3 

TERMINATE- EXIT P63 RCLTINE 



ROQOA 

PPCCEEC- RESET 3AXISFLG AND CALL fl6CCSM FCfl ATTITUDE MANEUVER. 





REF 



LAST 

2A5 

A3,273A 

C 

2717 

1 

V89PeRF TC 

CHKPCCH 

DEMAND POO 





0606 

REF 

13 

LAST 

2 5C 

A3, 2735 

0 

2076 

1 

TC 

TESTXACT 






cec 7 





43,2736 

0 

CO 04 

c 

INHINT 






Qd06 

REF 

3 

LAST 

2A6 

43,2137 

3 

4676 

I 

CAF 

PRIO IC 







0609 

REF 

7 

LAST 

24 5 

43,2740 

0 5042 

1 


TC 

F INOLAC 


0810 

REF 

2 

LAST 

87 

E4,1715 

C36C3 



E&ANK- 

P21T IRE 


OSll 

REF 

1 



43,2741 

1 


2CA0R 

V89C ALL 


can 

REF 

1 



43, 2742 

1C064 

1 





0812 

REF 

7 

LAST 

25C 

43,2143 

I 5112 

1 


TCP 

ENDC f JCE 














0613 





43,2144 

0 0004 

0 

VMAIRXNG 

INHINT 


VB 06 - CLEAR RENCRFLG TO REINITIALIZE 

0614 

REF 

27 

LAST 

22 1 

43,2145 

4 4712 

c 


CS 

bill 

W-MATRIX 







- 



-- - — 

-- 

- - 
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081S 

PEE 

9 

L/5T 

293 

I3f 2796 

7 ClCl 

C 


HASK 

FLA0RRC5 





0816 

REF 

5 

L/1S7 

256 

93»279? 

59 ICl 

c 


TS 

FLAGktRD5 

— 




0817 

REF 

19 

LIST 

252 

93t2750 

0 2W5 

c 


TC 

OOP I N 





QdlU 

REF 

1 



93.2751 



GOSHOSWM 

EilUAL S 

o 

X 

L/1 





0619 

REF 

6 

LIST 

255 

93#275l 

C 2717 

1 

SHOWSIM 

TC 

CHKPCCH 





0620 

REF 

19 

LIST 

255 

93.2752 

0 207c 

1 


TC 

TESTXICT 





0821 

REF 

1 



93.2753 

3 9712 

1 


CAP 

S + 1 

* 




0822 

REF 

2 

LIST 

79 

93,2759 

55*376 

c 


TS 

SKEEF6 

it 

SHCWSUM OPTION 



0823 

REF 

1 



93,2755 

3 9719 

1 


CAF 

S^ZEPC 

4i 




0e2A 

REF 

2 

LIST 

176 

93,2756 

55*362 

c 


TS 

SMOCE 


TURN OFF SELF-CHECK 



C825 

REF 

1 



93,275? 

3 3292 

c 


CA 

SFLFACRS 





0620 

PEF 

3 

LIST 

187 

93,27tC 

55*361 

c 


TS 

SELFRLt 

♦ 




C827 

REF 

1 



93,2761 

0 3517 

1 


TC 

STSHCSOH 

♦ 

ENTER RCPECFK 



0.628 

REF 

2 

LIST 

79 

93.2762 

23*372 

c 

SDl SPLAY 

LXCH 

SKEEP2 

4t 

BNK NO FOR DSP 



0829 

REF 

2 

LIST 

79 

93,2763 

23*373 

1 


LXCH 

SKEt F3 


BUGGER WCRO FCR DSP 



0830 

REF 

1 



93, 2769 

3 3291 

c 

NOK ILL 

CA 

ADR S 1 





0631 

REF 

32 

LIST 

239 

93,2765 

59 156 

1 


TS 

MPAC +2 

it 




0932 

REF 

1 



93,2766 

3 277 7 

1 


CA 

VNCON 


0501 



0833 

REF 

39 

list 

252 

93,2 76? 

C 9555 

0 


TC 

SANKCALL 





0 83A 

REF 

8 

LIST 

291 

93,2770 

20965 

1 


CAOR 

GCXDSPF 

* 




0835 





93,2771 

0 2779 

1 


TC 

♦ 3 

* 




0836 

REF 

1 



93,2172 

0 3630 

1 


TC 

NXTBNR 





0837 

REF 

1 



93,2773 

0 2769 

c 


TC 

NOKI IL 





08375 

REF 

2 

LIST 

256 

93,2779 

3 3292 

0 


CA 

SELF IDPS 





06376 

REF 

2 

LIST 

79 

93,2775 

55*371 

1 


TS 

SKE6P1 





0638 

REF 

15 

LIST 

25C 

93,2776 

0 5923 

1 


TC 

ENDEXT 

4 




0839 





93,2777 

C12C1 

c 

VNCON 

VN 

501 

4 


— 


06<iG 

REF 

3 

LIST 

256 

93,3CC0 

3 1376 

1 

ENDSUNS 

CA 

SKLEP6 

4 



_ 

oeAi 





93,3C01 

0 0006 

1 


EXTEND 


4 




08^2 

REF 

2 

LIS T 

18 7 

93,3002 

1 3333 

c 


azF 

SELFChK 

4 

ROPECHK, START SElFCHK AGAIN. 



C8A3 

REF 

2 

LIST 

256 

93,3003 

0 35 17 

1 


TC 

STShCSON 

4 

START SFCRSUN AGAIN. 

■ 


00099 

VERB 

79 

REQUEST LLMR LANCHIRR SELECTION 

1. RESTRICTED TD PCC . 




- 

0695 

REF 

7 

LIST 

256 

93,3009 

G 2717 

1 

CILLR35 

TC 

chkpcch 





0896 

REF 

15 

LIST 

256 

93,3005 

0 2076 

1 


Tt 

testxaCT 





JQ89 7 

REF 


LIST 

296 

93,3006 

3 9759 

c 


CAF 

PRIC 5 





0 69 9 

REF 

e 

LIST 

255 

93,3007 

0 5092 

1 


fc 

F INDVAC 





0850 

REF 

2 

LIST 

87 

E9, 1125 




EBANK-* 

KLUC FCM 





0851 

REF 

1 



93,3010 

03215 

1 


2CAUR 

lnohksel 





C851 

REF 

i 



93, 3011 

62069 

1 








0652 

REF 

8 

LIST 

255 

93,3012 

0 5112 

c 


TC 

LNLOFJCB 

P35 UUL CC ENCEXT 




CAP- 


£.a£hjsich zn CP 


^iASA 



17 ALG^ 2^. 196a KCOLACE .06^ PAGE 257 


L £>1ENC£C V£K6S 


ISER'S PAGE ^C. 29 FO 


PC853 Ve 76 SET PPEFEPPED ATTITUCE FLAG - DRIVE TC PRLFERREC. 


ca5A_ 

A£f 

IL 

L/ST 

252 

43.3C13 

_C-5 ^35 


SETPRFLC TC 

UPF L AG 


C855 

REF 

1 



^3r3C14 

CG120 

1 

AORLS 

PHFTPKAT 

BIT IQ FLAG 5 

0656 

REF 

2C 

LAST 

256 

<.3f 3C15 

0 2125 

C 

TC 

GCPI P 



HC057 Ve 77 RESET PREFERRED ATTITLCE FLAG - DRIVE TO ♦X-AJiIS ATT. 


0Q58 

REF 

15 

last 

253 

A3t3C16 

C 5447 

C 

RESETPRF TC 

OOHhFLAG 


C859 

REF 

2 

LAST 

251 

43, 3C17 

C0120 

1 

ACRES 

PRFTRKAT 

BIT 10 FLAG 5 


REF 

21 

LAST 

251 

43t3020 

0 2125 

C 

TC 

GCPIN 



hOaEl VE 67 SET VFF RANGE FLAG - ALLChS P22 TO ACCEPT MARGE DATA. 


0862 

REF 

0 

LAST 

252 

43, 3C21 

C 6006 

1 

SETVHFLG TC 

IMPRET 

5 .86 i _ 





43.3022 

77414 

C 

SET 

EXIT 

0864 

REF 

2 

LAST 

194 

43,3023 

C446 6 

1 


VHFRFLAC 

Q665 

REF 

22 

LAST 

25 1 

43. 3024 

0 2125 

c 

TC 

GQPI K 


RCe66 



ve 86 

RESET 

VHF RANGE FLAG 

- 

STOPS ACCEPTANCE 

OF RANGE DATA. 











0867 

REF 

4 

LAST 

257 

43. 3025 

C 6006 

1 

RESETVHF TC 

1 NTPPET 

0868 





43.3026 

77414 

c 

CLEAR 

EXIT 

0869 

REF 

3 

LAST 

257 

43, 3C27 

C4 6 66 

C 


VHF P FLAG 

08695 

REF 

1 



43.3030 

0 5520 

c 

TC 

TRFAILCF TRACKER FAIL LIGHT 











jg e 7 

iliF 

22 

UU 

257 

43.3C31 


c 

TC 

GOP IN 


P Q.fl 7 1 V E PE 66. „ VEHICLES ARE ATTACHED.- PCVE THIS VEHICLE STATE VECTCP TO 
R0872 CTHEP VEHICLE STATE VECTOR. 


poeTi 


LSE 

SLEROCTINE 

GENTRAA. 







0874 

0875 

REF 

REF 






1 

ATT ACHEC 




1 

4 

LAST 

255 

E3, 1554 
43,3C32 

3 46 76 

EeANK« 

CAF 

RREC THIS 

PPIC 10 

— — - ^ - - -- 

0876 

REF 

9 

LAST 

256 

43,3023 

0 5042 

1 


fc 

F INOVAC 


0876 1 

REF 

2 

LAST 

257 

£3,1554 




EBANK* 

RRLC THIS 


08762 

REF 

1 



43,3034 

C3C37 

C 


2CADR 

ATTACHIT 


08762 

PEF 

1 



43, 3C35 

66103 

c 





U07t 3 

REF 

9 

LAST 

256 

43,3036 

0 5112 

c 


TC 

ENDCFJCB 

' 

C877 

REF 

5 

LAST 

257 

43,3037 

0 6006 

1 

ATT A CHIT 

TC 

INTPRET 


0878 





43,3040 

77624 

1 


CALL 



0879 

REF 

4 

LAST 

252 

43,3C4l 

27371 

1 



INTSTALL 


08791 





43,3042 

43014 

c 


SET 

BON 


08792 

REF 

1 



43,3C43 

04064 

1 



HOCNCTH 



ia A9 i ASSEI»EH-R£AlSLOA 2 37 C F A GC P RLGP.AH 
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* 

EXI ENC8C 

VERES 









USER’S PAGE NC. 30 63 S4 

08793 

REF 

1 



43f 3044 

CA3C3 

C 



MOOMhlS 


C879A 





<^3,3C4S 

67050 

0 



43 


fl tLI51 





43.3C46 

7761A 

1 


CLEAR 



06796 

REF 

2 

L/ST 

257 

43#3C47 

CA26A 

c 



MOONCTh 


C880 





43»3C50 

77776 

1 


EXIT 



oeei 





43.3051 

3 3C76 

c 


CAE 

0CT5 1 


0862 

REF 

5 

LAST 

22 1 

A3, 3052 

0 5A75 

1 


TC 

GENTRAN 


0663 

REF 

3 

LAST 

257 

43,3053 

C153A 

1 


ACRES 

RPLC THIS 

CUR STATE VECTOR INTO CTHER VM GENTRAN 

0884 

REF 

1 



A3, i C54 

G1626 

1 


ACRES 

RREC TCTH 














06645 





A3, 3055 

C OOC3 

1 

TACHEKIT 

REL INT 



088455 

REF 

6 

LAST 

257 

A3, 3056 

C 6006 

1 


TC 

INTPRET 


088457 





A3, 3057 

7762A 

1 


CALL 


UPDATE RN, VN, R-OTHER, V-CTHER 

088459 

REF 

1 



A3, 306C 

26662 

1 



PT0AC5N 


088461 





A3, 3061 

A515A 

c 


LXA,2 

CALL 


088463 

REF 

2 

LAST 

86 

A3,3C62 

C215Q 

1 



PbCCV 


088465 

REF 

1 



A3, 3063 

20237 

c 



SVD^M 


C88467 





A3,306A 

7762A 

1 


CALL 



088469 

REF 

1 



A3, 3065 

20263 

1 



SV0MN2 


086471 





A3, 3066 

77776 

1 


EXIT 



0685 

REF 

1 



A3, 3067 

3 30 7 7 

1 


CAE 

TCPINAD 


0886 

REF 

1 



A3, 3070 

5C 120 

1 


INDEX 

F IXLCC 


0687 

REF 

7 

LAST 

226 

A3, 3071 

5A 052 

1 


TS 

QPR t T 


0888 

REF 

13 

LAST 

25 2 

A3,3C72 

C A57A 

c 


TC 

POST JLRP 


0889 

REF 

1 



A3, 3073 

27A06 

c 


CAOR 

I NTNAKE 














0890 





A3,3C?A 

7763A 

c 

TCP IN 

RTB 



0891 

REF 

2 

LAST 

23 1 

A3, 3075 

21176 

1 



PINBRNCH 




0892 





A3, 3076 

CG051 

C 

CCT51 

OCT 

51 


Cb93 

REF 

1 



A3, 3077 

6707A 

C 

TCP INAO 

CAOR 

TCPIf. 














RC89302 

VERB 

A? 

MOVE 

LM STATE VECTOR 

INTO OR 


STATE VECTOR. 



C 89304 

REF 

5 

LAST 

257 

A3, 3100 

3 A676 

1 

LMTOCHSV 

CAF 

PRICIC 

■ - — - 

089305 

REF 

10 

LAST 

257 

A3, 3101 

C 50A2 

1 


TC 

F INCVAC 


069306 

REF 

A 

LAST 

25E 

E3, 155A 




8BANK>^ 

R PEC This 


C093O7 

REF 

1 



A3, 3102 

03105 

c 


2CADR 

LHTCCP 


069307 

REF 

1 



A3, 3 103 

66103 

c 





089308 

REF 

K 

LAST 

257 

A3,31CA 

6 5112 

c 


TC 

ENLOF JOB 














089309 

REF 

7 

LAST 

25E 

A3, 31L5 

0 6006 

1 

LMTOCM 

TC 

INTPRET 


C8931 





-t3, 31C6 

7762A 

1 


CALL 



C89312 

REF 

5 

LAST 

257 

A3, 3107 

27371 

1 



intstall 


0893 l A 





A3,inQ 

A3G1A 

c 


SET 

BON 


0893 16 

REF 

2 

LAST 

25E 

Aa,3iii 

CAOta 

c 



MCUNThTS 


069318 

REF 

a 

LAST 


A3, 3112 

CA3CA 

1 



MOCNCTH 


08932 





A3, 3113 

67116 ( 



♦ 3 


069322 





A3,3UA 

1761A 

1 


Clear 





_GAk ; 
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€8*332^ REF 3 LA ST 25E ^3,3115 0^263 1 


089328 





93f 311c 

77776 

1 


EX IT 



C8933 

REF 

2 

LAST 

251 

93*3117 

3 3076 

C 


CAL 

OCT 51 


089332 

REF 

t 

LAST 

256 

93t3 120 

0 5975 

1 


TC 

GEM PAN 


J3.0S2.1^ 

PEf 


LAST 

2^1 

A3»3121 

C1626 

1 


AOFlES 

FRECTCTh 

LN STATE VECTOR INTO CN VIA GENTRAN 

089336 

REF 

5 

last 

258 

93,3122 

C1559 

1 


ACRES 

KPFC This 



REF 

__L_ 



A3. 3123 

1 3055 

0 


TCF 

TACHEXIT 














RC899 

VEF e 

S9 

CC P6^ 

) VIA 

£^EMA TC 

PICK UP 

IN 

P23. 




0895 

REF 

13 

LAST 

197 

93,3129 

3 9700 

1 

VER 899 

CAF 

BITll 


0896 

REF 

t 

LAST 

299 

93,3125 

7 0105 

1 


NASK 

FLACViPC9 

IS V99FLAG SET 

C897 





93,3126 

0 0006 

1 


EXTEND 



0898 

REF 

U 

L AS T 

25< 

93,3127 

1 2129 

C 


ezF 

ALK/ENC 

NC - OPERATCR ERROR 

8 9 S 

REF 


LAST 

25? 

93.3130 

0 5997 

(f 


TC 

DONNFLAC 

- - 

0900 

REF 

1 

- - - — 


93,3131 

00213 

1 


ACRES 

V99F LAG 

- 


R.£i_ 

_4_ 

JLiit 

29C 

93,3132 

0 5253 

0 


TC 

CHEC FNN 

IS IT P23 

0902 





93,3133 

0002? 

1 


HM 

23 


C9C2 

REF 

17 

LAST 

259 

93,3139 

C 2129 

1 


TC 

AL>^/ LNC 

NC - CPERATCR ERROR 

0909 

REF 

9 

LAST 

29 1 

93,3135 

0 5301 

C 


TC 

PHASCHNG 


C905 





93,3136 

0C112 

C 


OCT 

112 

SET GRCUP 2 TC CO ^69 

.0306 

ME. 




93.3137 

C 2677 

c 


TC 

CLEA NCUT 

CAUSE RESTART 


PO<3U7 VSOPERF VERB 90 DtSCRIPTICN 


P0908 REQUEST RENDEZVOUS CUT-CF-FLANE DISPLAY (R36) 


«U9C9 



1 

. SET 

EXT VERB 

CISPLAY BUSY FLAG. 






PC910 



2 

. SCFECULE P36 

CALL WITH PRIORITY 

10 





PC91 i 




A . 

CISPLAY 







B0912 





TIME CF EVEPT - hCUPS , MINUTES , SECCNOS 




P 0*3 13 





Y OUT-CF 

-PLANE FCSlTlON - NAUTICAL 

HILES 




PL919 





TDCT CUT 

-CF-PLANE VELOCITY 

- FEET/StCCNC 




hU9l5 





PSI ANGLE ETW LINE CF SIGHT 

ANC FCHWAPD 




P0S16 





OIRECTICN VeCTCP IN HORIZONTAL 

PLANE - DEGREES 




0917 

REF 

16 

LAST 

256 

93,3190 

C 2076 1 V90PERF 

TC 

TEST XACT 




0918 

REF 

2 

LAST 

29 fi 

93,3191 

3 9756 1 

CAF 

PPIt7 

fi36.V90 



C920 

REF 

1 1 

LAST 

258 

93*3192 

0 5092 1 

TC 

F INC VAC 




0921 

REF 

2 

LAST 

86 

E9, 1726 


EBANK- 

RFASS36 




0922 

REF 

1 



93,3192 

C2796 C 

2CA0P 

R36 




C922 

REF 

1 



93,3199 

10109 0 

TCF 

ENOCFJCb 




0923 

REF 

1 1 

LAST 

258 

93,3195 

1 5112 1 




P0929 

VER8 

96 

SET ULITFLAG TO STOP 

I hTECRA 1 ICN. 


















0930 

REF 

1 1 

LAST 

25t 

93,3 196 

0 5935 C VER896 

TC 

UPFL AC 

QuITFLAG 9lLL CAUSE 

INTEGRATION TC EXIT 



0931 REF 1 ^TTITV? C0221 C ACRES jUlTFLAG A T ^^TTiTr TTMTTfP 
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C932 

REf 

23 

IASI 

239 

63,3150 

3 6716 

1 


CAf 

ZbRO 







C933 

REF 

1< 

LAST 

258 

63,3151 

0 

C 


TC 

POST jlMP 







Q9i^ 

RE F 

JL 



63. 3152 

10010 



CAOR 

V37 

GQ 

TC POO 






















CS^S 

REF 

5 

LAST 

206 

E5, 1751 




E6ANK» 

LANO PARK 







U.950 BiF 

7 

LAST 

259 

63.3153 

0 5253 

c 

V52 

TC 

CHEC FMM 

IS 

P22 OPERATING 





0951 





63,3156 

CCC26 

c 


MM 

22 







0952 

REF 

16 

LAST 

259 

63,3155 

0 2126 

1 


TC 

ALM/ENC 

NC 






U952 1 

REF 

1 



63, 3156 

3 3173 

1 


CAF 

LANDBANK 







09522 

REF 

13 

LAST 

252 

63,3157 

56 0C3 

c 


TS 

EBANK 
























G9iJ 

REF 

3 

LAST 

25 9 

^3t316W 

6 6756 

L 


cs 

P F t C 7 

YES 

SET BITS 12, 

11,10 

CF 

LANDMARK « 


C95<» 

REF 

6 

LAST 

26C 

63,3161 

7 1751 

1 


MASK 

LANDMARK 


BITS 16,13,12 OF 

KARKSTAT AFTER 


0955 

REF 

7 

LAST 

26 C 

63, 3162 

55*751 

1 


TS 

LANCRAPK 


ACOING 1 TC 

THEM 

TO 

GET OFFSET 


C95t 

REF 

2S 

LAST 

226 

63,3163 

3 1330 

c 


CA 

MARK STAT 


park NC. 





C957 

REF 

1 



63,3166 

36 021 

c 


TS 

Sk 







0958 

REF 

2 

LAST 

26C 

63, 3165 

3 0021 

1 


CA 

SR 







0 95 9 

REF 

-a 

LAST 

26C 

63, 3166 

3 002 1 

1 


CA 

SR 







C96C 

REF 

A 

LAST 

26C 

63,3167 

7 6 7 56 

c 


MASK 

PRIQ7 







096 1 

REF 

19 

LAST 

226 

63,3170 

6 ^ 7 G 1 

c 


AD 

BIT 10 

ADD 

i,markstat is 

1 LESS 

Than park no. 


0962 

REF 

e 

LAST 

26 C 

63,3171 

27*751 

1 


AOS 

L AKOR APK 







0963 

REF 

26 

LAST 

257 

63,3172 

0 2125 

c 


TC 

GOR IK 







09631 

REF 

9 

LAST 

26C 

63,3173 

0275 1 

c 

LANCEANK 

ECADk 

LAND PARK 







R200Q 


































R200C1 

VERE 

67 

A5TRCFAUT 

CISPLAY CF 

ta RATR1)« 



























20002 

REF 

17 

LAST 

259 

63,3176 

0 2076 

1 

Vfc7 

TC 

TEST KACT 







2001 

PEP 

6 

LAST 

256 

63,3175 

3 6756 

c 


CaF 

PR 105 







2003 

REF 


LAST 

259 

63,3176 

C 5062 

1 


TC 

FINQVAC 







2006 

REF 

6 

LAST 

9C 

E5, 16CC 




EBANK* 

iM 







2005 

REF 

1 



63,3171 

C3571 

1 


2CADR 

V67CALL 







2CC5 

REF 

1 



63,3200 

60105 

c 










20C6 

REF 

12 

LAST 

259 

63,3201 

C 5112 

c 


TC 

ENDOF JCe 







R2007 

VB 66. 

SET 

SLRFACE FLAG. 





























2008 

REF 

12 

LAST 

259 

63,3202 

C 563 5 

c 

SETSLRF 

TC 

u r F L ^ G 







2009 

REF 

2 

LAST 

203 

63, 3203 

Cul7 7 

c 


AORFS 

SURF FLAG 







2010 

REF 

25 

LAST 

2 6C 

63,3206 

1 2125 

1 


TCF 

GOP I K 








P^Cll V6 AS. RESET SIREACE HAG. 


2012 

2013 

REF 

REF 

17 

", 

LAST 

LAST 

259 

26C 

63,3205 

6 3 , 3 2 0 6 

0 5667 
00177 

C 

C 

RESTSRF TC 

ACRES 

UUHNFLAC 
SURF FLAG 

2016 

REF 

26 

LAST 

26C 

63,3207 

1 2125 

1 

TCF 

GCP I N 
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PiOOQ ll-e FCLLC»*1NG PtP£PS K Tl-E hCtA TAELES 


RlOCl 

CCNfCNENT CCOE NOMEER 

INTERPRETATION 








RXQii2_ 

OCCCC 

A CCMPCNENT 



R1Q03 

CCCCl 

2 COMPONENT 



RIOC^ 

QCC 10 

2 COMPONENT 



RIOGS 

xuxx 

6IT4 - 1. DECIMAL ONLY 



RIO 06 

IXXXX 

BITS « 1. NC LOAD 



R10C7 

ENC CF CCMFCNENT CCCE NUMBERS 





PI0C8 SF PCi7i^E CCOE NLPEEP INTERFRETAT ICN 


F1009 OCCOO CCTAt O NLY _______ 

RIOIQ CCCCl STRAIGHT FRACTICAAL 

RlOJl QCCIO ecu DECREES (KXX.XXt 

R1C12 CCCll APITHPETIC SF 

R1013 OCIOC ARITH DPI OLTINULT BY 2EXPH AT EhC) INI STR AIGFT » 

RIO-H CCICl APIT H QP2 _ CUT ( STRA IChT ) INI SL 7 AT END I 

PIOIS CCnC Y OPTICS DEGREES IXX.XXX RAX eS.9S9J N 

RIDU OClll A PITH DP 3 CUT I SL 7 AT END I IN I STRAIGHT) 

RliJl 7 OICCO NhOLE HQIPS IN Rli WhCLE RlNLTES (MOD 60) IN P2f 

SECONDS (MOD 60 OXX.XX IN R3. ALARMS IF USED MitH OCTAL 

RlClS CKOl MINUTES (MCD 60) IN CiC2, D3 BLANK, SECONDS I MOO 60 ) IN 04C5 

H102C LIMITS TO 59B59 IF MAG EXCEEDS THIS VALUE. 

R1021 ALARMS IF USED NITH OCTAL ******** IN lALARM) 

R1C22 OICIO ARITH 0P4 CUT tSTRAIGHT) IN I SL 3 AT END ) 

R 1 U 221 o icii APXiMj, Si Tumult a^Y 2 exph at eno inistraIgmti 

R 10222 CTTCC 2 INTEGERS IN C1C2, C9D3, (J 3 BLANK. “ 

P10223 ALARMS IF USED NITH OCTAL *♦♦♦♦♦♦♦ IN (ALARM) 

R1Q23 ENC Cf SF POLTINE CCCE NUMBERS ' ~ 


»^iQ2A SF CCNSTANT CODE NUMBER INTERPRETATION 



If » ... ^ ^ t’ ^ t ^ W li# »» ’ * ^ ^ ^ 






P1025 

ccccc 

NHCLE 


USE ARITH 



R1026 

ccccc 

CP TIME SEC IXXX.XX 

SEC ) 

LSE ARITHOPl 



P 10 2 7 

OCCCl 

SPARE 





PLC28 

CCCIC 

ecu CEGREES 

USE ecu CEGREES 



P102S 

OCCIO 

Y CPTICS DEGREES 

USE Y OPTICS CEGREES 



P 1 03 C 

cccii 

OP DEGREES ISO) XX. XXX DEG 

LSE ARITHCPa 



R1021 

CCICO 

CP DECREES (360) XXX 

.XX DEC 

LSE ARITHCPA 



R1032 

QCICI 

DEGREES (leC) XXX. XX 

OEO 

LSE AftlTh 



R1034 

OCl 1C 
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(FRACT lONAL I 

1403 

42,2135 

40000 

c 

OCT 

4000 C 

02 

SPECIFY 

machine 

ADDRESS 

(WHOLE 1 


1404 





42,2136 

40000 

C 

ocr 

4000C 

03 

SPECIFY PACHINE ADDRESS (DEGREES) 
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OCOOC 

23 

SPARE ~ 

1425 

REF 

3 

LAST 

239 

42,2163 

01051 

1 
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32 
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- 






RANGE RATE 

THETA 

use 



42t2222 

24055 

1 

OCT 

2405 5 

55 

PERIGEE CODE 

Ausei 









elevat ion angle 

Ausai 









CENTRAL ANGLE 

14S^ 



42*2223 

22060 

1 

OCT 

2206C 

56 
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DELTA V TPF 

1462 



42*2226 

24071 

1 

OCT 

24071 

5S 

DELTA VELOCITY LOS 
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AI4661 
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24173 

81 

DELTA V (LV) 

l^8fc 

42,2255 

COOOO 

1 


OCT 

ooooo 

62 

SPARE 

1487 

42,2256 

24201 

1 


OCT 

24201 

63 

DELTA V (BCOVl 

1468 

42.2257 

24204 

1 


OCT 

24204 

84 

DELTA V (OTHER VEH1CL6I 

1489 

42.2260 

24207 

1 


CCT 

242C7 

85 

VC (BODY) 

1490 

42,2261 

24212 

c 


OCT 

24212 

66 

DELTA V (LVl 

1491 

42.2262 

C2215 

c 


OCT 

0221 5 

87 

HARK DATA SHAFT 

A1491 1 








TRLINION 

1492 

42,2263 

24220 

1 


OCT 

2422C 

86 

HALF UNIT SUH OR PLANET VECTOR 

1493 

42.2264 

24223 

1 


OCT 

2422 3 

89 

LANDMARK LATITUDE 

A 14931 








LONGITUOE/2 

A14932 








ALTITUDE 

1494 

42,2265 

24226 

1 


OCT 

24226 

9C 

V 

A1494 1 








Y OCT ~ ^ 

A14942 








PS I 

1495 

42,2266 

02231 

c 


OCT 

0223 1 

91 

occu Angles shaft 

414951 








TRUNICN 

1496 

42,2267 

C2234 

c 


oc r 

0 2234 

92 

NEK OPTICS ANGLES SHAFT 

A14961 








TRUNION 

1497 

42,2270 

042 3 7 

c 


OCT 

0423 7 

93 

DELTA GYRO ANGLES 

1498 

42,2271 

02242 

1 


OCT 

0 22 4 2 

94 

nek OPTICS angles shaft 

414981 








TRUNNION 

1499 

42,2272 

C4245 

c 


CCT 

042 4 5 

95 

PREFERREC ATTITUDE ICDU ANGLES ‘ 

15CC 

42,2273 

C425C 

1 


OCT 

042 5 0 

96 

♦X-AXIS ATTITUDE ICDU ANGLES 

1501 

42,2274 

04253 

1 


OCT 

04253 

97 

SYSTEM TEST INPUTS 

1502 

42,2275 

0^256 

1 


OCT 

0 42 5 6 

98 

SYSTEM TEST RESULIS 

1503 

42,2276 

24261 

1 


CCT 

2426 1 

99 

RHS IN PCSITICN 

415031 








RHS IN velocity 

415C32 








RHS OPTION 

hl504 

6^C CE AhACTAe FOE FIXED FCONS 

























41600 







NN 

NCRHAL NCUNS 

1601 

42,227? 

CCOCG 

1 

NNTYPTAB 

orT 

COOOO 

00 

NCT IN USE ~ 

1802 

42,230C 

C4040 

1 


OCT 

04040 

01 

3C0MP FTACr IONIC — 

1803 

42,2301 

C4140 

c 


OCT 

0414 C 

02 

SCOHP WFCLE 

1604 

42,2302 

C4102 

c 


OCT 

0410 2 

03 

3C0MP ecu DEGREES ' 

1805 

42,2303 

CCOOC 

1 


"oTr 

0 

5T" 

SPAftE 

1806 

42,2304 

00504 

c 


OCT 

005C4 

05 

ICCHP 0P0EG(36OJ 
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USER 

16C7 



A2,23C5 

C2000 

C 


CC1 

02000 

06 

2C0HP 

CCTAL ONLY 


1606 



^2r2306 

C4000 

c 


OCT 

04000 

07 

3C0HP 

CCTAL ONLY 


iac9 



^2i23C7 

C4flC0 

c 


OCT 

0^000 

06 

3C0HP 

CCTAL ONLY 


1810 



A2«231G 

C4C00 

c 


OCT 

04GCC 

09 

3CCPP 

CCTAL ONLY 


1811 



A2t2311 

COQQC 

1 


OCT 

00000 

10 

ICCHP 

CCTAL ONLY 


1612 



A2.2312 

CCGOC 

1 


OCT 

OOOOC 

11 


SPARE 


1813 



A2, 2313 

G2000 

c 


OCT 

02000 

12 

2C0HP 

CCTAL ONLY 


leiA 



42f 231A 

CCCCC 

1 


OCT 

OOOOC 

13 


SPARE 


1015 



A2t2315 

ccooo 

1 


OCT 

0 

14 

SPARE 



1616 



A2»2316 

ccooo 

1 


OCT 

OOOOC 

15 

ICOHP 

CCTAL ONLY 


1817 



A2»2317 

24400 

c 


OCT 

2440C 

16 

3C0HP 

HHS (CEC ONLY* 


U6ie 



<i2>232C 

C41C2 

0 


OCT 

04102 

17 

3C0MP 

ecu DEG 


1819 



A2f 2321 

04102 

c 


OC T 

04102 

18 

3CCPP 

ecu DEG 


1620 



A2*2322 

C41C2 

c 


OCT 

04102 

19 

3CCHP 

ecu DEG 


1621 



^2t2323 

04IC2 

c 


OCT 

04102 

20 

3CCRP 

ecu CEGREES 


1622 



A2f232^ 

C4140 

c 


OCT 

0414C 

21 

3CCRP 

WHOLE 


1823 



A2«2325 

C41C2 

c 


OCT 

04102 

22 

3CCMP 

ecu CEGREES 


182^ 



A2t2326 

cooco 

1 


OCT 

00000 

23 


SPARE 


1825 



A2.2327 

244C0 

c 


O^T 

24400 

24 

3C0RP 

HHS (CEC ONLY) 


1826 



42t233C 

C4 140 

0 


OCT 

04140 

25 

3CCHP 

WHOLE 


1627 



A 2 » 2 3 3 1 

C4000 

c 


OCT 

04000 

26 

3CCMP 

CCTAL ONLY 


182 8 



42>2332 

C0140 

1 


OCT 

00140 

27 

ICCNP 

WHOLE 


1829 



^2i2333 

COOCO 

1 


OCT 

0 

28 


SPARE 


1630 



A2,2334 

201C2 

c 


OC T 

201C2 

29 

ICOHP 

ecu CEG (DEC ONLY) 

ISM 



A2,2335 

C4140 

c 


OCT 

0414C 

30 

3C0HP 

WHOLE 


1832 



^2i2336 

244C0 

c 


OCT 

24AO0 

31 

3CCHP 

HHS (CEC ONLY) 


1833 



M2, 2331 

24400 

c 


OCT 

24400 

32 

3C0HP 

HHS (CcC ONLY) 


183^ 



A2f 23AO 

244G0 

c 


OCT 

24400 

33 

3C0MP 

HHS (CEC ONLY) 


1835 



M2,23Ml 

24400 

c 


OCT 

24400 

34 

3C0HP 

HHS (CEC ONLY) 


1636 



M2,23A2 

24400 

c 


OCT 

2 44 0 C 

35 

3CCHP 

HHS (CEC ONLY) 


1837 



M2,23M3 

244C0 

c 


OCT 

2440C 

36 

3CCHP 

HHS (CEC CNLV) 


1838 



M2, 23MM 

24400 

c 


OCT 

2440C 

37 

3C0MP 

HHS (CEC ONLY) 


1839 



A2t23^5 

24400 

c 


OCT 

2440C 

36 

3CCHP 

HHS (CEC ONLY) 


18-^0 



^2«23A6 

24400 

( 


OCT 

2440C 

39 

3C0HP 

HHS (CEC ONLY) 


P 16^01 

EKC CF 

hMVPTAB fCP 

MCRPAL hCUKS 



































AieA02 









NN 

HIX60 HOLINS 


18<il 



M2,2jM1 

24500 

1 


OCT 

2450C 

40 

3CCHP 

HIN/SEC, VEL3, 

VEL3 

AlSAll 











(NO LCAO, CEC I 

ONLY) “ 

18^2 



A2,2350 

C0542 

1 


CCT 

00542 

41 

2CCMP 

ecu OEG, ELEV I 

DEG 

18A3 



M2, 2351 

244 1C 

1 


OCT 

24410 

4 2 

3CCRP 

PCS4, PCS4, VELI 

AieA31 











(CEC CNLV) 


1 e4<» 



A2,2352 

20204 

c 


OCT 

20204 

43 

3C0HP 

CPOEG(3oO), CP0EG(360J, POSA 

A 184^1 











(DEC CNLT) 


18A5 



M2, 2353 

CC410 

1 


3rr 

O0<*10 

44 

3CC^P 

PCS4, pas4, HiNysEc 

A 16^5 1 











(NO LOAD, DEC I 

ONLY) 

18^6 



^2f 2354 

icoxo 

c 


OCT 

lOGOC 

45 

3CCHP 

2INT, HIN/SEC, 

CPDEG(36C) 

A18461 











(NO LCflOf DEC OWLY) 

10*.7 



42,2355 

COGOC 

1 


OCT 

OOOOC 

46 

2CCHP 

CCTAL CNLY FOR 

EACH 
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16^6 

Aia^ai 

418491 
185C 
A ldSOl 
1851 
Aiesii 
1852_ 
A16521 
1853 
- 19-^4 - 
A18541 
1855 
A1S551 

1858 
418581 
1 6 59 
A re 591 
1860 
Aiaecj. 
1861 
AU6il 
1662 
416621 

1863 
A 18 631 

1864 
418641 
^ 1 865 
A18651 

1666 
4 1866 1 

1867 
418671 

1868 

1869 
A18691 

1870 
A18701 

1871 
A18711 

i 8 7 2 
A18721 

1873 

1874 
1675 

A1B75 1 
18 76 
1877 


42,2356 

C03C6 1 

OCT 

00306 

47 

2C0NP 

WE IGHT2 FCR 

EACH 







(CEC 

CNLY) 


42,2357 

C0614 1 

OCT 

00614 

48 

2CCWP 

TRIP 

CEC, 

TRIP DEG 


(CEC CNLVl 


4_2t236C CC510 C GCT G05 1 C 49 3C0WP PCS4» \/BL3, WHOLE 

(CEC CNLYl 

42.2361 C0417 C OCT 00417 5C 3CGHP PCS6, PQS4,>IN/SFC 

(KG LCAD, DEC ONLY) 

42.2362 00204 1 OCT 00204 51 2C0PP CPDEG(360), CP0EC(360» 

(DEC CNLY) 

42.2363 0CCC4 C OCT 00004 52 ICCPP CPOEGOEOI 

42.2364 1 0507 1 OCT 10507 53 3C0HP PCS5, VEL3, DPDEG(360) 

(CEC CNLY) 

42.2365 1C5C7 1 OCT 10507 54 3 CCPP PCSS, VEL3, CPDeG( 360 ) 

(DEC CNLY) 

42.2366 102CC I OCT 1020C 55 3CCMP WHOLE , DPDEC( 360 ), UPDEG(360) 

(DEC CNLY) 

42.2367 CC444 C OCT 0C444 56 2CCNP CPDEG(360), VEL2 

(DEC CNLY) 

42,237C CCCIC C CCT OOCIC 5? ICO-P PCS4 

(CEC CNLY) 

42.2371 2451C C OCT 2451C 58 3CCPP PCS4, VEL3, VEL3 

(CEC CNLY) 

42.2372 24512 1 OCT 24512 59 3CCHP VEL3 FOR EACH 

TUfT CNLYT 

42.2373 1044C C OCT i044C 60 3CCNP WHOLE, VEL2, DPCEG(360) 

(DEC CNLY) 

42.2374 CC2C4 1 OCT 0u204 61 3C0HP CP0EG(360); DP0EG(360), WHOLE 

(DEC CNLY) 

42.2375 2C451 C CCT 20451 62 3CCPP V£L2, VEL2, P0S4 

(CEC CNLY) 

42.2376 0C457 1 OCT 00457 63 3CCPP PCSt, veL2, WIN/SEC 

(NO LC40, CEC ONLY) 

42.2377 36460 C OCT 3646C 64 3CCNP CP4G 4CCEL, VEL2, P0S6 

(DEC CNLY) 

42.2400 00000 1 OCT OOOOC 65 3C0MP HNS (DEC ONLY) 

42.2401 37044 C OCT 37044 66 3C0NP CP0£G(360) , PQSB. PCS6 

(CEC CNLY) 

42,24(32 1021 ? 1 CCT 1021 7 67 3CCNP PCS6, OPDEG(360 1, DPDEG(360) 

(CEC CNLY) 

42,24C3 34444 1 OCT 34444 6r^CCNP CP0EG(360), YEL2, VEL/2YS 

(CEC CNLY) 

42,2404 35004 C OTT 3 50G4 69 3CGHP CPCEG(36(nf DRAG ACCEL, \<EL /TVS 

(DEC CNLY) 

42,24C5 CCCCC 1 dCT OOCOO 70 3CCPP CCT4L ONLY FOR EACH 

42,2406 COOOO 1 STt 6 71 3CCPP GCtAL ONLY Pdft EaCH 

42,2401 0(^404 1 OCT 00404 72 3CCNP CPDEG(360), P0S4, WHOLE 

(CEC CNLY) 

42,241G CCOCO 1 OTf 6 71 SPARE 

42,2411 (30000 1 OCT 0 74 SPARE 
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1876 

A2i2^2 

CQOGO 

1 

OCT 

0 

75 


SPARE 


1679 

A2«2A13 

00000 

1 

OCT 

0 

76 


SPARE 


leea _ 



1 

OCT 

0 

77 


SPARE 


1861 

A2t2<15 

COOOQ 

1 

OCT 

0 

78 


SPARE 


1882 

42.2416 

00000 

1 

OCT 

0 

79 


SPARE 


1883 _ 

_ A2i241? 

22440 

1 

OCT 

2244C 

80 

3CCMP 

NIN/SEC, VEL2, VEL2 


Aia631 








(KQ LC4D, CEC ONLY! 


186A 

^2»242C 

24512 

1 

CC T 

2451 2 

61 

3CCMP 

VEL3 FOR EACH 


A188A1 








(CEC CNLYJ 


1686 

42,2421 

CCOCC 

1 

OCT 

OCOOC 

62 


SPARE 


1686 

42,2422 

24512 

1 

dCT 

24512 

83 

3CCMP 

VEL3 FOR EACH 


418861 








ICEC CNLYI 


1887 

42,2423 

24512 

1 

OCT 

24512 

84 

3CCMP 

VEL3 FOR EACH 


A 1887 1 








(DEC CNLY) 


leee 

42,2424 

24512 

1 

OCt 

24512 

65 

3CCMP 

VEL3 FOR EACH 


418881 








{DEC CNLY) 


1669 

42,2425 

22451 

1 

OC T 

22451 

86 

3CCMP 

VEL2 FCR EACH 


418891 








(DEC CNLY) 


189C. 

42,2426 

Q01C2 

1 

OCT 

00102 

87 

2C0MP 

ecu DEG, Y OPTICS DEG 


1891 

42,2427 

COOOQ 

1 

OCT 

0 

66 

3C0HP 

FRAC FOR EACH 


418912 








(DEC ONLY) 


1892 

42,2430 

16143 

c 

CCT 

U143 

89 

3CCMP 

OPOEG(90), DP0EG(90}, P0S5 


418921 








(CEC CNLY) 


1893 

42ff2431 

1C5C7 

1 

OCT 

10507 

90 

3CCMP 

PCSS, VEL3, CPDEG(360) 


418931 








(DEC CNLY) 


1894 

42,2432 

C01C2 

1 

CCT 

00102 

91 

2CCMP 

ecu DEG, Y OPTICS DEG 


1895 

42,2433 

C0IG2 

1 

OCT 

00102 

92 

2CaMP 

CDU OEG, V OPTICS DEG 


1896 

42,2434 

06 143 

1 

OCT 

06143 

93 

3C0HP 

CP[3EG(90) FOR EACH 


1097 

42,2435 

C01C2 

1 

OCT 

00102 

94 

2CCMP 

ecu OEG, y OPTICS DEG 


1898 

42,2436 

C4102 

c 

OCT 

04102 

95 

3CCMP 

ecu OEG FCR EACH 


1899 

42,2437 

C4102 

0 

OCT 

04102 

96 

3CCMP 

ecu OEG FOR EACH 


1900 

42,2440 

00000 

1 

OCT 

0000 0 

97 

3CCNP 

KHOLE FOP EACH 


19CI 

42*2441 

ocooo 

1 

OCT 

OOOOC 

98 

3CCMP 

HHCLE , FRAC, hHOLE 


1902 

42,2442 

01162 

c 

OCT 

01162 

99 

3CChP 

P0S9, VEL4, HHOLE 


A19C21 








(CEC CNLY) 


^<1903 

EKC Of hMtPTAe FCP MIXED NCLNS 









J2UC 



42,2443 

00006 

1 

SFINTAB OCT 

00O06 


WHOLE, DP TIME (SEC) 


2201 



42, 2444 

C3240 

1 

OCT 

0324 C 




2202 



42,2445 

COOCO 

1 

OCT 

oood^ 


SPARE 


2203 



42,2446 

coooo 

1 

CCT 

oooco 




2204 



42,2447 

CGOOO 

i 

OCT 

ooucO 


CDF'CEGREES, V (TPTTCT'I 


2205 



42,245C 

00000 

1 

OC T 

CCOCC 


(SFCONS IN OEGINSF, 

OPTDEGIN) 

2206 



42,2451 

10707 

c 

OCT 

107C7 


OP DEGREES (90) 


22C7 



42,2452 

C3435 

0 

OCT 

0343 5 


UPPEO BY 1 

' 

22C8 



42,2453 

13070 

i 

OCT 

1 307 C 


DP DEGREES (360 ) (POINT 

BETWN BITS 11-12) 

22C9 



42,2454 

34345 

i 

OCT 

3434 5 


UPPEO BY 1 


221c 



42,2455 

C00C5 

1 

OCT 

Oocos 


DEGREES (H(r) 


2211 



42,2456 

21616 

c 

OCT 

21616 
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2212 


A2f2457 

26113 

C 

OCT 

26113 

M6IGHT2 

2213 


42t2A60 

31713 

C 

OCT 

3171 3 


221A_ 


42.2A61 

CQQ70 

C 

OCT 

000 7 C 

PCSIT ICN5 

221 S 


A2t2462 

20460 

1 

OCT 

2U46C 


22le 


A2,2A63 

01065 

C 

OCT 

01065 

PCSIT ICN4 

2Z1jL 


^2.2464 

C574Q 

J 

OCT 

0574C 


2218 


42.2465 

11414 

C 

OCT 

11414 

VELCCITY2 (POINT BETWN BITS 11-12) 

2219 


42.2466 

21463 

1 

OCT 

3U63 


2220 


42.2467 

C7475 

C 

OCT 

07475 

vELOcnva 

2221 


42,2470 

16051 

1 

OCT 

16051 


2222 


42,2471 

GOOOl 

c 

OCT 

0000 1 

ELEVATION DEGREES 

2223 


42,2472 

03434 

1 

OCT 

03<»34 


222A 


42,2473 

0Q0C2 

c 

GCT 

000C2 

TRIP CEGREES 

2ZZt> 


42,2474 

22245 

1 

OCT 

22245 


2226 


42,2475 

C0014 

1 

GCT 

00014 

INERTIA, THRUST HONENT 

2227 


42,2476 

35607 

c 

OCT 

3 56 C 7 


2228 


42,2477 

C76C6 

c 

OCT 

07606 

VELOC ITY/2VS 

2229 


42,2500 

C63C0 

1 

OCT 

0630C 


2230 


42,2501 

16631 

1 

OCT 

1663 1 

PCStTldN 6 

2231 


42,2502 

11307 

c 

OCT 

11307 


2232 


42,2503 

12000 

1 

OCT 

12C0C 

DRAG ACCELEPATICN (POINT BETWN BITS 7-8) 

2233 


42,2504 

00000 

1 

OCT 

OOOGC 


2234 


42,2505 

27176 

1 

OCT 

27176 

PCSIT ICN 8 

2235 


42,2506 

14235 

c 

OCT 

1423 5 


2236 


42,2507 

16102 

c 

2UEC 

1852 E3 B-22 

PCSITICN9 

^ 2236 


42,2510 

14000 

1 




^2^37 


42,2511 

074 75 

c 

20EC 

30.48 B-7 

VELCCl TY4 

2237 


42,2512 

16051 

1 




A2290 







END CF SFINTAB 

2300 


42,2513 

05174 

C SFOITAB 

OCT 

05174 

NHQLE , DP T IPE (SEC) 

2301 


42,2514 

13261 

C 

OCT 

13261 


2302 


42,2515 

COOCO 

1 

OCT 

00000 

SPARE 

2303 


42,2516 

ooodo 

1 

OCT 

OOOOC 


2304 


42,2517 

COOCO 

1 

OCT 

OOOOO 

CDU CEGREES, Y OPTICS DEGREES ' “ 

2305 


42,2520 

ococo 

1 

OCT 

OOOOC 

(SECONS IN OEGOUTSE, OPTOEGOUT) 

2306 


42,2521 

00714 

c 

CCT 

Oo7 1 4 

OP DEGREES (90 (POINT BETWN BITS 7-8) 

2307 


42,2522 

31463 

1 

OCT 

31463 


2308 


42,2523 

13412 

1 

OCT 

13412 

DP DEGREES (360 ) ' 

2309 


42,2524 

07534 

1 

OCT 

07534 


2310 


42,2525 

C56C5 

1 

OCT 

05605 

CEGREES (180 

2311 


42,2526 

03656 

1 

OCT 

03656 


2312 


42,2527 

cdoci 

c 

OCT 

00001 

WEIGH72 

2313 


42,2530 

16170 

c 

CCT 

1617C 


2314 


42,2 j31 

00441 

c 

QtT 

0044 1 

PCSiT IGN5 ^ * 

2315 


42,2532 

34306 

c 

OCT 

34306 


2316 


42,2533 

07176 

c 

dCT 

07176 

PCSI7IDN4 

2317 


42, 2534 

“21 6 C 3 

1 

dtt 

21603 


2318 


42,2535 

15340 

1 

OCT 

1 5340 

VEL0CnY2 
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2319 

2320 

Ji321 

— 

92f 2536 
42.2537 
42.2 540 

15390 
010 31 
21032 

1 

1 

C 

OCT 

OCT 

OCT 

1 534C 

01C31 

21C32 

VELCCITY3 

( POINT 

betnn 

BITS 

7-8 1 


2322 


92.2541 

39631 

1 

OCT 

39631 

ELEVATION DEGREES 





2323 


92.2542 

23196 

C 

OCT 

23146 







2 3^4 ^ 
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23,2312 

COOOO 

1 











1050 


23,2313 

cooco 

1 


20EC 

0 








1050 


23,2314 

COOCO 

1 


























1051 


23,2315 

67313 

1 


2DEC 

-.537638124 1 

B-l 







1051 


23,2316 

65307 

c 











1052 


23,2317 

coooo 

1 


20EC 

C 








1052 


23,2320 

coooo 

1 











1053 


23,2321 

15373 

1 


2DEC 

+ •84 31756 920 

8-1 








1053 23*2322 113^6 t 
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IC5^ 

23f 2323 

C702C 

1 

10D6GS- 

DEC 

36CC 


1055.-- - 

23.232A 

60000 


270CeG 

OCT 

600CC 

SHAFT 270 DEGP6ES 2S COWP. 

1056 

23f 2325 

COQOO 

1 


OCT 

OCOCC 










1051 

23.2326 

617A0 

JI_ 


_DEC 

-071 SS 


lose 

23.2327 

77777 

c 


DEC 

-OOOCC 


1Q5.S- 

23.233C 

_ C7O20 

1 

200EG- 

DEC 

0360C 


106C 

23,2331 

CCOOO 

1 


OEC 

OOCCC 
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CCCl C7,24A0 BANK 7 

OOOICI REf 1 C6t2COO SETLCC INUCCPP 

CCG1C2 06*326? BANK 

0002 KEF 2 LAS! 81 E3flA60 EBANK- NBDX 


0 10 0 REF I COUNT 06/lCCKP 


0112 REF 1 Cfct3262 3 3516 C 1/PIPA CAP LGCCRP SAVE EBANK CP CALLING PROGRAM 

0113 R£F LA LAST 26C 06,3263 56 0C3 I XCH EfaANK 

QUA REF 1 C6,326A 5A 163 1 TS MODE 


0115 Rfif a 06. 3265 11 *477 C CCS GLOHPSK BYPASS IF GCONPSw NEGATIVE 


0116 





06,3266 

1 3271 

1 


TCF 

♦ 3 


0117 





06, 3267 

1 327 1 

1 


TCP 



011b 

REF 

i 



06,3270 

1 3 AC 7 

C 


TCP 

IHICI 

RETURN 













oiiei 





06,3271 

C OOOA 

C 


INhINT 


ASSURE COMPLETE COMPENSATION OF DELV'S 

AQ1182 











FOR DOWNLINK. 

CHS 

REF 

1 



06, 3272 

3 A710 

C 

1/p IPAl 

CAP 

FOUR 

PIPA2, PIPAY, PIPAX 

0120 

REF 

A 

LAST 

67 

06,3273 

5A 132 

C 


TS 

KUF 42 


0121 

REF 


LASl 

29C 

C6,327A 

5C 132 

1 


INDEX 

BUF 42 


0122 

REF 

1 



06,3275 

3 IA53 

1 


CA 

PIPASCF 

(P.P.M.) X 2(-9I 

0123 





06,3276 

C 0006 

1 


EXTEND 



012A 

REF 

6 

LAST 

29C 

C6,3277 

5 0132 

1 


INDEX 

bUF 42 


0125 

REF 

1 



C6, 3300 

7 1162 

1 


MP 

DELVX 

(PP) X 2I+1A> NCW (PIPA PLLSESI X 2(45) 

0126 

REF 

32 

LAST 

263 

06,3301 

5A 0C2 

1 


TS 

Q 

SAVE MAJOR PART 

0127 

REF 

<C 

LAST 

23 S 

C6,3302 

3 OOCl 

C 


CA 

L 

minor part 

012J_ 





06.3303 

0 0006 

1 


EXTEND 



0129 

REF 

21 

LASl 

218 

06, 330A 

7 A7C5 

c 


MP 

bIT6 

scale 2(49) SPIFT RIGHT 9 

0130 

REF 

7 

LAST 

29C 

06,3305 

5C 132 

1 


INDEX 

bUF 42 


3131 

REF 

m 

1 

LASl 

29C 

06,3306 

55*163 

c 


TS 

DfcLVX +1 

FRACTIONAL PIPA PULSES SCALED 2(4lA» 

0132 

REF 

2 2 

LAST 

29C 

06,3307 

3 0002 

c 


CA 

0 

MAJOR PART 

0133 





06,3310 

C C0C6 

1 


EXTEND 



013A 

REF 

26 

LAST 

29C 

06,3311 

7 A705 

c 


MP 

bIT6 

SCALE 2(49) SFlPf RIGHT 9 

0135 

REF 

8 

LAST 

29C 

06,3312 

50 132 

1 


INDEX 

bUF 42 


01 36 

REF 

3 

LAST 

29C 

06,3313 

21*163 

c 


DAS 

OELV X 

(PIPAI ) 4 (PIPAI )(SFE) 

0137 

REF 

9 

LAST 

29C 

C6,331A 

5C 132 

1 


INDEX 

eUF 42 


0138 

REF 

1 



06,3315 

A 1A52 

1 


CS 

P IPAtlAS 

(PIPA PULSES)/(CSI X 2(-fl) • 

0139 





06, 3316 

C 0006 

1 


EXTEND 



OlAO 

REF 

2 

LAST 

7A 

C6, 3317 

1 107a 

1 


MP 

1/PI FACT 

(CS) X 2(48) NC4 (PIPA PULSES) X 2(40)* 

fllAl 





06,3320 

C CCC6 

1 


Extend 



alA2 

KEF 

28 

LAST 

255 

06,3321 

7 A712 

c 


MP 

blTl 

scale “214 lA) SHFT “R rGHT“I^ » 

ulA3 

REF 

1C 

LAST 

29C 

06,3322 

50 132 

1 


INDEX 

BUF 4 2 


oiaa 

REF 

A 

LAST 

29C 

06, 3323 

21*163 

c 


DAS 

DEL VX 

(PIPAI) ♦ (PIPADtSFE) - (BIAS) (CELT AT) 

01A5 

REF 

11 

LAST 

29C 

0 6 , 3 3 2 A 

10 132 

c 


CCS 

BUF 42 

PIPAZ, PIPAY, PIPAX 
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QIAb 

PEF 

1 

06t 332 5 

6 7716 

C 

AO 

NECl 




C1N7 

REE 

1 

Q6f 3326 

1 3273 

C 

7CF 

1/PIPAl +1 




iliA5 



Q6.332? 

13 330 

_fl 

NOOP 


LESS THAN 2ERC IMPOSSIBLE. 



CU81 



06f 3330 

0 00C3 

1 

REL INT 
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L IM CCf-PENSATICN PACK4C6 
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PC1^82 

OlAS 

OliLO 

G151 

Q152 

0153 

0154 
Q155 


REF 

R1L_ 

2 

12 

LAST 

LAST 

29C 

29C 

06,3331 

G6.3332 

55*477 
34 130 

C 

1 

IRIGCOMP 

TS 

TS 

GCOPPSN 

BUF 

INDICATE CCF'MANCS 2 PULSES OR LESS 

INDEX COUNTER - IRIGX, IRIGY* IRIGZ 
















06,3333 

0 0006 

1 

IRIGX 

EXTEND 



_R£F 

C 

LAST 

29C 

06,3334 

4 1163 

C 


DCS 

DELVX 

(PIPA PULSES) X 2(414) 

REF 

<2 

LAST 

204 

06,3335 

52 155 

1 


OXCH 

MPAC 


REF 

1 



06,3336 

3 1463 

1 


CA 

ADI AX 

(GVRC PULSeS>/(PlPA PULSE) X 2(-3) • 

REF 




06,3337 

0 3412 

C 


TC 

GCCH psue 

-(ADIAX) (PIPAX ) (GYRO PULSES) X 2(414) 


015<> (;6f334C 0 0006 1 EXTEND 


QL5J 





06,3341 

4 

1165 

C 

DCS 

DELV Y 

(PIPA PULSES) X 2(414) 


0156 

REF 

4 3 

LAST 

292 

C6, 3342 

52 

155 

1 

OXCH 

MPAC 



0159 

REF 

1 



06, 3343 

4 

1466 

C 

cs 

ADSRAX 

(GYRO PULSES)/(PIPA PULSE) X 2(-3) ♦ 


0160 

REF 

2 

LAST 

292 

(]6,3344 

0 

3412 

C 

TC 

GCGNPSUe 

4(A0SRAX ) (PIPAY) (GYRO PULSES) X 2(4)4) 



A01603 EXTEND 

AO 1604 ^ ^ DCS DFIVZ ♦** (PIPA PULSES) X 2(*14) 

AQ1605 OXCH MPAC 


401606 CA ADOAX (GVRC PUL SE 5 ) / 1 P I PA PULSE* X 2(-3l ♦ 


A016U7 









TC 

GCOMPSUB ♦♦♦ 

“(AOCAX) (PIPA2 ) (GYRO PULSES) X 2(4l4» 















0161 

REF 

3 

LAST 

29C 

C6, J345 

4 

1460 

C 

CS 

N6DX 

(GYRO PULSES)/(CS) X 2(-5) 


0162 

REF 

1 



06,3346 

0 

3441 

C 

TC 

DRIP TSLB 

-(NBCX ) (DELTA! ) (GYRO PULSES) X 2(414) 















0163 





06,3347 

0 

C006 

1 IRIGY 

EXTEND 




0164 

REF 

2 

LAST 

292 

C 6 f 3 3 50 

4 

1165 

C 

DCS 

DEL VV 

(PIPA PULSES) X 2(4l4) 


0165 

REF 

4 4 

LAST 

292 

C6,3351 

52 

155 

1 

OXCH 

MPAC 



1166 

REF 

1 



06,3352 

3 

1464 

C 

CA 

AOIAY 

(GVRC PULSES) /( P IPA PULSE) X 2(-3) • 


0167 

REF 

3 

LAST 

292 

06, 3353 

0 

3412 

C 

TC 

GCDMPSUB 

-(ADIAY) (P IPAY) (GYRO PULSES) X 2(414) 















0166 





06,3354 

c 

00 C 6 

1 

EXTEND 


(PIPA PULSES) X 2(414) 


Q16S 

REF 

1 



C6,3355 

4 

1167 

1 

DCS 

0ELV2 


0170 

REF 

45 

LAST 

292 

06,3356 

52 

155 

1 

OXCH 

MPAC 



0171 

REF 

1 



06,3357 

4 

1467 

1 

CS 

ADSP AY 

(GVRC PULSPS)/(PIPA PULSE) X 2(-3) ♦ 


0172 

REF 

4 

LAST 

292 

06,3360 

0 

3412 

C 

TC 

GCCHPSUB 

4 (ADSRAY ) (P IPAZ ) (GYPC PULSES) X 2(4l4l 



AJ1723 

A01724 









EXTEND 

DCS 

OELVX 

«4* 

(PIPA PULSES) X 2(4l4) 


A01725 









DXCH 

MPAC 

04^ 



A01726 









CA 

ACOAY 

444 

(GYHC PULSES)/(PIPA PULSE) X 2(-3) ♦ 


A01727 









TC 

GCCMPSUb 

4>«4 

-(AOCAV) (PIPAX) (GYRO PULSES) X 2(+14) 


0173 

REF 

1 



06,3361 

4 

1461 

1 

CS 

NbOY 


(GYRO PULSES)/(CS) X 2(-3) 


0174 

REF 

2 

LAST 

292 

06, 3362 

0 

3441 

C 

TC 

ORIPTSLB 


-(NBOY ) (DELTA! ) (GYRO PULSES) X 2(4l4I 


0175 





06,3363 

0 

0006 

1 IRIGZ 

EXTEND 





0176 

REF 

3 

LAST 

292 

06,3364 

4 

1165 

C 

DCS 

DELV V 


(PIPA PULSES) X 2(+14) 


0177 

REF 

46 

LAST 

29 2 

C 6 f 3 36 5 

52 

155 

1 

OxGh 

MPaC 




0178 

REF 

1 



06, 3366 

3 

1470 

C 

CA 

A0SPA2 


(GVRC PUL5E5>/(PIPA PULSE) X 2(-3) • 
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0179 

REP 

5 

LAST 

29 2 

06,3367 

0 

3<tl2 

C 

TC 

GCt'H FSUb 


“(ACSRAZ) (PIPAY » (GYRO PULSES) X 2( + 14 J 














Olflfl 





G6.337C 


C 0 cl 


EXTEND 




0161 

REF 

2 

LAST 

292 

06,3371 

A 

1167 

1 

DCS 

0ELV2 


tPIPA PULSES) K 2(+l4) 

0162 

REF 

A7 

LAST 

292 

C6,3372 

52 

135 

1 

OXCH 

MPAL 



_ 0163 

ref 




C6.3373 


1A65 

1 

CA 

ADI A2 


(GYRO PULSES)/(FIPA PULSE) X 2t-3> • 

ai8A 

REF 

6 

LAST 

293 

06 » 3 3 7A 

0 

3412 

C 

TC 

GCCF<PSUB 


-(AO)AZ) (PIPAZ) (GYRO PULSES) X 2(+l4) 














AQia^l 









EXTEND 




AOlfiA^ 









CCS 

DELVX 

41 4 ♦ 

(PIPA PULSE) X 2(^14) 

AQie^s 









OXCH 

MPAC 



ACieA£_ 









CS 

ADCA 2 


(GYRG PULSES)/(PIPA PULSE) X 2(-3) ♦ 

A01847 









TC 

GCCHPSOB 


♦(AOOAZ) (PIPAX) (GYRO PULSES) X 2t+l4) 














01 A5 

a El 

1_ 



06,3375 

_3_ 

1462 

C 

CA 

NBDZ 


(GYRG PULSES)/(CS) X 2(-5) 

0166 

REF 

3 

LAST 

292 

06,3376 

0 

3441 

C 

TC 

DP IF ISUB 


♦ iNBCZ) (OELTAT ) (CYRC PULSES) X 2(*14) 
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C187 
0186 
CifiS - 

REF 

fl£l„ 

2 LAST 

LAST 

292 

*;9C 

G6| 3277 

0 6t 3 AOC 
OC.3<i01 

11*47? 

1 3402 

1 340? 

C 

0 

c 

CCS 

TCF 

TCF 

GCOMPSW 
♦ 2 

IRIGl 

ARE GYRL CCMMANCS GREATER 
VES 

NO 

THAN 2 PULSES 















l191 

REF 

1 


06t 3A02 

3 4764 

c 

CAF 

PRIG 17 

LEM PRIORITY 

FIGHER-THIS 

FCR PPELAUNCH 


Q1SL2_ 

Rfi 

K LAST 

25C 

06. 3 AO 3 

0 5027 

J 

TC 

NOVAC 





0193 

REF 

<1 LAST 

292 

E3f 1460 



EBANK » 

NBDX 





019A 

REF 

1 


Q6»34C4 

03474 

c 

2CA0R 

l/GTPO 





Q19A 

JIf 

1 


06,3405 

14063 

1 




















0195 




06 f 3406 

0 00Q3 

1 

KEL INT 






0 1 9 <) „ 

_REF 

2 LAST 

29C 

06,3407 

3 0163 

C IRIGl 

CA 

MODE 

SET EBANK PCR 

RETURN 



0197 

REF 

15 LAST 

29C 

06,3410 

54 003 

C 

TS 

F&ANK 





0196 

REF 

5 LAST 

217 

06,3411 

1 4570 

c 

TCF 

SnPE TURN 






C199 

REF 

4 8 

LAST 

293 

G6f 3412 

56 154 

1 

CCOMPSUB XCH 

MPAC 

AOU CR AC5RA CCEFFICIENT ARRIVES IN 

A 


0200, 





06,3413 

0 0006 

1 

EXTEND 


CIMPAC) * (PIPA PULSES! X 2(+l4» 



C2CI 

REF 

49 

LAST 

294 

06,3414 

7 0154 

C 

HP 

MPAC 

(GYRC P0LSE5»/(PIPA PULSE! X 2(-3! 



0202 

REF 

14 

LAST 

6 6 

06,3415 

52 123 

c 

OXCH 

VbUF 

NCW • (GYRC PULSES! X 2(4111 

♦ 















0203 

REF 

5C 

LAST 

294 

C6, 34 16 

3 0155 

0 

CA 

MPAC 4l 

mInCR part PIPA PULSES 



0204 





06,3417 

0 0006 

1 

EXTEND 





0205 

REF 

51 

LAST 

294 

C6, 3420 

7 0154 

c 

MP 

MPAC 

ACIA OR ACSRA 



0206 

REF 

21 

LAST 

29( 

06,3421 

54 001 

1 

TS 

L 




0207 

REF 

25 

LAST 

284 

06,3422 

3 47 14 

1 

CAF 

ZERO 

•m 



0208 

REF 


LAST 

294 

C6, 3423 

20 123 

C 

DAS 

VbLF 

NCw « (GYRC PULSES! X 2(4lU 

Ti 



0209 ref U last 29^ 06f342-^ 3 0122 C CA VBUF PARTIAL RESULT - MAJOR 

0210 1 06»3A25 C 00C6 1 EXTEND 


0211 

0212 

JJli3 

REF 

REF 

REF 

15 

13 

-3 

LAST 

LAST 

LAST 

226 

292 

62 

06. 3426 

06.3427 
06,3430 

7 46 7 7 
5C 130 
21*472 

1 

C 

C 

MP 

INDEX 

DAS 

blTl 2 
bUF 

GCOMP 

SCALE 2(43! 
RESULT » (GYRC 
HKACIA) (PIPAI! 

SHIFT RIGHT 3 • 

PULSES) X 2(4141 

OR HKACSRAI (PIPAII 















0214 

REF 

17 

LAST 

294 

06,3431 

3 0123 

1 

CA 

VBUF 4l 

PARTIAL RESULT 

- MINOR 


0215 





06,3432 

C 0006 

1 

EXTEND 





0216 

REF 

16 

LAST 

294 

06,3433 

7 4677 

1 

MP 

BITlI 

SCALE 2(431 

SHIFT RIGHT 3 • 


0217 

REF 

22 

LAST 

294 

06,3434 

54 OCl 

1 

TS 

L 




0218 

REF 

26 

LAST 

294 

06,3435 

3 4714 

1 

CAF 

ZERO 




0219 

REF 

14 

LAST 

294 

06,3436 

50 130 

c 

INDEX 

BUF 

RESULT > (GYRC 

PULSES) X 2(4l4) 


0220 

REF 

4 

LAST 

294 

06,3437 

21*4 12 

c 

DAS 

GCDMF 

(ADI A ! (PIPA I ! 

CR ( AOSRA IIPIPAI ! 


0221 

REF 

34 

LAST 

29C 

06,3440 

C C0C2 

c 

TC 

Q 
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C2ZZ C6t3^AI C C0C6 1 ORIFISUB EXTEND 

0223 REF 15 LAST 29A C6,3XA2 22 131 1 GXCH bUE -tl 


Q22A 





0 6 1 3 4^3 

0 0006 

1 

EXTEND 


C(A) « NQO IGYRO PULSES)/(CS) 

X 2(-5J 

0225 

REF 

2 

LAST 

29C 

06» 

7 1074 

1 

HP 

l/PI FACT 

(CS) X 2(«8) 

NOW (GYRO PULSES) 

X 2(43) 

a22ii_ 




29X 

06.3445 

22 155 



LXCH 

MPAC 

SAVE FOR FRACTICNAL CONPENSATION 


0227 





06.3446 

C 0006 

1 

EXTEND 





0228 

REF 

2C 

LAST 

2AS 

06.3447 

7 4707 

1 

HP 

eiT4 

scale 2(«il) 

SHIFT RIGHT 11 


.022.9 

JliF 

16 

LAST 


06i 345C 

50 130 

c 

INDEX 

BUT 




0230 

REF 


LAST 

292 

C6.3451 

21 *4 72 

c 

DAS 

GCrNP 

HI (NBC) (DELTA? ( 

(GYRC PULSES) X 

2( ♦lA) 














^31 

-Ai.L- 

5 2 

LAST 

25 J5 

C6.3452 

3 ,0155 

c 

CA 

wpac +1 

NOW PINOR PART 



0232 





06,3453 

0 0006 

1 

EXTEND 





0233 

REF 

21 

LAST 

295 

06,3434 

7 470/ 

1 

MP 

Bl T4 

SCALE 2(-»ll) 

SHIFT RIGHT 11 


023A 

REF 

_iJ_ 

LAST 

29A 

06,3455 

54 OCl 

1 

TS 

L 




0235 

REF 

27 

LAST 

2 9X 

06,3456 

3 4714 

1 

CAF 

ZERO 




0236 

REF 

17 

LAST 

295 

06,345? 

5C 130 

c 

INDEX 

EUF 

4C0 IN FRACTICNAL COMPENSATION 


0237 

REF 

6 

LAST 

295 

06,3460 

21*472 

c 

DAS 

GCONP 

(NBD) (CELTAT) 

(GYRO PULSES) X 

2 ( ♦ 1 4 ) 


0238 

REF 

6 

LAST 

263 

C6,3461 

3 4711 

1 

CRFTSLe2 CAF 

TWO 

PIPAX, PIPAV, PIPAZ 


G219^ 

_ REF 

JLi_ 

LAST 

295 

C6t 3462 

6 0130 

C 

AO 

6UF 



0240 

REF 

19 

LAST 

295 

C6,3463 

56 130 

c 

XCH 

BUF 



0241 

REF 

72 

LAST 

264 

06,3464 

50 OCO 

1 

INDEX 

A 



024^ 

REF 

7 

LAST 

295 

C6,3465 

U*471 

c 

CCS 

GCOMP 

ARE GYRO CCMMANCS 1 PULSE CR GREATER 


0243 





06,3466 

1 3470 

c 

TCF 

+2 

YES 


0244 

REF 

20 

LAST 

295 

Ce,3467 

0 0131 

1 

TC 

BUF 41 

NO 



0245 

REF 

1C 

LAST 

252 

06,3470 

? 7716 

1 

MASK 

NEGLNE 




0246 

RET 

73 

LAST 

29 5 

06,3471 

1C 000 

0 

CCS 

A 

ARE 

GYRO COMHANCS 

GREATER THAN 2 PULSES 

024 7 

REF 

4 

LAST 

294 

C6,3472 

55*477 

c 

TS 

CCOH FSW 

YES 

- SET GCOMPSW 

POSITIVE 

024 6 

REF 

21 

LAST 

295 

C6, 3473 

0 0131 

1 

TC 

euF 41 

NC 
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C2AS 

REF 

2 

LAST 

29( 

04|34T4 

3 4 710 

C 

1/GYRC 

CAF 

FOUR 

PIPAZ, PIPAY, PIPAX 

0250 

REF 

22 

LAST 

295 

C6»3475 

54 130 

1 


TS 

BUF 














0251 

REF 

23 

LAST 

296 

04f 3476 

5C 130 

C 


INDEX 

BUF 

SCALE CYRC CGHHANOS FOR IHUPULSF 

0252 

REF 

e 

LAST 

295 

06,3477 

3 1472 

1 


CA 

GCOHP ♦! 

FRACTICNAL PULSES 

0253 





06*3500 

0 0006 

1 


EXTEND 



025A 

REF 

le 

LAST 

191 

06,350 1 

7 4703 

C 


HP 

eire 

Shift right t 

0255 

REF 

29 

LAST 

296 

06, 3502 

50 130 

C 


INDEX 

BUF 


025e 

REF 

s 

LAST 

29 4 

06,3503 

55*472 

0 


TS 

GCCHP ♦! 

FRACTICNAL PULSES SCALED 













0257 

REF 

26 

last 

295 

06,350^ 

3 4714 

1 


CAF 

ZtRQ 

SET GCCHP ■ 0 FCR DAS INSTRUCTION 

C25£ 

REF 

25 

LIST 


04l*JS4L5 

50 130 

0 


INDEX 

BUF 


0259 

REF 

10 

LAST 

294 

06,3506 

57*471 

1 


XCN 

GCCHP 

GYRO PULSES 

0260 





06,3507 

0 0006 

1 


EXTEND 



C261 

REF 

IS 

LAST 

294 

06,3510 

7 4703 

0 


HP 

BITa 

SHIFT RIGHT 7 

0262 

REF 

26 

LAST 

294 

06,3511 

5C 130 

c 


INDEX 

euF 


0263 

REF 

1 1 

LAST 

294 

06,3512 

21*472 

0 


DAS 

GCCHP 

ACD these TC FRACTIONAL PULSES ABOVE 













026A 

KEF 

27 

LAST 

296 

06,3513 

10 13U 

1 


CCS 

BUF 

PIPAZ, PIPAY, PIPAX 

0265 

REF 

2 

LAST 

29 1 

06,3514 

6 77 16 

( 


AO 

NEGl 


0266 

REF 

2 

LAST 

294 

06,3515 

1 3475 

0 


TCP 

l/GVRC +1 


0267 

REF 

12 

LAST 

294 

06 ,351b 

01471 

1 

LGCONP 

EC ADR 

GCfiHP 

LESS THAN ZERO IMPOSSIBLE 













02 6 e 

REF 

2 

LAST 

29C 

06.3517 

3 35 16 

c 


CAF 

L GCCHP 


0269 

REF 


LAST 

254 

06,3520 

0 4555 

c 


TC 

BANKCALL 


027C 

REF 

2 

LAST 

234 

06,3521 

17125 

1 


CADR 

IMUPULSE 

CALL GYRO TCRQUING ROUTINE 

02 71 

REF 

36 

LAST 

294 

06,3522 

0 4555 

c 


TC 

BANKCALL 


0272 

REF 

5 

LAST 

234 

06,3523 

17516 

c 


CAOR 

IHUSTALU 

WAIT FCR PULSES TO GET OUT 

0273 

REF 

13 

LAST 

26C 

06,3524 

1 5112 

1 


TCF 

ENOOFJCb 

TEMPCRARV 













0279 

REF 


LAST 

294 

06,3525 

3 4710 

0 

GCOPPl 

CAF 

FOUR 

PIPAZ, PIPAY, PIPAX 

0275 

REF 

26 

LAST 

294 

06,3526 

54 130 

1 


TS 

auF 


0276 

REF 

29 

LAST 

294 

06,3527 

50 130 

c 


INDEX 

BOF 

rescale 

0277 

REF 

12 

LAST 

294 

06,3530 

3 1472 

1 


CA 

GCCHP +1 


0278 





06,3531 

0 C0C6 

1 


EXTEND 



0279 

REF 

2C 

LAST 

294 

06,3532 

7 47C3 

0 


HP 

61T8 

SHIFT H INdP PART LEFT 7 - HAJQST PART ' » 5 

0260 

REF 

20 

LAST 

294 

06,3533 

50 130 

c 


INDEX 

bUF 


0281 

REF 

14 

LAST 

294 

06,3534 

23'472 

1 


LXCh 

GCCHP ♦! 

BITS 6-14 OF HINQR PART WERE « 0 













0262 

REF 

21 

LAST 

294 

06,3535 

1C 130 

1 


CCS 

SUE 

PIPAZ, PIPAY, PIPAX 

0283 

REF 

3 

LAST 

294 

06,3536 

6 7716 

0 


AO 

NEGl 


C269 

REF 

1 



06, 3537 

1 3526 

1 


TCF 

GCCHFl 


0285 





G6, 3590 

01436 

1 

V06N3QS 

VN 

U63 0 


0266 

REF 

H 

LAST 

294 

06,3541 

1 5112 

1 


TCF 

ENOCF JC8 





n 





( 
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0287 
C288 
0219 

REF 

5 LAST 295 

C6ti5A2 

06,3‘A3 

C6.3SAA 

U*A77 

1 35A6 

1 39^6 

C 

1 

JL_ 

NBOCNLY CCS 

TCF 

TCF 

GCCiHPSh 

♦ 3 

♦ 2 

BYPASS IF GCCFPSW NEGATIVE 


4 ^ 

C29C 

REF 

15 LAST 29E 

06,35A5 

1 5U2 

1 

TCF 

ENLCFjCe 





INHINT 

CCS FLAGk.PC2 PREREAD T3fltPT PAY COINCIDE 

TCF ENUCFJCe 

TCF ENOOFJCE 

TCF +1 


1291 

REF 



LAST 

21A 

06,3353 

_3_ 

0025 

0 


CA 

TIME 1 

(CS) X 2(414,1 


0292 

REF 

A 

LAST 

295 

C6,355A 

57 

'C7A 

C 


XCH 

1 /PI FACT 

PPEVICUS TIRE 


02925 





06,3555 

C 

0003 

1 


REL INT 




C2S3 





C6.3556 

_5_ 

0000 

C 


COH 




029a 

REF 

c; 

LAST 

297 

C6,3557 

6 

1C7A 

C 


AU 

l/PI FADT 



0295 

REF 

7A 

LAST 

29 5 

06,3560 

1C 

COO 

0 

NB02 

CCS 

A 

CALCULATE ELAPSED TIME 


1291 

REF 

13 

LAST 

aei3 

06,3561 

6 

9712 



AO 

ONE 

NC TIREl CVERFLCW 


C297 

REF 

1 



06,3562 

1 

3567 

I 


TCF 

NB03 

RESTCPE TIRE DIFFERENCE ANC JUMP 


0298 





06, 3563 

1 

3565 

c 


TCF 

♦ 2 

TIMEl OVERFLOW 


1l29.9_ 

REF 

U 

LAST 

297 

G 6 , 3 56 A 

\ 

5112 

1 


TCF 

ENOOf JOB 

IF ELAPSED TIRE » C (CIFFERENCE » -0) 
















0300 





06,3565 

A 

COCO 

0 


COM 


CALCULATE ABSOLUTE DIFFERENCE 



REF 

t 

LAST 

18S 

06,3566 

6 

A672 

c 


AO 

POSHAX 



C302 





06,3567 

0 

0006 

1 

N803 

EXTEND 


CIA) « OELTAT (CS) X 2(414,) 


0303 

REF 

2C 

LAST 

26C 

06,3570 

7 

A7C1 

1 


MP 

BITIO 

SHIFT RIGHT 5 


G30A 

REF 

le 

LAST 

29A 

06,3571 

52 

123 

c 


OXCh 

VbUF 



03C5 





06,3572 

0 

C0C6 

1 


EXTEND 




0306 

REF 

19 

LAST 

297 

06,3573 

3 

0123 

I 


OCA 

VBUF 



0307 

REF 

5A 

LAST 

295 

C6,357A 

52 

155 

1 


OXCH 

MPAC 

OELTAT NOW SCALED (CS) X 2(419) 


OiOl 

Mf 

i9_ 

LAST 

29< 

06.3575 

_L_ 

A71A 

1 


CAF 

ZERC 



0309 

REF 

6 

LAST 

297 

06,3576 

55 

'A77 

c 


TS 

GCCMPSH 

INDICATE CCPHANOS 2 PULSES OR LESS 


0310 

REF 

2 2 

LAST 

29C 

06,3577 

5A 

130 

1 


TS 

bOF 

PIPAX, PIPAY, PIPA2 



X290C5 





06 • 3 5^ 

0 0004 

C 

02901 

REF 

t 

LAST 

195 

C6,3SA? 

IC 076 

1 

02902 

REF 

16 

LAST 

297 

06,3550 

1 5112 

1 

02903 

REF 

n 

LAST 

297 

C6.3551 

1 5112 

1 

0290A 





06,3552 

1 3553 

C 


0311 REF 5 LAST ZSA Cfc,360C A lAeO C CS MBDX (GYRC PULSeS)/(CS) X 21-5) 

0312 REF I 06,3601 0 3617 1 TC FBlASSOe - (NBCX ) t OELTAT ) (GYRO PLLSE5) X 2(+lA) 



0313 





06,3602 

C 

0006 

1 

EXTENIj 




0314, 

REF 

20 

LAST 

297 

06,3603 

4 

012 3 

C 

CCS 

VBUF 



0315 

REF 

55 

LAST 

297 

C 6 f 3 6 C 4 

52 

155 

1 

OXCH 

MPAC 

DELTA! scaled (CS) 

X 2(419) 

0316 

REF 

2 

LAST 

292 

06,3605 

3 

l«t61 

C 

CA 

NbOY 

(CYPC PULSES)/(CS) 

X 2(-5) 

0317 

REF 

2 

LAST 

297 

06,3606 

0 

3617 

I 

TC 

FBI ASSUB 

-(NfiOY ) (OELTAT ) 

(GYRO PULSES) X 2(4l4) 


0316 





06,3607 

C 

0006 

1 

EXTEND 




0319 

REF 

2 1 

LAST 

297 

C6, 36 1C 

4 

0123 

C 

DCS 

VBUF 



0320 

REF 

56 

LAST 

297 

06,3611 

52 

155 

1 

OXCH 

MPAC 

DELTA! SCALED (CS) 

X 2(419) 

0321 

REF 


LAST 

293 

06,3612 

4 

1462 

1 

CS 

NbDZ 

(GYRC PULSES)/Tc5T 

X 2 (-5 I 

0322 

REF 

3 

LAST 

29 7 

06,3613 

0 

3617 

1 

TC 

FBI ASSUB 

4(NeC2) (DELTA!) 

(GYRC PULSES) X 2(4l<.) 
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0323 

REF 7 

LAST 

291 

C6f36l4 

11*411 

C 

CCS 

GCCiMPSV^ 

ARE GYRO CQNMANCS GREATER THAN 2 PULSES 

0324 

REF 2 

LAST 

29< 

C6» 3A15 

1 3414 

1 

TCP 

1 /GYPC 

YES 

0325 ^ 

REf gja^ 

-LliT- 

291 

C6 « 36 1 6 

1 5112 

J 

TCP 

FNDOFJ.OB . 

NC 


w 
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Q32t 

REF 

35 

LAST 

29A 

06,3617 

56 002 

C 

P8IASSUB XCH 

U 



0327 

REF 


LAST 

29T 

C6, 3620 

59 131 

C 

TS 

bUF -»1 



0328 

REF 

26 

L A ST 

29S 

06 ,3621 

3 0002 

C 

CA 

g 

NSC SCALED (GVRC PULSES)/(CS) X 

21-5) 

032S 





06,3622 

0 00C6 

1 

EX TEND 




0130. _ 

REF 

57 

LAST 

29T 

C 6 f 3 6 2 3 

7 0159 

C 

RP 

MPAC 

DELTAT SCALED ICS) X 2U19) 


0331 

REF 

2A 

LAST 

29S 

06,3629 

5C 130 

C 

INDEX 

bUF 



0332 

REF 

1 5 

LAST 

29< 

06,3625 

21*972 

C 

DAS 

GCONP 

HI (NBD) (OELTAT ) (GYRO PULSES) 

X 2(^19) 

0333 

REF 

57 

LAST 

29S 

06,3626 

3 C002 

C 

CA 

0 

NCW FRACTICNAl PART 


C33A 





06, 362 7 

0 0CC6 

1 

EXTEND 




0335 

REF 

5E 

LAST 

299 

06 f 3 63C 

7 0155 

1 

MP 

MPAC +1 




0336 

REF 

29 

LAST 

295 

06, 3631 

59 OCl 

1 

TS 

L 




0337 

REF 

5C 

LAST 

297 

06,3632 

3 9 719 

1 

CAP 

ZERO 




0J3_fl_ 

REF 

2 9 



06.3633 

50 130 

C 

INDEX 

BUF 




0339 

REF 

16 

LAST 

299 

06,3639 

2 1*972 

C 

DAS 

CCOMP 

INBD) IDELTAT) 

(GYRC PULSES) X 2(>19) 


- 



— 


06.3635 

1 3961 

c 

TCF 

ORFT SUe2 

CHECK MAGNITUDE CF COMPENSATION 















039Q1 

REF 

37 

LAST 

296 

06.3636 

0 9555 

c 

LASTBIAS TC 

BANKCALL 



- - - 

C3902 

REF 

1 



06,3637 

170 75 

c 

CADR 

P IFUSE 




Q391 

- _RJci^ 

8 

LAST 

29 € 

06 . 3690 

U*977 

c 

CCS 

GCOMFSk 

BYPASS IP GCOMPSW 

NEGATIVE 


0392 





06,3691 

1 3699 

c 

TCF 

+ 3 




0393 





06,3692 

1 36 9 9 

c 

TCF 

♦ 2 




0399 

REF 


LAST 

291 

06,3693 

1 5112 

1 

TCF 

ENDCFJCb 

















0395 

REF 

1 



06,3699 

3 7665 

0 

CAF 

PP IL31 

2 SECCNDS SCALED 

ICS) X 2(46) 


0396 

RiF 

6 

JLAST 

297 

06,3695 

57*079 

c 

XCH 

l/PIPADT 




0397 





06,3696 

9 COOO 

c 

COM 





0398 

REF 

9 

LAST 

173 

06,3697 

6 1296 

0 

AO 

PIPTIM61 +1 

TIME AT PIPAl «C 



0399 

REF 

1 



06, 3650 

1 3560 

c 

TCF 

NBC2 






< 

w 


4 


I 




H 
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ROOOl PPCGP/P PAPE - KE>eCAPC APO CISFLAY PPCGPAM 

R0002 PCC NC - A OAU - 27 APRIL 196? ASSEMBLY - PINDISK REV 17 

RQ 003 MCC fit - FILENE 

ROOUA LCC SECUCP - FINEAU GAPE BLTTCNS APC LIGHTS 


ROOOiJ FLPCT ICKAL CESCRIFTICN- 

RQOIO TFE PEYEOAR_C APC CISPLAY SYSTEM PRCGFAM OPERATES UNOER EXECUTIVE 

POO 1 1 CCPTFC L AM PROCESSES INFCNMATICN EXCHAPGED BETWEEN THE AGC APE THE 
R0012 CCPFLTLP OFERATQR. THE IPPUTS TO THE PROGRAM ARE F ROM THE K EYBOARPt 
R0013 FRCP IPTEPPAL FROCPAPSf APC FPCP THE UPLINK. 

R00l<» THE LANGUAGE OF CCPMUN ICAT ICP XlTH THE PROGRAM IS A PAIR CF HORDS 

R0C15 KPCPP AS VERB AND PCUN. EACH CF THESE IS REPRESENTEC BY A 2 CHARACTER 
ROOLb CeCIPAL PUPBEP. THE VERB CCCE INDICATES NHAT ACTION IS TO EE TAKENt THE 
R0017 NCIN CCCE INCICATES TO WHAT THIS ACTICP IS APPLIED. NCUNS USUALLY 

R0Q18 REFER TC A GROUP CF ERASABLE REGISTERS. 


RCC2JD V ERBS APE CROUPED IMC QISPLAYS« LCACSt PONITCRS (DISPLAYS THATARE __ _ 
RU021 UPCATEC CNCE PER SECCNDJf SPECIAL FUNCTICNSt AND EXTENDED VEPBSITmESE 
R0022 APE CLTSICE OF THE CCPAIN CF PIPBALL APC CAN BE FOUND UNDEF LCC SECHCN 

RQ023 lEX TEPCEC VERBStl. 

«d02A A LIST CF VERBS APC NCUNS IS GIVEN IN LCG SECTION :ASSLPBLY AN D 
RC025 CFEPATICP INFORM A Tl CN : . 


R0026 CALLIPG SECUENCES- 


R0027 KEYEQAPC) 

R0G28 EACH CEPRESSIGP CF A MAIN (NAV1GA1ICN) KEYEOARQ BUTTON ACTIVATES 

R 0 U 29 I P T E PFL PT PEYRLPTl (KEYRUPT2) APO PLACES THE 5 BIT KEY CODE INTO 

R0U291 CHAPPEL 15 (CHANNEL 16). K6YRUPT1 (KEYRUPT2) PLACES TH6 KEY 

R0030 CCCE INTC PPACf EPTERS AN EXECUTIVE RECLEST FCR THE KEYBOARD AND DISPLAY 

P 00 3 1 P PCGRiP (AT ;dHARlP»)i AND fcXECLTES A RESUME. 

R0032 UPLIPX: 

R0033 EAC H PO PP RECEIVEC BY THE UPLINK ACTIVATES INfERRUPT UPPUPT WHICH 

P003A PLICES THE 5 BIT HEY CODE INTC RPACt ENTERS AN EXECUTIVE RECLEST FCR THE 

R0035 KEYEC4PC APC CISPLXY PROGRAM (ATiCHARiP:) AND EXECUTES A RESLME. 

ROoTb ‘ mEPPAL FPCGPAMSJ 

R0037 IPTEPNAl FRCGR4MS CALL PINBALL AT :PVSUB: WITH THE LESlREC VERB/NOUN 

RC038 CCCE IP A (LCW 7 EITS FCR NCUP » NEXT 1 BITS FCR VLK6). DETAILS 

R0Q39 CESCRIEEC CN REMARKS CARDS JUST BEFORE :NVSUB: AND iNVSbWAITi (SEE 

RCO^O SYRECl TABLE FCR PAGE NUMBERS). 


RC0<.5 NCPMil EXIT MOCES- 


RQ0A6 IF PlPBiLL HAS CALLED BY EXTERNAL ACTICN, THERE ARE FQUF EXITS: 

HG0^6C5 L) ALL bLT (2)t (3)» AND (^) EXIT CIRECrLV TO ENDCjFJCB. 
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HU0^61 21 fcXTENCeC VERBS GC TC THE EMENDED VERB FAN AS PARI CF TH E 

R00A615 PINBALL EXECUTIVE JCB HITH FRIDRITY 30000. IT IS THE 

lOQAdl RESPONSIBILITY CF THE EXTENDED VERB CALLED TO EVENTUALLY 

R00A63 CHANGE PPIORITY (IF NECESSARY) AND CO AN CNDOFJCt. 

ROO<i63S ALSO FINEALL IS A NCVAC JCC. E8ANK SET FOR COHHCN. 

RQQA6A 3) VERB 37. CHANGE CF FROGPAH (HAJCR HOPE) CALLS :V37: IN THE 

ROOA65 SERVICE ROUTINES AS PART CF THE PINBALL EXEC JOfc NITH PRIO 

R00A66 30CO0. THE NEN PRCGRAN CCCE (HAJCR NODE) IS LEFT IN A. 

POOAOT A) KEY RELEASE BLTTCN CAL LS ;P1NBRNCH: IN THE CfSPLAV INTERFACE 

R00A6E ROUTINES AS HART CF THE PINEALL EXEC JOB WITH PRIC 30000 IF 

R00A6S THE KEY RELEASE LIGHT IS CFf ANO :CADRSTCR: IS NOT +0. 


RgO^T IF PINBALL HAS CALLEO BY INTERNAL FRCGRAHSt EXIT FROM PINEALL IS BACK 

R004B TC calling ROUTINE. CETAUS CESCRIBEC IN RENARKS CAROS JUST BEFORE 
RfiO^ tN\SUBa ANC iNVSBKAlT; (SEE SYHECL TABLE FOR PAGE NUMBERS). 


RJDdS Q ALAFP CF ABORT EXIT PODES- 


RC05)1 EXTERNAL IMTIATICNt 

_ IF SCPE IPPPOPER SEQUENCE CF KEY CCCES IS DETECTED* THE CPERATOR 
R0033 EFPCR LIGHT IS TURNEO ON ANC EXIT IS TC lENCQFJQB;. 


R aO BA . I NT EPNAL FPQGRAM IMTlATICNt 

RC055 IF AN ILLEGAL V/N CCMBINATICN IS ATTERPTEC, AN ABORT IS CAUSED 

ROOSe (klTH CCTAL 015011, 

R 0056 1 IF A SECOND ATTEMPT IS PACE TO GO TC SLEEP IN PlNBALLf AN ABCPT IS 

R00562 CALSEC ( R ITH OCTAL CU06). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL! 
k00563 1 ) ENCIOLE CR OATAW A IT . 

HOP 56 A 2) NVSBWAITi PRENVBSY, CR NVSUEUSY. 

R0057 CCNCniCNS LEACINC TO THE ABOVE ARE CESCRIBED IN FORTHCOMING PIT/IL 
R005P E-PEPCP1 CESCRIBINC KEYBOARC ANC OISPIAY OPERATION FOR 276. 


H 0059 CLT P IT- 


RC060 INFCRPATICN TC EE SENT TC THE DISPLAY PANEL IS LEFT IN THE tOSPTAti: 

R0061 BLTfEPS REGISTERS (UNDER EXEC CCNTPCL), iCSPGUT: (A PART OF T^FUPT) 

RC062 HANDLES TH| PLACING CF THE zDSPTAB: INFCRPATICN INTO OUTPUT CHANNEL 10 
RG063 IP IMBPRIPT. 


R0U6A ERASAELE IPIT I AL UAT ICN* 


H0065 FRESH START ANC RESTART IMTIALI2E THE NECESSARY E REGISTERS FOR 

R0066 pinball in tSTARTSUBl. REGISTERS APE* DSPTAB BUFFER. CAGRSTCR. 

R0067 R EGREIi CLPAS St DSPLCCK, PCNSAVE. PCnSAVEI, VERaRE(5, NCUNREG, CSPLIST. 
PCC6b OSFCCLPTi POLT. 






i 
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L PINBALL CANE BUTTONS AND LIGHTS USER'S PAGE NO. 3 EO 53 

R0C69 A CCNfLETE LIST OF ALL Thf EHASAELES fECTh RESERVED AND TtNPCRARIESI FOR 
R0C7C PINEALL is GIVEN EELCM. 


R0071 THE FCLLCRING ARE CF CENER AL INTEREST 


RCC72 

R0C73 

FENARKS CAPCS PRECEDE THE PEFEPENCEC SYMBCL CEFINITION. 
TABLE TC FIND APPPCPRIATE PAGE NUMBERS. 

SEE SYMBOL 



- 


- 

R007^ 

N\ SLE 

calling FCINT FCR INTERNAL LSE OF PINBALL. 






R0075 


OF RELATED INTEREST NVSBNAlT 






R Q a? 4 


NVSLBLSY 






R0077 


PRENV6SY 

— 

- 



- 

ftflQfiJ _ . 

END ICLE 

RCUTINE FCR INTERNAL PRCCRAMS VISHING TO GO TO 

SLEEP WHILE 



- 

. 

R008A 


ANAITING 0P6PATCRS RESPONSE. 





- ' 

RCOflSl 


PCUTINE BY MHICH AN INTERNAL PROGRAM HAY DISPLAY 

A DECIMAL 






ROOeSi PROGRAN CEDE (NAJCR NODE) IN THE PROGRAM (MAJOR MCDE) LIGHTS. 

R008525 (CSPMM DCES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REGUEST 

B00852? FOR OSFNNJB Mlth PRIC 300QC AND RETURNS TO CALLER.) 


R00fl53 BLANKSLE ROUTINE BY ViFiCH AN INTERNAL PRCGRAM MAY BLANK ANY 

R0UB5A _ CQMEINATION CF ThE DISPLAY REGISTERS Rlt R2t R2. 

R0C855 JAMERN flCUTlRES BY KFICF AN INTERNAL PRCGRAM MAY PERFLRN THE 

85 4 JANFPCC TERMINATE (V 3<t) CR PPCCEEC (V 33) FUNCTION. 


RCC86 NCMTCR VERBS FCR PERICCIC ( 1 PER SEC) CISPLAY. 


RCCBbl 

^00662 

R00863 

PLEASE FERFCRH, PLEASE MARK SUUATICNS 

REMARKS DESCRIBING HON AN INTERNAL RCUTINE SHCULD HANDLE 

TFESE SITLATICNS CAN BE FOUND JUST BEFORE INVSUB: (SEE 

- — 

- - - 

- 



R00669 

.HQ087 

SVMECL TABLE FOP PACE NUMBER). 

ThE NCUN TAEUE FCRMAT IS OESCRIBEC CN A PAGE OF REMARKS CAROS JUST 




- 

- - — 

RQCtie 

eefCRE lOSPABC* (SEE SYM8CL TABLE FCP PAGE NUMBER). 


- 




R00B9 

TH NCUN TABLES THEMSELVES ABE FCUNC IN LCG SECTION :PIN8ALL NCUN 






RQQ891 

T A E LE S s « 




- — — 

- 

- 

RC090 

FCR FLRIHEP CETAILS A8CUT CPEPATICN OF IHE KErBCAPD AND DISPLAY SYSTEM 






R0091 

R0092 

PPCCPAMi SEE THE MSSICN FLAN ANC/CP NIT/lL 

DESCRIBING KEYBOAPC AND DISPLAY CPERATICN FCR 270. 







RGlSp TNE FCLLCNINC- CUOTATICN IS PRCVICEC tRRCUGH THE COURTESY CF THE AUTFCRS. 


R0151 


* 0 
4 • 


n KILL BE FBCVEO TO THY FACE TFAT THOU HAST MEN ABOUT THEE THAT 


QAPl PgVlSICh 237 CF AGC PRCGRflM CCLCSSUS feV NASA 2021111-C31 1:17 *liG. 24«l9te KCCIAC6 .064 PACt 3G3 


L 

PlhtAlL 

GAPE eUTTCNS AND LIGHTS 

USER’S PAGE NO. A EO S3 






KC152 

LSI Ain 

TALK OF A NCUh ANC A 

vERBf anc slch aecninable hords as no 


R0153 

ChPISllAN EAR CAN ENDLRE TO HEAR.:: 









HENRV 6. 

ACT 2# SCENE *t 












f<0155 

TEE FCLLC8ING ASSIG8RENTS FOR 

PINBALL APE MACE ELSERHEPt 












80156 

RESER\EL 

FCP PINBALL EX6CLT1VE ACTION 







Rfilll 

C SPCCIM ERASE 

DISPLAY POSITION INDICATOR 


80156 

CECERKCH 

ERASE 

♦DEC, - DEC, CCT INDICATOR 


K015S 

VEPCR EG 

ERASE 

VCRB CCCE 


80160 

NCINR E G 

ERASE 

hCLiN CCCE 


80161 

XBEC 

EFASE 

Rl INPUT buffer 


RG162 

TREG 

ERASE 

R2 INRCT BUFFER 


R0i63 

2REG 

ERASE 

R3 INPUT BUFFER 


RC16A 

XR EGLP 

ERASE 

LC PART CF XREG (FOR DEC CONY tNLYI 


R0165 

VPEGLP 

ERASE 

LC PART CF YP6G (FOR DEC CONV ONLYJ 


R0166 

HllEHCOT 

* YRECLP 

TEMP FCP DISPLAY CF HRS, MIN, SEC 


R0167 



HOST = LCTEMOUT-U 


R0168 

ZREGLf 

ERASE 

LO PART CF ZREG (FOR DEC CONV ONLY! 


R0169 

LCTENCOT 

- ZREGLP 

TEMP FCP DISPLAY OP HRS, MIN, SEC 


R0170 



MOST » HITEMOUT+l. 


Pu 171 

MCCREC 

ERASE 

MODE CCDE 


R0172 

DSf LCCK 

ERASE 

KEYBQAPC/SUBRCUT INE CALL INTERLOCK 


Rdl73 

RECPE1 

ERASE 

RETOPF REGISTER FCP LOAD 


RQ17^ 

LCACSTAT 

ERASE 

STATUS INDICATOR FQB LCADTST 


R0175 

CLP AS! 

ERASE 

PASS INDICATOR CLEAR 


R0176 

NCL 1 

ERASE 

ACTIVITY COUNTER FOR OSPTAB 


R0177 

hClNC ACR 

ERASE 

MACHINE CAOR FOR NOUN 


P0178 

NCR EA\E 

ERASE 

N/V CCCE FOR MONITOR. (» MONSAVEl-U 


80179 

MCNEAVEl 

ERASE 

NCLNCADR FOR MONITOR (MAT8S » =MCNSAVE +l 


R01795 

RCMA\£2 

ERASE 

NVMCNCPT CPTICNS 


Roieo 

CSP lAE 

ERASE *130 

0-IC,CISPLAY PANEL BUFF FR . 1 1- 1 3 , C RELAYS 


ROiei 

CACPSKR 

ERASE 

ENCIOLE storage 


R0182 

NVC UP 

ERASE 

NVSUe STORAGE FOR CALLING ADDRESS 


R0183 



MUST ■ NVBNKTEM-1 


ROieA 

NVEEKUR 

ERASE 

NVSUe STCRAGE FCR CALLING BANK 


RQ185 



must » NVCTEM-*! 


80166 

VEPe</VE 

ERASE 

NEEDED FCR RECYCLE 


R01B7 

CSPL 1ST 

erase 

WAITING REG FOR DSP SYST INTERNAL USE ~ 


RQl 66 

EXTVe 4Cl 

PEASE 

EXTENCEt VERB ACTIVITY INTERLCCK 


80169 

CSF TERl 

ERASE *2 

euFFEP STCRAGE AREA 1 (MOSTLY FGR TIME) 


fiCl90 

CSPTER2 

ERASE ^2 

BUFFER STORAGE AREA 2 (MOSTLY ECR OEG I 


PQ191 

EEC CP ERA!A6LES FESERVEO PGR 

PINBALL EXECUTIVE action 












^^192 

TEHFCRARIES FOR PIEBALL EXECLTIVt AC T ICN 
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R01S3 cse^n • imeis* peturn for cspin 

R019A E^llEP * INT815+ RETURN FOR SCALE FACTOR ROUTINE SELECT 

R0195 BLAFKFEI « INTEIS^ RETURN FOR 2eLANK 


RCISG liPCREI ■ IME IT 1 5 RETURN FCR SfiLANK 

RQ197 rtC PET « INTfllTlS RETURN FCR CSPWO 

ROlse CKRET * IN1BIT15 PETURN FCR PUTCORIDEC LCAO) 

RQ199 2W22PEC • INTfilTlS TEFP FCR CHARIN 


RQ2Q0 UPtnPET - PCLlSH RETURN FCR UPOATNN, UPCATVE 

R0201 CHAP - POLISH TEWP FOR CHARIN 

R0202 ERCNT « PCL ISH COUNTER FCR ERROR LIGHT RESET 

RC203 CECCUN1 * POLISH COUNTER FOR SCALING ANC DISPLAY (DEC) 


R02C4 SQACft - VEUP TERP FCR CN 

P02C5 NOUNTEH = V ELF COUNTER FCR NIXNQUN FETCH 

R0206 CISTEN « VEUF CC LMEP FOR OCTAL DISPLAY VERBS 

R 0 2 07 CECTEN » V EUF CCUNTER FOR FETCH (DEC OtSPLAY VERBS! 


PG2Ge 

KQ2Q9 

SGNCFF 

NVTEMF 

m 

s 

VEUF ♦! 
VEUF *l 

TERR FOP ♦f- CN 

TERP FOP NVSUB 





P02L0 

SFTERFl 

m 

VEUF ♦! 

STCRAGE for SF CONST HI P AF T (*SFTERP2-n 





R0211 

H ITER IN 

m 

VEUF +1 

TERP FOR LOAD OF HRSi MIN, SEC 





P02i2 




MUST - LCTEMIN-l. 





R0213 

CLCE 

« 

VEUF *2 

FOP OSPIN 





R021A 

SFTERF2 

m 

VEUF *2 

STCRACE FDR SF CONST LO PAP T ( = SFTEMP1+ 1 1 





RQ215 

LC1ER IN 

m 

VEUF +2 

TEMP FCR LOAD OF HRSt MlNt SEC 





R0216 




rust *= HITEMIN^I. 





RU21? 

R1 )TENF 

m 

VEUF *3 

FOR NIXNCUN DATA 





R021B 

SICNRET 

m 

VEUF 43 

RETURN FCR -*f- CN 














R0219 

ALSO NIXIERP*! 

=» VeUF-Ki, MXTERF^2 * VElF + 5. 





R0220 

ENTRET 

M 

OCT INC 

EXIT FRCM ENTER 





R0221 

RCCNT 

a 

DCTPET 

CHAR COUNTER FOR CSPNU 





R0222 

1 N R E L 

s 

DCTPET 

INPUT BUFFER SELECTOR ( X»Y,2t REG » 



. 


R0223 

_JifRRUR_ 

a 

MAT INC 

CSFCCUNT SAVE FOR DSPMM 





F022A 

MIXER 

* 

MAT INC 

INCICATCR FOR MIXED OR NORMAL NCLN 





R0225 

TER 1 

ERASE 


EXEC TERP 



- 


R022A 

CSREL 

a 

TEMl 

REL ACCPESS FOR CSPIN 





R0227 

TEN2 

ERASE 


EXEC TEMP 





RQ22e 

CSRAG 

* 

T EM2 

HACNITUCE STORE FOR DSPIN 





R0229 

lOACCTER 

a 

TEM2 

MiXNCUN INDIRECT ADDRESS STORAGE 



- 

■ - 

Ru230 

TER3 

ERASE 


EXEC TEMP 





RC23I 

COLNl 

m 

TER3 

FCR CSPIN 
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Ra232 

TEP4 

EPASE 


EXEC 

TEPP 




F0233 

LSIPTP 

S 

TEP4 

LIST 

FC INTER FOR GRABUSY 





—BikfiJLI 

B 

TEH4 

RETURN FOR PELOSP 




ft0235 

FREEREl 

» 

TEP^ 

RETURN FOR FREECSP 




H(J23fc 

DSF hCPET 

a 

TEP4 

RETURN FCR CSPSIGN 




Pg237 

SEFSCPET 

B 

T EP4 

RETURN FOR SEPSEC 




K0238 

sefpnpei 

B 

T EP4 

RETURN FUR SEPMIN 


' - 

- - 

RQZi5_ 

JLEElS ERASE 


EXEC TEPP 



- * - 

ROZ^O 

NCINACC 

S 

T EPS 

TEPP 

STORAGE FCR NOUN ADDRESS 













RU241 

ANACTEP EFASE 


TEPP 

FCP NOUN ADDRESS TABLE ENTRY 




R0242 

NM VPIEP 

ERASE 


TEPP 

FCP NOUN TYPE TABLE ENTFY 




PC243 

I [ACITEP 

EFASE 


TEPP 

FCP INCIR ACRESS TABLE ENTRYIHIXNNI 




R0244 




MUST 

■ ICA02TEM-1, - IDA03TEP-2. 




R0245 

1CAC2UP 

ERASE 


TtPP 

FCP INOIR AORESS TABLE ENTRY(MIXNN) 




PQ246 




MUST 

« IDAOlTEM+l* • ICA03TEP-i. 




R0247 

ICACaiEP 

EFASE 


TEPP 

FCP INCIR ACRESS TABLE ENTPY(MIXNN) 




R0246 




MUST 

- lDAOlTEM + 2# » IDA02TEP-H. 




RC24S 

RL TPJilEP 

ERASE 


TEPP 

FCP SF RCUT TABLE ENTRY (PIXNN CNLYI 




P0250 

ENC CF TEPFCPARIES FCP PlhBALL 

EXECUTIVE ACTION 





RfliSOl ACLillChAL TEWPQRAPIES FOP PTHBALL EyEClTlVE ACTION 
RC2502 PFACi IHPL HFAC +6 

Pq25Q3 VI, ^2 

PC25C4 eLP2i 4lf ^2 ______ 

RC25C6 HP1EHP 

H C 2 5_g 7 A C_C P> C 

«0250S £PC CF ACCITIONAL TEPPS FCR PINBALL EAEC ACTION 


R0251 

RESERVEC FCR PINBALL INTERRUPT 

ACT ION 



— - — - — . — . 

■ n, »■ 

Ri)2^2 

CSFCN1 ERASE 

COUNTER FOR CSPCUT 




R0253 

A02S^ 

R0255 

UFLCCP ERASE 

ENC CF ERASAELES RESERVEC FOR 

0ITL - UPLINK INTERLOCK (ACTIVATED BY 

PINBALL interrupt ACTION 

RECEPTION OF A EAC MESSAGE IN UPLINK) 


^ 




P0256 TE PPCPAPIES FCB PIMALL IMEPPOFT ACTICP 

P0257 KE7TEPFI » HAHEPIT TEPP PCP KE^RLPT, UPRUPT 

R025e C5PLP 7EP » V<AI1EXiT tEPP fCP CSPCUT 

R025S KET7EPF2 ■ RLPTAGN TEPP FCP KETMLPT, UPRUPT 

Pu260 EPC CF lEPFCPAFIES FOR PIPEALL IMERRLP7 ACTION 


/■ 



I 


: 
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P1N£ALL BUTTONS ANQ ttCt-TS 


LSER'S PAGE NO. 


EO SI 


P0261 
P0262 
AO 2 61 
R02e^ 
KC265 

PC 2 6^ 

PU2fc7 

P026e 

R026ji 

R0270 

BG271 

RC272 


TEE INFCI COCES ASSCPEC FCP TFE KEveCiPC ARE, 

0 iCQCO 

1 CCOCl 

5 OTQCl _ 

VtPE UOCl _____ 

E FPCP RESLCQig 


KEY PISE UOCl 
+ llOlO 

llCll 


n 


EM EP 
CLEAR 
NCLN 


UIQQ 


UUO 
1 1111 


R027a_ CnPLi FCRPAT FOR CISPLAY PANEL. SET CLTl TC A A AABCCCCCDDDC C . 

R027A A-S SELECT A_R|LAYWCflC. THIS CETERHINES PHICH PAIR OF CHARACTERS ARE 
RG275 EREPCUEC. 

R0276 e PCP SPECIAL RELAYS SUCH AS SIGNS ETC« 

R0277 C-S 5 BIT RELAY C OCE FOR LEFT CHAP CF PAIR StLECTEO BY PELAYWCRO 

R0278 C-! 5 BIT RELAY CCCE FOR RIGHTCHAP CP PAIR SELECTED BY RELAYRCRO. 


RC279 

R0260 

R0281 

THE 

PANEL APPEARS AS 

FCLLCPS 

f 





--- 




HC 1 
VCl 

HC2 



NC2 

(PAJCR MCCEl 




VC2 (VERB! 

NCI 

(NCLN) 




P02e2 

RUl 

R 1L2 

RID 3 

RID^ 

R 1C j 

(PU 







R0283 

R2C 1 

P 2C2 

R203 

R 2 b M 

R205 

iP2 1 







R02e4 

R3C 1 

P2C2 

R30 3 

R30A 

R3D5 

(R2 1 








R0285 EACH CP THESE IS GIVEN A CSPCCLNT NUHEEP FOR LSE HlThlN COHPLTATION ONLY 

R02B fc HCl 25 R2D1 11 ALL ARE CCTAL 

R02e7 MC2 2 A R202 10 

R0286 VCl 22 R2D3 T 

R02e<f VC 2 22 R2D^ 6 

R029C NCI 21 R205 5 

flC2^1 NC2 2C R301 A 

P02<J2 RUl 16 R3D2 3 

r6293 R1C2 15 R3D3 2 

RC29A R1C3 U R3DA I 

RICA 12 R205 C 

PC29t R1C5 12 


R02S7 

Kczse 

THERE 

CSFTAE 

IS Ah 11 

RELAYhO 

RECISTER TABLE 

B in 1 

(csptab) for 

eiTs ic-fc 

THE CISPLAY PANEL. 

BITS 5-1 

- - - 

- - - - — — 

R0299 

PEL ACC 








Ra300 

1C 

ICll 


PDi (25 » 

P02 

(2a) 



R0201 

9 

IQIC 


VCl (23) 

V02 

(22) 



R0 302 

6 

1001 


“To! r21 ) 

NC2 

(20) 


i 

RQ3Q3 

7 

KOC 



RlCl 

( 16) 


' 
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PC3U^ 

P0305 

RillGjt- 

6 

5 

cm 

+ R1 

PID2 

( IS ) 

fllD3 

( 14) 



cue 

“Rl 

RlOA 
P-2D 1 

( 13 t 

PICS 

U2) 

(10) 





CIQl 

♦R2 

(11) 

R2D2 


RU307 

3 

C ICC 

-R2 

P2D3 

(7 ) 

R2C4 

(6) 


H 

R0308 

2 

ceil 


P2D5 

(5) 

R301 

(A) 



A£Li£S_ 

_J 

ccic 

♦ B3 

P3D2 

(3) 

R30i 

(2 > 



R0210 

0 

CCO 1 

-B3 

P30A 

( i) 

H3D5 

(0) 



R031I 


CCOC NO 

PELAVtaQRC 








R0312 

TEE 5 £11 

CITPIT RELAY CCCES AR£: 






R0313 

BLAM 

OCCCO 






PC31A 

C 

ICICI 






RG315 

1 

000 II 






R0316 

2 

1 lOCI 






R0317 

3 

non 






R0318 

A 

OIIII 






R031S 

5 

Hi 10 







P0320 6 lllCG 

RC321 7 icon 

P0322 8 __ _ 11101 

R0323 9 mil 




RQ3231 CllPt.1 BITS CStU Et PINBAU: 


mull 

t^EV. RELEASE LlCH 

- BIT 

C 

0 > 

CF 

CHANNEL 

11 



R03233 

VERB/NCUh FLASH 

- BIT 

6 

CF 

CHANNEL 

11 



R0323A 

OPEPATCR ERROR LIGHT 

- BIT 

7 

OF 

CHANNEL 

11 
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FC32A S14P T Ff 17 ^TlVt SECTIcl CF PlhBALL ^ ~ ~ 


C325 A 0.2CQ0 BANK AC i 

Q325C1 REF I A0»2CCC SETLCC PlNBALLl 

€32502 ACi2CC0 BANK 


03255 REF 1 COUNT 40/PIN 


0330 

REF 

14 

LAST 

291 

4Ct2C0C 

3 

4712 

I 

CHAR IN 

CAF 

ONE 

BLOCK DISPLAY SYST 


0331 

REF 

2 

LAST 

18 1 

40t2CCl 

57 

*012 

0 


XCH 

OSPLCCK 

MAKE CSP SYST BUSY, BUT SAVE OLD 


C332 

REF 

1 



40t 2C02 

54 

115 

c 


TS 

21/22PEG 

C(OSPLCCK) FCR ERROR LIGHT RESET. 


03321 

REF 

2 

LAST 

181 

4Qt2C03 

11 

*042 

1 


CCS 

CADK STCP 

ALL KEYS EXCEPT EP TURN ON KR LITE 

IF 

03322 





40 f 2CC4 

0 

2006 

c 


TC 

♦ 2 

CADRSTOR IS FULL. THIS REMINDS OPERATOR 

03323 

REF 

1 



40t2C05 

0 

2013 

1 


TC 

CHAR IN2 

TO RE-ESTABLISH A FLASHING DISPLAY 


C3324 

REF 

1 



4Cf 2CC6 

4 

205? 

c 


CS 

CLRCCDEl 

MHICH HE HAS OBSCURED KITH DISPLAYS 

OF 

03325 

REF 

59 

LAST 

299 

4Cf 2CC1 

tj 

0154 

1 


40 

MPAC 

HIS CKN (SEE PEHARKS PRECEDING ROUTINE 

03326 





4C»2C1C 

u 

0006 

1 


EXTEND 


VBRELCSP ) . 


03321 

REF 

2 

LAST 

3CE 

4Gf 2C 11 

1 

2013 

c 


B2F 

CHAP IN2 



03326 

REF 

1 



40,2012 

0 

4410 

c 


TC 

KELOSPCN 



0333 

REF 

60 

LAST 

308 

40,2013 

56 

154 

1 

CHAR 1N2 

XCH 

MPAC 



0334 

REF 

1 



40,2014 

54 

117 

1 


TS 

CHAR 



0335 

REF 

15 

LAST 

291 

40,2L15 

50 

oco 

1 


INDEX 

A 



0336 





40,2016 

0 

2017 

c 


TC 

♦ 1 

INPUT CODE FUNCTION 


033 7 

REF 

1 



40,20 17 

0 

333 5 

1 


TC 

CHAR ALRM 

0 


0338 

KEF 

1 



40,2020 

0 

2076 

1 


TC 

NUH 

1 


0339 

HEf 

.J. 

LAST 

30E 

40,2021 

0 

2076 

1 


TC 

NUH 

2 


Q34U 

REF 

3 

LAST 

30 E 

40, 2022 

0 

2076 

1 


TC 

NUH 

3 


0341 

REF 

4 

LAST 

306 

40,2023 

0 

2016 

1 


TC 

NUH 

4 


0342 

REF 

K 

LAST 

306 

40,2024 

0 

2016 

I 


TC 

NUH 

5 


0343 

REF 

6 

LAST 

306 

40,2025 

0 

2076 

1 


TC 

NUH 

6 


0344 

REF 

7 

LAST 

306 

40,2026 

0 

2076 

1 


TC 

NUH 

7 


0345 

REF 

1 



40, 2027 

0 

2062 

1 


TC 

89TEST 

10 6 


0346 

REF 

2 

LAST 

306 

40, 2030 

0 

2062 

1 


TC 

89TE ST 

1 1 9 


0 34 7 

REF 

2 

LAST 

306 

40, 2031 

0 

33 3 5 

1 


TC 

CHAP ALP M 

12 


0346 

REF 

3 

LAST 

306 

40,2032 

0 

333 5 

I 


tc 

Char ALP M 

13 


0349 

REF 

4 

LAST 

306 

40,2033 

0 

3335 

i 


TC 

CHAP ALP.H 

14 


C35C 

REF 

« 

41 ^ 

LAST 

306 

40,2034 

u 

3335 

1 


TC 

charalrh 

15 


0351 

REF 

6 

LAST 

306 

^0,2035 

c 

3335 

I 


TC 

charalph 

16 


0352 

REF 

1 

LAST 

306 

40,2036 

0 

3335 

1 


TC 

CHAP ALPH 

17 ■ 


0353 

REF 

6 

LAST 

30 6 

4C,2C3t 

0 

2014 

c 


TC 

NUH -2 

20 0 


0354 

REF 

1 



40, 2040 

0 

2255 

1 


TC 

VERB 

21 VERB 


0355 

REF 

1 



40,204 1 

0 

3504 

c 


TC 

tRPCP 

22 EPRCR LIGHT RE5E' 


0356 

REF 

8 

LAST 

306 

40,2042 

0 

3335 

i 


TC 

CHAP ALPH 

23 


0351 

REF 

9 

LAST 

306 

40,2043 

0 

3335 

1 


TC 

CHARALPH 

24 


0356 

REF 

10 

LAST 

306 

40,2044 

0 

3335 

1 


TC 

CHAR ALPH 

25 


0359 

REF 

1 1 

LAST 

306 

40,2045 

d 

3335 

1 


Tc 

CHAR ALRM 

26 


03 60 

REF 

12 

LAST 

306 

40,2046 

0 

3335 

1 


7C 

ChARALKH 

27 


0361 

REF 

12 

LAST 

30 8 

40,2047 

0 

3335 

1 


7c 

CHARALRH 

3J “ ^ ■ 


C3o2 

REF 

1 



4Q,2C5C 

c 

3362 

c 


TC 

VBRE LCSP 

31 KEY RELEASE 




I 
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05A6 

REF 


LAST 

312 

4Qr 2330 

54 124 

1 

TS 

CODE 


1 

05R7 

REF 

2 

LAST 

312 

40f 2331 

5 6 122 

c 

XCH 

SCNGN 



Q5AJ. 


-2 

LAST, 

313 

4Ct2332 

0 3307 

c 

TC 

1 IDSPIN 



C5A9 

REF 

25 

LAST 

299 

40t2333 

C COCl 

c 

TC 

L 



0550 

REF 

4C 

LAST 

312 

40f2334 

22 0C2 

C -CN 

LXCH 

Q 



0551 

REF 


LAST 

312 

40t2335 

0 2225 

C 

TC 

GETINREL 



0552 

REF 

11 

LAST 

312 

4Ct2336 

5C 137 

1 

INDEX 

INPEL 



0553 

REF 


LAST 

312 

4Cf 2237 

3 2342 

c 

CAF 

SGNTAB -2 



055N 

REF 

3 

LAST 

31 3 

40,2340 

54 122 

I 

TS 

SCNON 


f 

C555 

REF 

19 

LAST 

312 

40,2341 

6 4712 

1 

AO 

ONE 


t 

0556 

REF 

3 

LAST 

313 

40,2342 

54 123 

c 

TS 

SGNOFF 



055? 

RE.f 

1 



40,2343 

0 2323 

1 

TC 

SGNCCP 















0558 





40,2344 

C0005 

1 SGNTAB 

OCT 

5 

-Rl 


0559 





40,2345 

CCG03 

1 

OCT 

3 

-R2 


0560 





40,^346 

CCOOO 

1 

OCT 

0 

-R3 



0561 

REF 

4_1 

LAST 

313 

4C,2347 

22 

002 

c 

SIGNTEST 

LXCH 

0 

ALLOWS CNLY 

WHEN OSPCOUNT-RlOl , 

0562 

REF 

6 

LAST 

31C 

40,2350 

3 

6214 

c 


CAF 

THREE 

R201, OR R3C1. 

ALLOWS CNLY FIRST 

CF 

0563 

REF 

7 

LAST 

312 

40,2351 

7 

1000 

I 


MASK 

DECBRNCH 

CONSECUTIVE ♦/- 

CHARACTERS. 


0564 

REF 

ec 

LAST 

31C 

40,2352 

1C 

000 

c 


CCS 

A 

IF LCW2 BITS CF 

DECBRNCH NOT* 0, 

SIGN 

0565 

REF 

27 

LAST 

312 

40,2353 

0 

5112 

c 


TC 

ENOOFJCe 

FOR THIS WORD ALREADY IN, REJECT, 


C566 

REF 

2 

LAST 

226 

40,2354 

4 

4333 

1 


CS 

RlCl 




0567 

REF 

1 



40,2355 

0 

2363 

c 


TC 

SGNTSTl 




€566 

REF 

1 



40,2356 

4 

4334 

c 


CS 

R2D1 




0569 

REF 

2 

LAST 

313 

40,2357 

0 

2363 

c 


TC 

SGNTSTl 




C57C 

REF 

1 



40,2360 

4 

4335 

1 


CS 

R301 




0571 

REF 

2 

LAST 

313 

40,2361 

0 

2363 

c 


TC 

SGNTSTl 




0572 

REF 

28 

LAST 

313 

40,2362 

0 

5112 

c 


TC 

tNDOFJCP 

NO MATCH FCUNO. 

SIGN ILLEGAL 


C573 

REF 

12 

LAST 

312 

40,2363 

6 

0777 

c 

SGNTSTl 

AO 

OSPCCINT 




0574 





40,2364 

0 

0006 

1 


EXTEND 





0575 





40,2365 

1 

2367 

c 


02F 

♦ 2 

HATCH FOUND 



0576 

REF 

42 

LAST 

312 

40,2366 

0 

0002 

c 


TC 

0 




0577 

REF 

26 

LAST 

312 

40,2367 

0 

0001 

c 


TC 

L 

SIGN LEGAL 




P0578 CLE/P blanks KUCh Rl» Rit R3 IS CURRENT CR LAST TO BE D I SPL AYEOt PER T INE 
R«7q NT XREC t YREG iZREG IS CLEARED! . SUCCESSIVE CLEARS TAKE CARE CF EACH RX 

R 0 5 e d L / PC UNTIL Rl IS CCNE. TEEN NC FURTHER ACTICN “ 

i 

ROjei TEE SING LE CCPPONENT LOAD VERES ALLOW CNLY THE SINGLE PC THAT IS 

RC5e2 A F f P 0 FTFaI E T Q B E C L E AR E C . ~ 


PQ5_e3 CLfASS PASSCi CAN BE EACKEC UP 

ROSBA 4NZ hlPASSt CAN BE EACKEC UP 

R05fi5 -N2 PASSOi CANNLt BE EACKEC UP ' 


I 
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G^FE 
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EO S9 

05&6 

H£f 

13 

L^ST 

313 

90i237Q 

10 777 

1 

CLEAR 

CCS 

DSPC CLNT 



0587 

flEF 

iC 

L/ST 

313 

90,2371 

6 9712 

1 


AD 

ONE 



0586 





90,2372 

0 2379 

0 


TC 

♦ 2 



058'5 

REF 

a 

LiST 

319 

90,2373 

6 97 12 

i 


AO 

ONE 



059C 

RfcF 

81 

LUST 

313 

90,2379 

50 000 

1 


INDEX 

A 

DO NOT CHANGE OSPCCUNT BECAUSE 

MAY LATEM 

0591 

-FLE f 


LUST 

_3Jl1_ 

90,2375 

3 2231 

c 


CAF 

INRE LTUe 

FUIL LEGALTST, 


0592 

REF 

12 

LUST 

313 

90,2376 

59 137 

c 


TS 

INRE L 

MUST SET INPEL, EVEN FCR HIPASS. 

0593 

REF 

6 

LUST 

312 

90,2377 

11*015 

c 


CCS 

CLPU5S 



0599 

REF 

1 



90,2900 

0 2906 

1 


TC 

C L P A I 

♦ 


0595 





90,2901 

0 2903 

1 


TC 

♦ 2 

♦0 IF CLPASS IS +0 CH IT 

IS PASSQ 

0596 





90,2902 

0 2903 

1 


TC 

♦ 1 

- 


0597 

REF 

13 

LUST 

319 

90, 2903 

3 013? 

1 


CA 

INREL 



0598 

REF 

1 



90,2909 

6 2930 

1 


TC 

LEGALIST 



0599 

REF 

1 



9C,29C5 

0 2923 

0 


TC 

CLEARl 



0600 

REF 

H 

LUST 

319 

A Q f 2 406 

1C 137 

c 

CLPASHI 

CCS 

INPEL 



06 01 

REF 

15 

LUST 

319 

90,2907 

59 137 

c 


TS 

INRF L 



06C2 

REF 

2 

LUST 

319 

90,2910 

0 2930 

1 


TC 

LEGALTST 



0603 

REF 




90,2911 

3 2500 

c 


CAF 

ULiUBLK +2 

♦3 TO - NUMBER. BACKS DATA REQUESTS. 

0609 

REF 

3 

LUST 

312 

90,2912 

27*013 

c 


AOS 

RECR ET 



0605 

REF 

16 

LUST 

319 

90, 2913 

3 0137 

1 


CA 

INPEL 



0606 

REF 

1 



90, 2919 

59 125 

t 


TS 

M IXT EFP 

TEMP STORAGE FOR INREL 


0607 





90,2915 

0 0006 

1 


EXTEND 




0608 

REF 

7 

LUST 

312 

40,2916 

27*001 

d 


CIM 

VEB8REG 

DECREMENT VERB AND RE-CISPLAY 


0609 

REF 

36 

LUST 

299 

90,2917 

0 9555 

c 


TC 

BANKCALL 



0610 

REF 

1 



90, 2920 

62337 

i 


CAOR 

UPDA TVS 



0611 

REF 

2 

LUST 

319 

90,2921 

3 Q125 

1 


CA 

MI XT ENP 



0612 

REF 

17 

LUST 

319 

90,2922 

59 137 

c 


TS 

INPEL 

RESTCRE INREL 


0613 

REF 

1 



90,2923 

0 2926 

c 

CLEAHI 

TC 

CLR5 



0619 

REF 

7 

LUST 

319 

90,2929 

25*015 

1 


INCR 

CLPASS 

ONLY IF CLPASS IS ♦ OR >0 , 


0615 

REF 

29 

LUST 

313 

90,2925 

0 5112 

c 


TC 

ENDOF JCB 

SET FOR HIGHER PASS. 


0616 

REF 

93 

LUST 

313 

90,2926 

22 002 

c 

CLR5 

LXCH 

Q 

USES SBLANK BUT AVOIDS ITS TC 

GET INREL 

0617 

REF 

1 



90,2927 

0 2991 

1 


TC 

SeLANR *2 



.0616 

REF 

2 

LUST 

226 

90,2930 

6 77 15 

c 

LEGAL7ST 

AO 

NEG2 



0619 

REF 

62 

LUST 

319 

90,2931 

10 COO 

c 


CCS 

A 



0620 

REF 

99 

LUST 

31 < 

90,2932 

C 0002 

0 


TC 

Q 

LEGAL INREL G/ 2 


ac21 

REF 

2 

LUST 

31 1 

90,2933 

0 5692 

1 


TC 

CCSHCLE 



0622 

REF 

3C 

LUST 

319 

90,2939 

0 5112 

c 


TC 

ENOCFJCB 

ILLEGAL “TNREL- “CTT 


0623 

REF 

95 

LUST 

319 

90,2935 

0 C0C2 

c 


TC 

u 

LEGAL INREL - 2 


H0629 

5el4^H eiAFKS 

5 CFUP 

C ISPLAV 

ViCRO IN 

FI 

, R?, OR 

R3, IT 

ALSO 2ERCES XREG, 

— 


R J625 

YBEC 

• CP 

2REG 

•PLACE 

ANY ♦ CSPCCLNT NUFBER FOR PERTINENT 

RC INTO OSPCOLNT 



R0626 

CSFCCIM 

IS LEFT SET 

TC LEFT 

FCST CSP 

' FLPF FOR RC JLST 

EL ANKEC. 



0627 

_REF 

19 

LUST 

319 

90,2936 

59 777 

1 


IS 

DSrC CLNT 

NEECEC FOR CLANKSUe 


0628 

REF 


LUST 

314 

40,2937 

22 002 

c 

SeLANK 

LXCH 

0 



0629 

REF 

9 

LUST 

313 

90,2990 

0 2225 

c 


TC 

GET INREL 



0630 

REF 

39 

LUST 

312 

90,2991 

3 9719 

1 


CAF 

2 ERL 



0631 

REF 

16 

LUST 

319 

90,2992 

50 137 

1 


INDEX 

INRE L 



0632 

REF 

e 

LUST 

314 

90,2993 

55*CCl 

c 


TS 

VERBREC 

ZERO X, Y, Z PhC. 
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0633 

HEF 

19 

LAST 

314 

40t2444 

5C 137 

1 

INDEX 

I NF E L 


0634 

REF 

1 

LAST 

3U 

40*2445 

55*0C4 

C 

TS 

XPEGLP -2 


0635 



. 4__ 

LAST 

313 

4Ct 2446 

54 124 


TS 

CCCE 


0636 

REF 

2C 

LAST 

315 

40i2447 

5C 137 

1 

INDEX 

INF EL 

ZERO PERTINENT CEC COMP BIT. 

06 37 

REF 

27 

LAST 

312 

40# 2450 

^ 4 7 04 

1 

CS 

R IT7 

PROTECT OTHERS 

0636 

REF 

_je_ 

LA.SJ 

312 

40.2451 

7 1000 

1 

NASK 

DtCbPNCH 


0639 

REF 

1 



4G»2452 

7 25C1 

c 

MASK 

BRNCHCCN 

ZERO LOW 2 BITS. 

0640 

REF 

9 

LAST 

315 

40,2453 

55'OCC 

1 

TS 

DECBPNCH 


0641 

REF 

21 

LAST 

315 

40,2454 

5C 137 

1 

INDEX 

INRE L 


0642 

REF 

1 



40, "2455 

3 2471 

1 

CAF 

SINBLANK -2 

BLANK ISOLATEC CHAR SEPARATELY 

0643 

REF 

2 

LAST 

309 

40,2456 

54 143 

c 

TS 

CCUN T 


0644 

REF 

2 

LAST 

309 

40,2457 

0 3225 

1 

TC 

DSPIN 


0645 

REF 

^ A 

it 

LAST 

315 

40,2460 

5C 137 

1 

SBLANKl INDEX 

I NR EL 


0646 

REF 

m 

i 

LAST 

314 

40,2461 

3 2474 

1 

CAF 

DOUbLK -2 


.QA4 7 

REF 

.11 

LAST 

-314 

40.2462 

54 777 

1 

TS 

DSPCCUNT 



064 6 

REF 

2 

LAST 

312 

40,2463 

0 2502 

1 

TC 

26LANK 

0649 

REF 

€ 

LAST 

312 

40,2464 

4 4 711 

C 

CS 

Twe 

065C 

REF 

1.6 ■ 

LAST 

315 

4C.24t5 

26 7 77 

1 

AOS 

OSPCCLNT 


0651 

REF 

3 

LAST 

315 

40,2466 

0 2502 

1 

TC 

ZBLANK 

0652 

REF 

23 

LAST 

315 

40,2467 

5C 137 

1 

INDEX 

INREL 

0653 

REF 

3 

LAST 

312 

4Ct247C 

3 4331 

1 

CAF 

RlOl -2 


065A REF 17 L/ST 315 ACt2^7l 5A 777 1 7S DSPCCUNT SET CSPCOUNT TO LEFT HCST OSP NUHBFR 

0655 REF il LAST 313 ^0,2A72 C 0001 C Tt L OF REG. JUST BLANKED 


0656 

0667 

4C. 2473 

CCC16 

C 

1 

c 

SINBLANK 

CCT 

OCT 

OCT 

16 

5 


DEC 

14 

40, 2474 

C0005 




0656 

40,2475 

C00C4 

4 



0659 

40,2476 

CG015 

c 

OOUBLK 

OCT 

15 


DEC 

13 

C66C 

40,2477 

COOll 

1 


OCT 

1 1 


CEC 

9 

C661 

40,2500 

C0003 

I 


CCT 

3 





0662 <i0t2 501 7777^ C BRNCHCON OCT 7777A 


R0663 2eLAM' BLAFKS TWO CFAP. PLACE CSP NUNfiEP OF LEFT CHAR CF THE PAIR INTO 
R066<t CSfCCLM. IHIS NUFBER IS LEFT IN DSPCCUNT 


0665 

REF 

16 

LAST 

31! 

4C,2502 

3 0777 

c 

2eL INK 

CA 

DSPCCUNT 




C666 

REF 

4 

LAST 

26C 

40,2503 

54 021 

c 


TS 

SF. 




Oq67 

REF 

1 



4C,2SC4 

4 2515 

C 


CS 

BLANKtCN 




0666 





40,25C5 

C 0004 

c 


INHINT 





0669 

REF 

5 

LAST 

315 

40,2506 

50 021 

1 


INDEX 

SR 




0670 

REF 

2 3 

LIST 

166 

4C,25C7 

57*023 

1 


XC H 

DSPT AB 




0671 





40,2510 

0 0006 

1 


EXTEND 





0672 





40,2511 

6 2513 

1 


8ZMF 

♦ 2 

IF 

CLC CONTENTS -, 

NCUT OK 

0673 

REF 

6 

LAST 

187 

40.2512 

25*016 

1 


INCR 

ncut 

IF 

OLC CONTENTS +, 

♦1 TO NCUT 

06 74 





40,2513 

0 0003 

1 


KEL INT 


IF 

~rNCiuT Ok 


0675 

RFF 

47 

LAST 

314 

40,2514 

C CQC2 

c 


TC 

0 




0676 





40, 2515 

C4CC0 

c 

BLANKCGN 

OCT 

400C 
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PG677 EMEP PASS 0 IS TEE EXECUTE FCNCTICN# hlCHER CRCER ENTthS ARE TO LOAD 
RQ678 CAIA, TFE SIGN OF REQRET CETEPHlNtS TfE PASS# ♦ FOR PASS C,- FCP HIGHER 

RQ679 P/iJLS* 


KflfcfiQ RACF JhE CACR TC BE SPECIFIED CMCTBSI ^CE^S CESIKE AN ECADR TC BE LCAQED 
R0681 WHEN ISEC WITH LOAD VERBS# MCMTOR VERBS# OR CISPLAY VERBS f EXCEPT 

Rate2 VERB * FIXIC PEMCPY CISPLAY# WHICH P6GLIRES AN FCAORI. 


06B3 

G<7B3C1 

REF 




41,2CO0 

41,2COO 




BANK 

SETLCC 

41 

PINbALL2 

- 

G6B3C2 





41(2000 




BANK 



CABi 3 

REF 

1 







COUNT 

41/PIN 














OoBA 

REF 

1 



41, 2000 

0 3534 

C 

NVSLBB 

TC 

NVSUBl 

STANCARO LEAD INS. OCNT MCVE. 

06QS 

REF 

1 



41(2001 

0 2771 

1 

LOAOLVl 

TC 

LOACLV 


AG6B6 











END CF STANOARC LEAD INS. 

0667 

REF 

AO 

LAST 

314 

41,2002 

3 4714 

1 

ENTER 

CAF 

ZEKC 


0666 

REF 

e 

LAST 

314 

41«2CC3 

55*015 

C 


TS 

CLPA SS 


C669 

REF 

2 

LAST 

312 

41.2C04 

3 4233 

1 


CAF 

ENOINST 


SC 

REF 

2 

LAST 

312 

A1,2CC5 

54 136 

I 


TS 

ENTRET 


C691 

REF 

A 

LAST 

31A 

4 l(2CC6 

11*013 

c 


CCS 

REQR ET 


0692 

RE-F 

_jL_ 



A 1 1 2 C C 7 

0 2035 

c 


TC 

ENTPASO 

IF ♦# PASS 0 

0693 

REF 

2 

LAST 

316 

4 1 , 2 C 1 C 

0 2035 

c 


TC 

ENTPASC 

IF ♦, PASS C 

0694 





41. 2011 

0 2012 

c 


TC 

♦ 1 

IF -# NOT PASS 0 

C695 

REF 

1 



41# 2C12 

3 2033 

c 

ENFPASHl 

CAF 

MHAOREF 


0696 

REF 

5 

LAST 

316 

41,2C13 

6 1013 

1 


AO 

REGRET 

IF L/ 2 CHAP IN FOR KM CODE# ALARN 

0697 





41(2C14 

0 0006 

1 


EXTEND 


AND RECYCLE (CEC IDE AT HNCHANC + 1). 

0696 

REF 

1 



41,2C1S 

1 2027 

1 


0ZF 

ACCEPTHD 


0699 

rTf 

7 

LAST 

313 

41#2C16 

3 6214 

c 


CAF 

THREE 

IF CEC# ALARM IF L/ 5 CHAR IN FOR DATA, 

0700 

REF 

1C 

LAST 

315 

41(2C17 

7 lOQo 

1 


MASK 

DEC6RNCH 

BUT LEAVE REQRET - ANO FLASH ON, SC 

0701 

REF 

63 

LAST 

31 A 

4l(2C2C 

1C oco 

0 


CCS 

A 

OPERATOR can SUPPLY MISSING NUMERICAL 

0702 





41,2021 

0 2023 

1 


TC 

<•2 

CHARACTERS ANC CONTINUE. 

07l3 

REF 

2 

LAST 

316 

4 1(2022 

0 2027 

c 


TC 

ACCE PTRO 

OCTAL. ANY NUMBER OF CHAR OK, 

0 7 OS 

REF 

19 

LAST 

315 

4I.2C23 

IC 77 7 

1 


CCS 

DSPCCLNT 


u 706 

REF 

1 



41# 2024 

0 2350 

c 


TC 

GODSPALR 

LESS Than 5 ChAp OecFdspCOunT I s 

0706 

REF 

2 

LAST 

316 

41#2C2S 

0 2350 

t 


TC 

GODSPALN 

LESS Than 5 char OECIOSPCCUNT is +) 

0707 





41#2G26 

U 2027 

c 


TC 

*1 

5 CHAR IN (CSFCCUNT IS -1 

0706 

REF 

6 

LAST 

316 

4 1,2C27 

4 1013 

c 

ACCEPIRC 

CS 

P EUR El 

5 CHAR IN (CSPCCUNT IS -1 

0 7 09 

REF 

7 

LAST 

316 

41,2030 

55*013 

G 


TS 

REOF E7 

SET REQRET ♦. 

0710 

REF 

2 

LAST 

23 1 

41 #2031 

0 4447 

1 


TC 

FLASFCFf 


0 711 

REF 

6 

LAST 

316 

41,2032 

0 1013 

1 


TC 

RtCRET 


0712 

REF 

3 

LAST 

316 

0136 



ENTEXIT 


ENTRET 


0713 

REF 

1 



4 1 , 2 03 3 

03421 

c 

RHACREF 

AORES 

HHCHANC +1 

ASSURES TC RECMM AT MMCHANG. 
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071A 





Alt2C3A 

00C3A 

0 

LOW VERd 

DEC 

28 

LOWER VERB THAT AVOIDS NOON TEST. ( J 














07X5 



4i 

LAST 

316 

A1.2C33 

3 A71A 

J_ 


CAF 

ZE-KC 

NOUN VERB sue ENTERS HERE 

0716 

REF 

11 

LAST 

316 

A1,2C36 

55'OCC 

1 


TS 

OECbRNCH 


0717 

REF 

3 

LAST 

312 

A l,2C37 

A A3 7A 

1 


CS 

VDl 

BLOCK FURTHER NLH CHAR, SO THAT STRAY 

Q 7 13 

REF 

20 

LAST 

316 

A1.20A0 

5A 777 

JL_ 


TS 

DSPCCLNT 

CHAR CC NCT GET INTO VERB OR NOUN LTS. 

071S 

REF 

9 

LAST 

314 

A1,2CA1 

A 1001 

c 

lESTve 

CS 

VERfcREC 

If VERB IS G/E LOWVB, SKIP NCLN TEST. 

0720 

REF 

1 



A It 20A2 

55*0A1 

1 


TS 

VCR bSAVE 

SAVE VERB FCR POSSIBLE RECYCLE. 

0721 

_RiE 

1 



A1.20A3 

6 2034 

1 


AO 

LOWVERd 

LCWVER8 - VB 

0722 





A1 ,2CAA 

0 0006 

1 


EXTEND 

VERBFAN ^ 


0723 

REF 

1 



A1,20A5 

6 2133 

1 


eZMF 

VERB G/E LCWVERB 

QJZA 





A1.20A6 

Q 0006 

1 

TESTNN 

EXTEND 


VERB L/ LCVVER6 

0725 

REF 

1 



Al, 20A7 

3 211A 

1 


OCA 

LUDNNLCC 

SWITCH BANKS TO NOUN TABLE READING 
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Al,2522 

7 621A 

1 


MASK 

THF EE 




1088 

REF 

■A^ 

LAST 

_32C 

Alt2S23 

5A in 

1 


TS 

OECCLNT 

CCMP NUMBER INTC OECOUNT 



1089 

REF 

1 



Alt 2 52A 

5A 122 

i 

CSPCCGET 

TS 

DECT EM 

PICKS UP DATA 



1090 

REF 

9 

LAST 

326 

A 1,2525 

6 C1A5 

1 


AO 

NOGNAOD 

DECTEM ICCMP *0, 2C0MP ♦!, 

3C0MP +2 


1091 

REF 

C C 

i ^ 

LAST 

326 

A1.2526 

5C OGC 

1 


INDEX 

A 




1092 





Al,2527 

A 0000 

c 


CS 

0 




1093 

REF 

2 

LAST 

326 

A 1,2 530 

5C 122 

c 


INDEX 

DECTEM 




109A 

P.EF 

2 

LAST 

26A 

Al,2531 

57*0Ci 

c 


XCh 

XFEG 

CANT USE euF SINCE OMP USES 

IT. 


1095 

REF 

3 

LAST 

326 

Al,2532 

10 122 

1 


CCS 

DECT EM 

MGRE TC GET 



1096 

REF 

1 



A1,2S33 

0 252A 

c 


TC 

OSPOCGET 



1097 

REF 

A2 

LAST 

317 

Al,253A 

3 A71A 

1 

DSPDCPUT 

CAF 

2EPC 

DISPLAYS CITA 



1096 

KEF 

7A 

LAST 

325 

Al,2535 

5A 155 

1 


TS 

MPAC +1 

DECQINT ICCMP *0, 2Ct>P ♦!, 

3C0MP *I 


1099 

REF 

75 

LAST 

326 

Aly2S36 

5A 156 

1 


TS 

MPAC +2 




1100 

REF 

f; 

LAST 

326 

Al,2537 

50 117 

c 


INDEX 

CECOCKt 




1101 

REF 

6 

LAST 

32A 

A1,25A0 

3 A333 

c 


Uf 

RiOl 




1 102 

REF 

2 6 

LAST 

32A 

Al,25Al 

5A 777 

1 


TS 

DSPC CUNT 




1103 

REF 

6 

LAST 

326 

A1,25A2 

5C in 

c 


INDEX 

DECCLKT 




IlOA 

REF 

3 

LAST 

326 

A 1,25A3 

A 1003 

i 


CS 

XPEG 




1109 

REF 

76 

LAST 

326 

A 1,25AA 

5A 15A 

c 


TS 

^MPTTC 




1106 

REF 

1 



A1,25A5 

0 3dA2 

1 


TC 

SFCCMiM 

2X( SF CON NUMB I IN A 



1107 

REF 

7 

LAST 

32! 

A1,25A6 

5A 123 

c 


ts 

Sr tf MPl 




1108 





A 1, 29A7 

Q 0006 

1 


Extend 


SklTCH 0AHKS TO SF CONSTANT 

TABLE 



R 


I 
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C31 


HI? AUG. 2^11968 KOOLAD& .06A PAGE 327 


PINJALL CAht BUTTCNS ANC LIGHTS 


USER’S PAGE NO 


28 


EO SA 


1109 

1110 
lUi 

REP 

REF 

REP 

1 

6 



LAST 

52 1 

Al,2550 

Al,255l 

3 2562 
52 0C6 
5C lAG 

1 

C 

_1_ 

- 

OCA 

DXCH 

INDEX 

GTSFCUTL 

L 

MiXfcP 

REACING PCLTINE. 

LOADS SFTERFl, SFTEMP2. 




1112 





A 1 ,2553 

0 

2553 

c 


TC 

♦0 




1113 

REF 

1 



A 1 , 2 5 5 A 

0 

2557 

1 


TC 

DSPSFNCR 




U19 _ 

REf 

2 

LAST 

32C 

Al,2555 

c 

302? 

1 


TC 

SFKU7R IX 




1115 

REF 

1 



Al,255e 

0 

2 572 

c 


TC 

CeCDSP3 



- 

lilt 

Rfi . 

2_ 

LAST 

AZt 

A1j2357 

_J1 

2021 

_L_ 

OSPSFNOR 

1C 

SFRU7FCF 




111? 

REF 

2 

LAST 

32? 

Al,25fcO 

0 

2572 

c 


fc 

0ECDSP3 



















1118 

RtF_. 


LAST 

32 1 

□ 777 





EBANK» 

DSPC CLM 




1119 

REF 

1 



Al,2561 


C212Q 

c 

G7SF0UTL 

2CA0R 

GTSFCLT 




1119 

PEF 

1 



Al,2562 


6A101 

c 








1120 

REf 

AC 

LAST 

32 1 

Al,2563 

0 A553 

C 

CSPCCEND TC 

BANKCALL 

ALL SFCUT fiCUTIRES END HERE 

1121 

REF 

1 



A1,256A 

61131 

C 

CAOR 

PSPOeCRD 


1122 

REf 

7 

LAST 

32 ( 

Al,2565 

1C 117 

1 

CCS 

"U EC CL NT 


1123 





A1 ,2566 

0 2570 

1 

TC 

♦ 2 


U2A 

RIP 

A 

LAST 

32A 

Al,2567 

0 C136 

c 

TC 

ENTEXIT 


1125 

REF 

8 

LAST 

32 7 

A1,257C 

5A 117 

1 

TS 

OEfClNT 


1126 

REF 

1 



Al,25?l 

0 253A 

1 

TC 

OSPDCPUT 

MGRE TC DISPLAY 



1127 

1128 

REF 

REf 

96 

1 

LAST 

326 

A1 ,2572 
Al,2573 

5C 000 

3 2575 

1 

1 

CECCSP3 

INDEX 

CAF 

A 

SFUUTABP 


- 

1129 

REF 

2 

LAST 

318 

Al,257A 

0 A577 

C 


TC 

BANK JURP 


. 

113Q 

Ri.F 

_L_ 



Al,2575 

61321 

c 

SFOITABR 

CAOR 

PRt DSPAL 

ALARR IF CEC CISP MITH OCTAL ONLY NOUN 

- — — - 

1131 

REF 

1 



Al,2576 

62563 

c 


CAOP 

DSPOCENO 



1132 

REF 

1 



Al,2577 

6C516 

c 


CADR 

OECGLTSF 



1133 

REF 

1 



Alt260C 

60603 

1 


CADP 

APTfLTSF 



U3A 

REF 

1 



Al,2601 

6061A 

1 


CADP 

DPICLTSF 



1135 

REF 

1 



Al,2602 

60621 

1 


CAOR 

rjP2CLTSF 



1136 

REF 

1 



A1.26C3 

6C52A 

1 


CADP 

OPDEGCUT 



1137 

REf 

1 



Ai,26CA 

60623 

c 


CADR 

DP30L7SF 



1138 

REF 

1 



A1,26C5 

65iA3 

1 


CAOR 

HRSCLT 



1139 

REF 

1 



A1,26C6 

652 16 

1 


CADR 

M/SCLT 



llAO 

REF 

2 

LAST 

32 7 

A 1,2607 

6C621 

1 


CADR 

DP20LTSF 



llAOl 

REF 

1 



A 1 , 26 10 

60610 

c 


CAOR 

AROUTISF 



1 1A02 

REF 

1 



Al,2611 

60636 

1 


CACR 

2 INTCUT 



llAl 





Al,2612 



ENORTQUT 

eouals 




Rll<»2 THE FOLLOlflNG IS ATYPICAL SP PCLTINE . IT USES MPAC, LEAVES RESU 

Rll^3 LTS Ih HPAC, MPAC4I. ENDS hlTh TC CSPCCENO 


UAA REf 2 LAST 315 AO, 2516 


SETLCC OLANKCCN *l 
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11^45 REF 2 CA5T 306 TC 3U: 33A 33 A< COONT 40/P IN 

JU1.45 ceCCLISP SCALES BV .IB THE LCn 14 BITS QF ANGLE t ALOING .16 FOR 

P1146 NLBEEPS IN THE NEGATIVE (AGO RANGE. 


114? 

P_LL_ 

. 41- 


326 

40.2516 


4714 1 

-CiCOOUF CAP 

ZERO 






1148 

REF 

77 

LAST 

326 

4C)f2517 

54 

156 

1 

TS 

MPAC +2 

SET 

INDEX FCR fill SCALE 




1149 

REP 

1 



40.2520 

0 

2555 

C 

TC 

F IXP ANCE 






U5t_ 





40.2521 

0 

2523 

1 

TC 

♦ 2 

NO 

AUGMENT NEEDED ISFTENPl 

AND 2 

APE 0 ) 


1151 

REF 

1 



40.2522 

0 

2550 

c 

TC 

SETALG 

SET 

ALGMENTER ACCQRU INC TO 

CIMPAC 

♦2 I 


1152 

REF 

1 



40,2523 

0 

2566 

c 

TC 

OE&CCP 







R1153 QfCECCLl SCALES BY ,45 (TPE RANGE IS SC CEGRE6S) ANO ACLS A 2C OEG BUS. 


1154 

R£F 

76 

LAST 

321 

40 12124 

IC 154 

C 

OPOfcGCUT 

CCS 

MPAC 

RANGE IS 90 OEG 


1155 

REF 

79 

LAST 

326 

40,2525 

56 154 

1 


XCH 

MPAC 

IF PCS OR PCS 0 THEN ADO BUS AND 


1156 





40,2526 

0 2531 

I 


TC 

♦ 3 

CORRECT FOR PCSSIBLE OVERFLOW 


1157 

REF 

1 



40,2527 

0 2540 

1 


TC 

NEGOPT 

IF NEG NON ZERO 


1158 

REF 

4 

LAST 

296 

40,2530 

6 77 16 

c 


AO 

NEGl 

IF NEG ZERC StBTRACT 1 


1159 

REF 

1 



40,2531 

6 26C2 

1 


AO 

20bl AS 



1160 

REF 

ec 

LAST 

326 

40,2532 

5 4 154 

c 

eiAscoN 

TS 

MPAC 

TEST FCR CVEPFLCW 


1161 





40,2533 

0 2536 

c 


TC 

^3 

NO OVFLOM 


1162 

REF 

<2 

LAST 

ill 

40,2534 

3 46 74 

c 


CAF 

BITl 5 

IF CVFLOr 


1163 

REF 

61 

LAST 

328 

40,2535 

26 154 

c 


AOS 

MPAC 



1164 

REF 

13 

LAST 

324 

40,2536 

3 471 1 

1 


CAF 

TNG 

SET PLLTIPLIER TO .45 


1U5 

REF 

2 

LAST 

327 

40,2537 

0 2517 

c 


TC 

DECOLTSF *l 



1166 

REF 

62 

LAST 

32 6 

40,2540 

56 154 

1 

NEGOPT 

XCH 

MPAC 

NEGATIVE CASE 


1167 

REF 

2 

LAST 

326 

40,2541 

6 2602 

1 


AO 

2061 AS 



1166 

REF 

4? 

LAST 

327 

40,2542 

IC OCO 

c 


CCS 

A 



1169 

REF 

1 



40,2543 

0 2532 

1 


TC 

81 ASCCN 

IF PCS THEN SLBTRTcTI BECAUSE OF 2StON 


1170 

REF 

4 

LAST 

325 

40,2544 

0 5642 

1 


TC 

CCSHCLE 



1171 

REF 

26 

LAS! 

325 

40,2545 

6 4712 

1 


AC 

ONE 

IF NEG HES7CPE SUM 


1172 





40,2 546 

4 0000 

c 


COM 


If nEG 6 LEAVE NEG 0 


1173 

REF 


LAST 

326 

40,2547 

0 2532 

1 


TC 

Bl ASCCM 
















1174 





40,2550 

C OOC6 

1 

SETAOG 

extend 


LOADS SFTEMPl ANO SFTEMP2 WITH THE 


1175 

REF 

63 

LAST 

32 6 

40,2551 

5 0156 

c 


INDEX 

MPAC +2 

OP AOGMENTER CONSTANT 


1176 

REF 

1 



40,2552 

3 257 7 

c 


OCA 

OEGTAE 



1177 

REF 

8 

LAST 

326 

40,2553 

52 124 

1 


OXCH 

SftepPI 



1178 

REF 

67 

LAST 

326 

40,2554 

C 00C2 

c 


TC 

0 
















11 79 

REF 

64 

LAST 

326 

40,2555 

IC 154 

c 

FiXRANGE 

CCS 

MPAC 

IF MPAC IS ♦ RETURN TO L^-l 


1160 

REF 

66 

LAST 

326 

40,2556 

0 0002 

c 


TC 

Q 

IF MPAC IS - RETURN TO C+2 AFTER 


1161 

REF 

69 

LAST 

326 

40,2557 

0 0002 

c 


TC 

0 

MASKING OUT THE SIGN BIT 


1162 





40,2560 

1 25EI 

c 


TCF 

♦ 1 



1163 

REF 

23 

LAST 

32 6 

40,2561 

4 46 74 

1 


c$ 

a 1 T 1 5 



1184 

REF 

E5 

LAST 

32 6 

40,2562“ 

7 0154 

c 


MASK 

MPAC 



1185 

REF 

£6 

LAST 

326 

40,2563 

54 154 

c 


ts 

WPIZ 



1186 

REF 

TC 

LAST 

326 

40,2564 

9C 0C2 

c 


INDEX 

0 
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1187 





AO, 2 565 

0 COCl 

C 

TC 

1 


iifia 





AQ.2566 

Q 0006 

_i CiQCQM 

EXTENC 


LOADS MULTIPLIER , DOES SHCRTMF, AND 

1169 

REF 

E7 

LAST 

326 

AO, 2567 

5 0156 

C 

INDEX 

MPAC *2 

ADOS AUGHENTER. 

1190 

REF 

2 

LAST 

32E 

A0,2570 

3 2577 

C 

OCA 

DECT AE 


1191 

RIF 

It 

LAST 

32S 

A0*2571 

52 155 

1 

UXCH 

MPAC 

ADJUSTED ANGLE IN A 

1192 

REF 

A 

LAST 

31C 

AC, 2572 

0 7256 

1 

TC 

SHORTPP 


1193 

REF 

9 

LAST 

32E 

AC, 2573 

52 12A 

1 

OXCH 

SFTE RPl 


119A 

REF 

69 

LAST 

329 

AO, 257a 

20 155 

1 

OAS 

MPAC 


1195 

REF 

1 



AC, 2575 

0 2606 

c 

TC 

SCLiUTEND 



1196 

1197 
U98 





AO, 2576 
AO, 2 57 7 
AC, 2600 

05605 

C3656 

1631A 

I 

1 

C 

CEGTAB 

OCT 

OCT 

OCT 

05605 

03656 

1631 A 

HI PART OF 

LCM PART OF 

HI PART OF 

.18 
.16 
•A 5 

1199 





AO, 2601 

31A63 

1 


OCT 

3iA63 

LC PART OP 

• A 5 

i2ao 




— 

AQ.2602 

160A0 

J_ 

20e IAS 

OCT 

160 AC 

20 DEC BIAS FCR OPTICS 

1201 

REF 

10 

LAST 

329 

AG, 2603 

52 12A 

1 

ARTCUTSF 

DXCH 

SFTERPl 

ASSUMES POINT 

AT LFFT CF OP SFCON 

1202 

REF 

90 

LAST 

329 

A0,260A 

52 155 

1 


OXCH 

MPAC 



1203 

REF 

1 



AO, 2605 

0 AA31 

c 


TC 

PRSHPTMP 

IF CIA) « -0, 

SHCRTMP FATlS TO GIVE -C . 

I20A 

REF 

19 

LAST 

322 

AO, 2606 

0 A57A 

c 

SCOUTENC 

TC 

POST JUMP 



1205 

REF 

2 

LAST 

327 

AC, 2607 

62563 

c 


CAOR 

DSPCCENO 



12051 

REF 

11 

LAST 

32 9 

AO, 2610 

52 L2A 

1 

AROUTISF 

DXCH 

SFTEMPl 

ASSUMES POINT 

BETHEEN hi and LC PARTS OF 

I2C52 

REF 

91 

LAST 

329 

A0,2611 

52 155 

1 


DXCH 

MPAC 

DP SFCCN. SHIFTS RESULTS LEFT lA, BY 

1205 3 

REF 

2 

LAST 

32 9 

AO, 2612 

G AA31 

c 


TC 

PPSHRTMP 

TAKING RESULTS 

FROM MPAC^l, HPAC-^2. 

12C5A 

REF 

1 



AO, 2613 

0 2615 

1 


TC 

L14/CUT 




12U6 

REF 

1 



AO, 26IA 

0 2627 

C 

CPICLTSF 

TC 

OPCUT 

SCALES MPAC, MPAC OY CP SCALE FACTOR 


1207 

REF 

92 

LAST 

329 

AO, 2615 

56 156 

C 

LIA/CLT 

XCH 

MPAC +2 

IN SFTEMPl, SFTEMP2, THEN SCALE RESULT 


12 ce 

REF 

93 

LAST 

329 

AO, 2616 

56 155 

C 


XCH 

MPAC *l 

BY eiA. 


1209 

REF 

9A 

LAST 

329 

AC, 2617 

5< 15A 

( 


TS 

MPAC 



1210 

REF 

2 

LAST 

329 

AO, 2620 

0 2606 

C 


TC 

SCOUtEND 
















1211 

_ M _F_ 


LAST 

329 

A0t2621 

0 2627 

c 

CP2CLTSF 

TC 

DPOUT 

SCALES , MFAC ♦! EY OP SCALE FACTOR 


1212 

REF 

1 

LAST 

32 9 

a6,2622 

0 26 06 

c 


TC 

SCOUTEND 




1213 

12U 

1215 

1216 


REf 

REf 

REF 

REF 


2 LAST 
12 LAST 



A LAST 


Izl <«0f 2623 0 2627 C OP3COTSF TC DPGUT ASSURES RiM BETVlEeN BITS f-S~ZP MXli 

32C AO, 262^ 3 6211 0 CAP SIX LcPT BY 7, RQUNCS MPAC+2 INTO MPAC^l. 

AO, 2625 0 3056 1 TC TPLEFTN SHIFT LEFT 7. 

32S AO, 2626 0 2606 C TC StCUTENC — — 


12165 REF S5 LAST J2S 0162 HPAC>6 • HPAt USE MPAC Vt IFSTEAO OF OVATm? 






1 , 
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1217 

121B 

i2J.9 

REF 

REF 

PJi 

71 

1 

LAST 

32e 

^C»2«27 

A0t2A30 

AQ.2631 

56 aC2 
162 
.0 2653 

C CPCLT 

C 

C 

XCH 

TS 

TC 

Q 

MPAC+6 

PLADLC 

GFT 

FRESH DATA FOR BOTH hi AND LQ. 

1220 

REF 

2 

LAST 

23S 

AOf 2632 

0 7226 

( 

TC 

T PAG REE 

MAKE 

CP DATA AGPEE 

1221 

REF 

2 

LAST 

31 C 

^0>2633 

0 7052 

1 

TC 

DNP 



1222 

REF 

12 

LAST 

32S 

NCt263A 

OC123 

1 

AORFS 

SFTENPl 



1223 

REF 

2 

LAST 

33C 

A0«2635 

C 0162 

1 

Tt 

hPAC+6 



R12231 

TFE 

FCLLCV INC 

ROUTINE 

DISPLAYS INC CCNTIGUOLS 

SP POSIT IVt INTEGFPS 



R12232 

AS 

TWC PC 

SITIVE DECIPAL INTEGERS IN 

flXCl-RXD2 

AND RXDA- 

RXD5 <RXD3 IS 



R 12233 

EIAKKEC) . 

IFE 

INTEGER 

IN The 

LCNER NUNEEREC ADDRESS IS 

01 SPLAYED IN 



P1223A 

R>Z 1-PXC2 

• 










12235 

REF 

3 

LAST 

32 1 

4 0 f 2 6 3 6 

0 2A37 

C 

2INTCLT TC 

SfaLANK 

TC BLANK 

RXC3 






122355 

REF 

If 

LAST 

312 

^0,2637 

0 231A 

C 

TC 

+ CN 

TURN ON 

♦ SIGN 






12236 

REF 

St 

LAST 

32S 

^Of 26S0 

3 OISA 

I 

CA 

MPAC 








12231 

REF 

1 



ACt26^1 

0 3211 

C 

TC 

DSPDECVN 

DISPLAY 

1ST INTEGER 

(L IKE 

VERB 

AND 

N C UN ) 


122371 

REF 

1C 

LAST 

32 6 

^0*26^2 

A 62 lA 

1 

CS 

THREE 








122372 

REF 

s 

LAST 

327 

A0t26A3 

50 117 

c 

INDEX 

DECCLNT 








122373 

REF 

7 

LAST 

326 

^0,26A4 

6 A333 

c 

AO 

P IDl 

RXOA 







12237A 

REF 

3C 

LAST 

327 

AQ,26A5 

5A 777 

1 

TS 

DSPCCUNT 








122375 

REF 

2 

LAST 

33C 

AQf 26A6 

0 2653 

c 

TC 

REAOLO 

GET 2NC 

INTEGER 






122376 

REF 

S7 

LAST 

33C 

^Of 26A7 

3 0155 

c 

CA 

MPAC 








122377 

REF 

2 

LAST 

33C 

AC, 2650 

0 3211 

c 

TC 

DSPDECVN 

DISPLAY 

2NC INTEGER 

(LIKE 

VERB 

AND 

NOUN ) 


122376 

REF 

20 

LAST 

32S 

AO, 2651 

C A57A 

c 

TC 

POST JUMP 








12237S 

REF 

3 

LAST 

32S 

AO, 2652 

62569 

c 

CADR 

DSPDCENC *2 









R122<i REACLC PICKS UP FPESH DATA FCP eCTh hi AND LC AND LEAVES IT IN 

R1225 HPACt PPAC-tl. THIS IS NEEDED FOR TIKE DISPLAY. IT ZEROES hPAC42# BUT 

P122E DDES KCT FCRCE TPAGREE. 


1227 

REF 

72 

LAST 

33C 

AO, 2653 

56 002 

C 

REACLC 

XCH 

Q 



1226 

Ri F 

G 

LAST 

6€ 

A0,265A 

5A lAA 

1 


TS 

TEMA 



1229 

REF 

7 

LAST 

327 

AO, 2655 

5C lAC 

1 


INDEX 

M IX6F 



1230 





AO, 2656 

G 2656 

C 


TC 

♦ 0 



1231 

REF 

1 



A0,2657 

0 2673 

1 


TC 

RDLONCR 



1232 

REF 

K 

LAST 

33C 

4 C f 2 6 £ C 

5C 117 

C 


INDEX 

0ECCLN7 



1233 

REF 

3 

LAST 

32C 

AO, 2661 

3 0150 

c 


CA 

IDAOITEM 

GET lOADDTAE 

ENTRY FCR COMP K CF NOUN. 

123A 

REF 

A 

LAST 

i2C 

AO, 2662 

7 A372 

1 


MASK 

LChl 1 

E SUBK 


1235 

REF 


LAST 

32C 

AO, 2663 

0 A327 

c 


TC 

SETEEANK 

SET EB, LEAVE 

EADPES IN^ 

1236 





AO, 2 66 A 

0 0006 

1 

REACLQl 

EXTEND 


HIXEC 

NCRMAL 

U37 

REF 

56 

LAST 

326 

AC, 2665 

5 OOCG 

I 


iNorx 

A 

C (ESLBK) 

C(E) 

1236 




33 C 

AO ,2666 

3 (300l 

c 


■“dts 

0 

c ( ( e ruBK ) 4 n 

CTETn 

1239 

REF 

56 

LAST 

aO , 2 6 6 7 

52 155 

1 


OxCN 

NPAC 



12A0 

REF 

AA 

LAST 

326 

AO, 2670 

3 A71A 

I 


CAP 

2 F. R 0 



12A1 

REF 

59 

LAST 

33C 

AO, 267 1 

5A 156 

1 


ts 

MPAC *2 



12A2 

REF 

9 

LAST 

33C 

AO, 2672 

0 OlAA 

c 


TC 

TEMA 
















12A3 

REF 

10 

LAST 

326 

AC, 2673 

3 01A5 

1 

PDLCNOR 

CA 

NCUNAOC 

E 


12AA 

REF 

1 



AQ, 267A 

0 266A 

1 

ENORCLCj 

TC 

READLCl 
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FO 


12^5 





42i31A3 




SANK 

42 



l2<iSCl 

Ref 

2 

LAST 

262 

42t2COO 




SETLCC 

P INBALl 3 



12^5t2 





A2.3H3 




BANK 

















12<i55 

REF 

1 







COUNT 

42/P IN 
















12A6 

REF 

A1 

LAST 

327 

42f 3143 

0 4555 

C 

HHSCUI 

TC 

bANKCALL 

READ FRESH DATA FDR HI AND LO INTC 

MPAC, 

12^7 

REF 

3 

LAST 

3 3C 

42f 3144 

60653 

1 


CAOR 

PEAOLC 

MPAC+1. 


124E 

REF 

!_ 

LAST 

33C 

42t3 145 

G 7226 

C 


TC 

TPAGPEE 

MAKE CP DATA AGREE 


12A<} 

REF 

1 



42»3146 

0 3332 

c 


TC 

SEPStCNP 

LEAVE FRACT SEC/60 IN MPAC, MPAC+1. 

LEAVE 

A1230 











WHOLE MIN IN EIT13 QP LQTEMOUT AND 

ABOVE 

1251 

REF 

3 

LAST 

33C 

42,3147 

0 7052 

1 


TC 

DHP 

USE CNLV FRACT SeC/60 MOD 60 


1252 

REF 

1 



42,3 150 

03204 

1 


AORES 

5ECCN2 

MULT 8V ,06 


1253 

125A 

REF 

REF 

5 

21 

LAST 

LAST 

32 1 
33C 

42.3151 

42.3152 

3 4335 
54 777 

c 

1 


CAF 

TS 

H3D1 

OSPCCLNT 

GIVES CENT 1-SEC/10EXP5 MOD 60 


1255 

REF 

42 

LAST 

33 1 

42,3153 

C 4555 

c 


TC 

BANK CALL 

display SEC MCO 60 


I25t> 

REF 

2 

LAST 

327 

42,3154 

61131 

c 


CAOR 

DSPO ECHO 



1257 

REF 

1 



42,3155 

0 3350 

1 


TC 

SEPMIN 

REMOVE REST CF SECONDS 


1256 

REF 

1 



42,3156 

3 3206 

c 


CAF 

MINCCN2 

LEAVE FRACT HlN/60 IN MPAC^l. LEAVE 


125S 

REF 

ICC 

LAST 

33C 

42,3157 

56 154 

1 


XCH 

MPAC 

WHOLE HOURS IN MPAC. 


126Q __ 

-RJLL 

1 



42.3160 

55*0C7 

c 


TS 

HITE RCUT 

SAVE WHOLE HOLRS. 


1261 

REF 

1 

LAST 

33 1 

42,3161 

3 3207 

1 


CAF 

MINCCN2 ♦! 



1262 

REF 

ICl 

LAST 

33 1 

42,3162 

56 155 

c 


XCH 

MPAC ♦! 

USE ONLY FRACT MIN/60 MOD 60 


1263 

REF 

3 

LAST 

325 

42,3163 

0 4431 

c 


TC 

PKSHP7HP 

IF C(A> « -0, SHORTMP FAILS TO GIVE 

-0. 

A126^ 











MULT BY .0006 


1265 

REF 

3 

LAST 

32 1 

42,3164 

3 4334 

1 


CAF 

R2D1 

GIVES MIN/10EXP5 MCO 60 


1266 

REF 


LAST 

33 1 

42,3165 

54 777 

1 


TS 

OSPC CLNT 



1267 

REF 

43 

LAST 

33 1 

42,3166 

0 4555 

c 


TC 

BANKCALL 

DISPLAY MIN MOD 60 


1266 

REF 

3 

LAST 

331 

42,3167 

61131 

c 


CACR 

DSPDECRD 



1265 





42,3170 

C 0006 

1 


EXTEND 


MINUTES, SECONDS HAVE BEEN REMOVED 


1270 

REF 

1 



42,3171 

3 3213 

1 


OCA 

HftCCM 



1271 

REF 

1C2 

LAST 

33 1 

42,3172 

52 155 

1 


DXCH 

MPAC 



1272 

REF 

2 

LAST 

33 1 

42.3173 

3 1007 

1 


CA 

HITERCLT 

USE WHOLE HOURS 


1273 

REF 

A 

LAST 

33 1 

42,3174 

0 4431 

c 


TC 

PRSHFTHP 

IF CIA) • -C, SHORTMP FAILS TO GIVE 

* 0 • 

A127A 











MULT BY .16304 


1275 

REF 

e 

LAST 

33C 

42,3175 

3 4333 

c 


CAF 

RlDi 

GIVES HCURS/10EXP5 


12 76 

REF 

23 

LAST 

331 

42,3176 

54 777 

1 


TS 

DSPCCLNT 



1277 

PEF 

44 

LAST 

33 1 

42,3177 

0 A555 

c 


TC 

BANKCALL 

USE REGULAR CSPCECWO, KITH ROUND OFF. 

1276 

REF 

4 

LAST 

331 

42,3200 

61131 

c 


CAOR 

OSPDECViD 



1275 

REF 

5 

LAST 

32 1 

42,3201 

0 C136 

c 


TC 

ENTF X IT 
















1260 





42,3202 

2566C 

c 

SECCNl 

20EC4‘ 

1*6^ £666666 

E-4 612* 2EXP12/60C0 


1260 





42, 3203 

31742 

1 






1281 





42,3204 

C1727 

1 

SLCCN2 

OCT 

01 721 

.06 FCR SECONDS DISPLAY 


1262 





42,3205 

012 17 

1 


OCT 

01217 



1263 





42,3206 

00011 

1 

PINCCR2 

OCT 

0001 1 

.CC06 FOR MINLITS OTSTP^V 


128^ 





42,3207 

32A45 

c 


OCT 

32445 



1285 





42,3210 

C2104 

c 

MNCCM 

OCT 

02104 

.066. .66 UPPEC BY 2EXP-28 


1266 





42,3211 

i0422 

1 


OCT 

10422 



12 8 7 
1287 





42.3212 

42.3213 

C5174 

13261 

c 

c 

HRCCNl 

2DEC 

. 16384 
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1266 





A2t 32 lA 

COOCO 

1 


OCT 

OOCOC 


1269 





42r 3215 

COC62 

C 

RNOCCN 

OCT 

00062 

.5 SEC 













1290 

REF 

A5 

LAST 

331 

A2,3216 

0 9555 

C 

M/SOUT 

TC 

BANKCALL 

READ FRESH CATA FOR HI ANC LO INTO MPAC. 

1291 

atf 


L/ST 

331 

A2.3217 

60653 

1 


CADR 

RLAOLC 

MPAC+1. 

1292 

REF 

A 

LAST 

33 1 

92,3220 

C 7226 

c 


TC 

TPAGREE 

MAKE OP DATA AGREE 

1293 

REF 

IC3 

LAST 

33 1 

92,3221 

IC 159 

c 


CCS 

MPAC 

IF MAC OF (PPAC, ^P9C+1I G/ 59 M 59 S, 

129A 





92.3222 

0 3229 

c 


TC 

>2 

DISPLAY 59B59, WITH PROPER SIGN. 

1295 

REF 

1 



92, 3223 

0 3255 

c 


TC 

M/SNCPR 

MPAC » +0. L/ 59M5e.5S 

1296 

HEF 

1 



92,3229 

6 3312 

1 


AO 

M/SCCM 

- HI PART OF (SSMSe.SS) FOP CCS 

1297 

REF 

99 

LAST 

33C 

92,3225 

10 COO 

c 


CCS 

A 

MAG OF MPAC - Hi PART CF <59M58.5S) 

1298 

REF 

1 



92,3226 

0 3291 

c 


TC 

M/SL IRIt 

G/ 59M58.5S 

1299 

REF 

2 

LAST 

332 

92,3227 

0 3255 

c 


TC 

M/SNCRR 

ORIGINAL MPAC - -C. L/ 59M53.5S 

130CI 

REF 

* 

LAST 

332 

92, 3230 

0 3255 

c 


TC 

M/SNCRR 

L/ 59M58.5S 

1301 

REF 

ICA 

LAST 

332 

92,3231 

10 155 

1 


CCS 

MPAC +1 

MAG CF MPAC » HI PART CF 59M50.5S 

L3Q2 





92,3232 

0 3239 

1 


TC 

♦ 2 


1303 

REF 

A 

LAST 

332 

92,3233 

0 3255 

c 


TC 

M/SNCRR 

MPAC+l - ♦O. L/ 59M58.5S 

13CA 

REF 

1 



92,3239 

6 3313 

c 


AO 

M/SC CN2 

- LC PART OF (BSM58.5S) +1 FOP CCS 

1305 

REF 

KG 

LAST 

332 

92,3235 

1C 000 

c 


CCS 

A 

MAC Cf MPAC^l - LO PART OF (59M58.5SI 

1306 

REF 

2 

LAST 

332 

4 2 f 3 2 3 6 

0 3291 

c 


TC 

M/SL IRIT 

G/ 59M58.5S 

1307 

REF 

C 

LAST 

332 

92,3237 

0 3255 

c 


TC 

M/SNCRM 

ORIGINAL MPAC+l = -0. L/ 59M58.5S 

1308 

REF 

6 

LAST 

332 

92,3290 

0 3255 

c 


TC 

M/SNCHM 

L/ 59M58.5S 

1309 

REF 

IC5 

LAST 

332 

92,3291 

1C 159 

c 

H/SL IH I T 

CCS 

MPAC 

- 59M58.5S LIMIT 

1310 

REF 

1 



92,3292 

3 3315 

c 


CAF 

M/SCCN3 

MPAC CANNCf HE 4 /- 0 AT THIS POINT. 

1311 

REF 

1 



92,3293 

Q 3252 

1 


TC 

♦ LIM IT 

FORCE MPAC, MFAC41 TO 4 /- 59M59.5S 

1312 

REF 

2 

LAST 

332 

92,3299 

9 3315 

1 


CS 

M/SCCN3 


1313 

RE F 

1C6 

LAST 

332 

92,3295 

59 159 

c 


TS 

MPAC 

WILL DISPLAY 59M59S IN DSPOECNR 

1 JIA 

REF 

1 

LAST 

332 

92,3296 

9 3316 

1 


CS 

M/SCCN3 ♦! 


1315 

REF 

U7 

LAST 

332 

92,3297 

59 155 

1 

LiMMCOH 

TS 

MPAC 


1316 

REF 

1 



92,3250 

3 33 19 

1 


CAF 

NCRMADR 

SET RETURN TO M/SN0RM41. 

1317 

REF 

2 

LAST 

33 1 

92,3251 

0 3333 

1 


TC 

SEPSECNR ♦! 


1318 

REF 

ice 

LAST 

33 2 

92,3252 

59 159 

G 

♦LIPIT 

TS 

MPAC 


1319 

REF 

A 

LAST 

332 

92,3253 

3 33 16 

c 


CAF 

M/SCCh3 ♦! 


1320 

REF 

I 



92,3259 

0 3297 

c 


TC 

LIMl TCCM 

LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE 

1321 

REF 

1 



92,3255 

0 3317 

1 

P/SNCRF* 

TC 

SEPS EC 

A1322 











WHOLE MIN IN elT13 Of LQTEMOUT AND ABOVE 

1323 

REF 

1 



92,3256 

3 3310 

c 


CAF 

HISECCN 

USE CNLY FRACT SEC/60 MOO 60 

13<;A 

REF 

C. 

LAST 

329 

92,3257 

0 7256 

1 


TC 

SHCRTMP 

MULT BY .6 4 2EXP-19 

1325 

REF 

11 

LAST 

33C 

92,3260 

9 62 19 

1 


CS 

ThF f E 

GIVES SECyiOTT MCC 6C " 

1326 

REF 

3A 

LAST 

33 1 

92,3261 

26 717 

1 


AOS 

OSPCCUNT 

OSPCQLNT already SET TC RXDl 

1327 

REF 

A6 

LAST 

332 

92,3262 

0 9555 

c 


TC 

BANK CALL 

display sec HCO 6^ IN D9D5. 

1328 

REF 

1 



92, 3263 

61171 

1 


CADR 

DSP0C2NF 


1329 

REF 

A5 

LAST 

33C 

92,3269 

3 9719 

1 


CAF 

Z t kL 


1330 

REF 

5 

LAST 

315 

92,3265 

59 129 

1 


TS 

CODE 


1331 

REF 

lA 

LAST 

32e 

92, 3266 

A 9711 

c 


CS 

tmo 


1332 

REF 

1 1 

last 

33C 

92, 3267 

30 tl7 

c 


INDEX 

OECCLNf 


1 333 

REF 

9 

LAST 

33 1 

92,3270 

6 9 33 3 

c 


AD 

RTDl 

RXC3 

133A 

REF 

1 

LAST 

315 

92,3271 

59 193 

c 


TS 

COUNT 


1335 

REF 

A7 

LAST 

332 

92,3272 

0 9555 

c 


tc 

BANKCALL 

BLANK MI DOLE CHAR 


H 
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I33e 

REF 

■a 

L/S7 

315 

A2f 3272 

61225 

C 


CADP 

DSF'I N 



1337 

REF 

2 

LAST 

331 

A2,327A 

0 3350 

1 


TC 

SEPP IN 

REPCVE REST 

DF SECONDS 

jaifl 

REP 

1C9 

L/ISI 

332 

A2.3275 

56 155 

_£_ 


XCH 

PPAC ♦! 

LEAVE FRACT 

MIN/60 IN MPAC+l 

13J9 





A2,3276 

C 0006 

1 


EXTEND 


USE CNLY FRACT PIN/60 ^CO 60 

13A0 

REF 

1 



A2,3277 

7 3311 

C 


Mp 

HIHI NCCN 

MULT BY .6 ♦ 

2EXP-7 

Uif.1 „ 

REP 

lie 

LAST 

3 3.3 

A2t3300 

52 153 

1 


OXCH 

MPAC 

GIVES MIN/100 MCO 60 

i3A2 

REF 

12 

LAST 

332 

A2«33C1 

50 117 

c 


INDEX 

OECLLNT 



13A3 

REF 

1C 

LAST 

332 

A2»3302 

3 A333 

c 


CAP 

PlCl 

RXOl 


13A4 

REF 

IS 

LAST 

332 

A2t 3303 

5A 777 

1 


TS 

USPCCONT 



13A5 

REF 

AE 

LAST 

332 

A2f 330A 

0 A555 

c 


TC 

bANKCALL 

DISPLAY MIN 

MCO 60 IN C1D2. 

13A6 

REF 

2 

LAST 

332 

A2,3305 

61171 

1 


CADR 

CSPCC2NR 



13A7 

REF 

i 1 

LAST 

33C 

A 2 1 3 30 6 

0 ^ 5 

c 


TC 

POST JCPP 



13Ae 

REF 

A 

LAST 

33C 

A2,3307 

62565 

c 


CaOR 

DSfLCENC +2 








A2.331G 

23iA7 


HISECQN 

oc r 

231A7 

.6 ♦ 2EXP-IA 


135C 





A2,3311 

233A6 

1 

PININCON 

OCT 

233A6 

.6 ♦ 2EXP-7 


liSi 





A2.3312 

77 753 

c 

P/SCCNi 

OCT 

77753 

- HI PART CF 

(59M5e.5SI ♦! 

1352 





A2f 3313 

A1 126 

1 

P/SCCR2 

OCT 

4112 6 

- LC PART CF 

{59M56.5SI ♦! 

1353 

REF 

7 

LAST 

332 

A2t331A 

C3256 

c 

NCRMACR 

AORES 

M/SNCRN +1 



135A 





A2i33l5 

C0025 

c 

H/SCCN3 

OCT 

00U2 5 

59H 59. 5S 


1355 





A2t 3316 

37C16 

1 


OCT 

37C16 




1356 

REF 

111 

LAST 

333 

A 2 » 3 3 1 7 

1C 155 

1 

SEPSEC 

CCS 

MPAC +1 

IF *f ROUND BY ADDING .5 SEC 


1357 

REF 

1 



A2f 3220 

1 3327 

C 


TCF 

POSEC 

IF ROUND BY SUBTRACTING .5 

SEC 

1358 

REF 

2 

LAST 

333 

A2t3321 

1 3327 

C 


TCF 

POSEC 

FINDS TIME IN MPACi PPAC+1 


1359 





A2t3322 

1 3323 

1 


TCF 

+ 1 

RCUNCS OFF BY ♦/- .5 SEC 


1360 





A2« 3323 

C C0C6 

1 


EXTEND 


leaves MHOLE pin in eiTll OF 


1361 

REF 

1 



A2f 332A 

A 3215 

C 


DCS 

PNOCCN -1 

LCTEPGUT AND ABCVb. 


1362 

REF 

1 12 

LAST 

333 

A2i3325 

2C 155 

1 

SEPSECl 

DAS 

MPAC 

LEAVES FRACT SEC/60 IN MPACf MPAC->1. 

1363 

REF 

3 

LAST 

332 

A2,3226 

1 3332 

1 


TCF 

SEPSECNR 



136A 





A2f 3327 

C 0006 

1 

POSEC 

EXIENC 




1365 

REF 

2 

LAST 

332 

A2»3330 

3 3215 

1 


OCA 

RNDCCN -i 



1366 

REF 

1 



A2t 3231 

1 3325 

1 


TCF 

SEPSECl 



1367 

REF 

73 

LAST 

33C 

A2,3332 

56 002 

C 

SEPSECNR 

XCH 

C 

THIS ENTRY AVCICS ROUNDING BY 

.5 SEC 

1366 

REF 

1 



a2, 3333 

5A lAA 

1 


TS 

SEPSCPET 



1369 

REF 

A 

LAST 

33 1 

A2f 333A 

C 7052 

1 


TC 

DMP 

MULT BY 2EXP12/6000 


13 70 

REF 

1 



A2f 3335 

C3202 

1 


ADRES 

SECUM 

GIVES FRACT SEC/60 IN BIT12 OF 

MPAC* 1 

1371 





A2,3336 

0 0006 

1 


EXTEND 


AND RELOW. 


1372 

REF 

113 

LAST 

333 

A2#3337 

3 0155 

c 


DC A 

MPAC 

SAVE PiNUTES ANC HCURS 


13 73 

REF 

3 

LAST 

33 1 

A2t33A0 

53*010 

C 


OXCH 

HITEPCUT 



r3 7A 

REF 

1 



A2f 33A1 

0 AA20 

( 


TC 

TPSLl 



U75 

REF 

2 

LAST 

333 

A2. 33A2 

0 A42U 

c 


TC 

tpsli 

GIVES FRACT SEC/60 IN MPAC^lt 

MPAC+2. 

1376 

REF 

A6 

L AST 

332 

A2t33A3 

3 a71^ 

1 


CAF 

ZERO 



1377 

REP 

1 lA 

LAST 

333 

A 2 1 3 3 AA 

56 156 

c 


XCH 

MPAC +2 

LEAVE FRACT SEC/bO IN ^PiCf MPAC^l* 

1376 

REF 

115 

LAST 

332 

A2,33A5 

56 155 

c 


XCH 

MPAC +1 



1379 

REF 

1 U 

LAST 

332 

A2t 33A6 

56 ISA 

1 


XCH 

MPAC 



1360 

REF 

2 

LAST 

332 

A2f 33A7 

0 ClAA 

c 


TC 

SEPSCRET 
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1381 

REF 

14 

LAST 

333 

42,3350 

56 CC2 

C 

SEPPIN 

XCH 

Q 

FINOS NHQLE MINUTES IN BIT13 

I3a2 

REF 

1 



42f3351 

5 4 144 

1 


TS 

SEPMNRET 

OF LCTEMCUT AND ABOVE. 

1363 

Rtf 

_X_ 



42.3352 

Ju 1 g~^ « A 



CA 

LOTE POUT 

REMOVES REST CF SECONDS. 

1364 





42,3353 

C 0006 

1 


EXTEND 


LEAVES FRACT MIN/60 IN MPAC+1. 

1365 

REF 

13 

LAST 

182 

^ 2 1 3 3 5A 

7 4710 

1 


MP 

BIT3 

leaves NFCLE hours in MPAC. 

135 «i 




4t,3355 

C 0006 

.± 


GXTENO 


SR 12, THRGN AMAY LP« 

13E7 

REF 

17 

LAST 

192 

42,3356 

7 ^6 76 

c 


HP 

BITl 3 

SR 2, take FRCM up, - SL 12. 

1388 

REF 

117 

LAST 

33 3 

42,3357 

22 155 

c 


LXCH 

HPAC ♦! 

THIS FORCFS BITS 12-1 TO 0 IF ♦, 

A1389 











forces bits 12-1 TO 1 IF -. 

1390 

REF 

4 

LAST 

333 

42,3360 

3 1GC7 

1 


CA 

HiTk NOIT 


1391 

REF 

116 

LAST 

33A 

42,3361 

54 154 

c 


TS 

MPAC 


1392 

REF 

C 

LAST 

333 

42,3362 

C 7052 

1 


TC 

DMP 

MULT BY 1/15 

13 93 

REF 

1 



42,3363 

03210 

I 


ACRES 

HlNCCNl 

GIVES FRACT MIN/60 IN MPAC^l. 

1394 

REF 

2 

LAST 

334 

42,3364 

0 0144 

0 

ENOSPN IN 

TC 

SEPHNRET 

GIVES NHOLE hours IN MPAC. 


P1395 THIS U A SPECIAL PtPPOSE VERE FCR DISPLAYING A DOUBLE PRECISION AGC 

R1396 WCP C AS 10 CECIHAL DIGITS CN THE AGC CISPLAY PANEL. IT CAN EE USED WITH 

B1397 ANY NCLNt EXCEPT PIXEO NCLNS. IT DISPLAYS THE CCNTENTS 

Pl39e OF TH REGISTER NCUNAOD IS POINTING TC . IF LSED NlTH NOUNS hHiCH ARE 

Kli99 INFERENTLY NCT DP SUCH AS THE CPU COUNTERS THE CISPLAY NILL EE GARBAGE. 
HLAOO CISPLAY IS IN R1 ANC R2 ONLY NlTH TFE SIGN IN Rl. 
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0 3045 

c 


TC 

tD 



1564 

REF 

1 



41,3046 

0 3064 

c 


TC 

CCNUHHCR 

normal nOun 


1565 

REF 

17 

LAST 

336 

41,3047 

50 117 

c 


INDEX 

DECCUHT 

MIXEC NOuN 


1566 

REF 

2 

LAST 

336 

41, 3050 

3 3061 

c 


CAF 

DISPLACE 



1567 

REF 

38 

LAST 

336 

41,3051 

54 001 

1 


TS 

L 

OUT TC OOQ. tt R IGHTS, 

OR TCTTEFTS IN L 

1566 

REF 

18 

last 

33 8 

41,3052 

5C 117 

c 


INDEX 

OECLUNT 



156S 

REF 

4 

LAST 

3 3 6 

41,3053 

3 4362 

1 


CAF 

LOWS 



1570 

REF 

4 

LAST 

336 

41,3054 

7 0147 

1 


MASK 

NNTYPtEM 



1571 

REF 

29 

LAST 

336 

41,3055 

5C OCl 

c 


Index 

L 



1572 





41,3056 

0 0000 

1 


rc 

0 



H1573 

CC 

TC GCC ( CtCCUNT«0 I 

, CO TC 

R IGHT5(CECCUNT-n, DO TC ULFT*^ (DeCCUhT-2 I . 



15 74 





41,3057 

6 0000 

1 

SFRET 

DOLib L F 


2X(SF constant NU*-BER 

I IN A 

1575 

REF 

6 

LAST 

336 

41,3060 

0 0114 

c 


TC 

ExITEH 



1576 

REF 

1 



41, 3061 

0 3020 

c 

CISPLACE 

TC 

GOG 


_ - — ^ — 
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1577 REf 2 LAST 33 E Al,3C62 0 4336 C TC k IGHT 5 

1578 Rfcf 3 LAST 328 Ai,3C63 0 <13^5 1 TC LETTS 


157S 

REF 

5 

LAST 

338 

9l»3C64i 

3 9362 

1 

CONOHNOR 

CAF 

L0W5 

NCRPAL NOUN ALWAYS GETS LOW 5 OF 

1580 

REF 


LAST 

338 

91,3065 

7 CU7 

1 


HASK 

NNTYPTFH 

NNtYPTAB FCR SF CONUM. 

JL5 ai. 





91.3C66 

6 0000 

1 


DOUBLE 



1582 

REF 

7 

LAST 

338 

91,3C67 

0 0119 

c 


TC 

Ex I TER 

2X1 SF CONSTANT NUNBER) IN A 

























1563 

REF 

19 

LAS1 

33 8- 

9lt3C70 

59 in 

1 

P07CCR 

TS 

OECCLKT 


158A 

REF 

EC 

LAST 

33 8 

91,3071 

56 QC2 

c 


XCH 

Q 


1585 

REF 

1 



91, 3C72 

59 115 

c 


TS 

DECRET 


1566 

REF 

*3 

LAST 

337 

91, 3073 

3 9719 

1 


CAF 

ZERO 


1587 

REF 

3 

LAST 

33C 

91,3079 

59 162 

c 


TS 

MPAC+6 


1588 

REF 


LAST.. 

339 

91. 3075 

5C 117 

c 


INDEX 

OECLINT 


158S 

REF 

3 

LAST 

315 

91,3076 

5T0C6 

c 


XCH 

XRE jLP 


159C 

REF 

lai 

LAST 

339 

91, 3077 

59 155 

1 


TS 

MRAC ♦! 


1591 

REF 

4 i_ 

LAST 

339 

91,3100 

50 in 

c 


INDEX 

DECCLNT 


1592 

REF 

c 

LAST 

336 

91,3101 

57*CC3 

c 


XCH 

XRtG 


1593 

REF 

122 

LAST 

33 9 

91,3102 

59 159 

c 


TS 

MPAC 


159A 

REF 

10 

LAST 

338 

91t3103 

5C 19C 

1 


INDEX 

HIX6P 


1595 





91,3109 

0 3109 

1 


TC 

♦■0 


1596 

REF 

1 



91,3105 

C 3132 

1 


TC 

PDTNCPR 

normal noun 

R1597 

IF 1 

RIXKCLNt PLACE i 

ECCRESS FCR 

CCMPCNENT 

K I^TC NOUNADO, 

SET EBANK BITS. 


1598 

REF 

22 

LAST 

339 

91,3106 

50 117 

c 


INDEX 

DECOLNT 

GET IDAODTAB ENTRY FCR COMPONENT K 

1599 

Rtf 

A 

LAST 

33C 

91,3107 

3 0150 

c 


CA 

1 04D1TER 

OF NOON. 

1600 

REF 

5 

LAST 

33C 

91,3110 

7 9372 

1 


NASK 

LOhl 1 

(ECAOfllSUBK FCR CURRENT CCMP CF NOUN 

1601 

REF 

6 

LAST 

336 

91,3111 

0 9317 

c 


TC 

SF TNCACR 

ECAOR INTO KGUNCADR. SETS EB, NOUNADO. 

1602 





91,3112 

0 0006 

1 


EXTEND 


CINCUNAOOl IN A UPON RETURN 

1603 

REF 

23 

last 

339 

91,3113 

60 117 

c 


SU 

OECQLNT 

PLACE (ESUeXl-K IKTC NCUNACC 

16 OA 

REF 

2A 

LAST 

337 

91,3119 

59 195 

c 


TS 

NOON ADD 


1805 

REF 

15 

LAST 

337 

91,3115 

11*000 

1 


CCS 

OECBRRCH 


16Cc 

REF 

1 



91,3116 

0 3165 

c 


TC 

PUTOECSF 

♦ DEC 

16C7 

REF 

1 



91,3117 

0 2951 

c 


TC 

DCTSTCYC 

♦0 OCTAL 

1608 

REF 

3 

LAST 

327 

91,3120 

0 3027 

1 


TC 

SFKLITRIX 

TEST IF DEC ONLY BIT » 1. IF SO, 

1609 

REF 

3 

LAST 

326 

91,3121 

0 2261 

c 


TC 

DPTEST 

ALARM AND RECYCLE. IF NQT, CONTINUE. 

16 10 

REF 

1 



9 1,3122 

0 3150 

c 


TC 

P0TCCR2 

NC OP 

A1611 











TEST FCR DP SCALE FOR OCT LOAD. IF SC, 

A1612 











♦0 INTO M4JCR PART. SET KCUNADD FCR 

A1613 











LOADING octal WCRC INTO MINOR PART. 

161^ 

REF 

25 

LAST 

339 

91,3123 

29 195 

1 

FOTCPCOH 

INCR 

NCUNAOC 

OP ieSUfiKl-K+1 CR £♦! 

1615 

REF 

26 

LAST 

339 

91,3129 

3 U195 

1 


CA 

“NCoNAOO 

NOUNADO NOW SET FOR MINOR PART 

1616 

REF 

2A 

LAST 

339 

91,3125 

26 in 

1 


AOS 

DECCLNT 

(ESOgKni n? E+T INTO OECOUNT 

1617 

REF 

iA 

LAST 

339 

91,3126 

3 9719 

1 


CAF 

ZERO 

NCUNACD SET FOR MINOR PART 

1618 

REF 

25 

LAST 

339 

91,3127 

5c in 

c 


INDEX 

OECCLKT 


1619 





91,3130 

53* 77?" 

T~ 


TS 

0 -1 

ZERO MAJOR PART rrSOeiTTR H 

162G 

REF 

2 

LAST 

339 

91,3131 

0 3150 

0 


TC 

PUTCCP2 

- 

16^1 

REF 

2 

LAST 

317 

91,3132 

0 9325 

1 

PUT^CRM 

TC 

SETNAOD 

ECAOR FRCM KOUNCADP. SETS EB, NOUNAQD. 

1622 

REF 

16 

LAST 

339 

91,3133 

11*000 

1 


CCS 

DECBRNCH 
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it23 

REF 

2 

LIST 

339 

A1«313A 

0 3165 

C 

TC 

PUTDECSF 

+ DEC 

L62A 

REP 

2 

LAST 

339 

AI,3135 

0 2A51 

C 

TC 

OCTSTCYC 

+0 OCTAL 

ItZb 

fiEf 

2 

LAST 

32 7 

A1.3136 

0 3021 

1 

TC 

SFkUTNCP 

TEST IF DEC CNL> BIT - 1, IF S0» 

itZt 

REF 

A 

LAST 

339 

A 1,3 137 

0 22 61 

0 

TC 

OPTEST 

ALARM and RECYCLE. IF NOT, CONTINUE. 

1627 

REF 

3 

LAST 

339 

A1,31AC 

0 31AA 

c 

TC 

PLITCCP2 -4 

NO OP 

1.62 8. 

RiF 

i g 

^A.ST 

33S 

A1.31A1 

3 A71A 


CAF 

ZERC 

DP 

1629 

REF 

26 

LAST 

339 

A1,31A2 

5A 117 

1 

TS 

DECCLNT 


1630 

REF 

1 



A1,31A3 

0 3123 

1 

TC 

PUTOPCOH 


1631 

REF 

8 

LAST 

326 

Alt31AA 

3 C1A6 

1 

CA 

NNAOlEP 


1632 

REF 

3A 

LAST 

33 7 

A1,31A5 

6 A712 

1 

AO 

ONE 

IF NNAOTEM * -1, CHANNEL 10 BE SPECIFIED 

1633 





^lt3lA6 

0 G006 

1 

EXTEND 



163A 

PEF 

1 



A1,31A7 

1 315A 

c 

BIF 

CHAMCAD 


1635 

REF 

123 

LAST 

339 

Al,3150 

56 1 5 A 

1 

PUTC0H2 XCH 

MPAC 


16 3_6_ 

REF 

2 

LAST 

339 

A1.3151 

0 Oils 

1 

TC 

DECP ET 













1637 

REF 

38 

LAS! 

33 7 

0777 



E0ANK- 

DSPCCLNT 


1638 

REF 

_l 



Al,3152 

02126 

c 

GISFINLC 2CA0R 

GTSF IN 


1638 

REF 

1 



A 1,3 153 

6A10I 

c 



— 

1639 

REF 

6 

LAST 

335 

A 1 , 3 1 5A 

A A716 

1 

CHANLCAD CS 

SEVE h 

OONT LOAD CHAN 7. (IT « SUPERBANKI. 

16391 

REF 

A 

LAST 

326 

AI,3155 

6 1017 

c 

AO 

NOUKCAOR 


16392 





Al,3156 

0 0006 

1 

EXTEND 



16393 

REF 

8 

LAST 

337 

Al,3157 

1 27 71 

c 

BZF 

LCAOLV 


1639A 

REF 

12A 

LAST 

3AC 

Al,316Q 

3 Q13A 

1 

CA 

MPAC 


16A0 





Al, 3161 

Q CGC6 

1 

EXTEND 



16A1 

REF 

5 

LAST 

3AC 

Al, 3 162 

5 1017 

c 

INDEX 

NQUNCACR 


16A2 





4 I f 3 1 £ 3 

01 CCO 

c 

WR I T E 

0 


1 ^^3 

REF 

9 

LAST 

3AC 

A1,316A 

0 2771 

1 

TC 

LOAOLV 



P144A _ PLTCECSf PINOS MlyEB AND CECCLM STILL SET PROW PUTCQH 


16A5 

REF 


LAST 

326 

Al,3165 

0 3042 

1 

PUTCECSF 

TC 

SFCCNUP 

2X(SP CON NUMB) [N A 


16A6 

REF 

13 

LAST 

33C 

Al, 3166 

5A 123 

C 


TS 

SFTEFPl 



1 6 A 7 





Al, 3167 

0 00 C 6 

1 


EXTEND 


SnITCH BANKS TO SF CONSTANT TABLE 


1646 

REF 

1 



Al, 3170 

3 3153 

0 


OCA 

GTSF INLC 

READING RCUTINE. 


1649 

REF 

_J1_ 

LAST 

337 

Al,3i71 

52 0C6 

C 


DXCH 

Z 

LOADS SFTEMPl, SFTEMP2. 


1650 

REF 

11 

LAST 

339 

Al,31?2 

5C 14C 

1 


INDEX 

Hixep 



1651 





Al, 3173 

0 3173 

1 


TC 

♦ 0 



1652 

REF 

1 



Al, 3nA 

0 3177 

c 


TC 

PUTSFNCR 



1653 

REF 

4 

LAST 

339 

Al,3175 

0 3027 

1 


TC 

SFkUTMlX 



16 54 

REF 

1 



Al,3176 

0 3200 

c 


TC 

PUT0CSF2 



1655 

REF 

A 

LAST 

3AC 

Al,31?7 

0 3021 

1 

PUT SFNOR 

TC 

SFPUTNCF 
















1656 

REF 

1C2 

LAST 

336 

Al, 3200 

5C 000 

1 

PUTCCSF2 

INDEX 

A 



1657 

REF 

1 



Alt 3201 

3 320 3 

c 


CAF 

SF I NTABft 



lose 

REF 

3 

LAST 

327 

A 1,3 202 

0 4577 

c 


Tt 

'bANK 

SWITCH BANKS FQP EXPANSHICN ROOM 


1659 

REF 

1 



41,3203 

62347 

c 

SPINTAeR 

CAOR 

GCAL Mcvr 

ALARM AND RECYCLE IF DEC LOAD 
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*1660 NITH octal CMV NOUN. 


1661 

l&tiZ 

REF 

REF 

1 

1 



Alt 320A 
A1.32C5 

6C77A 

6Q71A 

C 

X_ 

CAUR 

CAOR 

eiNKCLNO 

OECINSF 


... M 

1663 

REF 

1 



Aly3206 

6C 7 6A 

1 

CAOR 

AkTh INSF 


R 

166A 

REF 

1 



Al, 3207 

61C17 

C 

CADP 

DPINSF 



1605^ 

REF 




A1.3210 

61CAA 

C 

CAOR 

DPINSf2 



1666 

rTf 

1 



Alt 3211 

6 1002 

1 

CAOR 

OPTO EG IN 



16b7 

REF 

im 

1 

LAST 

3A 1 

Al,3212 

61C17 

C 

CAOR 

DPINSF 

SANE AS 

APITHOPl 

1666 

REF 

1 



A If 3213 

65365 

\ 

CAOR 

HHSI N 



166S 

REF 

A 

LAST 

33A 

A1t321A 

61323 

1 

CAOR 

05PALARN 

MIN/SEC 

CANT BE LCAOEO. 

1671 

REF 

1 



A i, 3 2 15 

61051 

1 

CAGP 

DPINSfA 



1671 1 

REF 




Alt3216 

6077 7 

c 

CAOR 

ART I MSF 



16712 

REF 

5 

LAST 

3A 1 

Al,3217 

61323 

1 

CAOR 

DSF A LARH 

2INTCUT 

CANT BE LGAOEO. 

1672 





Al,3220 



ENORUTIN EQUALS 





M1673 SCALE EAC7CR5 EOR IhCSE RCU7I^ES NEECING THEN ARE AVAILABLE IN SETENPl. 

H167A ALL SFlh RCLTIN6S USE NPAC NPAC-H. LEAVE RESULT IN A. END N I TH TC D6CRET 


1675 REF 1 A0.271A S6TL0C ENDOPCEC *l 

16755 REE A LAST TC 33 5 : 15 A6C« COUNT AO/P IN 


E 1676 

OECINSF 

APPLIES 

1 iccc/ieo »5. 

55555 1 101 


5. A3A3A(ai 



167? _ 



-LIST 

33A 

AQ.271A 

0 7052 

1 

LEG INSF 

TC 

ONP 

SF ROUTINE FCR CEC DEGREES 

1678 

REF 

1 



A0t2715 

02757 

c 


AORES 

OEGCCM 

MULT BY 5.5 5(I0IX2EXP-3 

1679 

REF 

125 

LAST 

3AC 

ACt27l6 

10 155 

1 


CCS 

HPAC ♦! 

THIS RCUNCS CFF MPAC*1 BEFORE SHIFT 

1660 

J«iL. 

15 

LAST 

313 

AOf2717 

3 A700 

1 


CAF 

BITll 

LEFT 3, AND CAUSES 360.00 TO OF/UF 

1681 





Adt2720 

0 2722 

1 


TC 

+ 2 

WHEN SHIFTED LEFT AND ALARM, 

1662 

REF 

16 

LAST 

3A 1 

AO. 2721 

A A 7CG 

c 


CS 

BITl 1 


1663 

RfcF 

^ ^ 

126 

LAST 

3A 1 

A0»2722 

6 0155 

c 


AO 

MPAC ♦! 


16eA 

REF 

1 



AO, 2723 

0 307C 

c 


TC 

2PCUNC +2 


1685 

REF 

2 

LAST 

333 

A0,272A 

0 A A 20 

c 


TC 

TPSL 1 

LEFT 1 

1666 

REF 

A 

LAST 

3A 1 

AO, 2725 

0 AA20 

c 

CECINSF2 

TC 

TPSLl 

LEFT 2 

1667 

REF 

1 



AG, 2726 

0 3077 

1 


TC 

ThSTCfUF 


1666 

REF 

5 

LAST 

3A1 

AO, 2727 

0 AA20 

c 


TC 

TPSLl 

RETURNS IF NO OF/UF (LEFT3I 

1669 

REF 

127 

LAST 

3A 1 

AO, 2730 

10 15A 

c 


CCS 

mpac 


1690 

REF 

1 



AC, 2731 

0 2735 

1 


tc 

SIGNFIX 

IF^f GO To SldNFlX 

1691 

REF 

2 

LAST 

3A1 

AU,2732 

0 2735 

1 


TC 

SIGNFIX 

IF +0, GO TC SIGNFIX 

1692 





AO, 2733 

4 C QGO 

0 


CON 


IF - , USE -MAGNITUDE +1 

16 93 

REF 

126 

LAST 

3A 1 

AC, 273A 

SA 15A 

c 


TS 

WPAC 

IF -0, USE *0 

169A 

KEF 

A 

LAST 

339 

A0,2735 

1C 162 

c 

SIGNFIX 

Ccs 

MPAC 46 


1695 

REF 

1 



AO, 2736 

0 2753 

1 


TC 

SGNTCl 

IF overflow 

1696 

REF 

1 



AC, 2737 

0 27A7 

1 


TC 

ENOSCALE 

NO CVERFLCU/UNeERFLOw ^ 

1697 

REF 

129 

LAST 

3A 1 

AO,27AO 

Id 15A 

c 


CCS 

MPAC 

IF UF FORCE SIGN TC 0 EXCEPT -180 

1698 

REF 

5 

LAST 

32 E 

AO, 27A1 

0 56A2 

1 


TC 

CCSHCLE 


1699 

REF 

1 



a0,27A2 

0 2751 C 


TC 

NEGl 6C 


1700 





A0,27A3 

0 27AA 

1 


TC 

♦ 1 
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1701 

PEF 

130 

L/ST 

34 1 

4Cf 2 744 

56 154 

1 


XCH 

MPAC 

17C2 

REF 

7 

LIST 

297 

40 1 2 745 

7 4672 

1 


MASK 

PCSM /X 

LlQi._ 

fill 

121 

342 

40*2746 

54 154 

_0__ 


TS 

MPAC 

1704 

REF 

22 

L/ST 

33 7 

40t2747 

0 4574 

c 

ENDSCALE 

TC 

POST JUMP 

1705 

HEF 

4 

L/ST 

34C 

40*2750 

63150 

c 


CADR 

PUTCCM2 

1706 

REF 

6 

L/ST 

342 

^Ot2751 

4 4672 

1 

NEG18C 

CS 

POSM /X 

1707 

REF 


L/ST 

34 1 

40,2752 

C 2746 

c 


TC 

ENOSC/LE -1 

1706 

REF 

132 

L/ST 

342 

40,2753 

4 0154 

c 

SGNTQl 

CS 

MPAC IF OF FORCE S IGM TO 1 

17C9 

REF 

4 

L/ST 

342 

40,2754 

7 4672 

1 


MASK 

PLSM/X 

1710 

REF 

K3 

L/ST 

34C 

40,2755 

4 OQCC 

c 


CS 

A 

1711 

REF 

3 

L/ST 

J42 

40,2756 

0 2746 

c 


TC 

ENDSCALE -1 

1712 





40,2757 

26161 

c 

OEGCONl 

2DEC 

5.555555555 B-3 

1712 





40,2760 

3C7C7 

1 



~ — 

171i 





40,2761 

21616 

c 

CEGCQM2 

20EC 

2.222222222 fi-2 

1713 





40,2 762 

C707 1 

0 




1714 





40,2763 

71527 

1 

FJEG.2 

CCT 

-C6250 » .197753906 I.E. THE BIAS SCALED 

1715 

REF 

7 

L/ST 

34 1 

40,2764 

0 7052 

1 

ARTHINSF 

TC 

DMP SCALES MPAC, +1 at SFTEMPl, SFTEMP2. 

1716 

REF 

14 

L/ST 

34C 

40,2765 

C0123 

1 


AORES 

SFTEMPl ASSUMES POINT BETWEEN Ml ANO LQ PARTS 

1717 

REF 

133 

L/ST 

342 

40,2766 

56 156 

c 


XCH 

MPAC *Z OF SFCCN. SHIFTS RESULTS LEFT BY 14. 

I7ie 

REF 

124 

L/ST 

342 

40,2767 

56 155 

c 


XCh 

MiPAC ♦! (BY TAKING RESULTS FROM MPAC+l, MPAC-»2) 

1719 

REF 

125 

L/ST 

342 

^ C f 2 7 7 0 

56 154 

1 


XCH 

MPAC 

1720 





40,2771 

0 00C6 

1 


EXTEND 


1721 

REF 

2 

L/S1 

34 1 

40,2772 

1 2774 

c 


CZF 

b INRCUND 

1722 

REF 

5 

L/ST 

336 

40,2773 

0 4161 

c 


TC 

ALMCVCLE TOO L/RGE A LCAC. ALARM AND RECYCLE. 

1723 

REF 


L/ST 

34 1 

40,2774 

0 3066 

1 

BINRCUNO 

TC 

2RCtUKC 

1724 

REF 

2 

L/ST 

34 1 

40,2775 

C 30 7 7 

1 


TC 

tfeSTCFUF 

1725 

REF 

4 

L/ST 

342 

40,2776 

0 2747 

1 


TC 

ENDSCALE RETURNS IF NO OF/UF 


17251 

REF 

£ 

L/ST 

342 

40,2777 

0 7052 

1 

ART INISF 

TC 

DMP 

SCALES MPAC, BY SFTEMPl, SFTEMP2. 

17252 

REF 

15 

LAST 

342 

4G,3CQ0 

00123 

1 


ACRES 

SFTE MPl 

RCUNOS MPAC+l INTO MPAC. 

1 725 2 

PEF 

3 

L/ST 

342 

4Q,3CC1 

0 2774 

1 


TC 

B INRCLND 














1726 

REF 

126 

L/ST 

342 

4C,3C02 

10 IS4 

C 

CPTDEGIN 

CCS 

MPAC 

CPTICS SCALING ROUTINE 

172? 





4(},3CC3 

0 iCC7 

C 


1C 

4-4 


1726 





40,3004 

0 300? 

( 


TC 

♦ 3 


172 9 

REF 

6 

L/ST 

34 2 

40,3005 

0 4161 

c 


TC 

ALMCYCLE 

” rCjECT - INPUT. ALIR'fr ANT RECYCLE . 

1730 

REF 

7 

L/ST 

342 

40,3006 

0 4161 

c 


TC 

ALMC YCLE 

REJECT - INPUT. ALARM AND RECYCLE. 

1731 

REF 

1 



4C,3d07 

2 2763 

1 

0P0tGlN2 

CAF 

NtG.2 

RANGE IS 90 DEC 

1 732 

REF 

127 

L/ST 

342 

4C,3C10 

26 154 

c 


ADS 

MPAC 

Subtract Eur^ 

1 733 

REF 

9 

L/ST 

342 

40,3011 

0 7052 

1 


TC 

DMP 

MULT BY 100 / 45 B-2 

1 734 

Rt F 

1 



40,3012 

C2 76 1 

c 


AORES 

0ECCCN2 


1 735 

REF 

17 

L/ST 

294 

40,3013 

3 A677 

0 


CAF 

eiT12 

RCDnC As In oeginsf 

1 736 

REF 

128 

L/ST 

342 

4C,3C14 

6 0155 

c 


AO 

MPAC +1 



II 
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1737 

REF 

1 

LAST 

392 

90t3Ci5 

0 3070 

C 


TC 

2RCU^D *2 


1736 

REF 

1 



9Gt3C 16 

0 2 72 5 

C 


TC 

DFGINSF2 














1739 

REF 

10 

LAST 

392 

90|3C17 

0 7U52 

1 

DPI NSF 

TC 

UMP 

SCALES MPAC, PPAC +l BV SFTEMPl, 

17A0 

REF 

16 

LAST 

392 

90f 3020 

00123 

1 


ADPES 

SFTE RPl 

SFTERP2. STORES LOW PART CF RESULT 

1791 

RtL 

129 

LAST 

392 

9Qt3C2i 

56 156 

J_ 


XCH 

MPAC +2 

IN (E SUBK) CR £♦! 

1792 





9Ct 3022 

6 0000 

1 


OUUBLb 



1793 

REF 

190 

LAST 

393 

90r 3023 

59 156 

1 


TS 

MPAC *2 


1799^ 

REP 

56 

-LAi_T 

390 

90i3029 

3 9719 



CAF 

ZERO 


1795 

REF 

191 

LAST 

39 2 

90t 3C25 

6 0155 

c 


AO 

MFAC ♦! 


1796 

REF 

9 

LAST 

393 

9Ct 3C26 

0 3070 

c 


TC 

2RCUNC >2 


1 79 7 

REF 

3 

LAST 

392 

9Ci 3C27 

0 3077 

1 


TC 

TESTCFLF 


1798 

REF 

12 

LAST 

39 C 

90,3030 

5C 190 

1 


INDEX 

piixeR 

RETURNS IF NO OF/UF 

1799 





90, 3031 

0 303 1 

c 


TC 

♦ 0 


175Q 

Rii_ 

L_ 



90,3032 

0 3092 

1 


TC 

DPINCRN 


1751 

REF 

27 

LAST 

39C 

90,3033 

3 0117 

0 


CA 

DECOLM 

MIXECNCUN 

1752 

REF 

27 

LAST 

339 

90,3039 

6 0195 

1 

OFINCGH 

AO 

NOUNAOD 

PixeO NORMAL 

1753 

REF 

Cl 

LAST 

339 

90,3035 

59 0C2 

1 


TS 

Q 

6 SUBK E 

1759 

REF 

H2 

LAST 

393 

90,3036 

56 155 

c 


XCh 

NPAC ♦! 


1755 

REF 

E2 

LAST 

392 

90, 3037 

5C 0C2 

c 


INDEX 

Q 


1756 





90,3090 

59 OCl 

1 


TS 

1 

PLACE LOW PART IN 

1757 

REF 

5 

LAST 

392 

90,3091 

0 2797 

1 


TC 

ENUSCALE 

(E SUBK) 4l MIXED 

1750 

REF 

57 

LAST 

392 

90,3092 

3 9719 

1 

DPI NORM 

CAF 

ZERO 

E ♦ 1 NORMAL 

1759 

REF 

1 



90,3093 

0 3039 

c 


TC 

OPINCCN 



1 7 6.C_ _ 

5E^ 

JJU 

ULST 

392 

9Q,3C99 

_4Z. 

7052 


CPINSF2 TC 

OMP 

ASSUMES 

POINT BETWEEN BITS 7-8 OF HIGH 

1761 

REF 

17 

LAST 

393 

90,3095 


00123 

1 

ADPES 

SFTEMPl 

PART CF 

SF 

CONST. 

0PINSF2 

SHIFTS RESULTS 

1762 

REF 

19 

LAST 

335 

90,3096 

3 

6211 

C 

CAF 

SIX 

LEFT 0Y 

7, 

POUNDS 

MPAC42 

INTO MPAC+l 

1763 

REF 

2 

LAST 

32S 

90,3097 

0 

3056 

1 

TC 

TPLE FTN 

SHIFT LEFT 

7. 



1769 

KEF 

3 

LAST 

391 

90,3050 

0 

3021 

1 

TC 

CPINSF +2 







1765 

REF 

12 

LAST 

393 

90,3051 

0 7052 

1 

DPI NSF9 

TC 

DMf 

ASSUMES POINT BETWEEN BITS 11-12 

OF HIGH 

1766 

REF 

18 

LAST 

39 3 

90,3052 

00123 

1 


ACRES 

SFTEMPl 

PART OF SF CONST. DP1NSF2 SHIFTS 

RESULTS 

176? 

REF 

19 

LAST 

33 7 

90,3053 

3 9711 

1 


CAF 

TWO 

LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+l. 

1768 

REF 


LAST 

393 

9 C , 3 C 59 

0 3056 

1 


TC 

TPLEFTN 

SHIFT LEFT 3. 


1 769 

REF 

9 

LAST 

392 

90,3055 

0 3021 

1 


TC 

QPINSF *2 
















1770 

REF 

C3 

LAST 

39 2 

90,3056 

56 002 

0 

tpleftn 

XCH 

c 

SHIFTS MPAC, ^1, +2 LEFT N. SETS 

OVF INO 

1771 

REF 

1 



90, 3057 

59 129 

1 


TS 

SFTEMP2 

TO +1 FOR OF, -1 FOR UP. 


1772 

REF 

C9 

LAST 

392 

90,3060 

56 002 

c 


XCH 

Q 

CALL MITH N-l IN A. 


1773 

REF 

19 

LAST 

393 

90, 3Ccl 

5 9 123 

0 

LEFTNCQM 

TS 

SFTEMPl 

LOOP TIME .37 MSEC. 


17 79 

REF 

6 

LAST 

39 1 

90, 3062 

0 9920 

0 


TC 

TPSLl 



1775 

REF 

2C 

LAST 

393 

90,3063 

1C 123 

0 


CCS 

SFTETipl 



1776 

REF 

1 



90, 3069 

0 3061 

c 


TC 

LEFTKCCM 



1777 

REF 

m 

i. 

LAST 

392 

90,3065 

0 0129 

0 


TC 

SFTEMF2 
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1770 

REF 

M3 

LAST 

342 

4Ct3C66 

56 155 

C 

2R0UNC 

XCH 

MPAC 

♦ 1 


1779 





40,3C67 

6 0000 

1 


DOUBLE 




17 00 

REF 

144 

1111 

344 

40.3070 

54 155 

1 


TS 

MPAC 

♦ 1 


1781 

RLF 

€5 

LAST 

342 

40t.3C71 

C 0002 

C 


TC 

Q 


IF MPAC+1 CC6S ROT OF/UF 

1782 

REF 

M5 

LAST 

344 

40.3072 

6 0154 

1 


AO 

HPAC 



1783 

RJEF 

M6 

LAST 

344 

4C.3C73 

54 154 

c 


TS 

MPAC 



1784 

REF 

86 

LAST 

344 

40,3C74 

C 0G02 

c 


TC 

C 


IF MPAC DOES NOT OF/UF 

1785 

REF 

5 

LAST 

34 1 

4C, 3C75 

54 162 

c 


TS 

MPAC+6 



1708 

REF 

17 

EAST 

344 

4G.3C76 

0 0002 

c 

2RNCENC 

TC 

0 




1787 

J»£ £ 

1 

LIST 344 

40.3077 

J.C 162 

C 

TESTOFUF CCS 

MPAC+6 

RETURNS IF 

NO OF/UF 

1788 

REF 

8 

LAST 342 

40.3100 

0 4161 

c 

TC 

ALMCYCLE 

OF L A R N 

ANC RECYCLE. 

1789 

REF 

68 

LAST 344 

4Cf 3101 

0 Q002 

c 

TC 

Q 



1 790 

REF 

9 

LAST 344 

4Ct3 102 

0 4161 

c 

TC 

ALMCYCLF 

UF ALARM 

ANC RECYCLE. 


1791 REF 1 A2.3369 SETLCC ENDSPPIN *l 

17915 REF 2 LAST 231 TO 3JA: lA(t 1A€* COUNT A2/P1K 


1792 

REF 

1 



42.3365 

0 3506 

1 HMSIN 

TC 

ALL3CEC 

IF ALL 3 rCROS MERE NOT LOADED, ALARM. 

1793 

REF 

13 

LAST 

34 3 

42.3366 

0 7052 

1 

TC 

OMP 

XR£G, XREGLP (*HGURS1 WERE ALREADY PUT 

1794 

REF 

1 



42.3267 

C3447 

C 

AORES 

WHCL ECUN 

INTC MPAC, MPAC-H. 

1795 

REF 

1 



42, 3370 

0 3456 

C 

TC 

RND/TST 

RCUNC CFF TC WHCLE HRS IN MPAC+l. 

1796 

REF 

*8 

LAST 

34 2 

42,3371 

3 4714 

1 

CAP 

2EPL 

ALARM IF MPAC NCN ZERO (G/ 16383 1. 

1797 

REF 

M7 

_LAS_T . 

344 

42,3372 

54 156 

1 

TS 

MPAC +2 


1798 

REF 

1 



42,3273 

3 3451 

1 

CAF 

Hf CON 


1799 

REF 

146 

LAST 

344 

42, 3374 

54 154 

C 

TS 

MPAC 


1800 

REF 

2 

LAST 

344 

42,3375 

3 3452 

1 

CAF 

HftCON *1 


1801 

REF 

MS 

LAST 

344 

42,3376 

56 155 

c 

XCH 

MPAC ♦! 


1602 

REF 

6 

LAST 

332 

42,3377 

0 7256 

1 

TC 

SHCP TMP 


1803 

REF 

1 



42, 3400 

0 3467 

1 

TC 

MPAC TST 

alarm if MPAC NCN ZERO (G/ 7451 

1804 

REF 

15C 

LAST 

344 

42,3401 

52 156 

1 

DXCH 

MPAC ♦! 

STORE HOURS CCNTRIPUTIDN 

18C5 

REF 

1 



42.3402 

52 124 

i 

OXCH 

HITEMIN 


1606 

REF 

2 

LAST 

336 

42, 3403 

3 1004 

1 

CA 

YPti^ 

PUT YREG, YREGLP INTO MPAC, ♦!. 

1807 

REF 

2 

L AS T 

72 

42,3404 

23*007 

1 

L XC H 

YRE IIP 


1808 

REF 

151 

LAST 

344 

42,3405 

52 155 

1 

DXCH 

MPAC 


1809 

REF 

_ M_ 

LAST 

34 4 

42 , 3406 

C 7062 

i 

TC 

DMp 


1810 

REF 

2 

LAST 

344 

42,3407 

03447 

c 

AORES 

WhUL ECCN 


1811 

REF 

2 

LAST 

344 

42,3410 

0 3436 

c 

TC 

KNO/TST 

RCUND CFF TC WHCLE MIN IN MPAC^l 

1812 

REF 

1 



42,3411 

4 34 54 

c 

CS 

S9MI N 

alarm if MPftC NCN ZERO (G/16303) 

1613 

REF 

1 



42,3412 

0 3474 

T 

TC 

si2e TsT 

ALARM IF M P A 

1814 

REF 

152 

LAST 

344 

42,3413 

56 155 

C 

XCH 

MPAC ♦! 


1815 





42,3414 

C 0006 

1 

EXTEND 



1816 

REF 

1 



42,3415 

7 3453 

1 

HP 

minccn 

LEAVES MrriUTFr C^TRTBUTTCTs IN A,L 

1617 

REF 

2 

LAST 

344 

42,3416 

20 124 

1 

OAS 

H IT £ M I N 

ADD IN MINUTES CGNTRI0UTICN 

1818 





42,3417 

0 COOo 

1 

EXTEND 


IF THIS CAS OVERFLGWS, G7 745HR,39«rN 

1819 





42. 3420 

1 3422 

1 

BZF 

♦ 2 


1820 

REF 

K 

LAST 

34 4 

42.3421 

0 4161 

c 

TC 

ALMCYCLE 
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1E21 

REF 

3 

LAS! 

336 

42,3422 

3 1005 

C 


CA 

ZKEG 

PUT ZREG, ZREGLP INTO PPAC, ♦!. 

iti22 

REF 

2 

CAST 

72 

42,3423 

23*010 

1 


LXCH 

ZREGLP 


1021-. 

R£F 

ill 

LIST 


42.3424 

S2 155 

_J_ 


DXCH 

MPAC 

- - tm 

I62*t 

REF 

15 

LAST 

3A A 

42,3425 

0 7052 

1 


TC 

C'NP 

H 

1625 

ref 

3 

LAST 

3AA 

42,3426 

03447 

C 


ACRES 

WHOLECCN 


L026 

Ril- 

3_ 

last 

3AA 

42,3427 

0 3456 

c 


TC 

RNCV TST 

RCUNC OFF TC NHCLE CENTI-SEC IN MPAC+l 

1627 

REF 

1 



42,3430 

4 3455 

1 


CS 

59.99SEC 

ALARM IF MPAC NCN ZERO IG/163.8J SECT 

1828 

REF 

2 

LAST 

3AA 

42,3431 

0 34 74 

c 


TC 

SIZL7ST 

ALARM IF MRAC^l G/59.99 SEC 

1029 

REF 

3 

LAST 

3AA 

42,3432 

52 124 

1 


OXCH 

HITEPIN 

ADC IN SECONDS CONTRIBUTION 

18 30 

REF 

i;a 

LAST 

3 AS 

42,3433 

2C 155 

1 


DAS 

HP AC 

IF THIS CAS OVERFLOWS, 

1031 





42,3434 

C OOOt 

1 


EXTEND 


G/ 745 HR, 39 MIN, 14.55 SEC. 

1832 





42,3435 

1 3437 

c 


bZE 

♦2 


18 33 

REF 

11 

LAST 

3AA 

42,3436 

0 4161 

c 


TC 

ALPCYCLE 

ALARM AND RECYCLE 

183A 

REF 

59 

LAST 

3A4 

42,3437 

3 4714 

1 


CAE 

ZkPC 


1135 

Rli. 

155 

LAST 

3A5 

42,3440 

54 156 

1 


TS 

MPAC *Z 


1836 

REF 

6 

LAST 

33A 

42,3441 

0 7226 

c 


TC 

TPAGREE 


1637 

REF 

156 

LAST 

345 

42,3442 

52 155 

1 


LXCH 

MPAC 


1638 

REF 

28 

LAST 

343 

42,3443 

5C 145 

1 


INDEX 

NOUN ADC 


1839 





42,3444 

52 OCl 

1 


OXCH 

0 


18A0 

REF 

2<t 

LAST 

342 

42,3445 

0 4574 

c 


TC 

POST JUMP 


ISAl 

REF 

1C 

LAS 1 

34C 

42,3446 

62771 

1 


CAOR 

LOAOLV 














18A2 





42,3447 

CC0C6 

1 

WHOLECQN 

OCT 

00006 

( 1QEXP5/2EXP14)26XP14 

10A3 





42,3450 

C324G 

1 


OCT 

U32 4C 


IBAA 





42,3451 

CG025 

c 

HRCCN 

OCT 

0002 5 

1 HCLR IN CENTI-SEC 

10A5 





42,3452 

371CO 

1 


OCT 

3710C 


18A6 





42,3453 

1356Q 

c 

R INCON 

OCT 

1356C 

1 MINUTE IN CENTI-SEC . 

18^7 





42,3454 

00073 

c 

59M IN 

OCT 

00C73 

59 AS hHOLE — 

18Ae 





42,3455 

13557 

1 

59.99SE0 

OCT 

13557 

5999 CENTI-SEC 


1849 

REF 

157 

LAST 

345 

92,3456 

56 156 

C 

RNO/TST 

XCH 

MPAC *2 

flCUNCS MPAC*2 INTO MPAC+l. 

115JQ 





42.3457 

6 OOGG 

1 


OQUOLE 


ALARMS IF MPAC NOT 0 

1851 

REF 

156 

LAST 

34 5 

42,3460 

5 4 156 

1 


TS 

MPAC +2 


1052 

REF 

6C 

LAST 

345 

42,3961 

3 4719 

1 


CAF 

ZERO 


1853 

REF 

159 

LAST 

345 

92,3962 

6 0155 

C 


AO 

MPAC ♦! 


1854 

REF 

16C 

LAST 

345 

92,3963 

54 155 

1 


TS 

MPAC +1 


1855 

REF 

6 1 

LAST 

345 

92,3464 

3 4719 

1 


CAF 

ZfcRC 


1856 

REF 

161 

LAST 

345 

42,3465 

6 0154 

1 


AO 

MPAC 

CANT OVFLOk 

1657 

REF 

162 

LAST 

345 

42,3466 

56 154 

I 


XCH 

MPAC 


1858 

REF 

163 

LAST 

345 

42,3467 

IC 154 

C 

MPACTST 

CCS 

MPAC 

ALARM IF MPAC NCN ZERO 

1859 

REF 

12 

LAST 

345 

42,3470 

0 4161 

c 


TC 

ALMCVCIE 

alarm ANC RECYCLE. 

186C 

REF 

E9 

LAST 

349 

92,3471 

C 0002 

c 


“TC 

C 


1861 

REF 

13 

LAST 

345 

4 2 f 3 4 7 2 

0 4161 

( 


1C 

ALMC VCLE 

ALARM ANC RECYCLE. 

1862 

REF 

90 

LAST 

345 

42,3473 

C 0002 

c 


TC 

0 














1863 

REF 

164 

LAST 

345 

42, 3474 

54 156 

1 

SIZEtST 

TS 

MPAC +2 

CALLED Ml TH - CCN IN A 

1864 

REF 

165 

LAST 

345 

92,3475 

IC 156 

1 


CCS 

mpaCT +1 

GET MAG OF MPAC+l ' 

1065 

REF 

35 

LAST 

34C 

42,3476 

6 9712 

1 


AO 

ONE 


1866 





92,3477 

1 3501 

1 


TCP 

+ 2 

” ■ **- ^ ~ 


II 
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MiA 


All. 


1:I7 ALG. 2^tiq66 KCOIACE «064 PAGE 3^6 


PIKMLL CA^E BUTTCMS AND HQhTS 


IjSE«»S page NC. A7 


EO S4 


A2f3500 t A712 1 AO ONE ____ 

^2fJ501 6 C156 C AD MPAC *2 

A2.3502 C QQQ6 1 EXTEND MAG CE WPAC-H - CON 

A2j3_5C1 6 3505 L B2HF +2 

^2f350^ 0 A161 C TC ALhCVCLE MAG GE MPAC+l G/ CON. ALARM AND RECYCLE. 

A2t 3505 C 0QC2 ( TC Q MAG CF MPAC L/» COA 


Kie73 ALL3CtC IE<TS THA 1 _AL1 hCPOS APE LCACEC IK DEC (FOK MHSIN). 


Ria74 

ALARM IF 

NCT.< 

TEST 

THAT BITS 

3 

f4,5 

CF 

CECaRNCH 

ARE ALL 

« 1 ) 






1875 

REF 

1 



42*3506 

4 

3513 

1 

ALL3CEC 

CS 

0CT34eAR 

GET 

BITS 

3*4*5 IN 

A 


1076 

REF 

17 

LAST 

335 

42*3507 

7 

1000 

1 


MASK 

DECBRNCh 

GET 

BITS 

3,4,5 CF 

DECQRNCH 

TN A 

1877 

REF 

2 

LAST 

34C 

42.3510 

6 

3513 

C 


AO 

0CT34EAR 

BITS 

3 *4* 

5 CF OECBRNCh MUST 

ALL * 1 

1878 

REF 

ICA 

LAST 

342 

42*35 1 1 

1C OOC 

c 


CCS 

A 






1875 

REF 

1 



42*3512 

0 

3516 

( 


TC 

F(JRCEV25 






1880 





42*3513 


77743 

1 

0CT34bAR 

OCT 

77743 






1881 

REF 

2 

LAST 

34 6 

42.3514 

0 

3516 

c 


TC 

FGPC EV25 






1882 

RE F 

52 

LAST 

348 

42*3515 

c 

0002 

c 


TC 

0 







1867 REF 36 LAST 345 

1068 REF lie LAST 3-45 

1065 

1870 

1071 REF l<i last 345 

1 a 12 P_E1 SJ LAST 


leazs 

REf. 

_A_ 



42,3516 

4 4113 

1 

FORCEV25 

CS 

0CT3 1 

FCRCE VERB 25 

TC 

BE EXECUTED 

BY RECYCLE 

18826 

REF 

2 

LAST 

317 

42*3517 

55*041 

1 


fs 

VEPESAVE 

IN CASE OPERATCR 

EXECUTED A 

LOmER load 

18027 

REF 

15 

LAST 

346 

42*3520 

0 4161 

C 


TC 

ALMC VCLE 

VERR. ALARM 

AND 

RECYCLE. 


1683 





42* 3521 



ENOFMSS 

EQUALS 






l: 1? AtiG> ? L^.fc a KCO IAOE .06<> PAGE 3^7 


USER'S PAGE NG. ^0 EO S<. 


Plbe<f HCMTCF <L LCV»S OTh EP KfYBCARC ACTIVITY. IT IS ENDED BY VERB TERMINATE, 
Riaed VEFE FPQCEEC talTHCll DATA, VERB RESECDENCE, 

gl0E<L ANCTEEP PCMTOR. CR ANY NVSDB CALL THAT PASSES THE DSPLDCK (PPCVIOEC 
Piaatl Th/T lEE CfEPATOR PAS SCMEPCW ALLOWED TPE ENDING OF A MCNITOP WHICH 
RieeC}^ HE HA< INITIATED IHRGOGH THE KEVeOARO). 


Plea? MCMTCP AC1ICN IS SLSPENDECf fill NCT ENDED, BY ANY KEYeCARD ACTICNt 

Rld66 EXCEPT EPPCR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFOPMEC. 

Pl8e9 HCMTCP SAYES THE NCDN AND AFPPCPRIATE DISPLAY VERB IN MONSAVE. IT SAVES 
Ria90 NCLNCAC R IN MQNSAVEl, IF NOUN * MACHINE CAOR TC BE SPECIFIED. BIT 15 OF 

RL891 HCNSAVEl IS THE KILL MCNITCR SIGNAL {KILLER BIT). BIT lA OF FCNSAVEl 

R 18 9 1 1 JAC KATES THE CURRENT MCNITCR WAS EXTERNALLY INITIATED (EXTERNAL 

RL0912 MCNITCR £11). IT IS TURNED OFF BY BELCSF AND KILMONCN. 

iLLa92 MCNSAVE INDICATES IP MCNITCR IS CM*«CN, ♦0«DFF) 

R1893 IF MCNSAVE IS •», MCMTOR ENTERS NO RECLEST, BUT TURNS KILLER EIT OFF. 
RltJ9A IF MCNSAVE IS +0, MCMTOR ENTERS REGUEST AND TURNS KILLER BIT OFF. 


«ie95 NVSLB (IF EXTERNAL MCMTOR BIT IS CFM, V 6* PROCEED WITHOUT DATA, 
P1896 VB«PESeClENCE , ANC VB-TERMINATE TURN KILL MCMTOR BIT OK. 


Hia97 IF killer EIT IS CN, MCNREC ENTERS NC FURTHER REQUESTS, 2ERCS MONSAVE 
Ria96 ANC MCNSAVEl (TURNING UFF KILLER BIT AND EXTERNAL MONITOR BID. 


P1099 MCNITCR CCJENT TEST FOR MATES SINCE NVSLB CAN HANDLE INTERNAL MATBS NOW 
1900 REF 1 Ai,3220 SETLOC ENDRLTIN 


19005 REF 2 LAST 335 TO 3A I J 262 6 56* COUNT Al/PIN 


19C1 

_Bi.L 

L 



41,3220 

4 322 7 

1 

MCN ITOR 

CS 

BIT15/14 


1902 

REF 

6 

LAST 

34C 

41,3221 

7 1017 

1 


MASK 

NQUNCACR 


1902 

REF 

167 

LAST 

346 

41,3222 

54 155 

I 

WONIll 

TS 

MPAC +1 

TEMP STORAGE 

19031, 

REF 

7 

LAST 

33 A 

41,3223 

4 C136 

1 


CS 

ENTEXIT 


19032 

REF 

4 

LAST 

317 

4 1,3 2 24 

6 4233 

1 


AD 

END! NST 


19L33 

REF 

ICE 

LAST 

346 

41,3225 

10 GCO 

C 


CCS 

A 


19C3A 

REF 

1 



41,3226 

0 3235 

c 


TC 

MOM T2 


19035 





4 1,3227 

6Q0G0 

1 

eiT15/14 

OCT 

6000 C 


19036 

REF 

2 

LAST 

34 7 

41,3230 

0 3235 

c 


TC 

MCNI T2 


19C3T 

REF 

27 

LAST 

325 

41,3231 

3 4675 

1 


CAF 

blTL4 

EXTERNALLY INITIATED MONITOR, 

19036 

REF 

166 

LAST 

34 7 

41,3232 

26 155 

1 


“aFs 

MPAC *1 

SET BIT 14 FOP MONSAVEl. 

1903E1 

REF 

62 

LAST 

345 

41,3233 

3 47 14 

1 


Caf 

ZERO 


190362 

REF 

1 



41,3234 

55*022 

1 


TS 

MCNSAVE2 

ZERO NVMONCFT OPTIONS 

1904 

REF 

3 

LAST 

197 

41,3235 

3 6C43 

c 

M0NIT2 

CAF 

LOW? 


19C5 

REF 

17 

LAST 

324 

41,3236 

7 lOQl 

c 


MA S K 

VERBREG 


19C6 

REF 

4 

LAST 

33S 

41,323? 

0 4345 

1 


TC 

LEF T5 


19C7 

REF 

5 

LAST 

31C 

41,3240 

54 C22 

c 


Is 

CYL 


19CB 

REF 

6 

LAST 

347 

41,3241 

4 CC22 

c 


CS 

CYL 


1909 

REF 

7 

LAST 

347 

41,3242 

56 022 

1 


XCh 

CYL 


1910 

REF 

n 

L<ST 

335 

41,3243 

6 1002 

1 


AD 

NOUNREG 


1911 

REF 

169 

LAST 

347 

41,3244 

54 1S4 

c 


TS 

MPAC 

TEMP STORAGE 


GAP ; REV ISION lU Xf AGC PAQGPAM COLOSSUS BY NASA 202111 1-C31 

L PINE ALL CAME flUTTCNS TnO LIGHTS 


CAP : ^SSE» eH RgVl^lCh 211 CF AGC PRCGRAM CQLCSSUS BY NASA 2Q21111-C31 HI? ACG. 2^ 1 1968 KCC^ADE .OfeA P4QE 3A8 


L game eUTlCNS and eights =_ USEH'S PAGE NO. ^9 EG 


1912 

1913 

1914 

PEf 

REF 

REP 

E3 LAST 

3 LAST 

4 LAST 

34 T 

3oe 

317 

4 !• 3<4S 

4 It 3246 

4 1,324T 

3 4714 
55'012 
J1*Q42 

1 

1 

1 

CAF 

TS 

CCS 

ZERO 

OSPLCCK 

CADR STCR 

♦0 INTC OSPLOCK SO MCNITOR CAN PUN. 

TURN OFF KR LITE IF CAORSTQR AND DSPL 1ST 

1915 





41« 3250 

0 3252 

1 

TC 

♦ 2 

ARE eCTH ERPTY. (LITE COMES ON IF NEW 

1916 

REF 

1 



41*3251 

0 4516 

1 

TC 

RELC-SPl 

MCNITOR IS KEYED IN OVER OLO MONITOR.! 

1917 





41,3252 

0 00C4 

C 

INHINT 



1918 

REF 

2 

LAST 

187 

41,3253 

11*020 

C 

CCS 

HUNSAVE 


1919 





41,3254 

0 3261 

1 

TC 

♦ 5 

IF MCNSAVE hAS *, NO REQUEST 

1920 

REF 

37 

LAST 

346 

41,3255 

3 4712 

1 

CAF 

ONE 

IF MCNSAVE WAS 0, REQUEST MONREO 

1921 

REF 

ic 

LAST 

242 

41,3256 

0 5140 

1 

TC 

WAITLIST 


1922 

REF 

29 

LAST 

34C 

CT77 



EB ANK» 

DSPCCLNT 


1923 

REF 

1 



41,3257 

03265 

c 

2CA0R 

MCNPEC 


1923 

REF 

1 



41,3260 

62101 

c 




1924 

REF 

ITC 

LAST 

34T 

41,3261 

52 155 

1 

DXCH 

HPAC 

PLACE MONITOR VERB AND NOUN INTO MQNSAVE 

1925 

REF 


LAST 

346 

41,3262 

53*021 

1 

OXCH 

MONSAVE 

ZERO THE KILL MCNITOR BIT 

1926 





41,3263 

0 0003 

1 

REL INT 


SET LP EXTERNAL MONITOR BIT 

1927 

REF 


LAST 

316 

41,3264 

0 0136 

c 

TC 

ENTRET 
























1926 

REF 

1 



41,3265 

0 4414 

1 HGNREO 

TC 

LDDSANPT 

CALLED BY WAITLIST 

1929 

REF 

2 

LAST 

187 

41,3266 

11*021 

1 

CCS 

MONS AVE 1 

TIME IS SNATCHED IN RUP7 FCR NOUN 65 

1930 





41, 3267 

0 3273 

1 

TC 

+ 4 

IP KILLER BIT - 0, ENTER REQUESTS 

1931 





41,3270 

0 3273 

1 

TC 

♦ 3 

IF KILLER BIT « 0, ENTER REQUESTS 

1932 

REF 

1 



41,3271 

0 3304 

C 

TC 

KILL NON 

IF KILLER BIT - 1, NO REQUESTS 

1933 

REF 

2 

LAST 

346 

41,3272 

0 3304 

c 

TC 

K ill FCN 

IF KILLER BIT • 1, NC REQUESTS 

1934 

REF 

1 



41,3273 

3 3310 

c 

CAF 

MONOEL 


1935 

REF 

11 

LAST 

346 

41,3274 

0 5140 

1 

TC 

WAl T LIST 

ENTER WAITLIST REQUEST FOR HONREQ 

1936 

REF 

4C 

LAST 

346 

0777 



EBANK* 

OSPCCCNT 


1937 

REF 

2 

LAST 

34 6 

41,3275 

C3265 

c 

2CA0P 

MONFEC 


1937 





41, 3276 

621CI 

c 




193 8 

REF 

2 

LAST 

1 3 1 

41,3277 

3 4371 

c 

CAF 

CHRPRIG 


1939 

REF 

1 1 

LAST 

2 94 

41,3300 

0 5027 

1 

TC 

NGVAC 

ENTER EXEC REQUEST FCR HONDO 

1940 

REF 

4 1 

LAST 

346 

0777 



EbANKs 

DSPCCLNT 


1941 

REF 

1 



41,3301 

C3311 

1 

2CADR 

MONOC 


1941 

REF 

1 



41, 33C2 

62101 

c 





1 942 REP 12 LAST 2A3 Al,3303 0 3213 1 tC TASKCVEP 


1943 

1944 

REF 

REF 

64 

4 

LAST 

LAST 

34 6 
346 

41. 3304 

41.3305 

3 47 14 
55*020 

1 

C 

KILLMCN 

CAF 

TS 

ZERO 

MONS AvE 

ZERO 

MCNSAVE AND TURN KILLER BIT OFF 


1945 

REF 


LAST 

346 

41,3206 

55*021 

i 


TS 

rtONS AVfl 

TURN 

CPF KILL MtMTCtt BIT. 


1946 

REF 

13 

LAST 

346 

41,3307 

0 5213 

1 


TC 

TASKCVEP 

rUR7< 

OFF 6XTEFNAL MONITOR BIT. 


1947 





41,3310 

CC144 

c 

MCNDEL 

OCT 

144 

FCR 

1 SEC MCNITCR INTERVALS 



1948 

REF 

4 

LAST 

348 

41,3311 

11 

*021 

1 HONDO 

CCS 

MONSAvai 

1949 





41,3312 

0 

3316 

C 

TC 

*♦-4 

1950 





41,3313 

0 

3316 

c 

TC 

3 

1951 

REF 

31 

LAST 

314 

41,3314 

0 

5112 

c 

TC 

ENUOf JCB 

1952 

REF 

22 

LAST 

34 6 

41,3315 

0 

5112 

c 

“^TC 

EnDC FJC fe 

1^53 

REF 

4 

LAST 

346 

41,3316 

11 

*0U 

1 

CCS 

OSPlOCk 


CAL16C BY EXEC 

■ff KILLES 6!T“» 0. CUFmKLE 

IF KILIET>. 9TT - 0, CONTINUE 

IN CASE TEflHI'MATE CAME SINCE LAST HONPEQ 

In CXSE TEftNlNATE XAHE"SINCF CAST MON^TEG 



It 
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1962 

1963 
1 96 9 


1971 


1972 


REf 

REF 

REF 


1 

1 


91 
9 1 


39 9 


A1 


1959 

REF 

1 



91,3317 

0 

3391 

1 

TC 

MONELSY 

1955 

REF 

9 

LAST 

39 7 

9 1,3320 

3 

6093 

C 

CAF 

L0W7 

19^6 

-RLE 



39E 

91,3321 

7 

1020 

-i 

PASK 

MONSAVE 

1956 

REF 

1 



91,3322 

C 

2316 

1 

TC 

UPOATNN -1 

I960 

REF 

1 



91,3323 

3 

9160 

1 

CAF 

MID7 

i.961__ 

REF 


LAST 

399 

91,3329 

7 

1C2Q 

C 

MASK 

MCNSAVE 


REF 


1 


91 


NVSOe IS BUSY 


PLACE ^0U^ IMQ NOUNREC AND DISPLAY IT 


CHANGE MONITOR VERB TO DISPLAY VERB 


3325 

6 3337 

C 

AO 

MGNP EF 

-DECIO, STARTING IN BITfl 

3326 

59 023 

1 

TS 

EOCP 

RIGHT 7 

3327 

3 CC2J 

C 

CA 

EOCP 



1965 

REF 

16 

LAST 

39 7 

91, 3330 

55«GC1 

C 

7S 

VEPEREG 

1966 

REF 

1 



91,3231 

3 3390 

C 

CAF 

HCiNBACK 

1967 

REF 


LAST 

396 

91.3332 

59 136 

1 

TS 

LNTR £T 


SET RETURN TO PASTEVfi AFTER DATA DISPLAY 


1966 

REF 

2 

LAST 

39 7 

91,3333 

9 

I22i 

1 

CS 

BITl 5/19 

1969 

REF 

5 

LAST 

34 6 

91,3339 

7 

1021 

1 

MASK 

HCNS AVEl 

19 70 ^ 

R£F 

m 

LAST 

396 

91,3333 

C 

V 

9 156 

1 

TS 

MPAC 


♦ 2 


PUT ECAOR INTO NPAC *2, INTMCTflS WILL 
DISPLAY IT ANC SET NDUNCADRt NOUNACO* 


3336 0 2096 1 ENOPONOO TC 


TEST NN 


EBANK . 


9190 


BLCCK 2 


1972C1 REF 

_19J2i:i 


1 


9000 

9190 


SETLOC FFTACe 
BANK 


19725 REF 1 COUNT 02/PIN 


1973 

REF 

2 

LAST 

399 

9 190 

3 

9160 

1 

PASTEVB 

CAF 

MI 07 


1979 

REF 

2 

LAST 

39 7 

9 191 

7 

1022 

1 


MASK 

M0NSAVe2 

NVMONCPT PASTE CPT ION 

1975 





9192 

0 

0006 

1 


EXTEND 



1976 





9 193 

1 

9195 

1 


bZF 

♦ 2 


1977 

REF 

1 



9199 

0 

9196 

C 


TC 

PAST ECPT 

PASTE PLEASE VERB FOR NVMCNQPT 

1978 

REF 

7 

LAST 

39 9 

9 195 

3 

1020 

1 


CA 

HONS AVE 

PASTE MONITCR VERB - PASTE OPTION IS 0 

19782 

REF 

3 

LAST 

399 

9 196 

59 023 

1 

PASTECPT 

TS 

EDGP 

RIGHT 7 

19782 

REF 

9 

LAST 

39 9 

4 14 7 

3 

0023 

C 


CA 

fcCOP 

PLACE PONITCR VERB OR PLEASE VERB INTO 

197822_ 

REF 

49 

LAST 

332 

9150 

0 

9555 

c 


TC 

BANK CALL 

VERBREG AND DISPLAY IT. 

197833 

REF 

7 

LAST 

336 

9151 


62336 

c 


CAOR 

UPOATVe -1 


197835 

REF 

65 

LAST 

396 

9152 

3 

9719 

1 


CAF 

ZEPC 

ZERO REQREt SC THAT PASTED VERBS CAN 

197838 

REF 

10 

LAST 

32 1 

9153 

5 

5*013 

c 


ifs 

RtORET 

BE EXECUTED BY OPERATOR. 

19789 

REF 

3 

LAST 

399 

9159 

3 

1022 

c 


CA 

M0NSAVE2 


19785 

REF 

1 



9156 

0 

9271 

1 


TC 

BLANKSUB 

PROCESS NVPCNCPT BLANK OPTION IF ANY 

19766 





9156 

0 

9157 

c 


TC 

♦ 1 


19787 

REF 

'3 ^ 

^ 4 # 

LAST 

396 

9157 

0 

5112 

c 

ENDPASTE 

TC 

ENDCF JCP 



1979 9160 3760L 0 HI07 OCT 3760C 


1960 REF 1 91,3 337 SETLOC ENOhCNCC +1 

19605 REF 9 LAST 397 TC 39 9 : 79 735* COUNT 91 /P IN 

196 1 9 1,333 7 75377 C MONREF OCT 75377 -DECIO, STARTINC IN 6179 

1982 RTF I 91,3390 09190 C NONBACK AORES PASTEvB 


gap: ftPVlSTCh 221 CP AGC PRLGRAH COLOSSUS BV NASA 2021111-031 1:17 ALG* 2A.l9t,8 KCOLAC_|_,06^ PAGE 350 


L PUfHL CAPE iUTTChS AND LIGHTS _____ USER'S PAGE NO. 51 EO S4 

1^3 REF 2 LAST JOE ^1,33^1 0 ^^10 C MONBUSY TC RELDSPCN TURN KEY RELEASE LIGHT 

196A REF 3A LAST 34S 41*33^2 0 5112 C TC ENOQFJCB 


— — — » 

Bl9e5 CSPFREH IS USEC TC DISPLAY (IN CCTALl ANY FIXED REGISTER. 

Rise6 n IS LSEC NCUN « NACFiINE CAOP TC EE SPECIFIED. THE FCACF OF THE 

R1987 CESIPEC LCCATICN IS THEN RUNCHEC IN. II HANCL6S F/F ( FCAOK 400C-7777I 


Mqfi71 FDR lANKS L/t 27. TUS IS ENOUGH. 

R1S872 FCF EANKS C/E 30 t THE THIRD CCNFCNENT CF NCUN 26 (PRiUr AORESt BBCCN ) 

R1987 3 HIST EE P RELCACED RITH THE DESIRED SUFERBANK BITS (BITS 5,6. 7>, 

R19e7<i V23N26 ShCULC BE LSEC. 


Bltfili SUPNA FY ■ 

kl9e76 FCF EANRS L/E 27, V27N01E ( FCADR) E 

R19e77 FCF BANKS G /E 30 t V2 3N26E ( SUPER B IT S I E V27N0 iE( FCADR I E 


1988 

REF 

12 

LAST 

334 

41,3343 

3 

4333 

C 

CSPFHEM 

CAF 

RlOl 

IF F/F, DATACALL USfcS BANK 02 OR 03. 

1989 

REF 

42 

LAST 

348 

4 1, 3344 

5 4 

777 

1 


TS 

OSPCCLNT 


19891 

REF 

1L_ 

LAST 

275 

41,3345 

3 

1047 

C 


CA 

OSPTFHl *2 

SUPER8ANK BITS KERE PRELOADEO INTC 

19892 

REF 

4C 

LAST 

338 

41,3346 

5^ 

001 

1 


TS 

L 

3R0 CCRPONENT OF NOUN 2tj. 

1990 

REF 

7 

LAST 

34 7 

41,3347 

3 

1017 

C 


CA 

NO(jNCACR 

original FCACR loaded STILL IN NGUNCAOR. 

1991 

REF 

I 



41,3350 

0 

4610 

I 


1C 

SUPDACAL 

CALL KITH FCACR IN A, SUPERBITS IN L. 

1992 

REF 

2 

LAST 

324 

41,3351 

0 

3353 

1 


TC 

OSPCCTWO 


1993 

REF 

25 

LAST 

35C 

41,3352 

0 

5112 

C 

ENDSPF 

TC 

ENUCFJCB 



QAP I AS SgltaLl flgMISICh 231 CF AGC PPCGRAM COLOSSUS BY NASA 2021II1-C31 1:1? AUG. KCGIADE .064 PAGfc 351 
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I 


0 


P1S9^ V»CPC CISPL/Y RCUTJAil 


1995 HEF A LIST 343 AC.31C3 SETLOC TESTCFLF 44 


19955 

REF 

5 

LAST 

341 TC 

344 : 

119 579* 


COUNT 

40/P IN 


1996 

REt_ 


-LIS J 

34 6 

4L.J103 

56 CC2 

iL- 

CSPS IGN 

XCh 

u . 


1997 

REF 

1 



40^3104 

54 144 

1 


TS 

OSPWCRET 


1996 

REF 

172 

LAST 

349 

4Ct3l05 

IC 154 

C 


CCS 

MPAC 


1999 





4Ct3106 

0 3116 

1 


TC 

*80 


2000 





40, 3107 

0 3116 

1 


TC 

*7 


2001 

REF 

36 

LAST 

346 

4C,3 1 10 

6 4712 

1 


AO 

GNF. 


2002 

REF 

172 

LAST 

35 1 

40,3111 

54 154 

c 


TS 

MPAC 


2003 

REF 

2 

LAST 

312 

40,3112 

0 2 3 34 

1 


fc 

-ON 


2004 

REF 

174 

LAST 

351 

40,3113 

4 0155 

1 


CS 

MPAC ♦1 


2005 , 

R61 

Lli_ 

LAST 

351.. 

40,3114 

54 155 

J_ 


TS 

MPAC *1 


2006 

REF 

2 

LAST 

35 1 

40,3115 

0 0144 

0 


TC 

OSPNCPET 


2007 

REF 


LAST 

33C 

40,3116 

0 2314 

c 


TC 

♦ON 


^ooe 

REF 

■a 

^ 

LAST 

35 1 

4C,JU7 

0 0144 

G 


TC 

DSPNCRET 


2009 





40,3120 

0 C0C6 

1 

OSPRNO 

EXTEND 

POUND BY 5 EXP-6 


2010 

REF 

_l_ 



40,3121 

3 3164 

1 


OCA 

OECPCUNC "1 


2011 

REF 

176 

LAST 

35 1 

40,3122 

20 155 

1 


OAS 

MPAC 


2012 





40,3123 

C 0006 

1 


EXTEND 



2013 





40,3124 

1 3130 

1 


BZF 



201A 





40,3125 

0 00C6 

1 


EXTEND 



2015 

REF 

1 



40,3126 

3 4672 

c 


OCA 

DPOSRAX 


2016 

REF 

177 

LAST 

35 1 

40,3127 

52 155 

1 


DXCH 

MPAC 


201? 

REF 

94 

LAST 

35 ] 

40,3130 

C CQC2 

c 


TC 

Q 


P201L 

— CSFCECRC 

CCN VERTS Cl 

RPAC, RPAC41) INTO 

A SIGN AND 5 CHAR DECIMAL 

- ■ 

P2019 

START IRG 

U LOC SFEClFlEt IN 

CSPCCLNT 

« 

IT RCLNOS 

flV 5 EXP-t. 


2020 


_ 51_ 

LAST 

351 

40,3131 

56 0C2 

c 

OSPOEChC 

XCH 

Q 

— 

2021 

REF 

1 



40,3132 

5 A 115 

c 


TS 

N DR E T 


2022 

REF 

1 



40,3133 

0 ilCi 

c 


TC 

DSPS ION 


2023 

REF 

1 



40,3134 

0 3120 

1 


TC 

DSPKNC 


2024 

REF 

4 

LAST 

296 

40,3135 

3 4710 

c 


CAF 

FOUR 


2025 

REF 

1 



40,3136 

54 13? 

c 

OSPCCWOl 

TS 

WOCNT 


2026 

REF 

1 



40,3137 

3 437? 

c 


CAF 

b INCCN 


2027 

REF 

7 

LAST 

344 

40,3140 

0 72 56 

1 


TC 

SHOR TRP 


2026 

REF 

178 

LAST 

35 1 

40,3141 

5C 154 

1 

TRACEl 

INDEX 

MPAC 


2029 

REF 

3 

LAST 

309 

40,3142 

3 4072 

c 


CAF 

RtLTAfi 


2030 

REF 

t 

LAST 

339 

40, 3143 

7 4362 

t 


RA5K 

LCW5 


2031 

REF 

t 

LAS r 

332 

40,3144 

5* 124 

1 


TS 

CODE 

_ — — — - — . 

2032 

REF 

66 

LAST 

349 

40,3145 

3 4714 

1 


CAF 

ZERO 


2033 

REF 

179 

LAST 

35 1 

40*3146 

56 156 

t 


XCH 

MPAC ^"2 


2034 

REF 

lEC 

LAST 

351 

40,3147 

56 156 

c 


XCH 

MPAC ♦! - 

1 ■ 1 ■ 

2035 

REF 

161 

LAST 

35 1 

40,3150 

54 164 

c 


TS 

MPAC ' 


20 J6 

HEF 

*2 

LAST 

35C 

40,3151 

56 77 ? 

c 


XCH 

DSfCclnt 


2037 

REF 

4 

LAST 

33 2 

40,3152 

54 143 

c 

TRACEIS 

TS 

COUNT - 
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2038 

REF 

iC^ 

LAST 

347 

40f 3153 

IC 

ooc 

C 

CCS 

A 

2039 

RLF 

A4 

LAST 

35 1 

4Ct3154 

54 

777 

1 

TS 

DSPCCUNT 

204.0 

REF 

4 

LAST 

332 

4C.3155 




TC 

DSP IK 

2041 

REF 

2 

LAST 

351 

40^3156 

LC 

13? 

C 

CCS 

WDCNT 

2042 

REF 

1 



40,3157 

0 

3136 

C 

TC 

DSPCCMDl 

2043 

REF 

7 

LAST 

33 1 

40 f 3160 

4 

4 3 74 

1 

CS 

VDl 

2044 

REF 

45 

LAST 

352 

4G>3161 

54 

777 

1 

TS 

DSPCCUNT 

2045 

REF 

2 

LAST 

35 1 

40*3162 

0 

CU5 

1 

TC 

NOPE T 


DECREMENT CSPCQUNT EXCEPT AT +0 


20<i6 ___= A0#3163 COOOO 1 OCT 00000 

20A7 ^Ct316^ C2<»16 C CECRCLNO OCT 02A7t 


P2C^e C5PCECPR CCKVERTS C( PPAC *PPAC-* 1 ) IN7C A SIGN AND 5 CHAR DECIMAL 

R20<*9 STARTIMG IP LCC SPECIFIED IN DSPCOUNT. IT DCES NC7 POUND 


2050 

2051 

2052 

REF 

REF 

REF 

S6 

3 

#4 

a: 

LAST 

LAST 

LAST 

35 1 
352 
35 I 

40.3165 

40.3166 

40.3167 

56 CC2 C 
54 115 C 

0 3103 C 

CSPCECNR XCH 

TS 

TC 

0 

WDRE T 

DSPS IGN 

- 



- 

_ - — ^ — 

2053 

REF 


last 

352 

40,3 170 

0 3135 C 

TC 

OSPCCMDl -1 

----- - 





R 2 0.54 

LSilX2iJ 

CCNVEPTS Ct MPACiMPAC^U INTC 

A SIGN AND 2 CHAR DECIMAL 

- - 





R2055 

STARTING 

IN LOG SPECIFIED IN 

OSFCOUN7 . 

IT DOES NOT ROUND 

- — 

- ■ 




20 56 

REF 

17_ 

kAST_ 

352 

40*3171 

56 002 C 

DSPCC2NR XCH 

0 

----- - - - - - 

- 




2057 

REF 

4 

LAST 

352 

40*3172 

54 115 C 

TS 

NDPE T 






2058 

REF 

2 

LAST 

352 

40*3173 

0 3103 C 

TC 

DSPS IGN 






2059 

REF 

29 

LAST 

35 ] 

40.3174 

3 4712 1 

CAP 

UME 






2060 

REF 

7 

LAST 

352 

40,3175 

6 3136 C 

TC 

DSPDCViCl 







R20C1 CSP2CEC CCNVERTS CIMPACI AND C(MPAC*lJ INTO A SIGN AND 1 0 C HAP DECIMAL 
R2ue2 STARTING IK THE LCC SPECIFIED IN CSPCtUKT. 


2063 

2064 
20_65 

REF 

REF 

REF 

5 8 

5 

67 

LAST 

last 

LAST 

352 

352 
35 1 

40*3 176 
40,3177 
40,3200 

56 002 
54 115 
3 4 714 

C 

C 

1 

CSP20EC 

XCH 

TS 

CAP 

W 

WORE 1 

ZERO 


— - - - - _ _ _ . ^ . 

2066 

REF 

7 

LAST 

35 1 

4C* 3201 

5 4 124 

1 


TS 

C CD E 



2067 

REF 

12 

LAST 

332 

40* 3202 

3 62 14 

C 


CAP 

THF E E 



2068 

REF 

1 

LAST 

313 

4C,32C3 

0 33C? 

C 


TC 

1 ID SPIN 

-R2 OFF 


2069 

REF 


LAST 

35 1 

40*3204 

3 4710 

c 


CAP 

h 1 UK 



207C 

REF 

4 

LAST 

352 

4C*3205 

0 3307 

c 


tc 

IIDSPIN 

♦R2 CPF 


2071 

REF 

A 

LAST 

352 

40*3206 

0 3103 

c 


TC 

L SPS IGN 



2072 

REF 


L AST 

33 1 

40,3207 

3 4 3 34 

1 


CAP 

t- 2D1 



2073 

REF 

4 

LAST 

352 

AO f 3 2 10 

0 3136 

c 

EN02nEC 

TC 

OSPCCWCl 




R207A CSFDtCVN DISPLAYS CIA) UPCN EKTRY AS A 2 CHAW DECIMAL BEGINNIKb IN THf 
P2C75 DSP LCC SPECIFIED IK CSPCCUNT. 

R2076 C(A| SFCLLC BE IN FORM N > 2EXP-l4.TFlS IS SCALED TC FCRH K/lOO BEFORE 
R2077 DISPLAY CCKVERSIQK, 



- QAPt 



Z31 CF AbC PRCGRAH 


N4SA 2Q21111-C31 


1:I7 flUG. 2^.iq6fl KCQLADE .06^ PAGE 353 


L 

PI^fi4lL 

C/iRE 

euncNs 

ANC LJGFTS 





USER'S 

PAGE NO. 5A 

FO SA 

2(j7e 

2C7S 

20 eo 

REF 

1 

H2 L4ST 

351 

AO, 3211 
AO, 32 12 
A0t3212 

0 0006 

7 3221 
22 15A 

1 

1 

CSPCECVR 

EXTEND 

MP 

LXCH 

VNDSPCCN 

MPAC 

MULT BY ,01 
take RESULTS 

FROM L.(MULT 

BY 2EXP1A) . 

2oei 

REF 


L^SI 

352 

A0,321A 

3 A71A 

1 


CAF 

ZEFC 




2082 

REF 

Ml 

L/ST 

352 

AO, 3215 

5A 155 

1 


TS 

MPAC +1 




2Q8_3 

Rf.F 


L4ST 

352 

AO, 321« 

56 CC2 

C 


XCH 

0 




208^ 

REF 

6 

LiST 

352 

AO, 3217 

5A U5 

C 


TS 

WDPET 




2085 

REF 


L/ST 

332 

AO, 3220 

0 317A 

c 


TC 

DSFLC2NF +3 

NO SIGN, hC 

RCUNO, 2 CFAR 

— - - 

2C86 





AO, 3221 

002AA 

c 

VNOSPCON 

OCT 

002 ♦A 

.01 RCUNOEO 

UP 



( 



2087 

2088 
2089 

REF 
REF 
R_E F 

3 

25 

2^ 

LAST 

LAST 

LAST 

3 3C 
3A5 

32 1 

AO, 3222 
AC, 3223 
AO, 322A 

0 3211 
0 A57a 
623A6 

C 

C 

1 

GCVNUPOT 

TC 

TC 

CAOR 

OSFLECVN 

HOST JUMP 

UPDATl *Z 

THIS IS NCT FCR GENERAL USE. REALLY PART 

OF UPOATVB. 

2C9C 





AO, 3225 



ENCECVN 

EQUAL S 



2091 

REF 

1 



Al,3353 




StTLOC 

ENDSPF ♦! 

- - — 

205JL5_ 

REF 

C 

LAST 

34 9 

TC 351: 

12 7A7A 


COUNT 

41/H IN 


R209Z 

OSFCCUO 

C ISPLAYS 

C(A) UPCN 

ENTRY AS 

A 

5 CHAR OCT 

■ STARTING IN THE OSP 

- - - - _ 

R2093 

CH/P 

SPECIFIED 

I N 

DSPCCUNT. 

IT STOPS 

AFTER 5 CHAR 

1 HAVE 

BEEN LISFLAVEO. 


209A 

REF 

6 

LAST 

3A7 

Al, 3353 

5A 022 

C 

CSPCCTHO 

TS 

CYL 


2095l_ 

^ F 

ICC 

LA5.7 

353 

A1,335A 

56 CC2 

C 


XCH 

Q 


2096 

REF 

7 

LAST 

352 

Al,3355 

5A 115 

C 


TS 

NCPET 

MIST USE SAME RETURN AS DSPZSIT, 

2097 

REF 

28 

LAST 

34 7 

A 1,3 356 

3 A675 

1 


CAP 

6 ITl A 

TO BLANK SIGNS 

2098 

REF 

A6 

LAST 

352 

Al,3357 

26 7 77 

1 


AOS 

DSPCCLNT 


2099 

HEF 

6 

LAST 

352 

AI,3a60 

3 <i7l0 

c 


CAF 

FOUR 


2100 

REF 

3 

LAST 

352 

Al,336l 

5A 137 

c 

taOAGA IN 

TS 

WDCNT 

- - 

2101 

REF 

9 

LAST 

352 

A 1,3362 

A 0022 

c 


CS 

CYL 

■ 

2102 

REF 

1C 

LAST 

353 

Al,3363 

A C022 

c 


CS 

CYL 


21C3 

REF 

11 

LAST 

353 

A1,336A 

A C022 

c 


CS 

CYL 

-s — ^ 

21CA 

REF 

1C7 

LAST 

352 

Al,3365 

A COCO 

c 


CS 

A 

- • ' 

2105 

REF 

1 



Al, 3366 

7 A716 

1 


MASK 

nSPPSK 

— 

2106 

REF 

1C8 

LAST 

353 

Al,3367 

5C OOO 

i 


INOEX 

A 

- - 

21 07 

REF 

A 

LAST 

35 1 

Al, 3370 

3 AC72 

c 


CAF 

KELT AE 

- — - 

2108 

REF 

7 

LAST 

351 

Al,3371 

7 A362 

c 


MASK 

LOWS 


2109 

REF 

e 

LAST 

352 

Al,3372 

5A 12A 

1 


TS 

CODE 

- - - - ^ _ 

2110 

REF 

A7 

LAST 

353 

Al,3373 

56 777 

c 


XCH 

USPCCUNT 

— 

2111 

REF 


LAST 

351 

A1,337A 

5A 1A3 

c 


TS 

CCUNT 


2112 

REF 

1C9 

LAST 

353 

Al, 3375 

1C 000 

c 


CCS 

A 

OECREMENT CSPCOUNT EXCEPT AT +0 -- 

2113 

KEF 

48 

LAST 

353 

Al, 3376 

5A 777 

1 


TS 

DSPCCLNT 

"" 

211A 

PEF 

26 

LAST 

352 

Al,3377 

0 A57A 

c 


TC 

POST JUMP 


2115 

REF 

1 



Al,3A0a 

613 15 

1 


CAOR 

OSPCCTIN 


2116 

REF 

A 

LAST 

353 

A1,3A01 

IC 137 

c 

CCTBACK 

CCS 

WDCN T 

■ "“ “ ■ ' ■ 

2117 

REF 

1 



AL,3A02 

0 3361 

c 


TC 

WDACA IN 

♦ 

2118 

REF 

6 

LAST 

352 

A1,3A03 

A A3 7a 

1 

DSPLV 

CS 

VOl 

TC eCOCK NUMERICAL CHARACTERS, CLEARS, “ 


cap: ASS^»B1P REm*-. ICh 23? CF ACC _PA£Ci»AM CCLCSSUS B.Y JjASA 2U211I1-C3i It LI ACG# KCC LACE .0 64 PAGE 35A 


L 

PINEAL! 

GAPE 

eUTTCNS ANC HGFTS 

_ - 


LSER 

«S PAGE NC. 55 

eo S4 


2119 

REP 

AS 

LAST 

353 A1,3A0A 

5A 

777 1 TS USPCCLNT 

AND 

SIGNS 

AFTER A CONPLETEO 

DISPLAY. 


212C 

RLF 

8 

LAST 

352 Al,3A05 

0 

0115 I TC WDRET 





- — 

2121 

REP 

7 

LAST 

34C A716 


DSPRSK * SEVEN 





- - - 

H2122 

CSP2S 1 1 

Cl iPLAYS CIA > UPON ENTRY 

AS A 2 CHAR OCT BEGINNING IN THE 

OSP 





K2123 

LCC 

SPEC IF lEC 

IN CSPCOUNT BY 

PPE 

CYCLING RIGHT C(AI ANC USING THE 

LCGIC 






H2lZ*i ap . 11 £ 5 CPAR CCT^L CISPL/>Y 


2125 

REF 

3 

LAST 

197 

Alt 3A06 

9A 02C 

1 

CSP2BIT TS 

CYH 



2126 

REP 

la 

LAST 

353 

A1,3AC7 

58 0C2 

C 

XCH 

Q 



2127 

PEP 

9 

LAST 

35A 

Al, 3A1C 

5A 115 

c 

TS 

HOP E T 



2126 

REF 

AC 

LAST 

352 

Alt3All 

3 A712 

1 

CAF 

ONE 



2129 

REF 

R 

LAST 

352 

AitlAll 

5A 13? 

c 

TS 

WDCNT 



2130 

REF 

A 

LAST 

35A 

Al,3A13 

A 0020 

1 

CS 

CYP 



2131 

REF 

5 

LAST 

35A 

A 1,3A lA 

A C020 

1 

CS 

C YP 



2132 

REP 

t 

LAST 

35A 

A1,3A15 

56 020 

c 

XCH 

CYP 



2133 

REP 

12 

LAST 

353 

Alt 3A 16 

5A 022 

c 

TS 

CYL 



213A 

REF 

2 

LAST 

353 

A lt3A 17 

0 3366 

1 

TC 

WDAGAIN 45 




R2135 FCP OSFIh PLACE 0/29 OCT IMG CCINT, 5 EIT RELAY CODE INTO CCCE. BOTH 

R21Jt APE DESIRCYCC* IP BiTU OF COUM IS It SIGN IS BLANKED WITH LEFT CHAR. 

P2137 FCP OSPIM PLACE Cii INTO BITll OF COCE. 2 IMO COUNT, PEL ACCPESS CF 
(<213& CSfTAE EPTPY IhTO CSREL. 


2139 

REF 

1 



AG, 3225 



SETLOC 

ENDECVN 

— — == 


- - -- - 

HI 

LT* 

«M 

R.EP _ 

6 

LAST 

251 TC 

353t 

82 6614 

COUNT 

AU/P IN 




21A0 

REP 

1C2 

LAST 

35A 

AOt 3225 

56 CC2 

C CSPIN 

XCH 

U 

CANT LSE L FOR RETURN, 

SINCE 

MANY OF THE 

ilAl 

REF 

1 



AO. 3226 

5A llA 

1 

TS 

DS6X IT 

ROUTINES CALLING DSPIN 

USE L 

AS RETURN. 

21A2 

REF 

8 

LAST 

35 3 

AO, 3227 

3 A362 

1 

CAF 

L0W5 




21A3 

REF 

6 

LAST 

352 

AO, 3230 

7 CiA3 

C 

MASK 

CCUNT 




2lA<t 

REF 

9 

LAST 

33E 

AOt3231 

5A C21 

c 

TS 

SP 




21A5 

REF 

10 

LAST 

35A 

A0t3232 

56 021 

1 

XCH 

SR 




2 1^6 

REF 

1 



AO, 3233 

5A lAl 

1 

TS 

DSPLL 




21^7 

REF 

29 

LAST 

29 C 

A0t323A 

3 A712 

1 

CAF 

BlTl 




21A8 

REF 

7 

LAST 

35A 

AO, 3235 

7 01A3 

c 

MASK 

C GU N T 




21A9 

REF 

1 1C 

LAST 

353 

AO , 32 36 

IG COO 

c 

CCS 

A 




2150 





AO, 3237 

0 32A1 

c 

TC 

♦2 

LEFT IF COUNT IS ODD 



2151 

REF 

1 



f 3 2^0 

0 3251 

1 

TC 

OSPI M “1 

R IGHT IF CtLNT IS EVEN 



2152 

REF 

9 

LAS! 

353 

AO, 32A 1 

56 12A 

c 

XCH 

CODE 




2153 

REF 

1 



AO,32a2 

0 3 5^ 

1 

TC 

5LFF T5 

COES NOT USE CYL 



215A 

REF 

1C 

LAST 

35A 

A0,32A3 

5 ^ 124 

1 

U 

CLUE 




2155 

REF 

29 

LAST 

353 

AO, 32AA 

3 A675 

1 

CAF 

BIT 1 A 




2156 

REF 

8 

LAST 

35A 

A0,32A5 

7 01A3 

t 

NASK 

CCUNT 




2157 

REF 

III 

LAST 

35A 

A0,32A6 

1C 000 

t 

Ocs 

A 




2158 

KEF 

2C 

LAST 

3A 3 

AO, 32A7 

3 a7U 

1 

CAF 

Two 

BITIA - 1, 8LANR SIGN 





n 


Lf AGC PRCGFAH CQLCSSUS BY NASA 2(i2mi-C31 


l:n AUG. 2Ati96a KCOIADE .06A PAGE 355 




L PINE4LL GAPE OUTTCPS AND HCMS USER'S PAGE NC. 56 EO S^ 


2159 

2160 
A2161 

REF 

REF 

A1 

9 

LAST 

LAST 

35A 

35A 

AO, 3250 
AO, 3251 

6 A712 
5A IA3 

1 

C 


AO 

rs 

ONE 

COUNT 

BITIA - 0, LEAVE SIGN ALONE 

40 INTO COUNT FCR RIGHT 

+1 INTO COUNT FCR LEFTISIGN LEFT ALONE! 

A2U2 











♦3 INTO CCUNT FCR LEFTITO BLANK SIGN! 

2163 





AO, 3252 

0 COOA 

0 

CSP IM 

INHINT 



216^ 

REF 

■ i- 

■ LAS T 

35A 

AQt3253 

5C lAl 

c 


INDEX 

OSPEL 


2165 

REF 

iA 

LAST 

315 

AG, 325A 

11*C23 

c 


CCS 

DSPT/IB 


2166 





AO, 3255 

0 3257 

1 


TC 

♦ 2 

IF 4 

2167 _ 

REF 

6 

LAST 

.l±l 

A0»3256 

0 56A2 

1 


TC 

CCSHCLE 


2166 

REF 

‘2 

LAST 

355 

AC, 325? 

6 A712 

1 


AD 

ONE 

IF- 

2169 

REF 

1 



AO, 3260 

SA 1A2 

1 


TS 

DSKAG 


2170 

REF 

1C 

LAST 

355 

AC, 3261 

50 1A3 

1 


INDEX 

COUNT 


2171 

REF 

1 



AO, 3262 

7 3303 

c 


MASK 

DSHSK 


2172 





AO, 3263 

0 0006 

1 


EXTEND 



21 73 

REF 

U 

LAST 

35A 

AQ,326A 

6C i2A 

c 


SU 

CODE 


217a 





AO, 3265 

0 CGC6 

1 


EXTEND 



2175 

REF 

1 



AO, 3266 

1 3301 

1 


B2F 

DSLV 

SAME 

2176 

REF 

11 

LAST 

355 

AO, 3267 

5C IA3 

1 

CFPNT 

INDEX 

COUNT 


2177 

REF 

2 

LAST 

355 

^ 0 f 3 270 

A 3303 

c 


CS 

bSMSK 

MASK W ITH 777AQ ,76037, 75777, OR 7A037 

2178 

REF 

2 

LAST 

355 

AO, 32 71 

7 01A2 

1 


MASK 

OSMAG 


2179 

REF 

12 

LAST 

355 

AO, 3272 

6 012A 

c 


AO 

CODE 


2180 

REF 

112 

LAST 

35 A 

AC, 3273 

A 0000 

c 


CS 

A 


2181 

REF 

1 

LAST 

35 5 

AO, 327A 

5C lAl 

c 


INDEX 

DSPEL 


2182 

REF 

J-* 

LAST 

35 5 

AO, 3275 

57*023 

1 


XCH 

OSPTAB 



2163 40f32l6 0 C0C6 1 EXTEND 

218<i REF 2 LAST 355 -^0f3277 6 3301 C ttZHF DSLV CSPTAB ENTRY WAS - 

21 65 REF 7 LAST 315 ^Ct3300 25*016 1 INCR NOUT CSPTAB ENTRY WAS ♦ 


2166 ACf33Cl G 0003 1 CSLV RELIKT 

2187 REF 2 LAST 35A AC, 3302 0 OllA C TC DSLX IT 


2168 


AO, 3303 

CQ037 

C CSMSK 

CCT 

37 


2189 


AO, 33tA 

C17A0 

C 

OCT 

17A0 


2190 


A0,33C5 

C2000 

C 

OCT 

2ouo 


2191 


AO, 3306 

C37A0 

1 

OCT 

3 7A0 



R2iS2 FCF UCSPIF, PLT PEL ACDRESSS OF DSPTAE ENTRY INTO A, I IN SITU OR 0 IN 
R2193 Bllll CF CEDE. 


2i9A 

NEF 

A 

LAST 

355 

AC, 330? 

5A lAl 

1 

IIDSPIN TS 

OSPE L 

2195 

REF 

21 

LAST 

35A 

AO, 3310 

3 A7U 

1 

CAF 

TWO 

2196 

REF 

12 

LAST 

355 

AO, 3311 

5A 1A3 

C 

TS 

COUNT 


2197 REF 1C3 LAST 35A AO, 3312 56 CC2 C XCH C ' MIST USE RETURN AS OSPIN 

2198 REF 3 LAST 355 AO, 3313 5A llA i TS UStXiT 

2199 REF 2 LAST 35A AC,331A 0 3252 I TC DSPIM 


2200 REF 5 LAST 352 AO, 3315 0 32 25 1 CSPUCllN TC OSPIN SC OSPOCTviO DCESNT USE SWCALL 

2201 AO, 3316 3 3 320 C CA? 

2202 REF A LAST 3AC AO, 3317 0 A577 C TC 6ANKJLRP 


X,AP : 45;S^>«eLt R FVlSIQh 237 CF AGC PRCGflAH CQLGSSLS BY NASA 2Q21111-031 Itl? AQC, 2^il<?6a KOOLADE ..06^_ PAG-g 356 

L PIMIIL CAPfc eUT^CNS ANC LlGhT5 USfeR'S PACE NO. 57 BO SA 

220i rTe i AOr3320 £3ACl I ENOSPCCT CAOB OCTBACK 


fi22aA EINCS TC NVSUBENC IN ENTPET FCP NVSLB INITIATED PCLTINES. 

R2205 AUCR1 N 1 OlSCl . 

CSFAl/PN FINIS TC EKCCFJCfi IN ENTRET FQP KETBCARD INITIATED PCCTINES. 
R22CT CC K ENTPET. 


2ZC7 5 

REf 

5 

LAST 

313 

A0.3321 

_A 

S37S 

JL 

PRECSPAL 

cs 

VDl 






22076 

REF 

5 C 

LAST 

35A 

-«0, 3322 

5S 777 

1 


TS 

DSPCCLNT 






2206 

REF 

1 



AU, 3323 

S 

33S2 

C 

cspalarh 

CS 

NVSbENCL 






22C9 

REF 

8 

LAST 

3^T 

^0, 332S 

6 

C136 

C 


AO 

ENTE >IT 






2210 





AO, 3325 

0 

OOC6 

1 


EXTEND 






2211 

REF 

16 

LAST 

BOS 

AO, 3326 

1 

3337 

1 


bZP 

CHARALRM +2 






22111 

REF 

1 



<iO, 3 32 7 

s 

33SI 

C 


CS 

HOKACR 

I F 

This IS 

A MONITOR, KILL IT 



22112 

REF 

S 

LAST 

356 

SO, 3330 

6 

C136 

C 


AD 

ENTE XI T 






22113 





^0,3331 

G 

0006 

1 


EXTEND 






2211A 





SO, 3332 

1 

333S 

1 


bZF 

*2 






22115 





SO, 3333 

0 

3335 

1 


TC 

*2 






22116 

REF 

1 



SO, 333S 

0 

S22C 

c 


TC 

KILRCNCN 






2212 

REF 

5 

LAST 

23! 

So,3335 

0 

CO 

1 

CHARALRM 

TC 

FALTCN 

NOT 

NVSU3 

INITIATED. TURN ON DPR ERROR 



2213 

REF 

36 

LAST 

35C 

SC, 3336 

0 

5112 

c 


TC 

ENDCF JCe 






221^ 

REf 

1 



SO, 3 33 7 

0 

5622 

1 


TC 

PCODCC 






2217 





S0,33SU 


01501 

1 


OCT 

0150 1 






22171 

REf 

2 

LAST 

3^S 

S0,33S1 


CSISO 

c 

MCNADR 

GENADP PASTEVH 






2218 

REf 

1 



SO, 33S2 

0 

S216 

c 

NVSfiENDL 

TC 

NVSUEENO 







R22l<3 ALNCVCLE URNS ON CHECK FAR LIGHT, REDISPLAYS THE ORIGINAL VEPfc THAT 

R2220 KAS EUCLUC, AND RECYCLES TC EXECUTE TFL URifalNAL VERB/NCUN CCHbINATICN 

R2221 THAT fcAS LAST EXECLTEC. oSFO FCR BAD LATA OLRING LOAD VERBS AND BY 

P2222 HCTBS. ALSC BY MMCHANG IF 2 NUMERICAL CHARACTERS KERB NOT PUNCHED IN 

H2223 FCR MR CCCE. 


222S 

222S5 

REF 

REF 

3 

2 

LAST 

LAST 

3S < 

2^9 TC 

S 161 
3S9 : 

17 

iT* 


SETLOC 

COUNT 

MIL7 ♦! 

C2/P IN 


2225 

2226 

REF 

REF 

t 

3 

LAST 

LAST 

356 

3S6 

S 161 
S162 

0 ssoc 

S iOSl 

1 

1 

ALMCYCLE 

TC 

CS 

FALTCN 

VER BSAVE 

TURN CN CHECK FAIL LIGHT. 

GET ORIGINAL VERB THAT RAS EXECUTED 

2229 

REF 

11 

last 

399 

^16 3 

55*013 

C 


TS 

PE oR El 

SET FCR ENTPASO 

2230 

REF 

tc 

LAST 

3SS 

9 les 

0 S555 

c 


TC 

BANKCALL 

PUTS ORIGINAL VERB INTC VEROREG AND 

2231 

REF 

e 

last 

399 

S 16 5 

62336 

c 


CADK 

UPDATVE -1 

DISPLAYS IT IN VERB LIGHTS. 

2232 

REF 

27 

LAST 

353 

S 166 

0 5 7^ 

c 


TC 

POST JIMP 


2233 

REF 

2 

LAST 

305 

S 167 

620C2 

1 

EnOalm 

CAOR 

ENTER 



P223A MHCHAFC USES NCUN CISPLAY UNTIL ENTER. THEN IT USES MULE DISP. 

R 2 235 I T ES TO MCDPOUT hlTH THE NEW M M CCCE IN A, BUT NOT DISPLAYED IN 

223 t MMLICHTS. 

R2237 IT CEHANCS 2 NUMERICAL CHARACTERS EE PLNCHEC IN FOR NEN HH CCCE. 


CAP ; 


fRCGRAH 


HASA 




l:l? AUC. 2AtlQ68 KC0LAD6 .Q6<> PAGE 357 


FUt4U G4FE eUTTC^S ANC LICMS 


tSER*S PAGE NC. 58 


EO S4 


R2238 


IF hC1 t n RECYCL ES. 


223 i 1 


<iXt3ji.2ja 


SETLGC DSPZen >100 


223S5 REF 


6 LAST 353 TC 35^: 


31 


78A* 


COUNT ^1/PlN 


22AC 

REF 

1 



91f 3920 

0 3992 

C 

HWCHANG 

TC 

RfcUHK 

ENTPAShl ASSUNPS TNE TC REQMN AT PPCHANG 

A22AI 











IF This MOVES AT ALL, MUST CHANCE 

A22AZ 











MMACREF at ENTPAShl. 

22A3 

REF 

16 

LAST 

252 

91, 3921 

3 9706 

1 


CAF 

BITS 

OCT20 - NC2. 

22MA 

REF 

5 1 

LAST 

3 56 

91,3922 

6 0777 

C 


AO 

OSPCCUNT 

OSPCCLNT MUST « -NC2. 

22A5 





91,3923 

0 C006 

1 


EXTEND 


CEHANC THAT 2 NLM CHAR HERE PUNCHED IN. 

224t 





91,3929 

1 3926 

c 


BZF 

♦ 2 


22A7 

HEF 

16 

LAST 

396 

91,3925 

0 9161 

c 


TC 

ALMC YCLE 

OSPCCLNT NCT- -N02. ALARM ANO RECYCLE. 

22A8 

REF 

69 

LAST 

353 

91,3926 

3 9719 

1 


CAF 

ZERO 

OSPCCUNT - -ND2. 

22<i5 

REF 

12 

LAST 

391 

91,3927 

57'0C2 

1 


XCF 

NOUNPEC 


2250 

REF 

1E9 

LAST 

352 

91, 3930 

59 159 

c 


TS 

MPAC 


2251 

REF 


LAST 

32 1 

91,3931 

3 9375 

1 


CAF 

NDl 


2252 

ref 

52 

LAST 

351 

91,3932 

59 777 

1 


TS 

OSPCCLNT 


2253 

REF 

51 

LAST 

356 

91,3933 

0 9555 

c 


TC 

BANKCALL 


22bA 

REF 

9 

LAST 

315 

91,3939 

6C5C2 

c 


CAOP 

2BLA TH 


2255" 

PEF 

1C 

LAST 

356 

91,3935 

9 93 79 

1 


cs 

VDl 

BLOCK NUN CHAP IN 

2256 

REF 

c ^ 

LAST 

35 1 

91,3936 

39 777 

1 


TS 

OSPCCLNT 


2257 

REF 

U5 

LAST • 

357 

91,3937 

3 0159 

1 


CA 

MPAC 


2256 

REF 

26 

LAST 

35 6 

9I,399C 

0 9579 

c 


TC 

POST JUHP 


2255 

HEF 

1 



91,3991 

ICOIO 

1 


CAOR 

MOORCUTB 

GC THRU STANDARD LOC. 

























2260 

HEF 

2 

LAST 

26C 

C9,2010 



HOOROUTB 

m 

V37 


2261 

REF 

1C9 

LAST 

355 

91,3992 

9 C0C2 

1 

R6QPH 

cs 

Q 


2262 

REF 

12 

LAST 

356 

91,3993 

55 '013 

c 


IS 

REQR ET 


2263 

HEF 

9 

LAST 

351 

91,3999 

3 9375 

1 


CAF 

NOl 


2265 

REF 

59 

LAST 

357 

91,3995 

59 777 

1 


TS 

OSPCCLNT 


22 65 

REF 

7C 

LAST 

351 

9 1,3996 

3 9719 

i 


CAF 

ZERO 


2266 

REF 

13 

LAST 

357 

91,3997 

53'0C2 

c 


TS 

NOUNPEG 


226 7 

REF 

!2 

LAST 

351 

91,3950 

0 9555 

c 


TC 

BANKCALL 


2268 

REF 


LAST 

357 

91,3951 

60502 

c 


CADR 

ZBLANK 


2269 

REF 

3 

LAST 

32 1 

91,3952 

0 9993 

c 


TC 

FLASFCN 


2270 

REP 

93 

LAST 

355 

91,3953 

3 9712 

1 


CAF 

ONE 


2271 

REF 

16 

LAST 

396 

91,3959 

53*0CC 

1 


TS 

DECBPNCH 

SiT FCR OEC 

2272 

REF 

1C 

LAST 

356 

91,3955 

0 0136 

c 


TC 

ENTEMT 


. 













F2273 VEFGE7EC EhTERS REGUEST TC tXEC FCP ANY AOORESS KITH ANY PPIGRITY. 

P227> IT CCES ENCUFJCe AFTER ENTERING REQUEST. DISPLAY SVST IS RELEASED. 

822 75 11 ASSURES NCUh Zi hAS dEEN PPELCAOEC VilTH 

R227t CCPFCFEM 1 PP 1 0 F 1 1 Y ( 6 1 T S 10-lA) BlTl-C FOR KOVAC» B I T 1» I FCP FINDVAC. 

R2277 CCPfCFEM 2 JCB ACRES 112 BIT | 

H227fi CCPFCNENT 2 BECCN 


LAP : A^SI^JlBLE flEViSIQh 227 CP 


L 



CQLCSSUb BY NASA 202IUI-C31 


1:17 ALC. 2AiIS6fl KCGLAD6 .OoA 


PAGE 


358 


Plhftll CAPfc eUTTQNS AND LIChTS 


GSEP'S PAGE NO. 59 EO SA 


2279 

2280 
2281 

REF 

REF 

R£i 

30 

16 

112 

LAST 

LAST 

LAST 

35A 

35C 

355 

41 ,3A56 
41,3457 
41,2460 

3 47 12 

7 1045 
1C OOQ 

1 

C 

c 

VBRQEXEC 

CAF 

MASK 

CCS 

BITl 

DSPTEMl 

A 


- 


2262 

REF 

1 



41,3461 

0 3500 

1 


TC 

SETVAC 


IF BITl ■ 

1, FINOVAC 

2263 

REF 

1 



4 1,3462 

3 4365 

c 


CAF 

TCNOVAC 


IF BITl « 

0, NQVAC 

226^ 

REF 186 

LAST 

357 

41,3463 

54 154 

c 

REQEXl 

TS 

MPAC 


TC NCVAC 

Cfl TC FINOVAC INTO MPAC 

2285 

REF 

31 

LAST 

358 

41, 3464 

4 4712 

c 


CS 

b ITl 




2266 

REF 

17 

LAST 

35E 

41,3465 

7 1045 

c 


MASK 

DSPTEMl 




2287 

REF 

187 

LAST 

358 

41,3466 

54 1 6C 

1 


TS 

MPAC 

44 

PRIG INTO 

MPAC«4 AS A TEMP 

2286 

REF 

5 

LAST 

318 

41,3467 

0 4473 

c 

REUlESTC 

TC 

RELOSP 




2289 

REF 

5 

LAST 

3A 7 

41,3470 

3 42 3 3 

1 


CA 

ENDINS7 




2290 

REF 

188 

LAST 

356 

41,3471 

54 157 

c 


TS 

KPAC 

+ 3 

TC ENCCFJOa INTC MPAC+3 

2291 





41,3472 

0 00C6 

1 


EXTEND 





2292 

REF 

18 

LAST 

356 

41,3473 

3 1047 

c 


OCA 

DSPTEMl 

♦ 1 

JOB ACRES 

INTO MPAC*l 

2293 

REF 

189 

LAST 

356 

41,3474 

52 156 

1 


DXCH 

MPAC 

♦ 1 

BBCON INTC 

MPAC42 

229A 

REF 

190 

LAST 

358 

41,3475 

3 C160 

0 


CA 

MPAC 

44 

PRIG IN A 


2295 





41,3476 

0 00C4 

c 


INHINT 





2296 

REF 

19 1 

LAST 

35 6 

41,3477 

0 0154 

1 


tc 

MPAC 




2297 

REF 

1 



41, 35CO 

3 4370 

1 

SETVAC 

CAP 

TCF 1 NCVC 



- 

2298 

REF 

L_ 



41.3501 

0 3463 

c 


TC 

P.EOE XI 





R22S9 VEPQtiAn EMEBS MEGlEST TC WAITLIST PCP ANY ACORESS WITH ANY DELAY. 

B2300 IT DDES ENCOFJ08 AFTER ENTERING RbCLE S T .D ISPL A V SYST IS RELEASED. 

R23C1 n A5HNES NCUN 26 PAS BEEN PPELCACEC WlTP 

R23C2 CCNECNEM I DELAY (LCW dllSI 

N23t3 CCNfCNENl 2 TASK ACPES (12 BIT) 

R23CA CCPKNEM 3 EECCN 

23C5 REF I ^It3S02 3 A366 C VBRQWAIT CAF TCWAIT 

23Ct REF 192 LAST 356 Al,3503 5A 15A C TS HPAC TC WAITLIST INTC MPAC 

2307 REF 19 LAST 356 Alf350A 3 10^5 I CA DSPTENl TIME DELAY 

2308 REF 1 A1,35C5 0 3A66 C ENQPQWT TC REOtESTC -1 


R23C9 RECIE5TC WILL PUT TASK ACRES INTC MPAC+l, BECCN INTO MPAC+2f 
K2310 TL ENCCFJCE INTO PPAC43. IT WILL TAKE TIME DELAY OUT OF MPAC^A AND 


P2Vll 

LE A V E 

IT 

IN A, 

INUNT 

ANC TC 

MPAC. 



— ■ — - — 

2312 

REF 

2 

LAST 

356 

40,3343 


SETLOC 

NVSfaENCL +1 


23125 

REF 

7 

LAST 

354 TC 

356: 

78 739M 

COUNT 

40/PIN 

— 

2313 

REF 

44 

LAST 

357 

40,3343 

3 4712 1 V8PPGC 

CAF 

ONE 

proceed without data 

2314 

REF 

2 

LAST 

33 7 

40,3344 

55*014 1 

TS 

LOAD S TAT 


2315 

REF 

£ 

LAST 

356 

40,3345 

C 4220 C 

TfC 

K ILMChCN 

TURN CN KILL MCMTOR BIT 

2316 

REF 

6 

LAST 

358 

40,3346 

0 4473 C 

TC 

^rrroTP 


2317 

REF 

3 

LAST 

3U 

40,334? 

0 4447 1 

TL 

flashcff 


2318 

REF 

2 

LAST 

33 1 

4C, 3350 

C 34 fC C 

TC 

recaltst 

SEE IF THERE IS ANY RFCALL FROM ENOIDLE 


LAPl BPVlSICh 23? Cf ACC FHCCR^M COLOSSUS BY NASA 202Un-C31 1:17 AIG. 2A.l<;fe8 KCCLACE .064 P*GF 359 


L PI^^^u C4PE eunos and lights dseh's page no. 60 eo sa 


2319 REF 45 LAbT 356 40t 335 l 4 4712 C VBTERN CS QNF 

2320 REF 2 LAST 31S 40»3352 0 3344 1 TC VBPRCC +l TERR VERB SETS IQACSTAT NEG 


P232L1 PPCCKl> FEPHCRRS THE SAME FUNCTION AS VEPR OC. IT MUST EE CALLED UNDER 
.JL23 2 C « E 7ECL11VE CCNTPQLt HlTH CHHPPIC. ; ' 


23205 

RtF 

?1 

LAST 

357 

40,3353 

3 4714 

1 

PRUCK6Y CAF 

ZERC 

SET RECRET FOR 

ENTER PASS 0. 

232Ct 

REF 

13 

LAST 

357 

40,3354 

55*013 

C 

TS 

RECK ET 



232X1 

atL 

-U- 

LAST 

357 

40,3355 

4 4374 

1 

CS 

VOi 

BLOCK NUHERICAL 

CHARACTERS, SIGNS, 

23206 

REF 

55 

LAST 

35 7 

40, 3356 

54 777 

1 

TS 

OSPCCUNT 



232C9 

REF 

2 

LAST 

359 

4C,3357 

0 3343 

C 

TL 

VBPRCC 




F 232i VEPESEG RAKES END IDLE AT SAME LINE AS FINAL ENTER OF LOAD (L«3). 

H 2i2_^ I M_ IN LSE IS UTENCEC AS RESPCNSE TC IMEPNALLY INITIATED FLASHING 

R2323 CISPLAV! IN ENOiCLE. SHOULD ACT BE USED WITH LOAD VERESfPLEASE PERFQRHt 

P2324 CP PLEASE MARK VERES BECAUSE THEY ALREADY LSE 1*3 IN ANOTHER CCNTEAT.) 


23iiS P£F 72 LAST 359 40t3360 4 4714 C VBRESEG CS 2ERC HAKE IT LCCK LIKE DATA IN. 

23^6 HLF 4 LAST 359 4C,336l 0 3344 1 TC VbPPCC +1 


FLASH IS TLPNEC OFF 0Y PKCCEEC WITHOUT CATAf TEPHiNATLt RESECUENCE, 
ENC CF LCAC, 


R2327 

R2328 


1:1? AOG. 24tiq68 KQQLACfc ,06A PAGE 360 


GlIU ftgVlSlON 2t1 CP AGC PRCCftAH CCLCSSUS BY NASA 2021111-031 


L PUEHL CAhe euTtQhS AND LIGHTS USER'S PAGE NO. 61 EO SA 


P2329 KE^ RELEASE POLTUE 

R233U _ THIS PCL^1^£ ALWAYS TURNS UFF THE UPACT LIGHT AND ALWAYS CLEARS GSPLCCK, 


R2331 TK HIGHEST PRIORITY FUNCTION CF THE KEY RELEASE BUTTON IS THE 
R2332 LNSLSFE NCING OF A SLSPENUEC RCMTOR hUCH HAS EXTERNALLY INITIATED. 
R2333 this FLNCTION IS ACCOHPLISHEC BY CLEARING DSPLOCK ANO TURNING CFF 

B233<» THE KEY RELEASE LIGHT IF BOTH DSPLIST ANC CAORSTCR ARE EMPTY. 


P2335 IF NC SUH MCNITOP EXlSTSf THEN P6LDSP IS EXECUTED TQ CLEAR CSPLCCK 
H2336 ANt THE EXTERNAL RCMTOR BIT (FREEING THE DISPLAY SYSTEM FOP INTERNAL 

P2 337 1 1 TLRN OFF THE KEY RELEASE LIGHT, ANC MAKE UP ANY JC6 IN CSPLIST. 


R233e IN ACCITICN IF THERE IS A JCB IN ENCICLE* THEN CONTROL IS TRANSFERRED 

R2 3 39 It-P IN EPNCH (I N DISPLAY INTERFACE ROU T INtI TC RE-EXECUTE THE SERIES OF 

H23391 NVSLB CALLS ETC. THAT PRECECEL THE ENCICLE CALL STILL AWAITING RESPONSE. 

R23A0 THIS FEATURE IS INTENDED FOR LSE WHEN THE OPERATOR HAS BEEN REQUESTED TO 

P23A1 RESKFC TC S CHE INTERNAL ACTICN T HAT LSEC ENCIOLE, BUT HE HAS WRITTEN 

R23A2 OVER THE UfcPPATKN CN THE CISPLAV PANEL BY SOME DISPLAYS CF HIS OWN 
P23A3 IMTIATICN WHICH CC NCT SERVE AS RESPONSES. HITTING KEY RLSE WILL 

R23^A RE^ESTA EUSH THE CIS PLAYS TC THE STATE THEY WERE IN BEFORE HE OBSCURED 

R23A5 THEN, SC THAT HE CAN SEE THE WAITING PEGUEST. THIS WORKS ONLY FOR 

P23^6 INTERNAL PPCCRAMS THAT USED ENCIDLE tHRCUGH MARGARETS LISPLAY 
H23A? SLEPCLTINES. 


23A8 

REF 

lA 

L/ST 

33A 

40,3362 

A A71C 

I 

V0RELCSP 

CS 

BIT3 

2349 





40, 3363 

0 0006 

1 


EXTEND 


2350 

REF 

K 

LAST 

192 

40,3364 

03 on 

1 


WAND 

OSALNCUT 

2351 

REF 

it 

LAJT 

3oe 

40,3365 

LC 115 

0 


CCS 

21/a2PEC 

2352 

REF 

3C 

LAST 

35 A 

AQ , 3366 

3 A6t5 

1 


Caf 

B1T14 

2353 

REF 

6 

LAST 

34 9 

40,3367 

7 1021 

1 


MASK 

MGNS AVEl 

2354 

REF 

1 lA 

L AST 

356 

40,3370 

1C CCO 

c 


CCS 

A 

2355 

REF 

1 



40,3371 

G 3400 

c 


TC 

UNSUSPEN 

235t 

REF 

7 

LAST 

356 

AO, 3372 

C 4^73 

c 

TSTLTS4 

TC 

KLLOSP 

2357 

REF 


LAST 

346 

40,3373 

11*042 

1 


CCS 

CAD PS TCP 

2358 





40,3374 

0 3376 

c 


TC 

♦ 2 

2359 

REF 

37 

LAST 

356 

40,3375 

0 5112 

c 


TC 

ENDOF JCB 

23t0 

REF 

i9 

LAST 

357 

40, 3376 

0 4574 

c 


TC 

POST JLMP 

2361 

REF 

A 

LAST 

25E 

40,3377 

21176 

1 


CADR 

PINBRNCH 

2362 

REF 

73 

LAST 

35 < 

AC, 3 ACC 

3 47 lA 

1 

LNSLSPEN 

CAF 

ZEPL 

2363 

REF 

5 

LAST 

34e 

AC,3AC1 

55*012 

1 


TJ 

DSPL CLK 

2364 

REF 

6 

LAST 

36C 

AC,3A02 

1 1 *042 

1 


CCS 

CALF STOP 

2365 

REF 

3£ 

LAST 

36C 

A0,3AC3 

0 5112 

c 


1C 

ENDCFJCfc 

23 66 

REF 

2 

LAST 

348 

AC, 3A0A 

0 4516 

1 


TC 

RtLDSPl 

23661 

REF 

3A 

LAST 

36C 

AC,3AC5 

0 5112 

c 


TC 

ENCrFJCB 


^3c7 AC, 3^06 ENURELOS EQUALS 


TLRN CPF UPACT LITE 
OLD OSPLCCK 


EXTERNAL MCMTOP BIT ( EM0 1 

OLD CSPLQCK AND EMB BOTH I, UNSUSPENO. 
NOT CNSUSPENCING EXTERNAL MONITOR, 
RELEASE display SYSTEM AND 
DO RE-ESTABLISH IP CAORSTCR IS FULL. 


FxrrSNAL MCNI 1 0^^ S SUSPENDED^ 

JUST UNSUSPENO IT BY CLEARING OSPLOCK. 
TURN KEY RELEASE LIGHT OFF IF BOTH 


liAP; A SSEPflLE B . EJV J S 1 0 fe 237 CF AGC PRCGPArt CQLCSSUS NASA 20211 1 I-C31 HI? AUG. 3A«196e KCOlAQE .064 PAGE 361 


L PINC/^LL CAPE 6UT7ChS ANC LICHS tSEP'S PAGE NO. 62 EO S6 


P23te NVUe I! LSEC FOR SEE POOTIFE CALLS FFCP WITHIN COMPUTER. IT CAN 86 
H23t9 USEC 1C CALL THE CCPBINATICN CF ANY CISPLAY, LOAOi OR PCNITOR VERB 
KZ3_ia TjCLLLlJLEB__Wl_T h ANY NCLN AVAILABLE T C THE KtYflCAfiC. 

R237C1 PLACE CY N Y \ V VVFNNFNhN INTC A. 

ft237C2 V-S APE THE 7 BIT VEBe COCE. N-S ARE THE 7 BIT NOUN CCOE. 


R237C2 If NYUe IS CALLEC WITH THE FCLLCWING NEGATIVE NUMBERS (RATHER THAN THE 

P23706 VEPE-NCUN COCE J IN A* THEN THE DISPLAY IS BLANKED AS HCLLOWS- 

R237_Cl1_ -a JL LL flank. -2 LEAVE POCEt -2 LEAVE MODE AND VERB* -1 BLANK R-S ONLY 


F2371 NVSLB CAN BE USED WITH MACH CADR TC BE SPEC BY PLACING THE CADR INTC 
F 2 3 72 _ PPAC -* 2 EEFCRE THE STANCARC NVSUE CALL. 


R2373 NV5L6 FETLPNS TO 2-* CALLING ICC AFTER PERFORMING TASK, IF DISPLAY 
R237A SYS1EP IS AVAILABLE. THE NEW NOUN AN C VERB CODES ARE DISPLAYED. 

R2375 IF Yi; -C , THE NEV NCUN CCCE IS CISPLAYEC ONLY(RETURN WITH NC FURTHER 
R2376 ACIICN). IF N-S , THE NEW VERB CCOE IS CISPLAYED ONLYIRETURN WITH NC 
R 2 3 7 ? FLFUEP ACIICN). 


R237a IT PEILPNS TO 1+ CALLING LCC WITHCUT PEPFCRPING TASK, IF DISPLAY 

R2379 SYSTEP IS ELCCKEO (NCTHING IS D ISPLAVEC IN THIS CASE*. 

R2380 IT COES TC ABORT (WITH OCT 015011 IF IT ENCCUNTERS A DISPLAY PROGRAP 

R2301 ALAPP CCNCITICN BEFCRE RETURN TC CALLER. 


R2382 THE DISPLAY SYSTEP IS BLCCNEC BY THE DEPRESSION OF ANY 
H2383 KEY, EXCEPT ERPQR LIGHT RESET 

R23e6 IT IS PELEASEC BY THE KEY RELEASE BUTTCN t ALL EXTENDED VERBS , 

K2305 PPCCEEC WITHOUT DATA, TERPINATE, RESECUENCE, INITIALIZE EXECLTIVl, 
R2386 RECALL PART CF RECALTST IF ENCIDLE WAS USED, 

R23e 7 VE « FE CLEST EXECLTIYE, VB • PECUEST WAITLIST, 

K23e8 MCMTCP SET U^ ' 


P23ej.l_ THt_DI SfLAY SYSTEF IS ALSC BLCCKEO BY THE EXTERNAL NCNITOP tlT, WHICH 
823862 INDICATES AN EXTERNALLY INITIATED PCMTCR IS RUNNING (SEE MOMTORI 


R23e9 A NVILE call that PASSES CSPLCCK AND THE EXTERNAL MCMTDR BIT ENCS CLO 
823891 MCMTCP. ~ " 


R2390 CS>jLjCiJ <__lS THE INTERLOCK FOR USE OF KEYBQARC AND DISPLAY SYSTEM WHICH 
P2391 LCCWS CLT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION. 


*^^-391 I NVS LB SHCLLC BE USEC TWICE IN SL CCESSICN FOR tPLEASE PEKFOFM: SITUATICNS 

P 2 39 1 2 (SIPILARLY FOR PLEASE MARK). FIRST PLACE THE COOED NUMBER FOP WHAT 

R23913 ACTICN IS CESIREC CF OPERATOR INTO ThE REGISTERS REFERRED TO BY THE 
R2391A Ay' fCFUSTi NCLN. GC TC NYSU8 WITH A DISPLAY VERB AND THE :CHECKLISTj 
P23915 NCLN. GC TC NVSUB ACAJN WITH THE :PLEASE PERFORM: VERB AND ZEPCS IN THE 

823916 LCW 7 BITS. THIS SPASTES LPS THE :PL£ASE PERFCRm: VERB INTO ThE VFfib 

823911 LICHIS. 


823918 NVPCNCPT IS AN ENTRY SIPlLAH TO NVSUB, BUT REQUIRING AN ACDITILNAL 


GAP; ASSfe »BLg RP^iKinh 237 CF ACC PRCGRAM COLOSSUS BY NASA 202IL11-C31 Ul? AUG. 24iiq68 KOOLAQE .06A PACE 162 

L PI^CALL eUTIC^S ANC LIGHTS LSER*S PAGE NC. 63 £0 54 


K239181 PAPAPE3EP IN L . 11 SHOULO EE LSEC ONLY hlTH A MONITOR VERB-NCLN CODE IN 
R239ie2 A, AF TER EACH PON ITQH DISPLAY A ♦PLEASE# VERB KILL BE PASTED IN THE VERB 

R2391E3 Lien s OP DATA KIU BE BLANKED (OR flCTU ACCCRDING TO THE LP l ICNS 

R23918^ SPECIF lEC IN L. IF BITS 0-1^ CF L ARE CThEP THAN ZERO, THEN TPEY KILL 
R239lfi5 BE INTERPRETtO AS A VERB CCDE AND PASTED IN THE VERB LIGHTS. ITHIS VERB 
R2391E6 CCCE S FCL L C DESIGNATE CNE CF THE ♦PLEASE* VERBS.) IF BITS 1-3 CF L ARE 
R23S1E7 OTFER IHAN ZERO, THEN THEY KILL BE USED TO BLANK DATA BY BEING FED TO 
R239lEe BLANKSLE. IF NVMONCPT IS USED KIIH A VERB OTHER THAN A MONITCR VERB, 
R23Sie9 THE PARAMEIER IN L HAS NC EFFECT. 


R2392 NVSLB IN F|X£C-FUEC PLACES 2*CALLING LCC INTO NVQTEM, TC NVSLBENC INTC 


R2393 

ENTPEl . 

(THIS 

KILL RESTORE OLD 

CALLING 

BANK BITS) 




2394 

REF 

1 



4 170 




SLTLOC 

ENDALP *1 

— 

23945 

REF 

3 

LAST 

356 TO 

357 ; 

7 

24* 


COUNT 

02/PIN 

■ - - - 

2395 





4170 

22 007 

C 

NVSLB 

LXCH 

7 

ZERC NVNONCFT OPTIONS 

2396 

RtF 

1 



4 17 1 

54 123 

C 

NVMCNGPf 

TS 

NVTEPP 


2397 

ref 

31 

LAST 

3b0 

4 172 

3 4675 

1 


CAP 

Bni4 


2J971 

REF 

7 

LAST 

36C 

4 173 

7 1021 

1 


MASK 

MONSAVEl 

EXTERNAL MCMTOP BIT 

23972 

REF 

6 

LAST 

36C 

4 174 

6 1012 

c 


AD 

DSPL CCK 


23972 

REF 

115 

LAST 

36C 

4175 

iC 000 

c 


CCS 

A 


23979 

ref 

ICS 

LAST 

357 

4 176 

Q 0002 

c 


TC 

U 

DSP SYST BLCCKEC. RET TO I* CALLING LCC 

2396 

REF 

46 

LAST 

35 < 

4 177 

3 4712 

1 


CAF 

ONE 

DSP SYST available 

2399 

REF 

1C6 

LAST 

3 6 2 

4200 

6 CC02 

0 

nvseCCm 

AO 

Cl 


2400 

REF 

1 



4 201 

55'037 

c 


TS 

NVQT EM 

1 * CALLING LCC INTO NVQTEM 

24001 

REF 

4 

LAST 

3^ S 

4202 

2 3*022" 

c 


LXCH 

N0NSAVE2 

STORE KVMCNCPI CPTICNS 

2401 

REF 

3 

LAST 

jse 

4203 

0 4220 

c 


TC 

K ILMCNDN 

TURN CN KILL MONITOR BIT 

2402 

REF 

1 



4204 

3 4215 

c 

NVSLBCCM 

CAP 

NVSDEENK 


2403 

REF 

1C 

LAST 

127 

4205 

56 006 

1 


XCH 

BbANK 


24031 





4206 

0 0006 

1 


EXTEND 


SAVE OLD SUPERBITS 

24032 

REF 

3 

LAST 

23 7 

4207 

C4 007 

1 


KOR 

SUPERBNK 


2404 

REF 

1 



4210 

55*040 

c 


TS 

NVBNKTEM 


2904 I 

REF 

2 

LAST 

23 7 

4211 

3 42 15 

c 


CAP 

P INSLPBT 


24042 





4212 

0 0006 

1 


EXTEND 



24C42 

REF 

4 

LAST 

362 

4213 

01 00 7 

1 


KR ITE 

SUPtRfiNK 


2MCS 

REF 

1 



4214 

C 2000 

c 


TC 

Nvsuee 

flC TC NV5UBI THRU STANDARD LOC 

24C6 

REF 

56 

LIST 

354 

0777 




EBANK< 

DSPCLLNT 


2407 

REF 

2 

LAST 

i 1 6 

4215 

62101 


NVSEBBNK 

bbCON 

MVSUEl 


24071 

REF 

2 

LAST 

362 

4215 



PI NSLPBT 


NVSBBENK 

CONTAINS THE PIN&ALL SuRERBITS. ~ — 

2412 

KEF 

1 

LAST 

362 

4216 

53*040 

c 

NVSLBENC 

OXCH 

NVtT EM 

NVBNKTEM MUST * NVQT£M*l 

2413 

REF 

i 



4217 

G 5122 

0 


TC 

SUPOXCHZ 

DTCa WITH SLPLHBIT SwItCHlNG 

2414 

REF 

1 



41,3506 




SETLOC 

ENCPCKT *1 


2414CS 

kef 

7 

LA5T 

357 TO 

358; 

54 836* 


COUNT 

41/P IN 



ASSE^LL REV IS ION . ^37 CF AGC PRCGBAM 


NASA 2Q21U1-C31 


l:n ALG« 24tl968 KCOLACE .064 PAGE 363 
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R 
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F2<»1A12 BL/PKCSP BIANKS DISPLAY ACCCRCIPC TO CPTICN NUMBER IN NVTEMP AS FLLIONS 
B2^1A15 -A FULL BIANK, -3 LEAVE POOEj -2 LEAVE MODE AND VERB, -i BLANK R-S ONLY 


24141S 

REF 

8 

LAST 

j5A 

41,3506 

6 4716 

C 

BLANKCSP AO 

SEVEN 

241422 





41,3507 

0 0004 

C 

INH INT 


241425 

REF 

_JX_ 

LAST 

355 

41,3510 

54 124 

1 

TS 

CLDE 

24142S 

REF 

18 

LAST 

342 

41,3511 

4 4677 

1 

cs 

61712 

241432 

REF 

14 

LAST 

363 

41,3512 

5C 124 

C 

INDEX 

CODE 

241425 

REF 

26 

LAST 

355 

41,3513 

57*023 

1 

XCH 

OSPT AB 


2A143S 

2Ai^42 

2AlA<i5 


REF 116 
REF 8 


LAST 

LAST 


362 

355 


A1 


A I 
^ 1 


2^1AAS 

2^1^52 

2Al<t55 


REF 

REF 


15 

1 


LAST 363 


^ 1 
A I 


2^11^5^ 

2AlAe2 

2A1A65_ 

2<tlA6S 

2^1^12 

2^1415 


REF 


LAST 362 


A1 

^1 

A1 


REF 

REF 

REF 


IS 

lA 

12 


LAST 

LAST 

LAST 


34S 


A I 


35 1 
33 T 


A1 
A I 


24147S 

REF 

12 

LAST 

35S 

41 

f 

3530 

4 

4374 

1 

2414E2 

REF 

!T 

LAST 

362 

41 

« 

3531 

54 

777 

1 

241465 

REF 

4 

LAST 

356 

41 

9 

3532 

0 

4447 

1 


2^ises REF 


2.A15^ 

2416 

24161 

24162 

24163 

24164 

24165 


1 


4X 


363 41 


REF 

REF 


REF 

REF 

REF 


24291 

REF 

74 

LAST 

36C 

41,3556 

24292 

REF 

14 

LAST 

359 

41,3557 

2430 

REF 

2 

LAST 

356 

41,3560 


2431 

2432 


REF 117 LAST 363 


41 

41 


TfBtStCR IQ (A HAD atlt2tOR 31 
BLANK SPECIFIED OSPTABS 


9 


3514 

3515 

3516 


1C COO 
25*016 
0 3517 


C 

1 

1 


CCS 

INCR 

TC 


A 

NOUT 
♦ I 


3517 

3520 

3521 


1C 124 
0 3510 
C COCi 


1 

C 

1 


CCS CODE 

TC BLANKCSP +2 

PEL INT 


3522 5C 123 1 

3523 0 353C I 

3524 0 3525 C 


INDEX NVTfPP 

rc *5 

TC +1 


NVTEMP HAS -4 (NEVER TCUCH MODREG) 


3525 

3526 

3527 


55*001 C 
55*002 C 
11*013 C 


TS 

TS 

TS 

CS 

TS 

TC 


VEPBPEG 
NGUNREG 
CLPA SS 


-3 

-2 

-1 


VOl 

DSPCCUNT 

FLASHCFF 


9 


protect ACSAINST INVISIBLE FLASH 


3533 0 3556 I 


3534 3 3560 1 NVSUBl 


TC 


CAF 


ENTSET 


ENTSET 


ZEROS REQHET 


IN BANK 


6 

LAST 

341 

41,3535 

54 136 

1 

TS 

ENTRET 

SET RETURN TO 

NVSUBENO 

3 

LAST 

363 

41,3536 

10 123 

C 

CCS 

NVTEMP 

NHAT NON 





41,3537 

0 3543 

c 

TC 

+4 

NORMAL NVSU8 

CALL (EXECUTE 

19 

LAST 

325 

41,3540 

0 2350 

c 

TC 

GCDSPALM 



2 

LAST 

363 

41,3541 

0 3506 

1 

TC 

BLANKCSP 

BLANK DISPLAY 

AS SPECIFIED 

2C 

LAST 

362 

41,3542 

0 2350 

0 

TC 

GODSFALM 




2417 

2418 

2419 

REF 

REF 

REF 

K 

4 

112 

LAST 

LAST 

LAST 

341 

363 

356 

41,3543 

4 1,3544 
41,3545 

3 604 3 

7 0123 
54 157 

C 

C 

C 

CAF 

MASK 

TS 

L0K7 

NVTE**? 

MPAC 

♦ 3 

TEMP FCR NCIN 

(CANT use MPAC. DSPDECVN 

2420 

REF 

5 

LAST 

362 

41,3546 

3 0123 

1 

CA 

NVTEMP 



USES MPAC, Hit *2 

2422 

REF 

5 

LAST 

341 

41,3547 

54 023 

1 

TS 

fOOP 


right 7 


2423 

REF 

6 

LAST 

363 

41,3550 

3 0023 

c 

CA 

EDLiP 




2424 

REF 

114 

LAST 

362 

41,3551 

54 160 

1 

TS 

M^AC 

■14 

TEMP FDR VERB 

(CANT USI MPAChI. DSPDECVN 

A2425 












USES MPAC, HI, H2J. 

2426 

REF 

1S5 

LAST 

363 

41,3552 

IC 157 

c 

CCS 

h P aC 

♦3 

“ TEST NCUN 


24 2 7 

REF 

1 



41,3553 

0 3561 

0 

TC 

NVSUB2 


IF NCuN NOT^ 

, GO qN 

2428 

REF 

116 

LAST 

36 3 

41,3554 

3 Cl60 

c 

CA 

MPAC 




2429 

REF 

9 

LAST 

35 6 

41,3555 

0 2336 

c 

TC 

QPOATVE 

-1 

IF NCUN » *0, 

DISPLAY VERB . THEN RETURN 


9 


3 4714 1 

R-IOU c 




3561 

3562 


To UO I 
0 3566 1 


ENTSET 

WSlH 


CAF 

TS 

TC 

ZZJ 

TC 


TITC 

REQRET 
NVSUBEKD 
MPAC 44 

♦4 


P7ITFC“YrR¥5 dW 
BE EXtCUTEC BY CPEFATCF. 


TEST \<6R6 

IF VERB NOT +0, GO CN 
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2A33 

2<i35 

REF 

REF 

JL£f, 

ise 

2 

a 

LAST 

LAST 

XJAT 

363 

399 

363 

91.3563 
91, 3569 

91.3565 

3 C157 

0 2316 

-Q 9ii6 

1 

1 

jL_ 

CA 

TC 

TC 

MPAC 

UPDATNN 

NVSUCEND 

*3 

“1 

IF VEPB « ♦€, display NOUN. THEN RETURN 


2A36 

REF 

1 59 

LAST 

369 

91,3566 

3 0156 

C 

CA 

MPAC 

♦ 2 

TEMP FCR MACH CAOR TO BE SPEC. IDSPOECVN 


2A37 

REF 

2CC 

LAST 

369 

91, 3567 

59 161 

C 

TS 

MPAC 

♦ 5 

USES MPAC, ♦!, +21 


ZMi 


LAST 

369 

91.3570 

3 CUQ 


CA 

MPAC 

♦ 9 



2^39 

REF 

IC 

LAST 

363 

91,3571 

0 2336 

c 

TC 

UPOA TVB 

-1 

IF BOTH NOUN AND VERB NOT -fj, DISPLAY 


2990 

REF 

2C2 

LAST 

369 

91,3572 

3 0157 

I 

CA 

MPAC 

♦ 3 

8CTH AND GC TC ENTPASO. 


2991 

_RLF 

. 1_ LAST 

369 

91,3573 

0 2 316 

1 

TC 

UPDATNN 

-1 



2992 

REF 

75 

LAST 

363 

91,3579 

3 9719 

1 

CAF 

ZERO 




2993 

REF 

3 

LAST 

356 

91,3575 

55 '019 

1 

TS 

loadstat 


SET FOR WAITING FOR DATA CONDITION 


2999 

REF 

13 

LAST 

36 3 

91, 3576 

55*015 

c 

TS 

CLPASS 




2995 

REF 

15 

LAST 

363 

91,3577 

55 '013 

c 

TS 

REGRET 


SET RECRET FCR PASS 0. 


2996 

REF 

2C3 

LAST 

369 

91,3600 

3 0161 

I 

CA 

PPAC 

*5 

RESTCRES MACH CaOR TO BE SPEC TO MPAC+2 


2997 

REF 

2C9 

LAST 

369 

91.3601 

59 156 

1 

TS 

MPAC 

*2 

FCR USE IN INTMCT8S flN ENTPASOJ. 


2996 

REF 

3 

LAST 

3U 

91,3602 

0 2035 

c 

6N0NVSB1 TC 

ENTPASO 





R2AA9 IF IhURPAL HACH EACH TG 8E SPECIFIECt PPAO 4 I WILL BE PLACED INTO 
R2A50 NCLNCACP IP ENTPASO ( INTNCTBS t. 


2951 

REF 

9 

LAST 

369 

9220 



SETLCC 

NVSUBENC *2 


29515 

RE F 

A 

LAST 

262 TC 

362 1 

29 

98* 

COUNT 

02/P IN 


A2952 










FORCE BIT 15 CF MCNSAVEl TO 1. 

2953 

^RLF 

Ik 

LAST 

337 

9220 

3 9679 

C 

KILPQNON CAF 

BIT 1 5 

THIS IS THE KILL PCM TCR PIT. 

2959 

REF 

e 

LAST 

362 

9221 

55*021 

1 

TS 

MOKSAVEl 

TURN OFF BIT 19, THE EXTERNAL 

A2955 










MONITOR BIT. 

2956 

REF 

1C7 

LAST 

362 

9222 

0 Q0C2 

c 

TC 

0 



P_2/»55 LCAXSUL ID I NAC T I V E ( WA 1 T ING FOR DATAI. SET BY NVSUB 
fl2<*6C *l PROCEEC NO CATA. SET BY SPECIAL VERB 

P2Atl -1 TERMINATE SET BY SPECIAL VERB 

R2462 -0 DATA IN SET BY ENC CF LCAO ROUTINE 

R2A63 OR RESECUENCE SET BY VERB 32 


P2AeA 

H2A65 

R2A66 

R2^t7 

R2A68 

R2At9 

R2'it7C 

R2A71 

R2A7<; 

P2A73 


L TC ENCICLE ( FIXED FIXEDI 

RCLT1PES THAT RkQLESt LQACS TFRCUGH NvSLB ShClLD USE INOIDLE mHILE 
WAlT iNG FOR THE DATA TO BE LOADED. ENCICLE PUTS CURRENT JOB TC SlEEP- 
ENCICLE cannot BE CALLED FRCP ERASABLE CR F/F MEPORYt 
SINCE ^ICBSLEEP ANC JGENAKE CAN HANDLE CNLY FIXED OANkS. 

RECALIS1 TESTS LOACStAT AND MAKES JCB IP TO* 

L-H FCR TERM INATE 

1*2 FCP PROCEEC hITHCLT CATA 

L43 FCR DATA IN| CR RESECUENCE 

IT COES NCThING IF LCAD5TAT INDICATES VAlTINlT FdR DATA. 


P 


R 


GAP 5 
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82^7^ E^C10lE ABCPTS CCDE C12C6) IF A SECONC JOB ATTEMPTS TO GO TO SLEEP 

R2<»75 FUbALL. IM PARTICULAR, IF Ah ATTEMPT IS MADE TO GO TO ENCICL6 k«HEN 

H2^76 L) CACPSTC P NOT* *0. THIS IS THE CASE ViFEPE THE CAPACITY OF EhUlOLE IS 

82^77 EXCEECEC, (♦-hZ IhCICATE A JCE IS ALREACV ASLEEP CUE TO ENDlCLE.l 
R2<.7e 21 DSFLIST NCT^ +0. TUS INDICATES A JCB IS ALREADY ASLEEP DUE TO 

R2<i7s NysueiST. 


R 


2^00 

REF 

ice 

LAST 

364 

4223 

22 002 

C 

fnoiole lxch 

Q 

retupn address into L. 



REF 

J_ 



4 224 

_Q. 

4234 

c 

TC 

ISCACRi^O 

ABORT IF CACRSTCR NOT» *0 


2*102 

ref’ 

1 



4225 

0 

4240 

c 

TC 

I Si 1 ST+0 

ABORT IF OSPLiST NCT« -*0 


2483 

REF 

4 1 

LAST 

35C 

4226 

3 

0001 

c 

CA 

L 

DCNT set DSPLCCK to 1 SO CAN 

USE 

2*te*i 

REF 

4 

LAST 

263 

4227 

7 

4747 

c 

MASK 

LCWl C 

ENDIOLE WITH NVSUB INITIATED 

MONITOR. 

2*105 

REF 

1 



4^30 

6 

0004 

c 

AO 

FBAKK 

SAME STRATEGY FCR CACR AS MAKECAOR. 

2406 

REF 

7 

LAST 

36C 

4231 

5 

5*042 

1 

TS 

CADRSTCR 



24 87 

RfF 

I 



4232 

0 

5070 

c 

TC 

JObSLEEP 




2*168 REF AO LAST 360 A233 0 51 12 0 ENOINST TC ENDLFJCR 


^409 

^MF„ 



LAJT 

365 

4234 

11*042 

1 

ISCACR+0 

CCS 

CADR5TCR 

ABORTS 

(CCCE 01206) 

IF CACRSTCR NOT* 40. 

2490 

REF 

1 



4235 

0 4243 

C 


TC 

0 SPA BCR T 

RETURNS 

IF CACRSTOR 

* 40. 

24SI 

REF 

1C9 

LAST 

36! 

4236 

0 CQC2 

c 


TC 

Q 




2492 

REF 

2 

LAST 

365 

4237 

0 4243 

c 


TC 

DSPABORT 


















2493 

REF 

2 

LAST 

167 

4240 

11*043 

0 

ISLIST+0 

CCS 

OSPL 1ST 

AEOPTS 

(CCDE 01206) 

IF OSPLIST NOT* 40. 

2494 

REF 

3 

LAST 

365 

4241 

0 4243 

c 


TC 

OSPABCPT 

RETURNS 

IF CSPLIST ■ 

40 . 

2495 

REF 

1 1C 

LAST 

36S 

4 242 

0 0002 

c 


TC 

0 




2^96 

REF 

2 

LAST 

356 

4243 

0 5622 

1 

CSPA0CPT 

TC 

POCCCC 




2497 





4244 

01206 

1 


OCT 

01206 





Ri *iS8 JAMEFF ALLChS PRCGRARS TC PEPFCPM THE TERMINATE FUNCTION. 


2499 

IT 

CCES 

enccfjcb. 







2500 

REF 

-3 

M. ■ 

LAST 

362 

4245 

3 4215 

C 

JAMIEHM CAF 

P INSLP6T 


2501 





4246 

0 0006 

1 

EXTEND 



25011 

REF 


LAST 

362 

4247 

Cl 007 

1 

WRITE 

SUPEP0NK 


25012 

REF 

1 



4250 

3 4256 

1 

CAF 

34DEC 


2 5013 

REF 

16 

LAST 

364 

4251 

55*013 

d 

TS 

PEtP ET 

LEAVE ENtEP S E T "t fTT PATS^O . 

2502 

REF 

13 

LAST 

363 

4252 

4 4374 

1 

C$ 

VDl 


2503 

REF 

!€ 

LAST 

363 

4253 

54 777 

1 

TS 

OSPCCUNT 


2304 

REF 

30 

LAST 

36C 

4254 

d 4574 

c 

TC 

POST JUMP 


2505 

REF 

2 

LAST 

319 

4255 

61351 

1 

CADR 

VBTEPM 



2506 i,256 C00A2 1 3ACtC DEC 34 


R25C7 JAhFKC ALLChS PRCGP4MS TC PEPFCPM THE PROCEEC/PROC EEC WITHOUT DATA 
F25C6 FUhCllLN. IT OCES EhCCFJQB. 
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25C9 

REf 

A 

LAST 

365 

6257 

3 6215 

C 

JAMPkOC CAP 

PINSbPBT 




251C 





6260 

0 0006 

1 

EXTEND 





2SICL1 

Elf _ 

6- LAST. 

365 

6261 

01 007 

_1_ 

WRITE 

SOPE PBNK 




25102 

REF 

1 



6262 

3 6270 

C 

CAF 

33DEC 




25103 

REF 

17 

LAST 

365 

6263 

55* cia 

C 

TS 

F ELR ET 

LEAVE ENTER SET FOR ENTPASSO. 



2511 

REF 


LAST 

365 

6266 

6 6376 

1 

CS 

VDl 




2512 

REF 

55 

LAST 

365 

62 6 5 

56 777 

1 

TS 

DSPCCLNT 




2513 

REF 

31 

LAST 

365 

6266 

0 6576 

c 

TC 

POST JbHP 




251A 

REF 

5 

LAST 

35S 

6267 

61363 

1 

CACR 

VBPHCC 





2515 


A270 OOOAl 1 33CEC DEC 33 


R2532 BLANKSCe BLANKS ANY CCPBINATKN GF Pit P2f P3. 

P2533 G^AiL » ITH EL ANKINC CCCE IN A. 

R253A Bni>l BLANKS Pl» eiT2«l BLANKS P2i BLANKS R3. 

P2535 AN\ CCPfilNMICN Of THESE BITS IS ACCEPTEC. 


R2536 

CSFCCLNT 

IS RESTOPEC 

TO STATE 

IT WAS 

IN 

BEFORE BLANKSUb 

WAS EXECUTEO. 



2536 

RIF 

5 

LAIT 


6271 

7 6 716 

1 

BLANKSOB 

HASK 

SEVEN 



25381 

RLF 

6 

LAST 

363 

6272 

56 123 

C 


TS 

NVTE HP 

STOPE BLANKING CODE IN NVTEMp. 


2535 

REF 

32 

LAST 

362 

6273 

3 6675 

1 


CAF 

DIT16 



2560 

REF 

9 

LAST 

366 

6276 

7 1021 

1 


HASK 

HCNS AVEl 

external ncmtop bit 


25601 

REF 

7 

LAST 

362 

6275 

6 1C12 

0 


AO 

DSPLCCK 



25602 

REF 

117 

LAST 

362 

6276 

1C LCO 

c 


CCS 

A 



25603 

REF 

111 

LAST 

365 

6277 

0 0002 

0 


TC 

Q 

OSP SVST BLCCKED. PET TO 1+ CALLING 

LOC 

25606 

REF 

112 

LAST 

366 

6300 

26 002 

c 


I NCR 

Q 

DSP SYST AVAILABLE 


A2561 











SET RETURN FOP 2* CALLING LOC 


2561 1 

REF 

7 

LAST 

366 

6301 

10 123 

c 


CCS 

NVTE HP 



25612 





6302 

1 6306 

c 


TCF 

*2 



25613 

REF 

113 

LAST 

366 

*«3C3 

0 00C2 

c 


TC 

Q 

nothing TC BLANK, RET TO 2+ CALLING 

LOC 

2562 

REF 

116 

LAST 

366 

6306 

22 002 

c 


LXCH 

0 

SET RETURN FOR 2 ♦ CALLING LOC 


2 566 

REF 

1 



6205 

3 6316 

] 


CAH 

BLNKBENK 



2565 

REF 

11 

LAST 

3"6 2 

6306 

58 0C6 

1 


XCH 

BBANK 



2565 1 





6307 

C 0006 

1 


EXTEND 




25652 

REF 

7 

LAST 

3 6 6 

6310 

06 007 

1 


ROK 

SUFEPeNK 

SAVE CLO SUPERBITS. 


2566 

REF 

60 

LAST 

326 

6311 

52 131 

c 


OXCH 

euF 



25661 

KEF 

C 

LAST 

36 6 

6312 

3 6215 

c 


CAF 

PINSIPBT 



25662 





6313 

U 0006 

1 


TxTencT 




25663 

REF 

8 

LAST 

366 

6316 

01 C07 

1 


WRITE 

SUPERBNK 



2 567 

REF 

1 



6315 

0 36C6 

c 


TC 

bLNKSUTl 



2568 

REF 

6C 

LAST 

366 

0777 




LBANK* 

DSPCCLNT 



23661 

REF 

2 

LAST 

366 

6316 

60101 

I 

8LNKBBNK 

BBCON 

BLNKSLBl 



2565 





6317 



ENDBLFF 

EQUALS 




2550 

REF 

■! ■■ 

1 



60f 3606 




SE TtOC 

endn elcs 



25 505 

REF 

8 

LAST 

35 8 TC 

362 : 

35 776* 


COUNT 

60/PIN 
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2551 

REF 

6 1 

LAST 

366 

<C, 3^06 

3 

0777 

C 

BLNKSUBi 

CA 

OSPCCUNT 

SAVE CLD CSPCCUNT FOR LATEP RESTCRATICN 

2551 1 

REF 

4 1 

LAST 

366 

ACf 3^07 

54 

132 

c 


TS 

BUF +2 


25512 

ilEJL 

22. 

LAST 

356 

A0f3^1C 


4712 

1 


CAF 

BlTl 

TEST BITl. SEE IF Rl TO BE BLANKED. 

2552 

REF 

1 



4Gt 3A11 

0 

3430 

c 


TC 

reSTEIT 


2553 

REF 

13 

LAST 

35C 

AOf 3A12 

3 

4333 

c 


CAF 

RlDl 


2iLA „ 

_JL1F 

A 

-2AST 

33C 

4Ct3A13 

0 

2436 

1 


TC 

5BLANK -1 


2555 

REF 

2C 

LAST 

217 

A0t3AlA 

3 

4711 

1 


CAF 

ai r2 

TEST BIT 2. SEE IF «2 TO BE BLANKED. 

2556 

REF 

2 

LAST 

367 

^Of 3^15 

C 

3430 

c 


TC 

test EIT 


2557 . 


.„.5 

LAST 

.^52 

A0»3A16 

3 

4334 

1 


CAF 

R2D1 


2558 

REF 


LAST 

367 

60,3417 

0 

2436 

1 


TC 

5ELANK -1 


2559 

REF 

15 

LAST 

36C 

40,3420 

3 

4710 

c 


CAF 

BIT3 

TEST BIT3. SEE IF R3 TC BE BLANKED. 

256Q 

REF 

3 

LAST 

36 7 

40,3421 

0 

3430 

c 


TC 

TEST EIT 


2561 

HEF 

5 

LAST 

33 1 

40,3422 

3 

4335 

c 


CAF 

R3D1 


2562 

REF 

6 

LAST 

367 

40,3423 

0 

2436 

1 


TC 

56LANK -1 


2563 

REF 

<2 

LAST 

367 

^0, 3424 

3 

0132 

1 


CA 

PUF *2 

RESTORE OSPCCUNT TO STATE IT hAO 

256A 

REF 

62 

LAST 

36 7 

40,3425 

5 A 

777 

1 


TS 

USPCCUNT 

BEFORE BLANKSUB. 

2565 

REF 

23 

LAST 

367 

40,3426 

52 

131 

c 


OXCH 

BUF 

CALL L+2 DIRECTLY. 

2566 

REF 

2 

LAST 

362 

40,3427 

0 

5123 

1 


TC 

SUPOXCHZ +1 

OTCfl WITH SUPERBIT SWITCHING 

2567 

REF 

e 

LAST 

366 

40,3430 

7 

0123 

G 

TESTBI T 

MASK 

NVTEPP 

NYTEPP CCNTIINS BLANKING CODE. 

25:^6 

JSJJ. 

118 

LAST 

366 

40,3431 

10 

OCC 

c 


CCS 

A 


256S 

REF 

115 

LAST 

36 6 

40,3432 

0 

0002 

c 


TC 

Q 

IF CURRENT BIT ■ 1, RETURN TC L+1. 

2570 

REP 

1 16 

LAST 

367 

40, 3433 

50 

002 

c 


INDEX* 

Q 

IF CURRENT BIT - 0, RETURN TO LF3. 

2571 





40,3434 

0 

0002 

c 


TC 

2 



2572 


4U,3A35 ENCBSUBl EQUALS 


R2572C5 CSF^-P DCES NOT DISPLAY MCCPEG OIRECTLV,^ IT PUTS IN £;<ec REQUEST WITH 
P 25 7 2 L i_P PIC 3CC0C PCR DSFPPJe ANC RETURNS TC CALLER. 


P2572C7 If PCCPEG CONTAINS -0* OSPPNJB BLANKS THE MODE LIGHTS. 

R2572C5 CSFPP PLST BE IN EANK 27 CP LCwERt SC IT CAN BE CALLED VIA BANKCALL. 


^5721 





07,2440 



BANK 

7 


257215 

REF 

1 



C4,2C00 



SETLCC 

PINBALLA 


257217 





04,2537 



BANK 



2572 16 

REF 

1 






COUNT 

07/P IN 













25722 

REF 

117 

LAST 

367 

04,2537 

56 CC2 

C CSPPN 

XCh 

Q 


2 572 3 

REF 

2C5 

LAST 

364 

C4,2540 

54 154 

C 

TS 

MPAC 


25724 
25 725 

REF 

3 

LAST 

348 

04,2541 

C4,2542 

0 COC<« 

3 4371 

C 

c 

INhINT 

CAF 

C HR P P I C 

— _ 

25 72 6 
25727 
25726 

REF 

REF 

RtF 

12 

63 

1 

LAST 

LAST 

34 i 
36 7 

C4,2543 

0 77 7 
04,2544 

0 5027 

03435 

1 

c 

tc 

EbANKi: 

2CA0R 

NCVAC 

OSPCCLNT 

DSPMNje 

■ — — 

25728 

257285 

ref 

1 



C Af 25A5 

6C1C1 

1 

RElINT 







04,2546 

0 0003 

1 




4 
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2i>729 REf 2C6 LAST 367 CA,25^7 0 C154 1 ENOSPNrt TC MPAC 

R25 73 CiFf!! PL AC E HAJQi F CCE CCCE iht C HCC FEG 


25735 REF 1 AQ,3A35 SETLOC ENDbStBl 


25736 REF 9 LAJT 366 TC 367: 23 797* COUNT 4C/PIN 

2574 R f P 1 40.3435 3 4376 1 CSPRRJti CAP MQl GETS HERE THRU CSPPH 

2575 REF (4 LAST 367 40,3436 56 777 C XCH DSPCCUM 

2576 REF 1 40,3437 54 140 C TS DSPMPTEH SAVE CSPCCUNT 

2 5 79 R E F 6 LAST 254 40,3440 1 1*011 1 CCS MQDPEG 

2560 BEF 47 LAST 362 4C,3441 6 4712 1 AO ONE 

25801 REF 4 LAST 352 40,3442 0 3211 C TC DSPOECVN IF MCDH6G IS ♦ CR +0, DISPLAY MOOBEC 

25801 40,3443 0 3445 1 TC ^2 IF MCCREG IS -NZ, DO NOTHING 

25803 REF 6 LAST 3 57 40,3444 0 2502 1 TC 2eLAhK IF RCCRFG IS -0, BLANK MM 

2581 REF 2 LAST 368 40,3445 56 140 1 xCh OSPPPTEM RESTORE DSPCOONT 

2582 REF 65 LAST 368 <0,3446 54 777 1 TS DSPCCLNT 

2583 REF 41 LAST 365 40,3447 0 5112 C TC FNDOFJCP 


R25e4 RECAL75T IS ENTEREC CIBELTLV AFTER CAIA IS LCADED ICR PESECUENCE VERB IS 

«25e5 EXECLlEOf TERMINATE VERB IS EXECUTED, CR PROCEED WITHOUT DATA VERB IS 

R2586 £X£_Cl IM * IT WAKES UP JOB T H AT CIO TC ehCIDLE. 

R25e7 IF (AtPSKF NOT- 40, 11 PITS 40 INTC CSPLCCK, AND TURNS OFF KEY RLSE 

R2588 LICET I F OSPLlST IS EMPTY ILEAVES KEY RLSF LIGHT A LONE IF NOT EMPTY). 


2589 

REF 

9 

LAST 

365 

40,3450 

1 1 *042 

1 

recaltst 

CCS 

CADRSTCR 


2590 

REF 

1 



40,3451 

0 3453 

( 


TC 

PECALl 


2591 

REF 

42 

LAST 

368 

40,3452 

0 5112 

C 


TC 

ENOOF jce 

NCRMAL EXIT IF KEYBOARD INITIATED 

2592 

REF 

76 

LAST 

364 

40,3453 

3 4714 

1 

RECALl 

CAF 

ZERO 


2593 

RE^ 

JC 

LAST 

368 

40,3454 

57*042 

c 


XCH 

CADP STCP 


2594 





40, 3455 

C 0004 

c 


INHiNT 



2595 

REF 

1 



40,3456 

0 5074 

1 


TC 

JDBVi AKE 


2596 

REF 

4 

LAST 

364 

40,3457 

11*014 

1 


CCS 

load STAT 


2597 

REF 

1 



40,3460 

0 3502 

c 


TC 

DCPRCC 

♦ PROCEED WITHOUT DATA 

2598 

REF 

43 

LAST 

368 

40,3461 

0 5112 

c 


TC 

ENDCFJCP 

pathalogical case Exn 

2599 

REF 

1 



40,3462 

0 3500 

1 


TC 

OLTEPM 

TERMINATE 

2600 

REF 

22 

LAST 

355 

40,3463 

3 4711 

I 


CAF 

TWO 

CR resequence ^ “ 

2601 

REF 

1 



40,3464 

5C C64 

c 

RECAL2 

INDEX 

C OCC 1 P 


2602 

REF 

1 



40, 3465 

6 0164 

1 


AO 

LCC 

LCC IS * FOP BASIC JOBS 

2603 

BEF 

2 

LAST 

36 8 

40,3466 

50 C64 

c 


INDEX 

lCCCIR " 


2604 

REF 

2 

LAST 

368 

40,3467 

54 164 

c 


TS 

LOC 


26041 

REF 

15 

L/ST 

362 

40,3470 

3 1002 

1 


CA 

NOONPEG 

SAVE VERB IN MPAC, NOUN IN HPAC+I AT 


26042 REF 42 LAST 365 40,3471 54 OCi I fS ~L TIME Cf HE S POME TO ENDTOlE FOR 

26043 BEF 2C LAST 363 40,3472 3 1001 I CA VEPBPEG PCSSIBLE LATEP TESTING BY JOB TH^T HAS 

26044 REF 2 LAST 368 40,3473 50 064 C INDEX LOCCTR BEEN NAKED UP. 

2’6C45 REF 2C7 LAST 368 4C,34 74 52 155 I ffXCH MPTTt 

26C5 40,3475 0 00C3 1 RELINT 


J 


260 e 

2607 



e L4ST 36C 

4^ LAST 366 


40t3476 

4C,3477 


0 4A73 C 
0 5112 C 


HELOSF 
ENOGF JCO 




26Cb 

REF 

77 last 

366 

4Cf350(j 3 

^714 

1 

COTtRR 

CAF 

ZERO 

2(3GS 

RFF 

1 


4Ct35Cl 0 


1 


TC 

RECAL2 

26iC 

REF 

4a LAST 

366 

4Ct35U2 3 

47U 

1 

OOPRQC 

CAF 

ONE 

2611 

REF 

2 LAST 

36S 

4C»35C3 0 

34 64 

1 


TC 

RtCALZ 


I 







/: 


4 


II 









n 


t 




- 
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USER'S PAGE NO. 71 BO S4 


P2ei2 MI SCEILAKBCUS SERVICE ROUTINES IN FUEC/FIXEC 


2613 ref 1 431F SETLOC ENOtJLFF 

2 6 1 3 i . Jill ± lAVL ife4 TO 36i> i tl. 1 11< COUNT . 02/P 1N_ 


R2614 SElNCiCR E CACR ARRIVES IN A. 11 IS STOREC IN NCUNCADR . EBANK BITS 

P2615 ARE SET. E ACRES IS OEFIVEC ANC PUT INTO NQUNiOC. 


2616 

REF 

6 

LAST 

35C 

4317 

5 5 '01 7 

1 

SETNCACR TS 

NOUNCACR 

STORE ECAOR 



2617 

REF 

16 

LAST 

294 

4 3 20 

54 0C3 

C 

TS 

EBANK 

SET EBANK BITS 



2616 

REF 

1 



432 1 

7 4373 

C 

MASK 

LCWB 




2619 

REF 

1 



4322 

6 4744 

1 

AO 

QCT14C0 




262C 

REF 

29 

LAST 

345 

4323 

5 ^ 1^5 

C 

TS 

NOUN ACC 

PUT E ACRES INTC NQUNAOO 



2621 

REF 

lie 

LAST 

367 

4324 

0 00C2 

C 

TC 

0 



— ™ 

R2622 

SETNACC 


GETS E 

CAOR FRCP NGUNCAOP 

t SETS EBANK 

eiTSt DERIVES 




R2623 




E ACRES 

ANC PUTS IT INTO 

KOUNACO. 





2624 

REF 

9 

LAST 

37C 

4325 

3 1017 

C 

SETNACC CA 

NOUNCACR 




2625 

REF 

7 

LAST 

339 

4326 

1 4320 

C 

TCF 

SETNCACR ♦! 





R262t SETFEANK t CACR ARRIVES IN A. EEANK BITS ARE SET. E ACRES IS 

fi2627 DEPIVEC ANC LEFT IN A. 


2628 

REF 

17 

LAST 

37C 

4327 

54 0C3 

C 

SETEBANK TS 

EBANK 

SET EBANK BITS 


262.9 

RLF 

m- 

C 

LAST 

37C 

4 3 30 

7 43 73 

C 

MASK 

lokb 



263C 

REF 

2 

LAST 

37 C 

4331 

6 4744 

1 

AD 

OCTl 400 

E ACRES LEFT IN A 


2631 

REF 

1 19 

LAST 

370 

4332 

0 0002 

c 

TC 

0 




2632 

2633 





4333 

4334 

0GC16 

COOll 

C 

1 

RlCl 

R201 

OCT 

OCT 

16 

1 1 

these 3 CONSTANTS FORM A PACKEO TABLE. 

DCNT SEPARATE. ^ 

2634 





4335 

COO 04 

0 

R301 

OCT 

4 


2635 

REF 

7 

LAST 

354 

4336 

54 020 

1 

R IGRT5 

TS 

CYR 


2636 

REF 

8 

LAST 

370 

4337 

4 0020 

1 


CS 

CYF 


^637 

REF 

9 

LAST 

37C 

4340 

4 0020 

1 


CS 

CYR 

"_y 

2636 

REF 

10 

LAST 

37 C 

4341 

4 0020 

1 


CS 

CYR 


2639 

REF 

ii 

LAST 

37C 

4342 

4 0020 

1 


CS 

CYR 


264C 

REF 

12 

LAST 

37C 

4343 

56 C20 

c 


XCH 

CYR 


2641 

REP 

12C 

LAST 

37C 

4 3^4 

0 0CC2 

u 


TC 

0 


2642 

REF 

13 

LAST 

354 

4345 

54 022 

c 

LEFTS 

TS 

CYL 

- 

2643 

REF 

14 

LAST 

37C 


4 C022 

c 


CS 

CYL 


2644 

REF 

15 

LASt 

37C 

434 7 

4 0022 

C 


-TS 

cn 


2645 

REF 

16 

LAST 

37C 

4350 

4 0C22 

f 


CS 

CYL 





¥ 
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26^6 

REF 

17 

L/Sl 

370 

4351 

4 0022 

C 

cs 

CYL 


2647 

REF 

le 

L^ST 

37 1 

4352 

56 022 

1 

XCH 

CYL 


264S 

-RUL 

JJX^ 

L^ST 

37C 

4353 

C 0002 

C 

TC 

Q 













2644 





4354 

6 COCO 

1 SLEFT5 

DOUBLE 








4355 

6 0000 

1 

DOUBLE 



2651 





4356 

6 COCO 

1 

DOUBLE 



2652 





4357 

6 COCO 

1 

DOUBLE 



2653 





4360 

6 0000 

1 

DOUBLE 



2654 

REF 

122 

L45t 

37 1 

4 36 1 

0 C0C2 

c 

TC 

Q 



» 


2655 

2656 

26 57 




— 

4 362 

4363 

4364 

00037 

01740 

7 6 C C C 

C 

c 

c 

LOWS 

MI05 

HIS 

OCT 

OCT 

OCT 

37 

174 0 

7600C 

These 3 ccnstants forr a packed table. 

OCNT SEPARATE. 

MUST STAY HERE 

2658 

REF 

12 

L4ST 

367 

4365 

G 5027 

1 

TCNCVAC 

TC 

NOVAC 

- - — 

2654 

REF 


Li!S7 

348 

4366 

0 5140 

1 

TCWA 1 1 

TC 

WAITLIST 


2660 

REF 

14 

LAST 

346 

4367 

6 5213 

1 

TC7 SKCVR 

7C 

TASKCVER 


2661 

REF 

13 

LAST 

26C 

4370 

0 5042 

1 

ICFINCVC 

TC 

F INCVAC 



p 


Ztit2 


4371 30000 1 ChRPRIO OCT 


3C00C 


EXEC PRIORITY Cf CPARIN 



^663 4372 C3777 C LOwll OCT 3777 

2fc64 REF 6 LAST 33*? 437 2 ei2-l EgUALS LOW 11 

2663 4373 00377 1 L0W8 OCT 377 


2667 

2668 
2669 





4374 

4375 

4376 

C0023 

00021 

CG025 

c 

1 

c 

VCI 

NOl 

MCI 

OCT 

OCT 

CCT 

23 

21 

25 

THESE 3 CCKSTAhTS FORM A PACKED TABLE. 
DCNT SEPARATE. 


2670 





4377 

C0012 

1 

eiHCGN 

DEC 

10 



2671 

REF 

26 

LAST 

315 

4^00 

3 4704 

c 

faltcn 

CA 

BIT7 

TURN ON OPERATOR ERROR LIGHT 


2672 





4401 

0 0006 

1 


EXTEND 




2673 

REF 

11 

LAST 

36C 

4402 

0 5 011 

1 


wdR 

DSALMCUT 

BIT 7 CF CHANNEL 11 


2674 

REF 

123 

LAST 

37 1 

4403 

0 0002 

c 


TC 

Q 



16 T 5 

REF 


LAST 

3 7 1 

4404 

4 47C4 

1 

FALTCF 

CS 

BIT7 

TURN CFF QPERATCfi ERROR LIGHT 


2 1 7b 





4405 

C 0006 

1 


EXTEND 




2677 

REF 

12 

LAST 

37 1 

4406 

03 011 

1 


WANU 

dsalmcut 

BIT 7 CF CHANNEL 11 

■■ 

2678 

REF 

124 

LAST 

37 1 

4407 

0 0002 

c 


TC 

Q 



2674 

REF 

n 

LAST 

35 7 

4 410 

3 4706 

1 

RELUSPCh 

CAF 

BITS 

TURN ON KEY RELEASE LIGHT 

— — — — 

2680 





4411 

0 0006 

1 


EXTEND 




2681 

REF 

13 

LAST 

37 1 

4412 

0! 011 

1 


WQR 

DSALMCUT 

BIT i CF Channel ii 


2682 

REF 

12! 

LAST 

3 7 i 

4413 

0 C0C2 

c 


TC 

0 




L 


eUTTO^S 4ND Liens 


LSER'S PACE NO. 


eo SA 


7 j 


2663 





4414 

0 00C6 

1 

LCDSAHPT EXTEND 


2664 

REF 

1C 

LAST 


44 15 

3 0023 

C 

OCA 

TIME2 

266S 

Rif 

5 

LAST 


- 4416 

i2 014 


OXCH 

SAMPT IHE 

2666 

REF 

lit 

LAST 

37 1 

4417 

C QC02 

c 

TC 

Q 


2687 





4420 

0 00C6 

1 TPSLl 

EXTEND 



SHIFTS MPACf 4lf 42 

LEFT 1 

2686 

REF 

2 ce 

LAST 

36E 

4 4 21 

3 0156 

C 

OCA 

MPAC 

♦ 1 

LEAVES CVFIND SET TO 

♦/- 1 FOP OF/UF 

26 es 

REF 

iSil 

LAST 

372 

4 422 

20 156 

1 

OAS 

WPAC 

+ 1 



2690 

REF 

i 1C 

LAST 

Viz 

4423 

6 0154 

1 

AO 

MPAC 




2691 

REF 

2 11 

LAST 

372 


26 154 

c 

AOS 

MPAC 




2692 





4425 

54 0C7 

1 

TS 

7 


TS A COES NOT CHANGfc 

A ON OF/UF. 

2693 

REF 

127 

LAST 

372 

4426 

0 0002 

c 

TC 

0 


NO NET QF/UF 


2694 

REF 

7 

LAST 

344 

4427 

54 162 

c 

TS 

MPAC4fc 


MPAC 46 SET TC 4/-1 

FOR OF/UF 

2695 

REF 

158 

LAST 

ill 

443C 

0 00C2 

c 

TC 

Q 





R26S6 IF HPACt -»! ARE EACh ♦NZ CR ANC ClA)»-0« SHORTMP WKONGLV GIVES ->0. 

R26S7 IF PPACf *l ARE EACH -HZ CR -0 ANO C(AI**Of ShOHTHP HRCNGLY GIVES *C. 

RZdSe PRSFRIHP FIXES FIRST CASE CNL7, BY HERELY TESTING C(A) AND IF IT * -a» 

flZfcSS S FTTUG RFSLLT TO -0 . 

R27CO ICC ^CT LSE PPSH RTHP UNLESS PPACi +1 ARE EACH ♦NZ OP +0, AS THEY APE 
H2701 hFEN THEY COMAU TH E SF CONSTANTS.! 


2702 

2703 
27C4 

REF 

REF 

REF 

2 

1 19 

LAST 

LAST 

LAST 

67 

367 

372 

4431 

4432 

4433 

54 135 
1C OCO 

3 0135 

1 

C 

c 

PRSHPTMP TS 

CCS 

CA 

MPTEHP 

A 

MPTEHP 


CIA) 

4, OG REGULAR SHORTMP 

27C5 

REF 

E 

LAST 

35 1 

44 i4 

1 72 5 7 

1 

TCP 

SHORTHP 

♦ 1 

C (A) 

♦Of CC REGULAR SHORTMP 

2706 





4 4 35 

1 4433 

c 

TCF 

-2 


CIA) 

CC PECUIAR SHORTMP 

27C7 

REF 

l£ 

LAST 

369 

4436 

4 4714 

c 

OS 

ZEKC 


CIA) 

-Of FORCE RESULT TC -0 AND RETURN 

2708 

REF 

2 12 

LAST 

372 

4437 

54 154 

c 

TS 

MPAC 




2709 

REF 

2 13 

L AST 

3 72 

4440 

54 155 

1 

ts 

MPAC 

♦ 1 



27U 

«t F 

5 14 

LAST 

372 

4 441 

54 156 

1 

TS 

MPAC 

♦ 2 



^7ll 

REF 

129 

L A S T 

37 2 

4442 

0 CQC2 

c 

TC 

Q 





^712 

REF 

27 

LAST 

29C 

4443 

3 

4705 

1 

FLASHCN CAF 

blTfc 

TURN CN 

V/N FLASH 

2713 





4 444 

0 

0006 

1 

EXTEND 


BIT 6 OF 

CHANNEL 11 

2714 

REF 

14 

LAST 

371 

4445 

0 

5 on 

1 

NOR 

OSAL HCUT 



2715 

REF 

130 

LAST 

37 2 

4446 

0 

0002 

c 

TC 

Q 




Hit 

REF 

28 

LAST 

ill 

9447 

4 4 7C5 

c 

FLASHCFF CS 

aiT6 


TURN CFF 

V/N FLASH 

2717 





4450 

0 0006 

1 

eXTCNU 





^718 

REF 

15 

LAST 

372 

4451 

oi on 

1 

RAND 

osalhcut 


BIT 6 CF 

CHANNEL n 

i 7 19 

REF 

131 

LAST 

Viz 

4452 

0 000 2 

c 

fC 

Q 





CAP : ASS£>»PLg HgVlSIQN 23? Ct- AGC PRCGRAM CCLQSSUS JiY NASA 2Ci2IlXl~(3l 1:17 AUG. 24,1960 KCQLADE .064 PACE 3 


L PINE/SLL CAPt BUTTCNS AND tlGHTS USER'S PAGE NO. 7^ 60 S4 


P^720 ^^^eP^AL LSE QF KE^eCARO AhC DISPLAY FRCGBAR 


R2 7 21 USER R LS7 SChECULE CALLS TO NVSLfl SC IHAT THERE IS NC CCNFL1C1 CF USE CR 

R2722 CC^FLS^C^ 10 OPERATOR. THE CLC GRABLCCK ( INTERNAL/ INTERNAL I NTERLOCK ) 
R2723 HAS BE EN PEMCVED ANC THE I NTERNAL USER NC LCNGE R HAS THE PRCTECTICN THIS 
R2 12 <t CFFEBEX. 


P2725 n-tRE ARE IHC »A Y S A JC6 CAN Et PUT TC SLEEP BY THE KEYBOARD •» DISPLAY 

_g2726 PPCGR/R. II BY ENOICLE ^ 

R2727 2) BY NVSU8USY 

P2728 THE EASIC C CNVENT ICN IS THAT CNLY CNE JC 6 WILL BE PERMITTED ASLEEP VIA 

72 9 T RE KEYBCARD ♦ DISPLAY PRCGRAR AT A TIME. IF A JOB ATTEMPTS TC GO TC 

P2730 SLEEP ET KEANS UF (1) CR (21 ANC TRERE IS ALREADY A JOB ASLEEP TRAT WAS 

R2731 PIT TC SLEEP BY (U CR (2}i THEN AN ABCBT IS CAUSED. 


R2732 

TRE 

calling 1ECUE.NCI FCR NVSUfi IS 


R2733 


CAF V/N 


R2734 

L 

1C NVSLB 


R2735 

L + l 

RETURN HERE IF OPERATCP HAS INTERVENED 


R2736 


RETURN HERE AFTER EXECLTICN 



R2737 A RCLTINE CALLEC NVSUBLSY IS PPCVIDEC (USE IS CPTICNALI TO PUT 

K2738 YCLP JCB TC SLEEP UNTIL TRE aPEBATCR RELEASES THE KEyBDARO ♦ DISPLAY 
R2739 SYSIEK. NVSIBUSY AiSC TURNS CN THE KEV RELEASE LIGHT. 

R2 7A0 NV S UBLSY CANNOT BE CALLED FROM ERASABLE OR E/F MEMORY, 

R2741 SINCE JCeSLEEP ANC JCEWAKE CAN RANDLE CNLY FI>EC BANKS. 


R27^2 TRE CALLING SECUENCE IS 

R27A3 CAF WAKEFCAOR 

R2 7AA TC nVHBLSY 


fl2 7ji5 


R27A<; NVSLBISY IS INTENCEC PCR LSE WHEN AN INTERNAL PRCGRAM FINDS TRE QPEPATDR 
R27A7 IS LSING THE KEYBCARC + DISPLAY PROGRAM (BY RIS OWN INITIATICM. IT IS 
R27^e NCI INTENCEC FOR LSE WHEN ONE INTERNAL FPOGRAK FINDS ANOTHER INTERNAL 
R27A9 PflCCRAK LSlNG THE KEYBQARC ♦ DISPLAY FfiCCRAM. 


R2750 NVSUBLSY ABORTS (VITH CODE 0120«) IF A SECOND JOB ATTEMPTS TC GC TC 

R2751 SLEEP IN PINBALL. IN PARTICULAR, IP AN ATTEMPT IS MADE TO GC TC NVSLBUSV 

P2752 WREN 

R2753 1 ) CSFLIST NGT» *C, TRIS IS TRE CASE ViREBE THE CAPACITY Uf TRE DSPlIST 

R275A IS EXCEECEO. 

R2755 21 CACP5TCR NOT- 40. IHIS INDICATES TrAT A JCB IS ALREADY USING 


GAP : 4 S S £>flLE 237 Cf AGC PRCGBflH 


L 



NASA 



PlhCALL GAPE gunCNS ANC LIGHS 


nil AGG. 2A.1969 KCQLAOE PAGE 37A 

IjSER*S page no. 75 EC 


R275G EPCICLEt (■•-P2 iNCICATE A JOB IS ALR6ACV ASLEEP DUE Tb ENDIDLE.I 


27i7 

.PEJ= 

1_ 





N^60 

C 

PRENVeSY 

CS 

2K + 3 

SPECIAL entrance FOR RCUTINES 

IN FIXED 

2756 

REF 

122 

last 

372 

^ ^ 5<» 

6 

0002 

C 


AO 

U 

BANKS ONLY DESIRING THE FCAOR 

OF (LOG 

2759 

REF 

2 

LAST 

365 

^^55 

6 

00C4 

C 


AO 

FBANK 

FPOH WHICH the TC PRENV0SY WAS 

DONE! -2 

2760 

REF 

12, 

LAST 

366 

^*i56 

0 

<»57<t 

C 

NVSU0USY 

TC 

POST JURP 

TO BE ENTERED. 



27cl REf 1 <t^57 1C55G C CAQ H NVSUeSVl 

2762 4^60 C2Q03 C 2K+3 OCT 2003 


P27t25 NVSLBSYi HIST BE IN BANK 27 QR LQwERf SC IT WILL PUT CALLEP TC SLEEP 
hZlbZt HITE US PPQPEP SLPERBITS. 


27t3 REP 1 C^f2550 SETLOC ENDSfNW ♦! 

27635 REP 2 LAST 367 TC 368j 9 V* COUNT 07/PIN 


276^ 

2769 

2770 

REP 

REF 

REP 

43 

LAST 

36 e 

C4>2550 

54 001 

1 

NVSUeSYl 

TS 

L 


IF 

IF 



< 

2 

LAST 

LAST 

365 

365 

C4,255i 

C4,2552 

0 4234 

0 4240 

C 

c 


TC 

rc 

ISCACR+O 

I SLI ST+0 

ABORT 

ABORT 

CACH5TCR NOT- +0. 
CSPLIST NOT- +0. 


2771 

REF 

3 

LAST 

35C 

04,2553 

0 4410 

c 


TC 

RELOSPCN 





2772 

REP 

44 

LAST 

374 

C4,2554 

3 0001 

c 


CA 

L 





2773 

REF 

3 

LAST 

365 

C4,2555 

55*043 

c 


TS 

DSPL ISt 





2774 

REP 

2 

LAST 

36 5 

C4, 2556 

0 5070 

c 

ENDNVBSY 

TC 

JOBS LEEP 






P2775 NVSEWAU IS A SPECIAL ENTPANCE FOR BOLTINES IN FIXED BANKS ONLY. IF 
K2776 SYSTEN IS NOT BUSY, IT EXECUTES V/N ANC RETURNS TO L+1 (L» L CC FftON 

R 2 7 77 WH I CH UE TC NVSBNAIT WAS DCNE). IF SYSTEM IS BUSY« IT PUTS CALLING JOB 

P277e TC SLEEP WITH L- I GCING INTC LIST FOR EVENTUAL wAKING UP WHEN SYSTEM 
R2779 IS NOl ELSY. 


^ 7 0li 

REP 

1 



4 46 1 




SETLOC 

NVSUeUSY *3 



27805 

REF 

6 

LAST 

370 TC 

374 ; 

90 2C9^ 


COUNT 

02/P IN 














I 


2781 





4461 

22 007 

C 

NVSEwAI T 

LXCH 

7 

ZERC NVWONCFT CPTICNS 


2762 

REP 

9 

LAST 

36T 

44 fc 2 

54 123 

C 


TS 

NVTEKP 



2783 

REF 


LAST 

366 

4463 

3 4675 

1 


CAF 

blTl4 



27831 

REF 

1C 

LAST 

366 

4464 

7 1021 

1 


RASK 

MCNSAVEl 

external PCNltOR 61T 


27632 

REF 

e 

LAST 

366 

4465 

6 1012 

c 


AO 

usPlcck 



27832 

REF 

12C 

LAST 

372 

4 4 66 

10 000 

c 


CCS 

A 



2 7834 

REF 

1 



4467 

1 4471 

c 


TCF 

NVSBRTl 

BUSY ^ “ 


2784 

REF 

1 



4470 

1 42C0 

c 


TCF 

NVSBCCH 

FREE. NvSUe WILL SAVE 

L4l FOP PFTURN 

A2785 











AFTER EXECUTICN. 


2 786 

REF 

13 2 

LAST 

374 

4471 

24 002 

c 

NV38WT L 

INCK 

Q 

L^2. PfiENVeSY WILL PUT 

L--1 INTO LIST 

2787 

REF 

1 



4472 

1 4453 

c 


ICF 

PPENVDSY 

GC TC SLEEP. 



P27e8 PELC5F IS LSEO BY VEPBCtf VBTERN, VBRCEXtC» VBROWAIT, VbRELDSPt EXTENOEC 
R27e9 VEPE CISFATCHER, VfiPESEQ, PECALIST. 

R2790 RELCSFl IS USEC BY PCMTOP SET LPf VBPELCSP. 

2791 REF I3A LAST 37<i A473 56 QC2 C WELCSP C SET CSPLCCK TC “»a, TURN RELOSP LIGHT 


an AIG. ?^tl96a KC0LAD£ .06^ PACe _375 


gap: 



NASA 



L PUCAIL CAPE eunCNS AND LIGPTS 


GSEP*S PACE NO. 76 EO 


2792 

PEF 

1 



4474 

34 144 

1 


TS 

RELR ET 

OFF, SEARCH C5PLIST 

2/921 

REF 

24 

LAST 

374 

4475 

^ A 6 7 5 

C 


CS 

B rT14 


Zl^lL 





4476 

C 0004 



INMINT 



27922 

REF 

11 

LAST 

374 

4477 

7 1021 

1 


MASK 

MONSAVEl 


2792A 

REF 

12 

LAST 

375 

4500 

55*021 

1 


TS 

MONSAVEl 

TURN OFF EXTERNAL MONITOR BIT 

2I9i 

REF 



LAST 

379 

450 1 

11*043 

c 


CCS 

DSPL 1ST 


279A 





4502 

0 4504 

1 


TC 

+ 2 


279S 

REF 

1 



4503 

0 4507 

1 


TC 

RELDSP2 

LIST EMPTY 

2 796 

REF 

79 

LAST 

372 

4504 

3 4714 

1 


CAF 

ZERO 


2797 

REF 

i; 

LAST 

375 

4505 

57*043 

1 


XCH 

OSPL 1ST 


2799 

REF 

2 

LAST 

36E 

4506 

0 5074 

1 


TC 

JGBR AKE 


2600 





4507 

0 0003 

1 

RELDSP2 

RELINT 



2601 

REF 

18 

LAST 

371 

4510 

4 4706 

c 


CS 

BITS 

TURN CFF KEY RELEASE LIGHT 

2802 





4511 

0 0006 

1 


EXTEND 


(flIT 5 OF CHANNEL 11) 

2603 

REF 


UST 

372 

4312 

03 on 

1 


hAND 

DSALPCliT 


26CA 

REF 

ec 

LAST 

375 

45U 

3 4714 

1 


CAF 

ZERO 


2603 

REF 

9 

LAST 

3 7<i 

4514 

55*012 

1 


TS 

DSPLCCK 


2607 

REF 

2 

LAST 

375 

4513 

0 0144 

c 


TC 

PELKET 


2806 

ref 

13£ 

LAST 

3 f4 

4516 

56 002 

c 

RELCSPl 

XCH 

Q 

SET OSPLOCK TO -*0. NO 0SPLI5T SEARCH. 

2809 

REF 

3 

LAST 

375 

4517 

54 144 

1 


TS 

KLLRET 

TURN KEY RISE LIGHT OFF IF OSPLIST IS 

A261C 











EMPTY. LEAVE KEY RLSE LIGHT ALONE IF 

A2611 











DSPLIST IS NOT EMPTY. 

2812 

REF 

6 

LAST 

375 

4520 

11*043 

c 


CCS 

DSPL 1ST 


2613 





4521 

0 4523 

1 


TC 

+ 2 

♦ NCT EMPTY, leave KEY RLSE LIGHT ALONE 

2819 

RtF 

2 

LAST 

37! 

4522 

0 45C7 

1 


TC 

RELL SP2 

+0 EMPTY. Turn cff key rlIe l icnt 

2813 

REF 

El 

LAST 

375 

4523 

3 4714 

1 


CAF 

ZERC 

- NCT EMPTY. LEAVE KEY RLSE LIGHT ALONE 

2816 

REF 

1C 

LAST 

375 

4524 

55*012 

1 


TS 

DSPLCCK 


2817 

REF 

4 

LAST 

37! 

4525 

0 0144 

c 


TC 

RELR ET 



^£26 


2816 


ENDPINbF EQUALS 


GAP.; ASSE>aLE flEVlSlOh 237 CF AGC PRCGPAM COLOSSUS BV NASA 2U2U11-C31 

L PINMLl CAPE BUT 1 CHS AND tlGPTS 

P28iei PIMEM IS NteCEO FC« *UTC CHECK CF PINBALL. 

28181 A£f 2 L25I ZZ3 AitlCCl PIN U ST EQUALS LST2FAN 


UAP: 4SSE»ELf I^PVl■SlC^ 2 37 CF 4GC PRCGPAH COLCSSUS BY NASA 202I1 1 1-C31 HI? A(jG. 2^, 1^68 KCCLACE .064 PAGE 377 

L FINE^U eUTTCf^ ANC LIQUS ~ ISPR'S PAGE NO. 78 EO S4 


P2819 VeiSTLTS TLRNS ON /LL CISFLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS 
S2a20 CEF THE CALTICN A^C STATUS LIGHTS. 

2 02r rTf 1 A1.36Q 3 SETLQC ENUNVSBl *1 I* 


2J02 1 S „ REF e lAH 262 TC 36A: 61 COUNT <,1/P1N 


2022 -<il,3603 0 0004 C VBTSTLTS INHiNT 


2023 

REH 

1 1 

LAST 

36 7 

41. 36C4 


4712 

C 

CS 

BlTl 

2624 

REF 

2C 

LAST 

182 

41,3605 

7 

1321 

1 

MASK 

IMCCES33 

2825 

REF 

34 

LAST 

377 

41,3606 

6 

4 712 

1 

AD 

LITI 

2626 

REF 

n 

LAST 

377 

41,3607 

55 

*321 

1 

TS 

I HOOES33 


SET EIT 1 Qf IMCOES33 SO IMUMON WONT 
TURN CUT ANY LANPS. 


2027 

REF 

1 



41,3610 

3 3644 

1 

CAF 

TSTCCM 

TURN CN UPLINK ACTIVITY, TENP, KEY RLSE, 

. 2e2i 





41.3611 

0 0006 

1 

EXIENO 


V/N FLASH, CPERATCR ERROR. 

282S 

REF 

17 

LAST 

375 

41,3612 

05 011 

1 

b^OR 

OSALRCUT 


2030 

REF 

1 



41,3613 

3 3645 

C 

CAF 

TSTCCN2 

TLRN CN NC ATT, GIN0AL LOCK, TRACKER, 

2831 

REF 

27 

LAST 

363 

41,3614 

55*036 

1 

TS 

DSFTAB +110 

PROG ALM, 

2632 

REF 

21 

LAST 

2^7 

41,3615 

3 4 701 

c 

CAF 

BITl C 

TORN ON TEST ALARN CUTBIT 

2833 





41,3616 

G 0Q06 

1 

EX TEND 



2834 

REF 

-3 

LAST 

10! 

41,3617 

05 C13 

c 

hOR 

ChAN13 


26 35 

REF 


L A S f 

31C 

41,3620 

3 4 377 

c 

CAF 

TFN 


2836 

REF 

1 



41, 3621 

54 117 

1 

TSTLISI TS 

ERCNT 


2037 

REF 

1 



4 1, 3622 

4 3 642 

c 

CS 

Full ESP 


203 0 

REF 

2 

LAST 

377 

41, 3623 

50 117 

c 

INDEX 

EPXN 1 


2839 

REF 

it 

LAST 

37 7 

4 1, 3624 

55*C23 

c 

TS 

DSP T AB 


2840 

REF 


LAST 

377 

41,3625 

iC 117 

1 

CCS 

ERCNT 


2041 

REF 

1 



41,3626 

0 3621 

1 

TC 

TSTL TSl 


2842 

REF 

1 



41, 3627 

4 364 3 

1 

CS 

FULLCSPl 


2043 

REF 

29 

LAST 

371 

41,3630 

55*024 

1 

TS 

OSPTAE ♦! 

TIFN CN 3 PLUS SIGNS 

2844 

REF 

20 

LAST 

377 

41,3631 

55*027 

I 

TS 

DSFTAB +4 


2845 

REF 

21 

LAST 

3 77 

41,3632 

55*031 

c 

TS 

OSPTAE +6 


2 64 6 

REF 


LAST 

196 

41,3633 

3 471 7 

1 

CAF 

ELEVEN 


2 04 7 

REF 

9 

LAST 

36 2 

41, 3634 

55*016 

c 

TS 

NLUl 


2 04 9 

REF 

1 



4 1, 3635 

J 3647 

1 

CAF 

ShCL 1 5 


2851 

REF 

13 

LAST 

371 

41,3636 

C 5140 

1 

TC 

waitlist 


2 852 

REF 

22 

LAST 

377 

1023 



EbANK« 

C SPT AB 


2853 

REF 

1 



41,3637 

C365C 

1 

2CA0R 

TStLiSZ 


2053 

REF 

1 



41,3640 

6210^2 

c 




2 654 

REF 

45 

LAST 

369 

41,3641 

0 5112 

c 

TC 

ENDCFJCB 

DSPLOCK IS LEFT 3USY fFRO“ KEYBOARD 


A2855 ACTION) UNTIL TSTIT53 TO INSURE THAT 

A20S6 LIGHTS TEST hUL flE SEEN. 


2857 

4 I, 3642 

C5675 

C 

FULLDSP 

OCT 

05675 

DISPLAY ALL 8:S 

2850 

4 1, 3643 

C7675 

1 

FULLDSPl 

OCT 

07675 

DISPLAY ALL e:S AND ♦ 

2859 

4 1,3644 

coils 

i 

TSTCONl 

OCT 

00175 


A2a6G 







UPLINK ACTIVITY, TFMP, KEY RLSE, 

A2661 







V /N TlASh, CPERATXrr £ RRCR. 

2862 

41,3645 

40650 

c 

TSTCCN2 

OCT 

4C65C 

DSPTA8 + 1I0 BITS 4, 6, 8, 9. - _ 



GAPi ASSEMBLE fl-E V lS l Gii 


PRCGPAW CQLCSS US B Y NASA 


- C31 


1:17 AUG. 2Atl968 KCQLAOE .06^ PAGE 378 


L 

PINE ALL 

OAPE 

eUTTCNS 

ANO LIGHTS 

• - 

- — 



USER'S PAGE NO. 79 EO S4 

A2063 











NC ATT, GIREAL LOCK, TRACKER, PRQC ALP. 

2064 





41,3646 

C0115 

1 

TSTCCN3 

QC T 

0011 5 

CHAN U BITS I, 3, 4, 7. 

12065 











UPLINK ACTIVITY, TEMP, DPERATCP ERROR. 

2666 





41,3647 

C0764 

1 

SHQLTS 

OCT 

7 64 

5 SEC 













2867 

REF 

4 

LAST 

367 

41,3650 

3 4371 

( 

TSTLTS2 

CAF 

CHRPRIC 

CALLED OY WAITLIST 

2060 

REF 

14 

LAST 

37 1 

41,3651 

0 5027 

1 


TC 

NOVAC 


2869 

REF 

*3 1 

LAST 

37 7 

IC23 




EB ANK » 

OSPTAb 


2870 

REF 

1 



41,3652 

C365S 

I 


2CA0P. 

TSTLTS3 


2870 

REF 

1 



41,3653 

621C2 

C 





2871 

REF 

15 

LAST 

37 1 

41,3654 

0 5213 

1 


TC 

TASKCVER 



2B72 





41.3 655 

4 3646 

1 7STLTS3 

cs 

T$TCtN3 

CALLED BY EXECUTIVE 

2873 





41,3656 

0 0QC4 

C 

INHINT 



2074 





41,3657 

0 00C6 

1 

EXTEND 


TURN OFF UPLINK ACTIVITY, TEMP, 

2875 

REF 

16 

LAST 

377 

41,3660 

03 on 

1 

NANO 

DSALPCUT 

OPERATOR ERROR. 

2876 

REF 

22 

LAST 

377 

41,3661 

4 4701 

1 

CS 

QITIC 

TURN CFF TEST ALARM OUTBIT 

2877 





41, 3662 

C CCC6 

1 

EXTEND 



2078 

REF 

4 

LAST 

371 

41, 3663 

Of 013 

C 

WAND 

CHAN13 


28781 

REF 

22 

LAST 

295 

41, 3664 

3 4707 

c 

CAP 

b IT4 

MAKE NC ATT FOLLOW BIT 4 OF CHANNEL 12 

26782 





41, 3665 

0 0006 

1 

EXTEND 


INC ATT LIGHT ON IF IN COARSE ALIGN) 

28783 

REF 

23 

LAST 

242 

41,3666 

0 2 012 

c 

HAND 

CHAM2 


2679 

REF 

27 

LAST 

36< 

41,3667 

6 46 74 

d 

AD 

E ITl 5 

TURN CFF AUTfi, HOLD, pREt, SPARE, 

2080 

REF 

34 

LAST 

37e 

41,3670 

55*036 

i 

TS 

DSPTAe ♦lie 

GIMBAL LOCK, SPARE, TRACKER, PPCG AlN 

2061 

REF 

1 



41,3671 

4 3710 

c 

CS 

13-11,1 

SET BITS TC INDICATE ALL LAMPS OUT. TEST 

2882 

REF 

22 

LAST 

377 

41,3672 

7 1321 

1 

HASK 

INODE 533 

LIGHTS COMPLETE. 

2683 

REF 

7 

LAST 

25C 

41,3673 

6 4 7 6 3 

1 

AD 

PPI016 


2 604 

REF 

23 

LAST 

378 

4 1 f 367^ 

55*321 

1 

TS 

IrttjOES33 


2085 

REF 

1 



41, 3675 

4 371 1 

1 

CS 

0CT5500C 


2866 

REF 

30 

LAST 

192 

41, 3676 

7 1320 

c 

MASK 

INOOES30 


2 88 7 

REF 


LAST 

1 54 

41,367 1 

6 4762 

c 

AD 

PRIG 15 

15000 . 

2688 

REF 

39 

LAST 

378 

41,3700 

55*320 

c 

TS 

lrtt0ES30 



2093 


Al,3701 0 00C3 1 RELINT 


269^ HEi. *3 LAST 357 AI,3?02 0 4535 C 

2095 REF 1 41,3703 10537 1 

2896 REF 4 LAST 362 41,3704 0 4220 C 

2097 REF 5 LAST 3o3 4l,3l05 0 4«,47 1 

2098 REF 33 LAST 37< 41,37X6 0 4674 C 

2899 REF 1 41, 3707 61372 C 

2901 41,3710 160C1 1 

2903 41,3711 5500C 1 

29C4 4l,j7l2 


TC BANKCALL REDISPLAY C(MCOfiEG) 

CAOR nSPRF- 

TC KILPCNCN Torn on kul pcmtcr bit, 

TC I-?- -!f 

XaOR TSTLTS4 ENOIOLt IS AViATTING CPERATCR RESPONSE. 

13-11,1 OCT UCOl 

______ 550CC 

ENDPIN52 EQLiALS 


GAP ; ^ /SSSEf BLE flEVlSlC^ 237 CF AGC PRCGPAH CQIQSSUS BY NASA 2o2Illl-C3l 


l:n ALG« 2A,196a KC0LAD6 .06A P4GE 37S 


L PlNMLl. CAPE fiUTlCPS AND LIGHTS 


USER'S PAGE nC. 80 EO 


RiiSOS EPPCB tlCm RESET (RSETJ TURPS CFF, 

R^90e UPLINK ACTIVITYf AUTC, HOLD, FREE# CPtPATCR ERRCR» 
RISC 7 . PJLC / LP« TRACKER FAIL. 


P29C8 

LEAVES 

G I P E A L 

LOCK 

APC NC ATT 

ALONE. 






R29C9 

JI.29 iQ _ . 

IT ALSC 

26ROES 

THE 

:TEST ALARK: CUT 

e 11 f 

RHICH 

TURNS OFF 

STP>, RESTART. 


n ALSC 

stis ; 

CAUTICh RESET: 

TC 1. 






P29il 

IT ALSC 

FCFCES 

BIT 

12 CF ALL 

CSPTA8 

EMPIES TC 

1. 














2912 

REF 2 

LAST 

36 e 

AC.3S0A 




SETLCC 

DOPRCC *2 


29125 

REF IC 

LAST 

36 6 

TC 370: 

39 83e< 


COUNT 

AO/F IN 













.. 2^13 

R£i 1 

LAST 

36C 

AOf j50A 

56 U5 

1 

ERRCR 

XCH 

21/22REC 

RESTCRE ORIGINAL C(DSPLOCK). THUS ERROR 

291A 

REF 11 

LAST 

375 

AC,35C5 

5 5 ' 0 1 2 

1 


TS 

U5PLCCK 

LIGHT RESET LEAVES OSPLQCK UNCHANGED. 

2915 




AO, 3506 

Q OOOA 

c 


INHINT 



2916 

REF 23 

LAST 

37 6 

AC,3S07 

3 A701 

c 


CAF 

bIT 1C 

TLftN CN xCALTICN RESET: OUTBIT 

2917 




AO, 3510 

0 0006 

1 


EXTEND 



2918 

REF 19 

LAST 

376 

AO, 3511 

05 on 

1 


HOP 

DSALMCUT 

BITIC CHAN 11 

2919 

REF 1 



AO, 3512 

3 3567 

c 


CAF 

gl-fncatt 

LEAVE GIMBAL lock AND NO ATT INTACT, 

29 2 L 

REF 25 

LAST 

37 6 

AOf 3513 

7 1036 

1 


MASK 

DSP74B +110 

TURNING OFF AUTC, HOLD, FREE, 

2921 

REF 28 

LAST 

376 

AO,351A 

t ^6 74 

c 


AO 

U ITl 5 

PROG ALARM, AND TRACKER. 

2922 

REF 26 

LAST 

379 

AO, 35 15 

55*036 

1 


TS 

USPTAB +110 


2923 

BEf B 

LAST 

376 

AO, 3516 

A A7 6 3 

c 


CS 

PPi C 16 

RESET FAIL BITS HHICh GENERATE PRCG 

292A 

REF 2 A 

LAST 

376 

AO, 3517 

7 1321 

1 


MASK 

I MOL 6533 

ALARM SO THAT IF THE FAILURE STILL 

2925 

REF 9 

LAST 

379 

AO, 3520 

6 A763 

1 


AQ 

P P I G 1 6 

EXISTS, THE ALARM WILL COME BACK. 

2926 

REF 25 

LAST 

379 

AO, 3521 

55*321 

1 


fs 

I MCCES33 


2927 

REF 2A 

LAST 

379 

AO, 3522 

A A 701 

1 


CS 

P I T 1 C 


2928 

REF AC 

LAST 

376 

AO, 3523 

7 1320 

0 


MASK 

1MGDES30 


2929 

REF 25 

LAST 

37 9 

A0,352A 

6 A 701 

c 


AD 

hlTlC 


2930 

REF A 1 

LAST 

379 

AC, 3525 

55*320 

c 


TS 

IM0DES30 



2935 

REF 

26 

LAST 

379 

AO, 3526 

A A7C1 

1 


CS 

HlTlC 

TURN CFF 

:7EST 

ALARM: OUTBIT. 


2936 





AG, 3527 

0 0006 

I 


EXTEND 





2937 

REF 


L/ST 

376 

AC, 3530 

03 C13 

c 


HAND 

ChAM3 





2938 

REF 

1 



AO , 3 5 a 1 

A 3565 

c 


CS 

EPCCN 

TURN CFF 

UPLINK 

ACTIVITY, 


2939 





AO. 3532 

0 C006 

1 


EXTEND 

OPERATCR 

ERROR . 



29A0 

REF 

2C 

LAST 

379 

AO, 3533 

03 011 

1 


HAND 

DSAL MCUT 





29 A 1 

REF 

2 

LAST 

351 

A0,353A 

3 A377 

c 

TSTAB 

CAF 

BINCCN 

KEC 10) 




29A2 

REF 

A 

LAST 

3? T 

AO, 3535 

5A in 

1 


TS 

£ P C N T 

ERCM - 

CCUNT 



29A3 





AO, 3536 

0 OOOA 

G 


INHINT 





29AA 

REF 

C 

LAST 

379 

AO, 3527 

9c in 

c 


I NOEX 

ERCNT 





29^5 

REF 

27 

LAST 

379 

AO, 3 5 AO 

U’C23 

c 


CCS 

DSPT AE 





29A6 

REF 

A9 

LAST 

369 

Aa,35Al 

6 A7l2 

1 


AU 

ONE 





29A7 

REF 

1 



AO, 35A2 

0 35A7 

1 


tc 

ERPLUS 





29A6 

REF 

5C 

LAST 

379 

A0,35A3 

6 a712 

1 


AD 

ONl 





29A9 

REF 

ni 

LAST 

37A 

AC, 3 5AA 

A flCCo 

c 

ERM INUS 

CS 

A 





2950 

REP 

1 



AO, 35A5 

7 35 7U 

I 


maSk 

N0tBltl2 





2951 

REF 

1 



AQ, 35A6 

0 3552 

c 


TC 

£ R C C M 





2952 

REF 

U2 

LAST 

3t9 

AG, 35a7 

A COCO 

c 

ERPLUS 

CS 

A 






29S3 REF 2 LAST TTS AO, 3550 1 3570 1 FSSK NUTFTTO 

2S5A REF 122 LAST 379 AO, 3551 A 0000 C CS A 


MIGHT WANT TO RESET CL PASS, DECBRNCH, 
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L 

Pl^EALl. 

CAPE 

BUTTCNS 

AND LIGHTS 
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2955 

«6f 

6 

LAST 

379 

40,3552 

50 117 

C 

ERCCP 

INDEX 

EkCNT 


ETC. 



2956 

REF 

38 

LAST 

37 9 

40,3553 

55*023 

C 


TS 

OSf T AE 





^90^ 





40.3554 

0 0003 



RELINT 






2958 

REF 

7 

LAST 

38C 

40,3555 

1C 117 

1 


CCS 

ERCNT 





2959 

REF 

1 



40,3556 

0 3535 

1 


TC 

TSTAB 

♦ 1 




^96Q 

REF 

82 

LAST 

375 

40,3557 

3 4714 

1 


CAP 

ZERC 





2961 

REF 

i; 

LAST 

269 

40,3560 

54 375 

1 


TS 

FAILPEG 





2961 1 

REF 

6 

LAST 

38C 

40,3561 

54 376 

1 


TS 

faureg 

♦ 1 




29612 

REF 

7 

LAST 

3ec 

40,3562 

5 4 37 7 

C 


TS 

FAILREG 

♦ 2 




2962 

REF 

2 

LAST 

79 

40,3563 

55*357 

c 


TS 

SFA IL 





2963 

REF 

^6 

LAST 

37 7 

40,3564 

0 5112 

c 


TC 

ENDCFJCB 




















296-^ 





40,3565 

00104 

1 

ERCLN 

OCT 

104 


CHAN 11 BITS 3,7. 



A2965 












UPLINK ACTIVITY, AND OPERATOR 

ERROR. 


2966 





40,3566 

CC24U 

1 

eiTS6,e 

OCT 

240 





29665 





40,3567 

C0050 

1 

GL+KCATT 

OCT 

0005C 


NO ATT AND GIPBAL LOCK LAPPS 



2967 





40,3570 

73777 

1 

N0TeiTi2 

OCT 

73777 






2S6e 


-110, 3571 ENOPINSl EQUALS 
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BANK 3A 
SETLOC MANOVtP 
BANK 


15C3 REF 1 1 IA6 EBANK* TEPPPeC 


IPOA REF 1 COUNT 27/RtO 

P 15(,A 1 


R150AU RtCC5K 

Pi50A13 REV U CCNFOPMS TC GSOP CHAPTER FCLP PEVISICN LOGIC 09 JAN 18,1966 
R1 !0^1S 


15C0 3At2C02 
1501 REF 1 27,2C0C 
iifli 27.2C0C 


X5L5 - ALE J 27,2CCQ 0 A60A 1 P6QCSP TC HAKECACP 

I5ct PEF 2 LAST 3fll 27,2001 55*1A6 1 TS TEHPR6G 

Pi5.0? INSfcPT PPIOCSP CHECK WITH R22 «V06NA9t WITH JENNINGS EPCDEUR 


1510 REF is LAST 372 27,2CC2 3 A7C5 1 PEOCPANN CAP faIT6 

1511 R£F 6 LAST 256 27,2003 7 0101 C PA SK FLAGWPD5 IS 3-AXIS FLAG SET 

1512 REF liA last 37S 27,2C0A IC COG C CCS A 

1513 REF 1 27,2005 1 2013 C TCF TLfaALL YES 

151A REF S LAST 20^ 27,2006 0 6006 1 TC INTPRET 

1515 27,2007 7762A I CALL 

1516 REF 1 27,2010 56126 1 VECPCiNT TC CORPUTE FINAL ANGLES 

1517 REF 2 LA ST 245 27,2011 01156 1 SICRE CPHI STORE FINAL ANGLES - C PH i ,CTHET A , CPS I 

1516 27,2012 77776 1 EXIT ~ 


151% REF 1 27,20 13 3 2125 ( TCBALL CAF V06Ni8 

1520 REF !A LAST 378 27,201% 0 %555 C TC BANKCALL 

1521 REF 1 27,2015 21036 1 CAOR GtjPEPF2R UlSPLAY PLEASE PERFQRH AUTO MANEUVER 

1522 REF 1 _ _^f2016 0 21 1% 1 TC K61TEST 

1523 REF 1 27,2C17 0 2023 1 TC RFDCRANC PPCCEED 

1524 REF 1 27,2020 1 2052 C TCF ENDRANUl ENTER 1.6. FINISHED H I 7H ft60 


1525 REF 1 27,2021 0 2056 C TC CHKL INUS TC CHECK FCR PR lOR ITY 01 SPLAYS 

1526 REF A7 LAST 38t 27,2022 0 5112 C TC ENCCFJCe 


1529 

REF 

3C 

LAST 

38 1 

27,2023 

3 4705 

1 REDCMANC 

CAF 

BlTt 

1530 

REF 

7 

LAST 

38 1 

27,202% 

7 0101 

C 

HASK 

FLAGv»HL5 

1531 

REF 

125 

LAST 

38 1 

27,2025 

1 0 000 

C 

CCS 

A 

1532 

REF 

1 



27,2026 

1 203% 

C 

TCP 

TLBA t LC 

1533 

REF 

10 

LAST 

381 

27,2027 

C 6006 

1 

TC 

INTPKET 

153% 





27,2030 

1762% 

1 

CALL 


1535 

REF 

2 

LAST 

3 8 1 

27,2031 

^6126 

1 


VECPCINT 

1536 

REF 

1 

LAST 

381 

27,2032 

01156 

1 

STORE 

CPHI 

1537 





27,2033 

77776 

1 

EXIT 



IS 3-AXIS FLAG SET 


YES 


TC CCR'f'Uie FINAL ANGlFS' 
STfTRE ANCLES 


1536 REF 8 LAST 241 27,2034 3 %37l C lOBALLC CAF PRf030 IS HOCE AUTC ANC CTL GNC 
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L ReCtP62 
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1539 

15A0 

15^1 

REF 

liEl 

1 

_LAS1_ 

161 

27f2C35 

27i2036 

27.2C37 

0 Q0C6 

06 031 

7 7707 

1 

C 

a_ 


EXTEND 

RXGR 

HASK 

CHAN31 

13. 1A,15 

- 

15A2 





27,2040 

0 0006 

1 


EXTEND 



1543 





27,2G4l 

1 2043 

c 


BZF 

*•2 

AUTO, NON-FLASH M0 

15 43 Cl 

ilCF_ 

2 

LAil . 

38 1 

27,2042 

1 2013 

0 


TCP 

TCF ALL 

NCT AUTO 

1548 

REF 

2 

LAST 

36 1 

27,2043 

3 2125 

c 


CAF 

V06Me 

SET UP NON-FLASHING V06 N18 

1549 

REF 

55 

LAST 

391 

27.2044 

0 4555 

c 


TC 

DANKCALL 


1550 

REF 

1 



27,2045 

20602 

1 


CAOR 

GCDSFP 


1551 

REF 

2 

LAST 

38 1 

27,2046 

0 2056 

c 


TC 

CHKL INLS 


1552 

REF 

56 

LAST 

382 

27,2047 

0 4555 

c 

STARTHKV 

TC 

BANKCALL 


1553 

REF 

1 



27,2050 

17547 

1 


CAOR 

GOMAMP 


1555 

REF 


LAST 

382 

27,2051 

1 2013 

c 

ENOHANOV 

TCF 

TlEALL 

FINISHED maneuver 

1566 

REF 

16 

LAST 

26C 

27,2052 

0 5447 

c 

ENCHANUl 

TC 

ucmn flag 

RESET 3-AXIS FLAG 

1567 

REF 

1 



27,2053 

CG124 

c 


AURES 

3AX 1 SFLG 

BIT 6 flag 6 

1566 

REF 

w 

LAST 

36 1 

27,2054 

31M46 

c 


CAE 

TtMPR60 

— 

1564 

REF 

C 

LAST 

355 

27,2055 

C 4577 

c 


TC 

BANK JUMP 


1570 

REF 

3 

LAST 

23C 

27,2056 

4 CIOC 

1 

CHKL INUS 

CS 

FLAt^RDA 


1571 

REF 

19 

LAST 

363 

27,2057 

7 4677 

1 


MASK 

b IT 1 2 

IS PRIORITY DISPLAY FlAG SET 

1572 

REF 

126 

LAST 

38 1 

27,2C6C 

1C COC 

c 


CCS 

A 

— 

15 72 Cl 

REF 

136 

LAST 

375 

27,2061 

6 00C2 

c 


TC 

C 

NC - EXIT 

1572C2 

REF 

137 

LAST 

382 

27,2062 

3 00C2 

c 


CA 

Q 


1572C4 

REF 

ns 

LAST 

372 

27,2063 

54 156 

1 


TS 

MFAC *2 

SAVE RETURN 

15721 

REF 

12 

LAST 

352 

27,2064 

4 6214 

1 


CS 

THREE 

OBTAIN LOCATICN FOR RtSTAfit; “ 

157212 

REF 

t 

LAST 

6 E 

27,2065 

6 0133 

c 


AO 

bUF2 

HOLDS 0 OF LAST DISPALY 

1573 

REf 

2 

LAST 

2 1 4 

27,2066 

55*053 

1 


TS 

TBASEl 


1560 

REF 

C 

LAST 

259 

27,2067 

0 5301 

c 


TC 

PHASCHNG 


1561 





27,2070 

00071 

1 


OCT 

71 

1.7SPCT FOR RELINUS 

1566 

REF 

3C 

LAST 

37 1 

27,2071 

3 4704 

c 


CAF 

EIT7 


1587 

REF 

1 



27,2072 

0 5415 

1 


TC 

L ITmUS 

GO SET BITS FCR PRIORITY DISPLAY 

1566 

REf 

2 U 

LAST 

382 

27,2073 

0 0156 

c 


TC 

MPAC *2 

- ■ 

15661 

REF 


LAST 

375 

2 7 , 2 C 74 

3 4706 

1 

HEL INUS 

CAF 

BITS 

IS TRACK FLAG ON 

156612 

REF 

1C 

LAST 

252 

27,2075 

7 OOl5 

1 


MASK 

PLAG^f^Ci 


1566 U 





27,2076 

0 0006 

1 


EXTEND 



156814 


1 



27, 2077 

1 2111 

c 


OZF 

CCFEEC2G 

NC 

156615 

REF 

13 

LAST 

26C 

27,2100 

0 54 35 

c 


TC 

UPFLAC 

-- 

158816 

REF 

1 



27,2101 

00077 

1 


AURES 

PDSPFLAC 

R60 PR ICOSF FLAG 


15062 REF H L/ST 382 27,21C2 0 5A35 C TC UPfLAC 

158621 REf 1 27t2l03 0002^ 1 ADRES TAPC IFIG FCR P52 


156022 REF 83 LASl 30C 27,210A 3 A71A I CAP ZERC 


RESET TO ZERO, SINCE 
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158823 R£F 

< 1 

LAST 

252 

27,2105 

55*3C3 

1 


TS 

t-PT 1 NO 

CPTINO WAS SET TO -1 0Y V379 

XSilfll Rif 

- i - 



27j21Cfc 

3 4761 



CAF 

PH1C14 

RESTORE CRICINAL PRICRITY 

15884 REF 

5 

LAST 

29 E 

27,2107 

0 5103 

C 


TC 

PPlCCHhC 



2 

LAST 

382 

27.2110 

0 1053 

JL_ 


TC 

TBAS El 


15884 REF 

t 

LAST 

382 

27,2111 

0 5301 

c 

GOREOC2Q 

rc 

PHASChNG 


15_e.iJ 





00111 

c 


OCT 

111 

1.11 FCe PIKUP2C 

15888 REF 

46 

LAST 

381 

27,2113 

0 5112 

c 


TC 

BNoc F jce 

- ■ — - — - 

1589 REF 

1 

LAST 

368 

27,2114 

3 1011 

0 

R617EST 

CA 

M(.DV EG 

ARF V.E IN PCO. IF YES THIS HOST BE 

15891 




27,2115 

0 0006 

1 


EXTEND 


V6Re49 CR VER889 SC 00 ENOEXT. 

15892 REF 


LAST 

381 

27,2116 

1 2052 

c 


BZF 

ENDP ANul 

RESET 3-AXIS £ PUTURN. USER DOES ENDEXT 

15892 REF 

4 

LAST 

382 

27,2117 

3 QlOO 

c 


CA 

FLACWPC4 

ARE RE IN «6l IP20J 

159C REF 

2C 

LAST 

382 

27,2120 

7 4677 

1 


HASK 

E 1T12 


1591 




27,2121 

C 0006 

1 


EXTEND 



1592 REF 

2 

LAST 

184 

27,2 1 22 

1 4106 

c 


BZF 

GCTCPCCH 

NC 

1593 REF 

1 



27,2123 

0 4550 

c 


TC 

&LTtV56 

YES 

1594 




27,2124 

20100 

1 

BI T 14 + 7 

DCT 

20i0C 

- 

1595 




27,2125 

C1422 

1 

V06M8 

VN 

0616 
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P15S? 

PFCCPU CESCRIPTICN - 

■ VECPCINT 




















Rl5Se TUS INTtPPPETlVe SlBRCUTlNg t> AY LSEO TO POINT A SPACECRAFT AJ>IS IN A CESIREO DIftECTICN. THE AXIS 


R160C TC ee PCINUC ^UST APPEAR AS A HA LF UMT COUBLb PRECISION VECTOR IN SUCCESSIVE LOCATICNS OF ERASABLE WEMORV 

R AtQ2 BEClRMhC H 1H THE LCCATICN CALLED SCAXIS. THE CCHPCNENTS CF THIS VECTCP ARE GIVEN IN SPACECRAFT COORDINAT ES. 

K1604 TFE DIRECTION IN hUCH THIS AXIS IS TC BE POINTED MUST APPEAR AS A HALF UMT 0CUBL6 PRECISION VECTOR IN 

R16C6 SLCCEiSlVE LCCATICNS CF EPASAtLE HEMCPV BEOINMNG wlTH T HE ACORESS CALLED PCINTVSP. THE COMPONENTS OF THIS 

R1608 VECTCP ARE GIVEN IN STABLE MEMBER CQOPOINATES* WITH THIS INFCRPATICN VECPCINT COMPUTES A SET OF THREE GIMBAL 

R161U ARCLES (2S CGPPLERENTJ CORRESPCNDI NG TC THE CROSS-PRODUCT RDTATICN BETWEEN SCAXIS AND PCINTVSM ANC STORES THEM 

H1612 IN TUPAC) BEfCRE PEtURNING TC THE CALLER. 

R1613 _ TUS ROTATICN* HCNEVERf HAY ERING THE S/C INTO GIMBAL LOCK. WHEN PCINTING A VECTOR IN THE Y-Z PLANE# 

R1015 THE TPANSPCNDEP AXIS# OR THE ACT FOR ThE LEW# THE PROGRAM WILL CORRECT THIS PRC8LEM BY ROTATING THE CROSS- 

Rlfci? PRCCUCT ATTITUCE AbCUT POINTVSM BY A PIXEL AMOUNT SUFFICIENT TC ROTATE THE DESIRED S/C ATTITUDE OUT OF GIPBAL 


P l6l9 

LCCX. IF THE AXIS TO BE PCINTED IS MORE THAN AO. 

6 OEGPEES 

BIT 

LESS THAN 

60.5 DEG FROM THfc ♦X 

( OR -X) AXIS# 

R1621 

THE ACCITICNAL RDTATICN TC AVCIC GIHAL LCCK 

IS 35 

D EGR EES . 

IF 

THE AXIS 

IS MORE 

THAN 60.5 

DEGEES FROM ♦X (DR -X) 

H1623 

THE ACCITICNAL RCTATICN IS 35 CEGPEES. THE 

GIMBAL ANGLES CQ PPFSPCNC ING 

TC THIS 

ATTITUDE 

ARE 

THEN CGMPUTEC ANC 

R1625 

STCREC AS 2S CCMPLIMENT ANGLES IN T(MPAC> BEFCRE 

RETURNING 

TC THE CALLER 

• 




Ri627 

WHEN POINTING THE X-AXIS# CR THE THRU ST 

VECTOR# CP 

ANY 

VECTOR WITHIN AC 

.6 EEC CF 

THE 

X-AXIS# VECPCINT 

R1629 

CANNCT CCRPECT FOP A CROSS-PRODUCT ROTATION 

INTO 

GIMBAL LOCK. 

IN THIS CASE A PLATFORM REALIGNMENT WOULD BE 

H1631 

RECUIPEC TC POINT THE VECTOR IN THE DESIRED 

CIRECTION. AT 

PRESENT NO INOICATICN 

IS GIVEN 

FOR 

THIS SITUATION 

R1633 

EXCEPT THAT the FINAL MIOCLE GIMBAL ANCLE IN 

MPAC 

♦2 IS GRFATEP 

THAN 59 

OEGREES. 
















CALLING SEGUENCe - 









R1636 

1) LCAC SCAXiSf FCINTVSM 









R1637 

21 CALL 









R1638 

VECPC INT 










K163S ^RETURNS MTH 


R16A0 1) D ES IRED OUTER GIMBAL ANGLE IN MPAC 

R16A1 2) DESIRED INNER GlMEAL ANGLE IN MPAC +l 

HUA2 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC *2 


R16A3 

EPASABLES USED - 







R 16AA 

1 ) 

SCAXIS 

6 





K 1 6^ 5 

2 ) 

PCINTVSM 

6 





H i oA6 

3 ) 

MIS 

Id 





R16A7 

A ) 

DEL 

la 





M 16*18 

5) 

CCF 

6 





R 16A9 

6 ) 

V ECU TEMP 

1 





WlcSC 

7 ) 

AIL rp VAC AREA 

A3 













F 1651 


TOTAL 

99 






1652 REF 1 27,2CjC0 SETLOC VECPT 

1653 27,2126 BANK 
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USER’S PAGE NO. 


ez S4 















USA 

REF 

A 

LAST 

1 1 1 

t 6 1 1 6 6 I 




CeANKsi 

BC Du 
















Ui55 

REE 

L- 







COUNT 

27/VECPT 
















1656 





27,2126 

A0020 

1 

VECPCINT 

STQ 

BOV 

SAVE RETURN ADDRESS 


I6i7 

REf 

^ 1 



27,2127 

-CIU-Q- 




VECt TEMP 



1658 

REF 

1 



27,2130 

56131 

1 



VECLEAK 

AND CLEAR CVFINC 


1659 





27,2131 

A716A 

1 

VECLEAR 

AXC ,2 

PTb 



1660 

REF 

_2_ 

LAST 

111 

27,2132 

03320 

C 



MIS 

READ THE PRESENT CDU ANGLES AND 


1661 

REF 

1 



27,2133 

AA37e 

c 



READCCUK 

STORE THEM IN PC25, 26, 27 


1662 





27,213A 

3A032 

1 


STCALL 

2 50 



1663 

REF 

1 



27,2135 

AA A C 5 

c 



CCUTCDCM 

S/C AXES 1C STAELE MEMBER AXES (MIS) 


1 6 tM 





27,2136 

61375 

1 


VLOAO 

VXK 



U65 

REF 

2 

LAST 

111 

27,2137 

C335 7 

c 



PCINTVSM 

RESCLVE THE POINTING OIRECTtCN VF INTO 


1666 

REF 

3 

LAST 

385 

27,21A0 

03321 

1 



MIS 

INITIAL S/C AXES ( VF * PQINTVSM) 



1667 

1666 

A166S 


27,21^2 00035 


1 

I 


UNIT 
STORE 


2 8D 


PC 28 29 3C 31 32 33 


1670 


27,21A3 

53A35 

C 

vxv 

1671 

REF 2 LAST 111 

27,21AA 

03351 

C 


1672 


27.21A3 

57ACC 

1 

BOV 


UNIT 
SCAX IS 
VCDNF 


TAKE THE CROSS PRODUCT VF X VI 
WHERE Vt > SCAKIS 


1673 

REF 

1 



27,2 1A6 

56256 

C 

167A 

REF 

1 

LAST 

11 1 

27,21A7 

173A3 

0 

1675 





27,2150 

Q(}0A5 

C 

1676 





27,2151 

50025 

c 

1677 

REf 

1 



27,2152 

16327 

c 

1678 

REF 

2 

LAST 

385 

27,2153 

56256 

c 

1679 





27,215A 

50375 

c 

1680 

REF 

3 

LAST~ 

385 

27,2155 

C335 1 

c 

uei 





27,2156 

C0035 



P ICKAXIS 
STOOL CCF 

360 


ChECK RAGMTUOe 
OF CROSS PflCOlCT 


OSU 


BMN 

DPb- lA 
PICKAXIS 


VECTCRf IF LESS 
THAN B-IA assume 
UNIT CPERATICN 


VLOAO 


DOT 

SCAX IS 
2 HD 


INV4L rc. 


1662 

1663 

lo8A 

1685 

1686 
1667 


REF 

REF 

REF 


1 


A LAST 385 
1 


1688 


£ t t £ l 3 t 

27.2160 

27.2161 

27.2162 

27.2163 
27,2 UA 


655S2 C 
7762a 1 
AA53C 1 


SL I 

COMPMATX CALL 


ARCCCS 


DELCCMP 


NCW COMPUTE the TRANSFORMATION FROM 
FINAL S/C AXES TO INITIAL S/C AXES MF 1 


T516C 1 
03320 C 
C3A2S 1 


AXC ,1 


A XC , 2 

MIS 

DEL 


COMPUTE THE TRANSFCRMATICN FROM FINAL 
S/C AXES TO STAELE MEMBER AXES 


7762A 1 


CALL 


MFS » MIS MFI 


1689 

REF 

1 

27,2166 

AA3CA 

( 


M X M3 

(IN PC LIST I 



1690 



27,2167 

515A5 

1 

OLQAD 

AES 




1691 



27,2170 

(:QCC7 

0 


6 

HFS6 - SIMCPSI ) 

S2 


1692 



27,2171 

50025 

C 

OSU 

bMN 




1693 

REF 

1 

27,2172 

1631A 

C 


SINC IMLC 

« 5IM59 CECSI 

12 


169A 

REF 

1 

27,2173 

562A6 

1 


F INDGIMB 

/CPSIy less team 59 DECS 



U695 








I.E. DESIRED ATTITUDE NOT IN CIMOAL 

LOCK 


1696 

1697 

REF 

A 

27,217A 
LAST 385 27,2175 

515A5 

C3351 

1 

0 

OLCAO 

ABS 

SCAX IS 

CHECK TC SEE IF WE ARE POINTING 

THE THRUST AXIS 



1698 



27,2176 

5ToTr 

1 


"m 




1699 

REF 

1 

27,2177 

16316 

1 


SIKVECl 

SIN ^9. A DECS 

12 
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1700 

REf 

2 

ItSl 

3 85 

27,2200 

56246 

1 


F INDG IRO 

IF SO, UE ARE TRYING TC POINT IT INTO 


1701 





27r2201 

77775 

1 

VLQAD 


GIMBAL LOCK, A0CRT COULD GO MERE 


17C2^ _ 





27.2202 

77626 

C 

STADR 




1703 

REF 


L/ST 

385 

27, 2203 

50442 

C 

STCVL 

MIS +120 



1704 





27,2204 

77626 

c 

STADR 


STORE NFS I m PC LIST! IN MIS 


1705 

REF 

t 

L/ST 

386 

27.2205 

50450 

c 

STCVL 

MIS *6 



net 





27,2204 

77626 

c 

STAOK 




1707 

REF 

7 

L/ST 

38E 

27,2207 

50456 

c 

STCVL 

MIS 



1706 

REF 

6 

L^ST 

384 

27,2210 

03327 

1 


HIS '♦*6 

INNER GIMBAL AXIS IN FINAL S/C AXES 


1709 





27,2211 

5 7444 

1 

8PL 

VCOMP 

LOCATE THE IG AXIS DIRECTICN CLOSEST TC 


1710 

REF 

1 



27,2212 

56213 

1 


IGSAREX 

FINAL X S/C AXIS 














1711 





27,2213 

50035 

1 

(GSAHEA VXV 

BHN 

FIND THE SHGPTEST NAY CF ROTATING THE 


1712 

REF 


L/ST 

385 

27,2214 

03351 

c 


SCAX IS 

S/C CUT OF GIMaAL LOCK BY A ROTATION 


1713 

REF 

1 



27,2215 

56222 

c 


U*SCAXIS 

ABOUT ♦- 5CAXIS, I.E. TF (IG (SGN MFS31 


A1714 










X SCAXIS . XF) LESS THAN 0, U * 5CAXIS 


A1715 










OlhERNISE U a -SCAXIS 



1716 





27,2216 

57575 

1 


VLCAD 

VCGRF 


1717 

REF 

6 

L/ST 

386 

27,2217 

C3351 

C 



SCAXTS 


1718 

REF 

3 

LAST 

305 

27,2220 

37343 

1 


STCALL 

COF 

ROTATE A0CUT -SCAXIS 

1719 

REF 

1 



27,2221 

56225 

1 



CHEKAX is 


1720 





27,2222 

77775 

1 

L*SCAXIS 

VLCAD 



1721 

REF 

7 

LAST 

386 

27,2223 

C3351 

C 



SCAXIS 


1722 

REF 

4 

LAST 

38 6 

27,2224 

03343 

c 


STCRE 

CCF 

ROTATE A0CUT + SCAXIS 

1723 





27,2225 

51545 

1 

chekax I s 

OLOAC 

ABS 


1724 

KEF 

. _ e 

LAST 

38 6 

27,2226 

C3351 

c 



SCAXIS 

SEE IF WE ARE POINTING THE AOT 

1725 





27,2227 

51025 

1 


OSU 

6PL 


1726 

REF 

1 



27,2230 

16320 

1 



SINVEC2 

SIN 29.5 CEGS t2 

1727 

REF 

1 



27,2231 

56235 

c 



PICKANGl 

IF SO, ROTATE 5C DECS ABOUT ♦- SCAXIS 

1726 





27,2232 

32145 

c 


OLCAP 

GOTO 

IF NOT, MUST BE POINTING THE TRANSPONDER 

1 729 

REF 

1 



27,2233 

16324 

c 



VECANG2 

CP SCME VECTOR IN THE Y, CH 2 PLANE 

1730 

REF 

1 



27, 2234 

56237 

1 



CDMPRFSN 

IN THIS CASE ROTATE 35 LEGS TO GET CUT 

4 1731 











OF GIMBAL LOCK (VECANG2 I360“» 

1732 





27,2235 

77745 

1 

FICKANGl 

OLOAO 



1733 

REF 

1 



27,2236 

16322 

c 



VECANGl 

= 50 CEGS A 26Q 

1734 





27,2237 

77624 

1 

COMPMFSN 

CALL 



1735 

REF 


LAST 

385 

27, 2240 

4453 0 

1 



OELCCRF 

COMPUTE the ROTATION ABOUT SCAJTIS TO 

1736 





27,2241 

75160 

1 


A X C f 1 

AXC , 2 

BRING MFS CUT OF GIMBAL LOCK 

17j7 

REF 

9 

LAST 

366 

27, 2242 

C3320 

c 



MIS 


1730 

REF 

2 

LAST 

38 5 

27,2243 

03425 

i 



DEL 


1739 





27,2244 

7T6 24 

1 


CALL 


CCMPUTE THE NEW TRANSFORM 4TTCN FROM 

1 74C 

REF 

2 

LAST 

385 

27,2245 

4 ^ 3 C 4 

c 



MXM3 

DESIRED S/'C'AXFS TO STABLE MFM0ER AXES ' “ 

A1741 











WHICH WILL ALIGN VT WITH VF AND AVCTD 

A1742 











GIMBAL LOCK 

1743 





27,2246 

45 160 

1 

F INCC IMB 

AXC, 1 

CALL 


1 744 





21,2247 

ccooo 

i 



0 

extract tfe ccmmanded cdu angles from 

1745 

ref 

1 



27,2250 

44 6 53 

I 



DCMTCCCU 

THIS MATRIX 

1 74t 





27,2251 

4 C 2 3 4 

c 


RT6 

SET PC 


17*.7 

REF 

1 



27,2252 

45547 

c 



V1S7C2S 

CCNVEP7 TC ?:S COMPLEMENT 
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17^8 





27,2253 

COCCI 

C 



0 



I7<i9 





27,225^ 

77650 

1 


GOTO 




175Q 

PEf 

2 ^_ 

L/ST 

385 

27,2255 

0331Q 

c 



VtCCTEPP 

RETURN TO CALLER 















1751 





27,2256 

50375 

c 

PICKIX IS 

VLCAO 

DOT 

IF VF X VI « C, FIND VF 

. VI 

17i2_ 





27. 2257 

CC035 

1 



2 80 



1753 

REF 

9 

LiST 

381 

27,2260 

C3351 

c 



SCAX IS 



175A 





27,2261 

72240 

1 


3HN 

TLOAC 



1755 

REF 

1 



27,2262 

56266 

c 



RCTl EC 



1 756 





27,2263 

00032 

c 



2 50 



1757 





27,226<i 

77650 

1 


GOTO 


IF VF = VI, COU OESIREC « 

POESFNT COU 

1758 

REF 


LIST 

387 

27,2265 

03310 

c 



VECCTEPP 

PRESENT ecu ANGLES 















1759 





27,2266 

47375 

c 

RPT160 

VUCAD 

VXV 

IF VF, VI ANT IPARALLEL, 180 OEG ROTATION 

1760 

REF 

K 

LIST 

386 

27.226? 

C3327 

1 



MIS +6 

IS BECUIREC. V STABLE MEMeER AXIS IN 

1761 

REF 

2 

L/ST 

279 

27,2270 

15330 

c 



HIUN !TX 

INITIAL S/C AXIS. 


1762 





27,2271 

A72 56 

c 


UNIT 

VXV 

FIND Y ISM I X X ( I) 


1763 

REF 

10 

LAST 

30 7 

27,2272 

03351 

c 



SCAX IS 

F IND LNITIVI X UNIT(Y(SMI 

X X ( I) n 

176A 





27,2273 

40056 

c 


UNIT 

b OV 

I.E, PICK A VECTOR IN THE 

PLANE OF X( I ) , 

1765 

REF 

1 



27,2274 

56310 

c 



PICKX 

Y(SM) PERPENDICLLAP TO VI 


1766 

REF 

5 

LIST 

366 

27,2275 

17343 

c 


STOOL 

CLF 



1767 





27,2276 

00C45 

c 



3 6D 

CHECK NAGNITUCE 


1768 





27,2277 

5CC25 

c 


OSU 

bMN 

OF THIS VECTOR. 


1769 

REF 

2 

LIST 

305 

27,2300 

16327 

c 



DPb- 14 

IF LESS THAN 0-14, 


177C 

REF 

2 

LIST 

38 7 

27,2301 

56310 

c 



PICKX 

PICK X-AXIS. 


1771 





27,2302 

77775 

1 


VLOAO 




1772 

REF 

t 

LIST 

36 7 

27,2303 

033^3 

c 



CCF 



1773 

REF 

7 

LIST 

38 7 

27,2304 

173^3 

c 

>RCT 

STOOL 

CCF 




177A P6F 2 L/ST 287 27,2305 1533C C hlDPP^LF 


1775 27,2306 77650 1 GOTO 


1776 RfcF 1 27,2307 56160 C COHPP^TX 


1777 

1778 



27,2310 

52175 

C 

C 

PICKX 

VLCAO 

GE T Cl 

PICK 

THF XAXIS IN THIS 

CASE 


REF 

3 LAST 387 

27,2311 

153 30 

HIUMTX 





1779 

REF 

1 

27,2312 

563 C 4 

c 



XPCT 





i7ec 



3 5 , 2 C CO 




BANK 

35 





1701 

REF 

1 

27,2000 




SETLCC 

HaKUVERI 





17 b 2 



27,2313 




BANK 



















1783 



27,2313 

15555 

c 

5 INCIMLC 

2 DEC 

.4285836003 

= 51 M 59 ) 

i 2 


1 7 8 3 



27,2314 

35172 

c 








1764 



27,2315 

14113 

1 

SINVECl 

20 EC 

.3796356537 

= SIN ( 49 . 4 ) 

$2 


1704 



27,2316 

36326 

i 








1785 



27,2317 

C 77 C 1 

C 

SINVEC 2 

2 o£c 

.2462117800 

= 5 INI 29 . 5 J 

— r 2 — 


1705 



27,2320 

35 7 C 3 

c 








1766 



27,2321 

043 A 3 

1 

VECANt 1 

2 oec 

* 136 6866889 

= 50 

CEGHEES 


S 360 

1706 



27,2322 

21616 

c 








17 87 



27, 2323 

03070 

0 

V EC AN 07 


.09722222222 

« 35 

CtGREES 


*3 60 

1787 



27,2324 

34 T 44 

0 








1768 



27,2325 

COOCU 

1 

IBITDP 

"CCt 

IT 

— kfff 

This befcbe war- 

ITT) 


1789 



27,2326 

000 Cl 

c 

CPe-14 

OCT 

ooocn 





- 
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1790 


27,2327 

COOOO 1 

CCT 

00000 

1791 


39,2002 


BANK 

34 

1792 

REF 1 LAST laj. 

27*2000 


SfcTLQC 

MAKUVEP 

1793 


27,2330 


BANK 
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PCnihE FCF INITIATING AUTCHA-TIC MANEUVER VIA KEYBOARD ( > 


1795 

REF 

A 

LAST 

38 ) 

1155 




EBANK« 

CPHI 


, ^ ^ 

n9«L 

REF 

1 







COUNT 

27/P62 


- - - — - - 

1797 

REF 

i 



27»2330 

3 

4 7^5 

C 

R62CISP CAF 

V06N22 

DISPLAY CCMPANC ICOUS CPHI, CTHETA, CPHI 

- - - — - 

i79a 

AfF 

5? 

LAST 

382 

27,2331 

0 

4555 

C 

TC 

BANKCALL 



1799 

REF 


LAST 

189 

27,2332 


2C624 

c 

CACR 

GOFL ASH 



1800 

REF 

le 

LAST 

256 

27,2333 

1 

5423 

c 

TCP 

ENDEXT 



laoi 

REF 

1 



27,2334 

1 

2336 

1 

TCP 

GCMOVE 

PROCEED 


1802 

REF 

c 

LAST 

295 

27,2335 

1 

23 30 

1 

TCF 

R621 ISP 

ENTER 



Ald03 ASTRONAUT MAY LOAD NEM ICOUS AT THIS 

AieCA PCINT 


1805 

REF 

15 

LAST 

382 

27,2336 

C 5435 

C GOHOYE 

TC 

UPFL AG 

SET 

3-AXIS FLAG 


1806 

REF 

2 

LAST 

362 

27,2337 

C0124 

C 

ADRES 

iAXI SFLG 

OTT 

6 FLAG 5 


1807 

REF 

•e 

LAST 

389 

27,2340 

0 4555 

C 

TC 

BANKCALL 




1808 

REF 

1 



27,2341 

560CC 

1 

CADR 

K60L SH 
















1 

1809 

REF 

17 

LAST 

389 

27,2342 

1 5423 

C 

TCF 

ENDEXT 
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0500 





i5i2geo_ 




BANK 

15 



0500C1 

Q5CCLCi 

PEf 

1 



22t^000 

22f2000 




SETLCC 

BANK 

KALCRCM 















05C1 

REF 

5 

LAS! 

365 

E6t U6l 




ED ANK « 

BCOU 
















05015 

REF 

1 







COUNT 

22/KALC 
















C5X12 

REF 

1 1 

LAST 

381 

22t2000 

0 6 (L06 

1 

KALCHAN3 

TC 

INTPRET 



0505 





22t2G01 

77634 

C 


RTB 




05CN 

REF 

2 

LAST 

385 

22,2002 

44376 

c 



READCCDK 

PICK LP CURRENT COO ANGLES 


0505 

REF 

6 

LAST 

39C 

22f 2003 

03262 

1 


STORE 

ecDu 

STORE THE INITIAL S/C ANGLES 


0516 





22,2004 

72364 

c 


AXC,2 

TLOAC 

COMPUTE THE TRANSFORMATION FROM 


0517 

REF 

11 

LAST 

387 

22, 2005 

C3320 

c 



MIS 

INITIAL S/C AXES TO STABLE MEMBER AXES 

0516 

REF 

7 

LAST 

39C 

22,2006 

03262 

1 



6CDU 

( M I s 1 


051S 





22,2CC7 

77624 

1 


CALL 




0520 

REF 

2 

LAST 

385 

22,2010 

4440 5 

c 



COUTCCCM 



0521 





22,2C11 

72364 

c 


A XC f 2 

TLOAC 

COMPUTE THE TRANSFORMATION FROM 


0522 

REF 

4 

LAST 

118 

22,2012 

03425 

1 



MFS 

FINAL S/C AXES TO STABLE MEMBER 

AXES 

0523 

REF 

c 

*> 

LAST 

309 

22,2013 

01156 

1 



CPHI 

(MFSl 


052A 





22,2014 

77624 

1 


CALL 




0525 

REF 

2 

LAST 

39C 

22,2015 

44405 

c 



COUTCCCM 



0526 





22,2016 

45160 

1 

SECAO 

AXC ,1 

CALL 

MIS ANC MFS ARRAYS CALCULATED 

t2 

0527 

REF 

12 

LAST 

39C 

22,2017 

03320 

c 



MIS 



052 8 

REF 

1 



22,2020 

44334 

c 



tranSpcs 



052S 





22,2021 

77775 

1 


VLGAD 




0530 





22,2022 

77626 

c 


STAOP 




0531 

REF 

12 

LAST 

111 

22,2023 

50474 

0 


STOVL 

THIS +120 



0532 





22,2024 

77626 

c 


STADR 




0533 

REF 

13 

LAST 

39C 

22,2025 

50502 

c 


STCVL 

THIS *6 



053A 





22,2026 

77626 

c 


STAOP 




0535 

REF 

14 

LAST 

39C 

22,2027 

74510 

c 


STORE 

THIS 

TNis - transpcsei MIS) scaled by 

2 

0536 





22,2030 

7516C 

1 


AXC ,1 

AXC ,2 



0537 

REF 

15 

LAST 

39C 

22,2031 

03266 

c 



THIS 



0536 

REF 

5 

LAST 

39C 

22,2032 

03425 

1 



MFS 



0539 





22,2033 

77624 

1 


CALL 




05AC 

REF 

3 

LAST 

386 

22,2034 

44 304 

G 



MXM3 



05A1 





22,2035 

45575 

1 


VLGAD 

STADR 



05^2 

REF 

1 



22,2036 

50335 

1 


STOVL 

HFI *\2C 



05<i3 





22,2037 

77626 

c 


STADR 




054A 

REF 

2 

LAST 

39C 

22,2040 

5034 3 

0 


STCVL 

MFl 46 



05^5 





22,2041 

77626 

c 


STADR 




0 5A6 

REF 

3 

LAST 

39C 

22,2042 

7433 1 

c 


StCRE 

"HFI 

MFI • THIS MFS TTCTtTD BY 4} 


0547 





22, 2043 

450C1 

i 


St TPO 

CALL 

TPANSPCSE MFl IN PC LIST 


0548 





22,2044 

00023 

c 



ISO 



C599 

REF 

1 



22,2045 

44343 

0 



TPNSPSPD 



0550 





22,2046 

455 75 

1 


VLCAO 

STADR 



C551 

REF 

1 



22,2047 

50474 

c 


STOVL 

TMFI 4l2C 



0552 





22,2050 

7>6i6 

< 


STaDR 




0553 

REF 

2 

LAST 

39C 

22,2051 

50502 

c 


STOVL 

TRFI *6 
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C55A 





22f2052 

7 7626 

C 


STADR 



0555 

REf 

3 

LAST 

39C 

22*2053 

T951C 

c 


STORE 

TMF I 

THFI * TRANSPOSE (HFII SCALED BY 9 

RQS56 












BQ557 

CALCll^lt 

CCiFSKEW ARC 

HF ISVH 







R055e 












035 S 





2a.2C59 

95395 



OLCAD 

OSU 


0560 

KEF 

4 

LAST 

39 1 

22»2C55 

032 71 

c 



THf I +2 


0561 

REF 

A 

LAST 

39C 

22f 2C56 

C3930 

c 



ME I 42 


0562 





22.2057 

95325 

1 


POOL 

OSU 

CALCULATE CCF SCALED BY 2/SIN{AH| 

0563 

REF 

c; 

LAST 

39 1 

22.2C6C 

03932 

1 



MFI 49 


0 56A 

REF 

5 

LAST 

39 1 

22.2061 

032 73 

1 



THF I 49 


0565 





22*2062 

95325 

1 


POOL 

OSU 


0566 

REF 

t 

LAST 

39 ] 

22.2063 

03301 

0 



THFi 4100 


0567 

REf 

6 

LAST 

391 

22.2069 
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1039 

REF 

c 

LAST 

40 ] 

22,2715 

15330 

c 



DPHALF 



1C40 





22,2716 

17650 

1 


GOTO 




1041 

REF 

1 



22,2717 

44724 

< 



veCCFANC 



1042 





22,2720 

52025 

1 

Slihalfap 

OSU 

gctC 



1043 

REF 

6 

LAST 

40 1 

22,2721 

15330 

< 



DPHA LF 



1044 

REF 

A 

LAST 

4G 1 

22,2722 

<4724 

c 



VECCFANG 



1045 





22,2723 

77745 

1 

OKPHI 

OLQAU 


PLSH UP PHI 


1046 





22, 2724 

43466 

1 

VECCPANG 

VD6F 

p vo 



„ 
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FiOA7 PCITHE fCF TEPMlFiiTINC AUTCPATIC NANEUVEPS 


10513 REF 
10JLL4 _ 


10515 

REF 

A1D52 

1053 

REF 

105A 

REF 

1C55 

REF 

1056 

REF 

1056 

REF 

IC58. . 

REF 


C QOOA 0 NDG0N2 INHiNT 


THIS LOCATION ACCESSED BY A BZHF NOGO -2 


1 


22,2726 0 3272 C 


TC 


ZLRCEPCR 




C QOOA C NM£L 


INHINT 


A LAST 252 22,2730 0 32A5 1 


TC 


STCPPATE 


TERMINATE MANEUVER 


22 

lA 

E 


LAST 

LAST 


366 
37 7 


22.2731 

22.2732 


3 A7U 1 
0 51A0 1 


CAF 

TC 


TxC 

WAITLIST 


NCTE - ALL RETURNS ARE NOW MADE VIA 


GQOOENO 


LAST 39C E6,1661 


EbANKs BCOU 


1 


22,2733 03237 1 


2CA0R ENDMANU 


1 


22,273A 


A9 LAST 383 22,2735 


AA1C6 < 
1 5112 1 


TCF 


ENDGFJC8 


H 




t 


r 
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cool 





15f 2CCG 




BANK 

1 5 


0002 

REE 

3 

LIST 

398 

22r2COO 




StTLOC 

KALCRCNl 


0003 





22.2736 




BANK 



0004 

REF 

9 

LIST 

402 

E6» 1661 




EBANK <* 

eCDU 

- 

P0Q05 

_ CE7EC1 lAG 

ClPbAL ICCK 








0006 

REF 

1 



22.2736 



lcc Skirt 

EQUALS 

NOG I MCC 

— , 

0007 





22j2 736 

77614 

1 

NCG IMLOC 

SET 



0006 

REF 

i 



22,2737 

C1074 

C 



LALCPAN3 


0009 





22.2740 

70740 

c 

T<CALC 

LXC.l 

DLOAC* 


0010 

REF 

2 

LIST 

179 

22,2741 

01130 

1 



PATE INCX 


0011 

REF 

1 



22,2742 

04772 

1 



ARATE,! 


0012 





22,2743 

45002 

1 


SR4 

CALL 

COMPUTE THE INCREMENTAL ROTATION MATRIX 

0013 

REF 

3 

LIST 

386 

22,2744 

4453C 

1 



UELCCPP 

DEL CORRESPCNCING TO A 1 SEC POTATION 

AGO 14 











ABOUT CCF 

C015 





22,2745 

74343 

c 


OLOAC* 

VXSC 


0016 

REF 

2 

LIST 

403 

22,2746 

04772 

1 



ARATE, 1 


0017 

REF 

96 

LIST 

40C 

22,2747 

03343 

c 



CCF 


0018 





22,2750 

77721 

c 


MXV 



QQ19_ 

REF 

1 



22,2751 

C 5 0 0 ^ 

c 



OUADRCT 


0020 

REF 

1 



22,2752 

17311 

1 


STOOL 

BRAT E 


0021 

REF 

9 

LIST 

39 I 

22,2753 

03365 

1 



AM 


0022 





22,2754 

556C5 

1 


OMP 

Of V* 


0023 

REF 

1 



22,2755 

CS002 

c 



ANGLTIME 


0024 

REF 

3 

LIST 

40 3 

22,2756 

04772 

1 



ARAT £ , 1 


0025 





22,2757 

7766 1 

c 


SR 



0026 





22,2 760 

20606 

c 



5 


0027 

REF 

1 



22,2761 

27311 

1 


STOVL 

TM 


0028 

REF 

2 

LIST 

403 

22,2762 

0331 1 

1 



BRAlE 


0C29 





22, 2763 

7776 1 

1 


vxsc 



0030 

REF 

1 



22,2764 

CSC26 

c 



BIASCALE 


0031 

REF 

1 



22,2765 

C3275 

1 


STORE 

B1 ASTEMP 

ATTITUDE ERROR EIAS TO PREVENT GVERSHCCT 

A0032 











IN SVSTEN 

0033 





T2,2766 

776 14 

1 


SEtGC 


STATE SWITCH CALCMAN2 (430) 

0034 

REF 

1 



22,2 767 

01035 

0 



CALCMAN2 

O(OFF) * BYPASS STARTING PROCEDURE 

0035 

REF 

1 



22,2770 

45033 

c 



NEWANGL ^1 

nCN) "*“StlpT maneuver — — 

0 u3b 





22,2771 

00044 

1 

IRATE 

20EC 

•0022222222 

- .05 CEG/SEC 

0036 





22,2772 

15053 

c 





0037 





22,2773 

00221 

0 


2DEC 

.008 1868889 

- .2 CEG/SEC 

003 7 





22,2774 

24255 

c 





0038 





22,2773 

CC554 

c 


2CEC 

.0222222222 

» .5 CEG/SEC 

0038 





22,2776 

C266C 

c 





0039 





22.2777 

C5540 

< 


20 EC 

rrrrrrmrr 

- "TTTG/ffr rrr.s c eg/ sec 

0039 





22,3000 

26603 

c 





0040 





22, 3C01 

CC003 

1 

ANdLTlFLB ^DEC 

.000 19073S 

- loce - 19 


0040 22f3002 ^40^0 C 

ACOAl MANEUVER ANCLE TC MANEUVER TIME 


B 
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Q0A2 


22r3C03 

031A6 

1 

QtAOROT 

20EC 

. 1 

RCTA7ICN MATRIX FROM S/C AXES TO CCNTROL 

C0A2 


22»300A 

1A632 

C 





QQA3 


- 

GOOOO 

1 


20EC 

0 

AXES (X RCT • -7.25 OEGI 

00A3 


22.3006 

OOOCO 

1 





00 A A 


22f3C07 

ccooo 

1 


2DEC 

0 


OQ.AA 


22.3010 

coooo 

1 





OCAS 


22. 3011 

coooo 

1 


2DEC 

0 


00^5 


22.3012 

coooo 

1 





OOA6 


22.3013 

03131 

1 


2DEC 

.099200 

=(.l)C0S7-25 

0CA6 


22.3C1A 

112 7 5 

1 





0CA7 


22. 3015 

77Ael 

1 


20EC 

-.012620 

»-(.USIN7.25 

C0A7 


22.3016 

A7370 

C 





ooAe 


22,3017 

COOOO 

1 


20EC 

0 


OOAti 


22, 3020 

00000 

1 





0CA9 


22.3021 

00316 

c 


20 EC 

.012620 

t .USIN7.25 

C0A9 


22,3022 

30A07 

1 





COSO 


22,3C23 

C3131 

1 


20EC 

.099200 

( . nC0S7. 25 

0050 


22, 3C2A 

11275 

1 





0051 


22*3025 

COOOA 

c 

eiASCALE 

20 EC 

.OOC25A3132 

» (A5C/180) il/0.6)(l/163tiAI 

0051 


22, 3026 

05253 

c 
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CCPPAhtS WILL BE GENEPATEC EVERY CNE SECQNO DURING THE PANEUVEH 


GOO^ 



1S,20C0 

BANK 

15 

Q0U5 

Rtf 

A LAST AQ3 

22f 2C00 

SCTLCC 

KALCMCM 

C0C6 



22*3C27 

BANK 



C0C7 HEf 1C L^ST ^03 E6fUei EBANK* BCDU _ 

QCCe REf A LAST 398 TC ^05: 191 5 35* COUNT 22/KALC 


ooos 

GDIQ _ 

REF 

2 

LAST 

39 1 

22*3027 

22i3C30 

4 1332 

C 0006 

C 

1 

NEWCELHl 

CS 

EXTEND 

HCLUFLAG 

QQll 

REF 


LAST 

39 1 

22*3031 

6 2725 

C 


eZMF 

NOGC -2 

U012 

REF 

12 

LAST 

39C 

22* 3032 

C 6006 

1 

NEWANGL 

TC 

INTPPET 

0013 





22t3C33 

75160 

\ 


AXCf 1 

AXC, 2 

OOIA 

REF 

13 

LAST 

39C 

22*3034 

03320 

C 



MIS 

0015 

REF 

12 

LAST 

40C 

22*3035 

C3425 

1 



DEL 

0016 





22*3036 

17624 

1 


CALL 


0017 

REF 

4 

LAST 

39C 

22*3037 

44304 

c 



MXH3 

0016 





22*3C40 

45575 

1 


VLCAO 

STADfl 

0019 

REF 

H 

LAST 

405 

22*3041 

50442 

C 


STCVL 

MIS *120 

0020 





22*3042 

77626 

c 


STAUR 


0C21 

REF 

i; 

LAST 

405 

22»3C43 

5C450 

c 


STCVL 

HiS *61 

0022 





22,3044 

77626 

c 


STAUR 


0023 

REF 

16 

LAST 

405 

22 *3045 

7 ^ ^ 5 6 

c 


STORE 

MIS 

0024 





22*3046 

45160 

1 


AXC , 1 

CALL 

0025 

REF 

17 

LAST 

40 5“ 

22*3047 

C3320 

C 



MIS 

0026 

REF 

2 

LAST 

386 

22,3050 

44655 

1 



OCMTCCOU 

0027 





22*3C51 

77634 

c 


RT8 


0026 

REF 

2 

LAST 

386 

22,3052 

45547 

c 



V1STC2S 

0029 

REF 

1 



22, 3053 

03267 

1 


store 

NCDU 

0030 





22*3054 

774 14 

C 


BONCLR 

EXIT 

0031 

REF 

2 

LAST 

403 

22,3C55 

012 IS 

c 



CALCMAN2 

0032 

REF 

1 



22* 3056 

45142 

1 



MANU STAT 

0033 

REF 

24 

LAST 

402 

22,3057 

3 4711 

1 


CAF 

Two 

0034 

REF 

2 

LAST 

111 

22,3060 

55*664 

C 

INCROCOU 

TS 

KSPNCX 

0035 





22*3061 

6 COOO 

1 


DOUBLE 


0036 

REF 

2 

LAST 

111 

22* 3062 

55*665 

1 


TS 

KDPNCX 

0037 

REF 

3 

LAST 

405 

22,3063 

51*664 

1 


INDEX 

KSPNCX 

0036 

REF 


LAST 

405 

22,3064 

3 1666 

c 


CA 

NCDU 

0039 





22*3065 

C COOb 

1 


6xT ENn 


CC4C 

REF 

4 

LAST 

405 

22,3066 

5 1664 

1 


INDEX 

KSPNCX 

00^1 

REF 

11 

LAST 

405 

22,3067 

21*661 

C 


MSU 

BCOU 

Q0A2 





22*3010 

C 0006 

1 


EXTEND 


0043 

REF 

1 



22,3011 

7 3141 

1 


MP 

OT/TAU 

0044 

REF 

3 

LAST 

40 5 

22, 3072 

51*665 

c 


INDEX 

KDPNCX 

0045 

REF 

2 

LAST 

106 

22*3073 

53*576 

c 


OXCh 

DELCCUX 


SEE IF MANEUVER HAS BEEN INTERRUPTED 
BY ASTRONAUT 

IF SO* TERMINATE KALCMANU 


COMPUTE THE NEW MATRIX FROM S/C TC 
STABLE MEMBER AXES 


CALCULATE NEW OESIREC CDU ANGLES 


PICK UP THE NEW CDU ANGLES FP CM MATRIX 


NEW COU ANGLES 


TO START MANEUVER 

♦0 OTHERWISE 


NEW cESurrcou anisiti 


TnTT IAl s/C ATiTCrOfTTREVlCUS OrSTTTtTJ 
ecu ANGLES 


ANGLE INCREMENTS TC BE ADCEO TO 
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0046 

0047 
0046 

REF 

REF 

5 

3 

LAST 

4QJ_ 

22 f 3 0 7 4 

51*664 

1 

INDEX 

KSPNCX 

CCOU EVERY TENTH SEC 




LAST 

LAST 

40 5 

22*3C75 

3 1666 

C 

CA 

NCLU 

BY LEM DAP 




RFF 

t 

406 

22.3076 

51*664 

J 

INDEX 

KSPNCX 


0049 

REF 

12 

LAST 

405 

22,^C77 

57*661 

1 

XCH 

BCDU 





0050 

REF 

4 

LAST 

405 

22f 3100 

51*665 

c 

INDEX 

KOPNCX 





C051 

REf 

2 

LAST 

LOT 

22t310l 

55*646 

c 

TS 

CDUX C 





0052 

REF 

7 

LAST 

406 

22t3102 

11*664 

c 

CCS 

KSPNCX 





0053 

REF 

1 



22t 3103 

1 3060 

c 

TCP 

INCRCCCU 

LOOP FOR THREE AXES 


















0054 





22^21 C 4 

C 00C3 

1 

R6LINT 






R0055 

CCFPAF E 

PRESENT TIRE UITH TIHE TC TERMINATE 

MANEUVER 







0056 

REF 

1 



22^3105 

Q 3115 

1 

TMANUCHK 

TC 

TIMECHX 


0057 

REF 

1 



22t3106 

I 3206 

1 


TCP 

CONTMANU 


CC58 

REF 

U 

LAST 

39 1 

22t3107 

3 4712 

1 


CAP 

ONE 


0060 

REF 

15 

LAST 

402 

22f 3110 

0 5140 

1 

MANUSTAL 

TC 

WAITLIST 


0061 

REF 

12 

LAST 

406 

E6» 1661 




EBANK« 

BCOU 


0062 

REf 

1 



22»3111 

03232 

I 


2CA0K 

MANUS TCP 


C062 

REF 

1 



22,3112 

44106 

C 





0063 





22t3113 

C 0003 

1 


REL INT 



COc^ 

REF 

5C 

LAST 

402 

22f3li4 

1 5112 

1 


TCP 

ENDLF JCB 




0065 





22.3115 

C 0006 

1 

T IMECHK 

extend 


0066 

REf 

11 

LAST 

372 

22f 3116 

4 0025 

1 


DCS 

TIME 2 

0067 

REf 

1 



22,3117 

53*673 

C 


CXCH 

TTEMP 

006B 





22,3120 

C 0006 

1 


EXTEND 


0069 

REF 

2 

LAST 

402 

22, 3121 

3 1717 

1 


OCA 

TM 

0070 

REf 

2 

LAST 

406 

22,3122 

21*673 

0 


DAS 

TTEMP 

0071 

REf 

-3 

LAST 

406 

22,3123 

11*672 

1 


CCS 

TTEMP 

0072 

REf 

12E 

LAST 

362 

22,3124 

C 0002 

c 


TC 

Q 

0073 





22, 3125 

1 3127 

1 


TCP 

♦ 2 

0074 

REf 

1 



22, 3126 

1 3137 

c 


TCP 

2NCR ETRN 

0075 

REF 

4 

LAST 

406 

22,3127 

11*673 

c 


CCS 

TTEMP 4l 

0076 

REF 

129 

LAST 

406 

22,3130 

C C0C2 

c 


TC 

Q 

0077 

REf 

1 



22,3131 

1 3133 

1 


TCP 

MANDCFF 

0078 





22,3132 

4 coco 

c 


COM 


0079 

REf 

1 



22, 3133 

6 3205 

c 

MANLQPP 

AO 

ONESEC +1 

ooeo 





22,3134 

C 0006 

1 


EXTEND 


0081 

REf 

2 

LAST 

406 

22,3135 

6 3137 

1 


aZMF 

2NDN ETRN 

0062 

REf 

14C 

LAST 

406 

22,3136 

24 002 

0 


INCR 

U 

ooea 

REf 

141 

LAST 

406 

22,3137 

24 002 

e 

2N0RETRN 

INCR 

Q 

0084 

REf 

1*2 

LAST 

406 

22,3140 

C 0CC2 

c 


TC 

0 

0085 





22,3141 

C3146 

1 

ct/tal 

DEC 

.1 


0086 





22,3142 

7777t) 

1 

MANLSTAT EXIT 



INITIALIZATION ROUTINE 


C087 





22, 3143 

C 0006 

1 

EXTEND 



FOR AUTOMATIC MANEUVERS 


0088 

REF 

12 

LAST 

406 

22, 3 144 

3 0025 

c 

OCA 

TIME? 




0069 

REF 

3 

LAST 

“406 

22,3145 

21*717 

c 

0X5 

Tm, 


TM+TQ Maneuver ccmpleti 

ON TIME 

0090 





22,3 146 

0 0006 

1 

EXTEND 
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CQSl 

REF 


L/Sl 

406 

22,3147 

4 3205 

1 

CCS 

GNESEC 


0092 

REF 

4 

LAST 

406 

22,3150 

21*717 

C 

DAS 

TM 

( Tm + TO 1-1 

QQ93 





22.3151 

C 0004 

c 

INHINT 



0Q9<» 

REF 

53 

LAST 

406 

22.3152 

4 4712 

c 

CS 

ONE 

ENABLE AUTCPILCT TC PERFORM 

0095 

REF 

7 

LAST 

405 

22, 3153 

53*332 

c 

TS 

HOI Of LAG 

ACTCMATIC MANEUVERS 

0096 

REF 

7 

si 

last 

403 

22.3154 

4 1130 

c 

CS 

1ATE INf'X 

SEE IF MANEUVERING AT HIGH RATE 

0097 

REF 

IS 

LAST 

343 

22, 3155 

6 6211 

c 

AO 

SIX 


Cu9e 





22,3 156 

C 0006 

1 

EXTEND 



0099 

REF 

L_ 



22.3157 

6 3161 

1 

BZWF 

HIGHGAIN 


CIOC 





22,3160 

1 3164 

c 

TCF 



DKl 

REF 

1 



22, 3161 

4 15C1 

c 

HIGHCAIN CS 

RCSF LAGS 

IF SO, SET HIGH RATE FLAG (BIT 15 CF 

0102 

REF 

<9 

LAST 

379 

22,3162 

7 46 7^ 

1 

MASK 

Bins 

RCSFLAGSI 

0103 

REF 

2 

LAST 

407 

22,3163 

2?*5C1 

c 

AOS 

RCSF LAGS 


0109 

REF 

3 

LAST 

402 

22,3 164 

53*711 

c 

OXCH 

BRAT E 

X-AXIS MANEUVER RATE 

giii. 

REF 

6 

LAST 

172 

22.3165 

53*526 

c 

OXCH 

RbGOV 


0106 

REF 

4 

LAST 

407 

22,3166 

53*713 

1 

DXCH 

BP ATE +2 

Y-AXIS MANEUVER RATE 

0107 

REF 

1 



22, 316? 

53*530 

1 

OXCH 

WBGDYl 


oice 

REF 

C 

LAST 

407 

22,3170 

53*715 

1 

OXCH 

bPATE +4 

Z-AXIS MANEUVER RATE 

0109 

REF 

2 

LAST 

lOS 

22,3171 

53 *532 

c 

DXCH 

wBGCYa 


QUO 

REF 

2 

LAST 

403 

22,3172 

3 1675 

1 

CA 

BIASTEMP ♦! 

INSERT ATTITUDE ERROR BIASES 

0111 

REF 

d. 

LAST 

106 

22, 3173 

55*564 

c 

TS 

BIAS 

INTO AUTCPILOT 

0112 

REF 

3 

LAST 

40? 

22,3174 

3 16 7 7 

c 

CA 

BIA5TEMP +3 


0113 

REF 

2 

LAST 

106 

22,3175 

55*565 

1 

TS 

bUSl 


0114 

REF 

4 

LAST 

407 

22,3176 

3 1701 

c 

CA 

BlASlEMF *5 


0115 

REF 

2 

LAST 

106 

22, 3177 

55*566 

1 

TS 

8 I AS 2 


0116 

REF 

5 

LAST 

29? 

22,3200 

3 0025 

c 

CA 

TIMI 1 


0117 

REF 

7 

LAST 

407 

22,3201 

6 3205 

c 

AO 

ONESEC +1 


one 

REF 

1 



22,3202 

57*671 

c 

XCH 

NEXT IME 


oils 

REF 

2 

LAST 

406 

22,3203 

1 305? 

1 

TCF 

INCPCCCU *1 














0120 22,320^ CCOCO 1 CNESEC DEC 0 

0121 22#3205 CC14^ C DEC lO'O 


0122 

0123 





22,32C6 

C 0004 

C 

CCNTMANU 

INHlNT 


CENT INUE 

N 1 1 H 

UPDATE PROCESS 



REF 

6 

LAST 

407 

22,32C7 

4 0025 

1 


CS 

TIMF 1 





0124 

REF 

2 

LiST 

40 7 

22,3210 

6 1671 

C 


AO 

NEXT IME 






0125 

REF 

127 

LAST 

382 

22,3211 

10 000 

C 


CCS 

A 






0 126 

REF 

54 

LAST 

407 

22,3212 

6 47 12 

1 


AO 

ONE 






0127 

REF 

1 



22,3213 

1 3216 

C 


TCF 

MANUCALL 






0126 

REF 

1 



22, 3214 

6 4674 

C 


AO 

NEGM AX 






0129 





22,3215 

4 OOOC 

C 


COM 







0130 

REF 

16 

LAST 

406 

22,3216 

C 5140 

i 

MANUCALl 

1C 

WAI TL IST 






0131 

REF 

14 

LAST 

406 

E6, 1661 




EBANK* 

6 CDLi 






0132 

REF 

1 



22,3217 

C3225 

1 


2CADR 

UPOTCALL 






0132 

REF 

1 



22,3220 

44 1 C6 

c 









0133 





22, 3221 

G G0C3 

1 


REL INT 







0134 

REF 

4 

LAST 

407 

22,3222 

3 3205 

0 


CAF 

ONESEC +l 

INCREMENT 

TIME 

FOB NEXT UPDATE 



0135 

REF 

m - — 

3 

LAST 

407 

22, 3223 

27*671 

1 


AOS 

NEXT IME 






0136 

REF 

51 

LAST 

406 

22,3224 

i 5112 

1 


TCF 

ENOCFJCe 







GAP! ASSE^eiE R fcVlSaCh 237 CJ A GC PHCaPAM 


N A S A 


ltl7 ALC. 2<niq6a KOQLADE .064 PAGE 406 


KAK^'nc SUtRING 


USER'S PAGE NC. 


E6 SA 


n 


0137 

0136 

0139 

REF 
REF 
- REF 

1 

H 

15 

LAST 

LAST 

37 1 

2^ t 3226 

E 6 • 1661 

3 7663 C LPOTCALL 
0 50<i2 1 

Caf 

TC 

EtJANK* 

PR iC26 

FIKCVAC 

bCOU 

CALL FCR UPDATE 

CF STEERI^G CCMPANDS 

-- — 

OlAQ 

REF 

1 



22t3227 

C3027 1 

2CADR 

NEWCELHI 



OlAO 

REF 

1 



22,3230 

AA1C6 C 





01^1 

RiF 

It 

_ LAST 

378 

22,3231 

0 5213 1 

1C 

TASK CVER 




« 




n 


' 1 ^ 


9 




I 


1 


GAH: 


1:17 ALG. 2Atl<?68 KCQLADE .06A PAGE AQ<9 


REVISION 237 CF AGC PROGRAM COLOSSUS BY NASA 2021UI-C31 


KAL STEEP ING 


POIA2 RCITIAE FCf lEHHUATlNG AJ^TCPATIC PANELVtftS 


USER'S PAGE NO. 


E6 SA 


illAJ ail 

OlAA REf 


OlAS 

0iA6 

OlAS 

0.150 

0151 


Jill 

REf 

Rtf 

REF 


REF 


1 

I 


t LAST iil 


3 

5 

1 

2 


LAST A06 
LAST AQi 


22,3 235 

22*3236 

22,3237 


22m 3232 


-3216 


PANLSTCP 

TC 

STOPYZ 

22,3233 

C 

33C3 

1 


TC 

LOAt YZ 

22,323A 

3 

JJLIL 

_L_ 

ENORCLL 

CA 

CPhl 


S 5 * 6 A 6 C 
0 32A5 i 
3 1327 C 


TS 

TC 

ENOPANU CA 


CDUXC 
STL PRATE 
ATTPP IC 


SET CDUXD TC THE CCPMANOEC OUTER GIMBAL 


RESTORE USERS PRIORITY 


LAST 1S7 22,32A0 5A C63 C 


TS 


NtwHRIC 


Oiil &11 

0153 REF 


lA LAST 382 22,32A1 3 A71A 1 


3 LAST 107 22,32A2 53*326 C 


CA 


OXCH 


ZERO 


ATTCAOR 


ZERO ATTCADP 


OIia_ .aif 2_ LAST 197 22t32A3 C 5053 1 


TC 


0155 


REF 17 LAST ACE 22,32AA Q 5213 1 


TC 


0172 

0173 


Qieo 


SPVAC 


TASKCVER 


0156 

REf 

E5 

LAST 

40S 

22,32««5 

3 A714 

1 

stoprate caf 

ZERO 

0157 

REF 

2 

LAST 

405 

22, 32A6 

55*575 

C 

TS 

DELCCLX 

Q.l 5 8_ 


A 

LAST 

40S 

22.32A7 

55*576 

C 

TS 

DELCeUX +1 

Q15S 

REf 

7 

LAST 

4C7 

22,3250 

58*525 

c 

TS 

W8C0V 

0160 

REF 

6 

LAST 

40S 

22,3251 

55*526 

c 

TS 

weccv +1 

0161 

REf 


LAST 

407 

22,3252 

55* 56A 

c 

TS 

e us 


01611 REF 3C 

01612 REF 3 


LAST A07 
LAST ^C7 


22,3253 A A67A 1 
22t32SA 7 15C1 C 


CS 

MASK 


bITl5 

RCSFLAGS 


REF 

REf 


3 LAST 407 
143 LAST 406 


22.3270 55*566 1 

22.3271 ( 0CC2 C 


TS 

TC 


blAS2 

Q 


C17A 

0175 

0176 

REF 

REF 

REF 

7 

A 

m 

4L 

LAST 

LAST 

LAST 

3S6 

AOS 

216 

22.3272 

22.3273 
22,327A 

3 0032 
55*6A6 

3 0033 

0 

c 

1 

2ERCERQR CA 

TS 

CA 

coux 
coux c 

CDUY 

0177 

fl E f 


LAST 

107 

22,3275 

58 *65C 

1 

TS 

COUYC 

0176 

REF 

t 

LAST 

3 S 6 

22,3276 

3 003A 

c 

CA 

COUZ 

C17S 

REF 

2 

LAST 

107 

22,3277 

58*652 

< 

TS 

couzc 


REF 14A LAST 40S 22,3300 C 0002 C 


TT 


RETURN TO USER CF GOMANUR 


ZERO RCLL INCREMENTAL ANGLES 


RATE 


BIAS 


HAKE SURE HIGH RATE FLAG (BIT 15 CF 
RCSFLAGS) IS RESET. 


01613 

REf 

A 

LAST 

409 

22,3255 

59'5C1 

C 

TS 

RCSFLAGS 



C162 

HEF 


LAST 

409 

22,3256 

3 47 1A 

1 

STCPYZ CAF 

ZERO 



0163 

REF 

2 

LAST 

106 

22, 3257 

55*577 

1 

^S 

OELCCUY 

ZlRO PITCH, 

VA« 

0164 

REF 

3 

LAST 

40S 

22,3260 

55*6CC 

1 

TS 

oElccuy ♦! 

incremental 

ANGLES 

0165 

REF 

2 

LAST 

106 

22,3261 

55*6Cl 

C 

TS 

UELCetZ 



C166 

REF 

3 

LAST 

409 

22,3262 

58*6C2 

c 

TS 

DELCetZ ♦! 



0167 

REF 

2 

LAST 

407 

22,3263 

55*527 

1 

TS 

WfcCCYl 

RATES 


0166 

REF 

1 

LAST 

409 

22,3264 

55*530 

1 

TS 

HECDYi ♦! 



U16S 

REF 

3 

LAST 

407 

22, 3265 

55*531 

c 

TS 

weDDV2 



0170 

REF 

A 

LAST 

409 

22,3266 

55*532 

C 

TS 

H6C0Y2 *l 



0171 

REF 

3 

LAST 

407 

22, 3267 

58*565 

! 

TS 

BIASl 

BIASES 



PICK UP COU ANGLES AND STORE IN 
ecu CESIAEC 


K^LCH/!M STEERING 


GAPt 



AXi£ 


PRCG 




-C31 


l;n ALG. 2^«l96a KCOLALE .06^ PACE ^10 


L 


USER’S PAGE NC. 6 E6 SA 


0181 

0162 

0183 

REF 

REF 

REF 

7 

1 

LAST 

LAST 

AQS 

4 09 

22f3301 

2 2 f 3 30 2 

2 2.i_i3D 3 

3 1155 
55*646 

3 1156 

1 

C 

1 

LOALCCUC 

L0ACY2 

CA 

TS 

CA 

CPHI 

COOXC 

CTHE TA 

STORE TERHINAl ANGLES INTO 

CCHHANC ANGLES 


018A 

REF 

3 

LAST 

4C9 

22r 3304 

55*650 

1 


TS 

COUYC 



0183 

REF 

1 



22t 3305 

3 1157 

C 


CA 

CPSI 



0186 

R£F 

3 

LAST 

409 

22t3306 

55*652 

c 


TS 

COUZC 



0187 

REF 

145 

LAST 

409 

22t 33C7 

G 0002 

c 


TC 

u 




H 


il 


U 


B 




II 


CAP ; ASS£^BLE REVISION 23? QF AGC PRCGPAW CCLCSSUS gV NASA 2u2ini"C3l 


1:17 AUG. 2^tlS6 B _ KCOLADE .06^ PAGE ^11 


L SYMEf' lESl STAND/RC LEAD INS USER'S PAGE NC. I EO SA 

OOCl REF TTHTTsT 2a1 E5, 1671 EBANK= XSM 

0002 33.2QQQ BANK 33 

0003 REF I CA,2COO SETLCC E/PKCG 

OOCA q_A, 2557 BANK 

0005 REF 1 ^ COUNT* t$/PC7 

R00U.6 _ S PEC1AL~FRCGRAMS TO EASE THE PANGS CP ERASABLE HEHCRY PHQGPAHS. 

P0007 E/EKCALL FOR O PING eANKCALLS FROM ANC RETURNING TO ERASABLE. 

K 0 oca This ROUTINE IS CALLABLE FRCP ERASAeiE OR FIXED. LIKE flANKC ALL t HCtiEVER, SWITCHING BETWEEN S3 ARC SA 

POUlU IS NCI PCSSieiE. 


ROOll IFE CALLING SEQUENCE IS: 


AiUQL2 

A0Q13 

AOOIA 

A0015 

AQ0I6 

A0017 


TC BANKCALL 

CADR E/BKCALL 

CAOH ROUTINE NFERE YOU KANT 70 GO IN FIXED. 

RETURN HERE FRQN OiSPLAY TERM INATEt PAC STALL OR TC 0. 
RETURN HERE FPCN DISPLAY PPCCEEO CR GCCO RETURN FROM STALL. 
RETURN HERE FPCM OISPLAY ENTER OR RECYCLE. 


HOOia TFIS ROUTINE REQLIRES TKO ERASA6LE5 (EBUF2, ♦!» IN LNSWITChED HHlCH ARE UNSHARED BY INTERRUPTS AND 

R0020 CTFEP EHENCRY PROGRAMS. 


OOJQ 

AC031 


R0021 



A + L 

ARE 

PRESERVED 

IFPCUCH 

EANKCALL ANC 

E/BKCALL. 



0022 

REF 

- 3 

LAST 

362 

C4,2557 

52 134 

C E/BKCALL 

DXCH 

eUF2 

SAVE A,L ANC GET 

DP RETURN, 

u023 

REF 

1 



04,2560 

52 365 

C 

DXCh 

E e"u F 2 

SAVE CP RETURN. 


002A 

REF 

2 

LAST 

411 

04,256 1 

2^ 364 

C 

INCR 

tBUF2 

RETURN *l BECALSE 

DOUBLE CACR. 

0025 

REF 


LAST 

366 

04,2562 

3 0006 

1 

c& 

BBANK 



QC26 

REF 


LAST 

365 

C4,2563 

7 4i 7 ^ 7 

c 

MASK 

LCK 1C 

GET CURRENT EBANK 

. (SBANK SCMECAY) 

0Q27 

REF 

3 

LAST 

411 

04,2564 

26 365 

c 

ADS 

EPUf2 *l 

FORM BBCON. IWAS 

FRANK) 

0C2b 

REF 


LAST 

411 

04,2565 

5C 364 

c 

NOX 

ebUF2 




REF 


LAST 18A 


0At2566 

CA,2567 


0 A561 1 


TC 


0 -I 
SMC ALL 


0032 

0033 

0034 

REF 

5 



G4,2570 

0 2574 

C 

1 

C 

TC 


LAST 

411 

04,2571 

C4,2S72 

0 25 73 
2A 364 

TC 

INCR 

♦ 2 

EbUF2 

0035 

REF 

t 

LAST 

411 

C4, 2i73 

2 A 364 

t 

rNCP 

Ebuf2 

0036 

REF 

7 

LAST 

411 

04,2574 

52 365 

C 

e/ShlTCH DXCH 

EBUF2 

0037 





04,2575 

52 0C6 

C 

CTCB 



GC TC ROUTINE, SETTING 0 TC SMRETURN 
AND RESTORING A ♦ L. 

TX Q, Y34, CR bad STALL RETURN. 
PROCEED OR COCO STALL RETURN. 

ENTER OR RECYCLE RETURN. 


CAPr U SStfBLf RFWISION 231 CP AlC PRCGRAM 
L SYSTEM TEST STANO/PC LEAD ^ ^S 






ltl7 ALG. 24nl9fe8 KCQLAOE 

USER'S PACE NC. 2 


,064 PAGE 


E5 S4 


412 


PQU38 E/CAUL F^P CALUIhG A FlAEC HEPCRY INTERPRETIVE iUERCUTINE FRON ERASABLE ANC RETURNING T O ERASABLE. 

^.0Q4Q 1 > £ CALLJ&G SEQUENCE 1S««« 

AC041 RTB 


A0042 E/CALL 


A0043 








CAOR 

RLUT INE 

THE INTERPRETIVE SUBROUTINE YOU 

hANT. 

A0044 










RETURNS HERE IN INTERPRETIVE, 














Qfl45 

-R£f 


LAST 

368 

04,2576 

22 164 

1 E/CALL 

LXCh 

LOC 

ACRES -1 CF CAOP. 


0Q46 

REF 

45 

LAST 

374 

04,2577 

SO CCl 

0 

INDEX 

L 



GQ47 

REF 

46 

LAST 

412 

04,2600 

3 0001 

C 

CA 

L 

CAOR IN A. 


0046 

REF 

47 

LAST 

412 

C4f2601 

24 001 

c 

INCR 

L 



QQ4S 

REF 

46 

LAST 

412 

04,2602 

24 OCl 

c 

INCR 

L 

RETURN ACRES IN L. 


0050 

REF 

e 

LAST 

41 1 

04,2603 

5 2 3 65 

c 

OXCH 

EBUF2 

STORE CAOR ANC PETURN. 


0051 

REF 


LAST 

405 

C4, 2604 

0 6006 

1 

TC 

INTPPET 



0052 





04,2605 

77624 

1 

CALL 




0053 

REF 

S 

LAST 

412 

04,2606 

00364 

c 


EBUF2 

INDIRECTIY EXECUTE ROUTINE. IT 

RUST 

0054 





l4,2607 

77776 

1 

EXIT 


LEAVE VIA RVQ OR EQUIVALENT. 


0055 

REF 

1C 

LAST 

412 

04,2610 

22 365 

1 

LXCH 

E0UF2 +l 

PICK UP RETURN. 


0056 

REF 

14 

LAST 

412 

04,2611 

1 6010 

1 

TCF 

INTPPET +2 

SET LCC AND RETUR0 TC CALLER 



I! 






LAPJ 


9 


ff 


!1 



2J7 AGC PRCQflAM 


NASA 


ll-C3t 


Un ALG. 2A«iqt8 KCOLAOe .06A PAGE ^13 


L 

SYS 

TER TEST STANUARC LEAD INS 





USER'S PAGE NC. 3 

E5 S4 












PG057 

E/0 

CEHAK 


FCR WAKING UP 

ERASABLE MENOPV JOBS. 















j<Q.a5e 



ins 

ROUTINE RUST BE 

called 

IN INTERRUPT OR WITH INTERRUPTS 1NHI0ITEC. 













RC060 



TFE CALL ING SEQUENCE 

IS: 

















ACcei 


* 





INHINT 




A00t2 







* 




. .Ag.g.6i_ 







• 




A0C6A 







CA 

WAKE ACR 

ADDRESS OF SLEEPING JOB 


A0065 







TC 

1 BNKCALL 



ACC 66 _ 







CAOR 

E/JOPKAK 



AG067 







• 


RETURNS HERE 


A0066 







• 




ACQ69 







* 




AQ07C 







R6L INT 


IF YCL OIC an INHINT. 













. DO 71 




33,2C00 



BANK 

33 



C072 

RE f 

2 

LAST 

411 C4,2000 



SETLOC 

E/PkCG 



0073 




0A,2ei2 



BANK 















007A 

REf 

2 

LAST 

411 TC 413: 

2 7 

27* 

COUNT* 

$S/PC7 














QC15 

-Blf- 

:• 

LAST 

375 C4.2612 

0 507^ 

1 E/JGBWAK 

TC 

JUBWAKE 

ARRIVE IWTH ACRES IN A. 


0076 

REF 

n 

LAST 

341 04,2613 

4 47CC 

C 

CS 

BIT 1 1 



0C77 

REF 


LAST 

366 C4,2614 

5C C64 

C 

NOX 

LCCCTP 



0U76 

R6F 

A 

LAST 

412 04,2615 

26 164 

C 

AOS 

LCC 

KNOCK FIXED MEMCRY BIT CUT QF 

ACRES. 

0079 

REf 

1 


04, 2616 

0 0072 

1 

TC 

RUPTREG3 

RETURN 
























RC080 

THESE FPCGFAFS 

ARE PRCVIOEC TC ALLOW 

cverlay cf 

BANKS 3C 

; THRU 33 

OF THE 205 VERSIONS CF SYSTEM TESTS 

AND 

Rooe2 

PRELAINCH ALIGN. THE INTENT 

IS TC ALLCW THE STG 

AND HVeRlD LABS 

TO RUN ALL the TESTS WITH COLOSSUS. 
























006A 




33,2000 



bank 

33 



0065 

REF 

I 


33, 2CG0 



SETLOC 

TFSt LEAD 



0066 




33,2CCC 



BANK 















00B7 

REf 

L_ 





COUNT 

33/CCMST 














0066 

REf 

c; 

LAST 

24C E5,14^5 



EBANK* 

QPLACE 














0069 

REf 

1 


33,2000 

C 3426 

1 COMPVER 

TC 

GCDN FVER 

MUST 8F 33,20C0. 













0090 

REf 

1 


33,2C0l 

0 3133 

C GTSCPSSl 

TC 

GT5CPSS 

RUST DE AT 33,2C0l 













0091 

REF 

1 


33,2002 

0 5243 

1 REOG 

TC 

newmcdex 

DISPLAY MM C7. 


0092 




33,2003 

Q00C7 

0 

MM 

07 

FALL INTO IRUTEST 



I 


I 


» 


I 


H 
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L IM C4lieP/TlCN A nTTl I G h ^ E K T U SER~^ PAGE NO, I EO S3 

RGOIO NAfE- I?'l f£PHCHN/NCe TESTS 2 

JvflillJ. CA1E- K4RCH 20.1967 IZZI^IZ ' . 

RC012 eV- STSTEN TEST CPCUP a64-696 o EXT. 1274 

RG013 MCCNC.- 2EP0 

PLhCtlCML CESCKIETKN 


HQU15 FCSniCMNi- BOLTUES FCR THE IHU PfcPFCPMNCE TESTS AS NELL AS SONE CF 
B OQ l_6 TH E TESTS THENSELVES. FOR A CESCBIPTICN OF THESE SUBROUTINES AND THE 
R0017 Cf£PATI^C PBCC EDUP6S (TYPiCALlYt SEE STC HEHO 689.THEQBET ICAl RE F.g“1973 


- Oq ifl 33.2CC4 BANK 33 


0C19 

REF 

1 

33»2000 



SETLOC 

INUC AL 



CC20 



23,2C0A 



BANK 







j 







0021 

REF 

1 

|5, 1423 



EfiANK^ 

POS I TON 



0022 

REF 

E7 1.4ST 40S 

§3,2CC4 

3 4714 

1 

I HO TEST CA 

ZERO 



0023 

REF 

1 

33,2005 

55*452 

1 

TS 

ORIF TT 



002 A 

REF 

1 

33,2006 

55*643 

C 

TS 

GEOCCHFl 



002A1 

REF 

1 

33,2007 

3 2443 

C 

CAF 

TESTTINE 



QC2A2 

REF 

1 

33,2010 

55*412 

c 

TS 

LENGTHCT 



002A3 

REF 

1 

33,2011 

C 2302 

1 

TC 

COAALIGN 

TAKE CARS CF DRIFT FLAG 


0025 

REF 

I 

33,2012 

3 4734 

c 

CAF 

ISEO 



0026 

REF 

1 

33,2013 

55*644 

1 

TS 

ISECXTl 




0026 1 

RbF 

1 



33, 20 14 

3 244 1 

1 


CA 

OC144CO 


0Q262 

REF 

7 

LAST 

299 

33,2015 

55 'Q?4 

1 


TS 

1 /PI PACT 


0027 

REF 

15 

LAST 

412 

33,2016 

0 6QC6 

1 

GOE SS 

TC 

I NTPPET 

CALCULATE -COS LATITUDE AND SIN LATITUDE 

002701 





33,201? 

776 24 

1 


CALL 



0C26 

REF 

1 



33,2020 

10617 

C 



LATAZCHK 


Q02S 





33, 2021 

57546 

1 


COS 

DCOMF 


0C30 





33,2022 

17752 

1 


SLl 



0C31 

REF 

1 



33,2023 

16447 

1 


stool 

WANCi 1 


U'J32 

B£F 

1 



33,2024 

C24C3 

1 



LAT I TLCE 


0033 





33,2025 

72556 

1 


SIN 

SI 1 


CC34 

REF 

1 



33,2026 

02445 

c 


STCRE 

WANCC 


0035 





33, 2027 

17716 

1 


EXIT 



0036 

REF 

^ * 

LAST 

389 

33,2030 

0 45 55 

c 

GECiHUtT 

TC 

EANKCALL 

gyrcccnpass cqhes in here 

0037 

REF 

2 

LAST 

232 

33,2C31 

16 516 

1 


CADR 

IHurtRC 


0030 

REF 

1 



33, 2C32 

0 2316 

1 


TC 

I MU5TLLG 


0039 

REF 

EE 

LAST 

4 1 4 

3 3, 2033 

3 4714 

1 

IHLBAlk 

CA 

Z E F C 


0040 

REF 

1 



33, 2034 

55*421 

c 


TS 

NDXCTR 


C04 1 

it t f 

1 



33,2C35 

55*450 

c 


TS 

TCPQNCX 


w li42 

REF 

1 ^ 

LAST 

4 14 

33,2036 

55*451 

1 


TS 

TOFOKCX +l 


03s3 

REF 

1 



33.2037 

3 4 ns 

1 

NePCSPL 

CA 

DEC 17 


0044 

REF 

1 



33,2040 

55*655 

1 


YS 

zerlKCxI 


Qo45 

REF 

1 



33,2041 

3 2445 

c 


CA 

XN&ACTJ 





p 


I 


B 


B 
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0G46 

REF 

1 



33,2042 

0 2 3 56 

C 


TC 

ZIRL IhC 



0047 

REF 

1 



33,2043 

3 4675 

1 


CA 

half 



aQ 4 a. . _ 

JLLE 

^ LISJ 

M # 

M M — J W |< ||u 

55*713 

_L_ 


TS 

XKB 



0045 

REF 

16 

LAST 

414 

33,2045 

0 6006 

1 


TC 

INTPPET 



C05C 





23,2C46 

13545 

I 


OLCAO 

SIN 



0Q5i 

JRlt 

1 



32.2047 

C2401 




A2I HLTH 



0052 

REF 

2 

LAST 

2BC 

33,2C5G 

02724 

1 


STCRL 

YNB *2 



0053 

REF 

2 

LAST 

20C 

33,2051 

16734 

c 


STOOL 

ZNd •♦A 



. 

REF„ 


LAUL 

415 

3ijig52 

024CI 

c 



AZIMLTH 



0055 





33,2053 

77746 

1 


COS 




0056 

REF 

a 

LAST 

415 

33,2C54 

C2726 

Q 


STCRE 

VNb -*4 



0Q5„7 





33,2055 

77676 

C 


OCOMP 




0056 

REF 

3 

LAST 

415 

33,2CS6 

C2732 

c 


STCRE 

ZNB +2 



00561 





33,2057 

77776 

1 


EXIT 




Q056i 

REF 

6 

LAST 

26C 

33,2060 

0 5253 

c 


TC 

CHECKMM 



00583 





33, 2061 

00003 

1 


MH 

03 

SEE IF IN OPTICAL VERIFICATION 


00584 





33,2062 

1 2 0 i ^ 

c 


TCF 

+ 2 

NO 


00565 

REF 

1 



33,2063 

1 3433 

1 


TCP 

SETNfiPCS ♦! 

YES 


00566 

REF 

17 

LAST 

415 

33,2064 

0 6006 

1 


TC 

INTPRET 



CC507 





33,2065 

77624 

1 


CALL 




0055 

REF 

1 



33,2066 

47244 

c 



CALCCA 



0060 





23,2067 

777 76 

1 


EXIT 




0061 

REF 

60 

LAST 

414 

33,2070 

C 4555 

0 


TC 

B ank call 



0062 

REF 

2 

LAST 

234 

33,2071 

16602 

1 


CAOR 

IMUCCARS 



0063 

REF 


LAST 

375 

33,2072 

3 4673 

1 


CAF 

B I T 1 4 

IF Bni4 SET, GIM0AL LCCK 


C064 

REF 

1 



33,2073 

7 0077 

c 


MASK 

FLAGWRC3 



0065 





33,2074 

0 0006 

1 


tXTEND 




0066 





33,2075 

1 2077 

1 


B2F 

♦ 2 



C067 

REF 

2 

LAST 

414 

33,2076 

25*421 

1 


INCR 

NPXC TR 

IF !N GIPBAL LCCK.CTHERmSE 0 


0066 

REF 

15 

LAST 

382 

33,2077 

0 544 7 

c 


TC 

DOW NF LAG 

RESET GIMBAL LOCK FLAG 


006 5 

REF 

1 



33,2100 

00056 

1 


ADRHS 

GLOKFAIL 

BIT 14 FLAG 3 


0070 

REF 

2 

LAST 

414 

33,2101 

0 2316 

1 


TC 

imustllg 



CC71 

REF 

3 

LAST 

415 

33,2 102 

11*421 

c 


CCS 

NOXC TF 

IF ONE GO AND OC A PIPA TEST ONLY 


00 72 

REF 

1 



33,2103 

0 2131 

c 


TC 

PIPACHK 

ALIGN AND MEASURE VERTICAL PIPA RATE 


0074 

REF 

61 

LAST 

415 

33,2104 

0 4555 

c 


TC 

BANKCALL 



0075 

REF 

2 

LAST 

236 

33,2105 

17012 

1 


CAOR 

IMUFIKE 



C076 

REF 


LAST 

41 5 

33,2106 

0 2316 

1 


TC 

I MUST L LG 



0C77 





33,2107 

0 0006 

1 


EXTEND 




0077 1 

REF 

1 



33,2110 

3 1657 

1 


OCA 

PEPF CLAY 



00772 

REF 

1 



33,2111 

C 52 31 

1 


TC 

LUNGCALL 




00773 REF 2 L/ST ^14 e5fl423 EBANK» POSMCN 

00 774 REF 1 33f2U2 021 16 C 2CA0P &GES7IPS 

00774 REF 1 33,2113 66065 1 

00775 REF 1 33,2ll<» 3 2121 1 CA ESTICACR 

0077 6 REF 3 LAST 3 74 33,2115 0 5070 C TC J06SLEEP 

00777 REF 2 LAST 415 33,2116 3 2121 1 GCESIIHS CA EST ICAOR 

00776 REF 4 LAST 413 33,2117 0 5074 1 TC JCBwAKf 

J077S REF 16 LAST 405 33,2120 0 5213 1 TC TASKCVEft 

007751 REF 1 33,2 121 66453 C ESTICAOR CATSTT' TJT I ^5 ' 
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OQ7tJ 

REf 

89 

L/ST 

9 19 

33t2122 

3 97 19 

1 

TORQUE 

CA 

ZEPC 



0079 

REF 

7 

L>!ST 

276 

33r2123 

55«05C 

1 


TS 

DSPT El-2 



jioeo,. 

B_£F_^ 

1 



3-3.2129 

3 1519 

e 


CA 

DP IP TI 



ooei 

REF 

6 

L/S7 

<1 1 6 

33.2125 

55*051 

C 


TS 

DSPTtP2 +1 



0062 

REF 


L/ST 

915 

33. 2126 

5l*92J 

C 


INDEX 

POSI TON 



0^63 

REF 

2 

L^ST 

95 

33.2127 

55*93C 

C 


TS 

SOUTPCR -1 



0069 

REF 

1 



33.2130 

0 2927 

1 


rc 

SHOW 
















0085 _ 

E£f_ 

h 

L^ST 

915 

33.2131 

_3VA n 

1 

PIP4CHK 

INDEX 

NDXCTB 

PI PA TEST 


0066 





33.2132 

0 2133 

1 


7C 

♦ 1 



0007 

REF 

1 



33,2133 

0 2917 

1 


TC 

EARTPR* 



0090 

REF 

1 



33,2139 

3 9379 

c 


CA 

DEC 57 



C091 

REF 

2 

LiiST 

919 

33,2135 

35*912 

c 


TS 

l^ngthct 



0092 

REF 

C H 

L/ST 

907 

33,2136 

3 9712 

1 


CA 

ONE 



0093 

REF 

1 



33,2137 

55*597 

1 


TS 

RESULTCT 



0099 

REF 

9C 

L/S7 

916 

33,2190 

3 9719 

I 


CA 

ZERO 



0095 

REF 

1 



33,2191 

51*922 

1 


INDEX 

P IPI NCEX 



0096 

REF 

2 

L<ST 

269 

33, 2 192 

54 037 

1 


TS 

PIPAX 



0097 

REF 

1 



33,2193 

55*502 

0 


TS 

DATA PL 



00971 

REF 

2 

L^ST 

916 

33,2199 

55 ' 5C6 

1 


TS 

DAT4PL +9 



0098 

REF 

1 



33,2195 

0 2321 

0 


TC 

CHFCKG 

PIP PULSE CaTCPING ROUTINE 


0099 





33,2196 

0 0009 

c 


INHiNT 




0100 

REF 

1 ^ 

L/ST 

90S 

33,2197 

3 ^ 7 1 i 

1 


CAF 

TRO 



Old 

PEF 

1 



33,2150 

0 5130 

c 


TC 

TWIDDLE 



0102 

REF 

16 

1.4S1 

91 1 

E5, 1671 




EBANK= 

XSH 



0103 

REF 

1 



33,2151 

C2153 

1 


ACRES 

P IPAUSK 



0105 

REF 

52 

L4ST 

907 

33,2152 

0 5112 

c 


TC 

ENDDFJCB 



0106 





33,2153 

0 0006 

1 

PIPATASK 

EXTEND 




01C7 

REF 

3 

L4ST 

916 

33,2159 

2 J*912 

c 


UIH 

LENGTPCT 



01071 

REF 

9 

L4ST 

916 

33,2155 

3 1912 

1 


CA 

LENGThCT 



0108 





33,2156 

C 0006 

1 


EXTEND 




0109 

REF 

1 



33,2157 

6 2163 

1 


BZMF 

STAPTPIP 



UllO 

REF 

57 

L4S7 

379 

33,2160 

3 9701 

c 


CAF 

BITl C 



0111 

REF 

2 

L4ST 

916 

33,2161 

0 5130 

c 


TC 

TWIDDLE 



0112 

REF 

17 

L4S7 

916 

ES, lc71 




EBANK^ 

XSM 



0113 

REF 

2 

L4ST 

916 

33,2162 

C2153 

1 


AORES 

P IPA TASK 



0119 

REF 

2 

L4ST 

29C 

33,2163 

3 9675 

1 

STARTPIP 

CAP 

PP 1020 



0115 

REF 

15 

L4S7 

906 

33,2169 

0 5092 

1 


TC 

f IMC VAC 



0116 

REF 

16 

L4ST 

916 

E5,167l 




EBANK* 

XSH 



0117 

REF 

1 



33,2165 

C2170 

c 


2CADR 

PIP JCBE 



0117 

REF 

1 



33,2166 

66065 

1 






01 IB 

REF 

19 

L4S1 

915 

33,2167 

a 5213 

1 


TC 

TASKCVE^ 



0119 

REF 

L 

L4ST 

9 16 

33, 2 170 

51*921 

1 

PIPJCBB 

INDEX 

ndxCTp 



U120 





33,2171 

0 2172 

1 


TC 

♦ 1 



0121 

REF 

2 

L4S1 

4 1 fi 

33,2172 

0 2917 

1 


TC 

eApTPF4 



0124 

REF 

5 

LUST 

916 

33,2173 

3 1912 

1 


CA 

LENGTHCT 



0123 





33,2179 

C 0006 

I 


EXTEND 




0129 





33,2175 

6 2177 

1 


BZMP 

*Z 



ol25 

REF 

* Q 

L4ST 

916 

33,2176 

C 5112 

c 


TC 

ENDT F JCB 



0126 

REF 

7 

L4ST 

336 

33,2177 

3 9715 

t 


CA 

F rvE 
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0127 

REf- 

2 

L^St 

416 

33.2200 

55*547 

1 


TS 

RESULTCT 






0126 

REF 

2 

L #S7 

416 

33f 2201 

0 2321 

C 


TC 

CHEf. XG 






aiM 





33.2202 

0 0006 

_L_ 


EXTEND 







0135 

REF 

3 

L/ST 

4 16 

33,2203 

4 1503 

1 


CCS 

DATAFL 






0136 

REF 


L^ST 

417 

33,2204 

21*507 

C 


DAS 

OATAPL +4 






















C137 

REF 

16 

LAST 

415 

33,2205 

C 6006 

1 


TC 

INTPBET 






0138 





33, 2206 

4 534 5 

1 


OLGAC 

DSC 






0139 

REF 

i; 

LAST 

417 

33,2207 

C2511 

c 



DATAPL +6 






Cl^O 

REF 

6 

LAST 

4 1 7 

33,2210 

C25C5 

c 



OATAPL +2 






01 A1 





33,2211 

43044 

c 


BPL 

CALL 






01^2 

REF 

1 



33,2212 

662 14 

c 



A INGCTN 






0U3 

REF 

1 



33,2213 

66276 

1 



OVER FFIX 






Ol^A 





33,2214 

56325 

c 

AINGOTN 

PDDL 

CDV 






0145 

REF 

7 

LAST 

417 

33,2215 

C2507 

1 



OATAPL +4 






0146 





33,2216 

572 12 

1 


SL4 

DNPR 






0147 

REF 

1 



33,221? 

27112 

0 



0EC5e5 

0EC585 

HAS BEEN REDEFINED FOR 

LEM 



0146 





33, 2220 

77634 

c 


RTb 







0149 

REF 

1 



33,2221 

45541 

c 



SGNAGPEE 






015C 

REF 

9 

LAST 

416 

33,2222 

01051 

1 


STORE 

DSPT £R2 











33,2223 

77776 

1 


EXIT 







0152 

REF 

6 

LAST 

4 16 

33,2224 

11*421 

c 


CCS 

NDXC TR 






0153 

RfcF 

t 

LAST 

414 

33,2225 

0 2302 

1 


TC 

CCAAL IGN 

take 

PL4TFCRP OUT OF GIMBAL 

LOCK 



0154 

REF 

2 

LAST 

416 

33,2226 

0 2427 

1 


tc 

SHGN 






0155 

REF 

1 



33,2227 

2 2447 

1 

VER IDRFT 

CA 

3990CeC 

ABOUT 

1 HOUR VERTICAL DRIFT 

Test 



0156 

REF 

6 

LAST 

416 

33,2230 

55*412 

c 


TS 

LENGTECT 






0157 

REF 

4 

LAST 

4 16 

33,2231 

51*423 

c 


INDEX 

POSI TCN 






0158 

REF 

3 

LAST 

416 

33 , 2232 

4 1427 

c 


CS 

SOUTf^CP -2 






0159 

REF 

2 

LAST 

414 

33,2233 

55*452 

1 


TS 

DPIF n 






0160 

REF 

19 

LAST 

416 

33,2234 

3 1675 

1 


CA 

XSh *4 

a IF PCSN 4 




0161 





33,2235 

0 CQC6 

1 


EXTEND 







0162 

REF 

1 



33,2236 

1 2244 

c 


8ZF 

PCNi 






0163 

REF 

2C 

LAST 

382 

33,2237 

4 4 706 

c 

P0N4 

CS 

fi IT5 


CFPSE7 PLATFORM 




0164 

REF 

1 



33, 2240 

27*651 

c 


ADS 

EKCGPPl *2 






L/ 1 6 ^ 

REF 

21 

LAST 

4 1 7 

33,2241 

3 4 7C6 

1 


CA 

61 T5 






0166 

REF 

2 

LAST 

417 

33,2242 

27*647 

1 


AOS 

ERCCPPl 






0167 

REF 

1 



33,2243 

1 2250 

c 


TCF 

PONG 






0166 

REF 

22 

LAST 

417 

33,2244 

4 47C6 

c 

PCN2 

CS 

BITS 






wl69 

REF 

3 

LAST 

417 

33,2245 

27*651 

c 


AOS 

EP.C0AP1 *2 






0170 

REF 

23 

LAST 

417 

33,2246 

3 4 706 

1 


CA 

t) 175 






C171 

REF 

4 

LAST 

417 

33,2247 

27*653 

1 


AOS 

ERCOPl +4 






0172 

REF 

3 

LAST 

4 1 1 

33,2250 

0 2417 

1 

PONG 

TC 

EARTER* 






0173 

REF 

91 

LAST 

416 

33,2251 

3 4714 

1 


Ta 

TeFc 

ALLQR 

CnLV SOCTF GyPC EITRTh R 




0174 

REF 

1 



33,2252 

55*404 

t 


TS 

ERVeCTCP 






C 1 75 

REF 

2 

last 

411 

33,2253 

55 *4C5 

c 


TS 

“ERVrCTCP *i 






0176 

REF 

1C 

LAST 

34 2 

33,2254 

3 4672 

c 

GOESSi 

CAF 

POSR AX 






0177 

REF 

1 

LAST 

4 14 

33,2255 

55*450 

c 


TS 

TQPCRDX 






0170 

REF 


LAST 

417 

33, 2256 

55*451 

1 


TS 

TCRCRCX +1 






0179 

REF 

8 

LAST 

409 

33, 2257 

3 OC32 

c 


CA 

CDOX 






0 leo 

REF 

2 

LAST 

95 

33, 2260 

55*413 

1 


TS 

LCSVEC 






— - - — — 

— 
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0181 

REF 


LAST 

A 1 £ 

33t2261 

0 2493 

1 

TC 

L ST I PS 

Oi6<. 

REf 

1 



33t2a62 

3 1912 

C VALKIS 

CA 

DPIFTO 

Qiai 

R£f IX. 

LiST 

417 

33*2263 

59'Q51 


T$ 

DSPTFP2 ♦! 

0186 

ref 

S2 

LAST 

417 

33r226A 

3 4714 

1 

CA 

ZERO 

0167 

RfcF 

11 

LAST 

416 

33t2265 

55*050 

1 

TS 

DSFT EP2 

.0168 _ 


J 

LAST 


33,2266 

C 2427 

J 

TC 

SHOV4 


aies4 

HEf 2C LAST 

415 

33.2267 

...Q 544? 

A- 

ENOTESTl TC 

DQWKFLAG 

IHU 

NCT Ih 

USE 

019C 

REF 

3 

LAST 

252 

33,2270 

00007 

C 

AORES 

IPUSE 

BIT 

8 FLAG 

0 

C191 

REF 

S3 

LAST 

416 

33,2271 

4 4714 

C 

CS 

ZERO 




0192 

REF 

2 

LAST 

413 

33,2272 

C 5246 

1 

TC 

NEWHCDEX +3 




0193 

REF 

62 

LAST 

415 

33,2273 

C 4555 

c 

TC 

BANKCALL 




0194 

REF 

1 



33,2274 

16063 

c 

CACR 

MKRELEAS 




0195 

REF 

16 

LAST 

3bS 

33,2275 

C 5423 

1 

TC 

fcNDEXT 
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0199 33,2301 77616 C PVQ 




(t 


02CC 





33f 2302 

0 0006 

1 

CCiAALIGR 

EXTEND 


COARSE ALIGN SIBROUTINE 


0201 

REF 

t 

LAST 

412 

33,2303 

23*425 

C 


QXCH 

OPLACe 



020 2 _ 

Eli 


LAST 

41E 

23t2304 

3 4714 

1 


CA 

ZERO 



0203 

REF 

10 

LAST 

264 

33,2305 

55*155 

C 


TS 

THET AO 



0204 

REF 

11 

LAST 

419 

33,2306 

55*156 

0 


TS 

The TAD +1 



0205 

REF 

12 

LAST 

419 

23,220? 

52*157 

1 


TS 

THE T AC ♦2 



02Ct 

REF 

62 

LAST 

4 1 € 

33,^310 

0 ^555 

c 


TC 

BANKCALL 



0207 

REF 

3 

LAST 

415 

33,2211 

16602 

1 


CAOR 

IMUCCARS 



0208 

MI 

64 

LAS1_ 

419 

33,2312 

0 4555 

c 


TO 

bANKCALL 



0209 

REF 

6 

LAST 

296 

33,2313 

17516 

c 


CAOR 

IMUSTALL 



C210 

REF 

1 



33,23 14 

C 3104 

1 


TC 

S0HePR2 



0211 

REF 

7 

LAST 

419 

23,2315 

0 1423 

c 


TC 

OPLACE 
















d2l2 





33.2316 

0 C0C6 

1 

IRUSTLLG 

fcXTENC 




0213 

REF 

8 

LAST 

4 19 

33,2317 

23*429 

c 


QXCH 

QPLACE 



0214 

REF 

3 

LAST 

417 

33,2320 

0 2312 

c 


TC 

CGAALIGN -t-lC 
















0215 





33,2321 

0 0006 

1 

CHECKG 

EXTEND 


PIP PULSE CATCHING ROUTINE 

— - — 

0216 

REF 

9 

LAST 

419 

33,2322 

23*425 

c 


QXCH 

QPLACE 



0217 





23,2323 

0 2331 

1 


TC 

♦6 



0216 





33,2324 

0 0003 

1 

CH6CKC1 

RELINT 




0219 

REF 

2 

LAST 

166 

23,2325 

3 0067 

c 


CA 

NEWJCB 



0220 





33,2326 

C 0006 

1 


EXTEND 




0220 1 





23,2227 

6 2339 

c 


B2HF 

♦ 6 



02202 

REF 

1 



33,2330 

C 5057 

c 


TC 

CHANGl 



02203 





33,2331 

0 G0C4 

c 


INHINT 




02204 

REF 

d 

LAST 

416 

33,2332 

51*422 

1 


INDEX 

PIPI KDLX 



02205 

REF 

3 

LAST 

416 

33,2333 

4 0037 

1 


CS 

PI PAX 



022C6 

REF 

2 

LAST 

9 7 

32,2334 

55*6^5 

1 


TS 

ZEROKLX 



0224 





23,2335 

C 0004 

c 


INHINT 




0225 

REF 

3 

LAST 

419 

23,2336 

31*422 

1 


INDEX 

P IPI FCEX 



0226 

REF 

4 

LAST 

419 

23,2337 

3 0037 

c 


CA 

PIPAX 



0227 

REF 

1 



33,2340 

6 1430 

1 


AO 

STCKEPL 



0226 





33,2341 

0 C006 

1 


EXTEND 




0229 

REF 

1 



33,2342 

1 2324 

1 


6ZF 

CHECXGl 



0230 

REF 

4 

LAST 

419 

33,2343 

51*422 

1 


INDEX 

PIPI RCfX 



0231 

REF 

5 

LAST 

419 

33,2344 

3 0037 

0 


CA 

PIPAX 



0232 

REF 

a 

LAST 

417 

23,2345 

51*547 

c 


INDEX 

RLSULTCT 



0233 

REF 

. a 

LAST 

417 

33,2346 

55*502 

c 


TS 

DATAPL 



0234 

REF 

1 



33,2347 

0 4526 

1 


TC 

FINETIHE 



0235 

REF 

4 

LAST 

419 

33,2350 

5 1 • 54 7 

0 


INDEX 

R6SULTCT 



0236 

REF 

9 

LAST 

419 

23,2351 

55*503 

1 


TS 

DATAPL +1 
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0237 

REP 

ft 

L^ST 

91S 

23.2352 

51*597 

c 


INDEX 

RESOLTCT 


0236 

RfcF 

1C 

LAST 

<» 1 9 

33,2353 

23*509 

1 


LXCH 

DATAFL +2 


0239 






C 0003 



REL INT 



02^0 

REF 

10 

LAST 

919 

33,2355 

0 1925 

0 

ENOCHKG 

TC 

QPLACE 

- - 

0291 

REF 

99 

LAST 

914 

33,2356 

59 OCl 
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BY- CtCPGE SCHMICT IL 7-146 EAT. 126 

MCC NC 3 

FLNCTICNAL CESCRIfTICN 

ROJ^l 

F0342 

THIS SECTION CONSISTS CF FRELAUNCF ALIGNMENT AND GYRO DRIFT TESTS 

INTEGFATEC TOGETHER 1C SAVE MLPCS. COMPASS IS COMPLETLLY RESTART 

PFCCFEE EXCEPT FOF THE FIRST 30 SECCNCS CR SC. PERFORMANCE TESTS OF 

R03A4 

RJ3<i5 

R03^6 

THE IRIGS IS RtSTART PROOFED ENOUGH TC GIVE 75 PERCENT CCNFICENCE THAT 
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RCLTINES LiE STANCARD SYSTEM TEST LEACIN PROCEDURES. THE IN I T I AL I ZA 7 I C N 

PRCCECLRE FOP THE CRIFT TESTS IS IN THE JOC S. THE INITIALIZATION METhCD 
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CCMFCNENT ERRORS, IS CAPABLE CF OPTICAL VERIFICATION! CSM ONLY). 
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TS 

LOSVEC +1 

FOR TROUBLESHCCT INC PCSNS 2»9 VO 

U737 

REF 

23 

LAST 

929 

33, 3050 

C 6006 

1 

SETUPEKl 

TC 

I NTF FET 

CRIFT TEST OVER 

0736 





33,3051 

65395 

c 


OLCAO 

POOL 

ANGLES FROM CRIFT TEST ONLY 

0739 

REF 

1 



33,3052 

02503 

0 



ANGZ 


C79C 

REF 

1 



33,3053 

C25C7 

1 



ANGV 


0791 





33, 3059 

55525 

c 


POOL 

VOEF 



0792 

REF 

•A 

LAST 

93 1 

33,3055 

02511 

c 


ANGX 




0793 





33,3056 

?<»276 

1 

VCCMP 

VXSC 




0799 

REF 

2 

LAST 

93 I 

33,3057 

277C6 

c 


CEURGEJ 




0795 





33,3060 

795 21 

i 

MXV 

VSPl 




0796 

REF 

29 

LAST 

929 

33, 30el 

02672 

c 


X5M 




079? 

REF 

1C 

LAST 

922 

33,3062 

02760 

1 

STORE 

OGC 




0798 





33, 3063 

77776 

i 

EXIT 





0 

REF 

10 

LAST 

929 

33,3069 

C 5301 

c 

TORGINCH TC 

PhASCHNG 




0750 





33,3065 

C0005 

1 

OCT 

OOOC5 




C751 

REF 

1 



33,3066 

3 2999 

1 

CA 

OCCPL 




0752 

REF 

69 

LAST 

929 

33, 3C67 

0 9555 

0 

TC 

BANKCALL 




0753 

REF 

3 

LAST 

296 

33,3070 

17125 

1 

CTor 

ihupllSc 




0759 

REF 

5 

LAST 

92 1 

33, 3071 

C 2316 

1 

TC 

I MUSTLLG 




0 755 

REF 

7 

LAST 

932 

33,3072 

11*950 

0 

CCS 

TORQHDX 

♦ IF IN VERTICAL DRIFT TEST 



0756 

REF 

1 



33, 3073 

0 2262 

c 

tc 

VALM IS 

VERT DRIFT TEST CVEft 



0757 

REF 

29 

LAST 

932 

33,3079 

0 6006 

1 

TC 

intppet 
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0757 1 
07572 
07573 

REF 




33,3075 

7762^ 

1 

0 


CALL 


SET UP ERATE FOR 

PIP TEST CR COMPASS 

2 

LAST 

^2 5 

33,3076 

64000 


EXIT 

efthpvse 







33,3C77 

—lint 

J_ 





C756 

REf 

1 



33,3100 

0 2122 

1 


TC 

TCRGLE 

GC TC IMU2 FOR A 

PIPA TEST AND display 



























0759 

REf 

21 

LAST 

25C 

33,3iCi 

0 5537 

C 

SCKEERPR 

TC 

ALAF M 



0760 





33,3102 

C16CC 

C 


OCT 

16CC 



0761 





33,3103 

C 3106 

c 


TC 

+ 3 



0762 

REF 

22 

LAST 

^32 

33,3104 

0 5537 

c 

SQHERRZ 

TC 

ALAR F 



0763 





33,3105 

C16Ci 

1 


OCT 

led 



C76<r 

REF 

1 1 

LAST 

A32 

33,3106 

0 53C1 

c 


TC 

PHASCHNG 



Q7o5 





33, 3107 

CO 0 0 9 

1 


OCT 

0000 5 



0766 

REF 

2 

LAST 

422 

33,3110 

0 2267 

c 


TC 

ENDTESTl 

















R0767 


TRE FAPCtS MAGIC NUMBERS OF SCFHICT ARE NOW PART OF AN ERASAELE LOAD. 


0768 

33,3111 

02222 

1 

D£C5ti5 

OCT 

02222 

1170 6+14 ORDER IS NOW IMPORTANT 

C769 . 

33,3112 

coooo 

1 

SCHZEROS 

2DEC 

.OOC COOOO 


0769 

33,3113 

CQOCO 

1 





C77C 

33,3114 

coooo 

1 


2UEC 

•CCOCQOOO 


0770 

33,3115 

coocc 

1 





C771 

33,3116 

coo CO 

1 


OCT 

OOCGO 


0772 

33,3117 

coooo 

1 

GNECPP 

OCT 

COOOO 


0773 

33,3120 

CQCGl 

0 


OCT 

0000 1 

ABCVE ORDER IS IMPORTANT 

















^ ^714 ^ 

33,3121 

COOC4 

C 

INTVAL 

OCT 

4 


0775 

33,3122 

C00C2 

0 


OCT 

2 


0776 

33,3123 

C0220 

1 


CfcC 

144 


0777 

33,3124 

77776 

1 


DEC 

-1 


0778 

33,3125 

35730 

c 

SCUPLY 

20EC 

.935C5670 

INITIAL GAINS FOR PIP OUTPUTS 

0776 

33,3126 

0CO35 

1 





0779 

33,3127 

1C317 

C 


2DEC 

.26266423 

INITIAL GAINS/4 FCR ERECTION ANGLES 

0779 

33,3130 

17550 

1 





















0760 

33, 3131 

CCl 15 

1 

77DECML 

DEC 

77 


0781 

REF 4 last 43C 33,3132 

01453 

I 

ALXAX2 

GLNAOK 

ALXIS -1 


RC7a9 

CYFCCCMFA'S PCRTICNS FINISH 

THIS" LOG 


SECTION 




















07895 

REF 1 




COUNT 

33/PCl 



B0790 

IMTIALUATICN SECTION 















0791 

REF 56 LAST 416 33,3133 

3 4712 

1 

GTSCPSS 

CAF 

ONE 

CALLED ev VTT; 

C792 

REF 5 LAST 429 33,3134 

55*643 

c 


TS 

geoccmpi 

THIS IS THE LEAD TK FCR CCMPAS5. 
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07S3 PtF 1 33,3135 i 3425 1 CA 1/PIFAGT ~ 


Ci79A REF € L/S? 33,3136 55 *07^ 1 TS l/PIPACT 

0755 REF 21 LAST 29E 33,3137 3 A7C3 1 NXXiBNN CA BITS 


0756 

REF 

1 1 

LAST 

432 

33,3140 

55*412 

C 

TS 

LENGThCT 



0757 

REF 

1 



33,3141 

3 4731 

c 

CAF 

1/2SECX 

CQPPASS IS 

A .5 SEC LOOP 

0758 

REF 

3 

LIST 

427 

33,3142 

55*644 

1 

rs 

ISECKTl 



0795 

REF 

57 

LAST 

433 

33,3143 

3 4712 

1 

CAF 

ONE 



oeoQ 

REF 

1 



33,3144 

55*632 

c 

TS 

PREHTRXl 



C80C5 

REF 


LAST 

415 

33. 3145 

55*657 

c 

TS 

PERFCLAY +1 



0 8006 

REF 

se 

LAST 

426 

33,3146 

3 4714 

1 

CAF 

ZERO 



08007 

kE F 

3 

LAST 

434 

33,3147 

55 *656 

1 

TS 

PERF CLAY 



caci 





33,3150 

0 0006 

1 

EXTEND 




0602 

REF 

A 

LAST 

57 

33,3151 

3 1634 

1 

OCA 

LUNCFAZl 



0803 

REF 

1 



33,3152 

53*636 

1 

OXCH 

MLWA21 



06C31 





33,3153 

0 0006 

1 

EXTEND 




06032 

REF 


LAST 

434 

33,3154 

3 1634 

1 

OCA 

LUNCHA21 



08C33 

REF 

i 



33,3 155 

53*640 

c 

dXCH 

OLOAZPTH 



0804 

REF 


LAST 

414 

33,3156 

3 43 75 

1 

SETUPGC CA 

0FC17 



0805 

REF 

5 

LAST 

425 

33,3157 

55*655 

1 

TS 

ZERONCXl 



0806 

REF 

1 



33,3 160 

3 2446 

c 

CA 

XSMACR 



0 807 

REF 

*3 

LAST 

425 

33,3161 

0 2356 

c 

TC 

ZERO INC 



C8C8 

REF 

1 



33, >162 

0 3164 

1 

TC 

POSN 17C 



0809 

REF 

1 



33, 3163 

0 2030 

c 

TC 

GEGIPUTT 

CO TC IHU2 

FOR FURTHER INITIALIZATION 


0610 





33,3164 

0 0006 

1 

POSNITC EXTEND 


COMPASS 

PCSITICN Z OGWN.X OOHNRANGE 


0811 

REF 

13 

LAST 

422 

33.3165 

23*425 

C 

QXCH 

OPLACE 

FROM NORTH IN REVOLUTIONS ♦ CLOCKRSE 


0812 

REF 

2 

LAST 

415 

33,3166 

4 46 7 5 

c 

cs 

HALF 

ALL THIS 

TO INITIALIZE MATRIX 


0813 

REF 

2 

LAST 

52 

33,3 167 

55*705 

0 

IS 

ZSH 




0814 

REF 

25 

LAST 

432 

33,3170 

0 60C6 

1 

TC 

INTPPET 




C815 





33, >171 

41545 

c 

OLOAO 

PUSH 




0616 

REF 

2 

LAST 

434 

33,3172 

C2636 

c 


MEWA21 




0817 





33,3173 

77756 

c 

SIN 





0818 

REF 

i s 

LAST 

432 

33,3174 

C2676 

1 

STORE 

XSH 




0815 

REF 

2 

LAST 

92 

33,3175 

167C2 

c 

STCDL 

YSM ♦2 




0620 





33,3176 

77746 

1 

COS 





0821 

REF 


LAST 

434 

33,3177 

C27C4 

c 

STORE 

YSH +4 




0822 





33,3200 

77676 

c 

DCOMP 





0823 

REF 

2 6 

LAST 

434 

33,3201 

C2674 

0 

STORE 

XSH +2 




0824 





33,3202 

77776 

1 

EXIT 





0825 

REF 

14 

LAST 

434 

33,3203 

0 1425 

c 

TC 

MPLACE 





KU826 jce CCNE EVERY nERATlQN THRCUGH COHPASS PRGGRAM.SET BY TASK ALLOQP 


08266 REF 2 LAST A25 TC A30: H3 1A3* COUNT 33/PC2 

Ud27_ 33,3204 447<i3 1 ALWAYSG OLCAD* DSL* CGHPASS ANC ERECT 

0628 REF 3 L/SI 43C 33,3205 C2543 I OPIPAV +80,1 

0825 REF 2 LAST 57 33,3206 C25C5 C FILLELVI +&C,1 


QAPl REVISION ? 21 CF AGC PRCGRAM 
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L 
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0B30 





33i 3207 

926 75 

C 


OMPR 

DAD* 


0631 

g02 

REE 

1 



33f321C 

277 19 
025C5 

C 

c 



GECCCNSl 


REf 

3 

LAS1 

939 

13,3211 



FILDEIVI +0C,1 


0833 
Ge3<i 
0,8 11_ 

REF 

4 

LAST 

935 

33f 3212 

C65C3 

1 


STORE 

FlLDELVl +80,1 





33t3213 

776 13 

C 


DAO* 



-REF 

1 



33.3219 

C25C7 

1 



INTVECl ♦80,1 


0 636 

REF 

2 

L <ST 

935 

33,3215 

C65C7 

C 


STORE 

INTVECl ♦60,1 


0837 





33,3216 

92675 

c 


DMPR 

OAC* 


0636 

REF 

1 



33,3217 

277 16 

1 



GfcCCCRS2 


06 39 

REF 

5 

LAS1 

93 5 

33,3220 

02505 

c 



FlLDELVl ♦8C,1 


08^0 





33, 3221 

41^75 

1 


OMPR 

PUSH 


Q8A1 

REF 

1 



33,3222 

1533C 

c 



GE&CCNS5 


0892 





33,3223 

673C0 

c 


T1X,1 

SLOAC 


0893 

REF 

2 

LAST 

929 

33, 3229 

672C9 

c 



AIWA VSC 



REF 





33, 3225 

C2697 

c 



erectimi 


C89 5 





33,3226 

712 59 

1 


ezE 

OLOAC 


Q89t 

REF 

1 



33,3227 

67290 

c 



CCMPGS 


C897 

REF 

m 

LAST 

97 

32,323C 

C2971 

1 



THLTAM *2 


C898 





33,3231 

95925 

c 


DSU 

STAOR 


0899 

REF 


LAST 

935 

33,3232 

613C6 

c 


STCDL 

THE7AM +2 

ERECTION ONLY 

oe50_ 





33,3233 

77621 

1 


eosu 



0651 

REF 

9 

LAST 

935 

33,3239 

C2973 

c 



THLTAM +9 


0852 

REF 

5 

LAST 

93 5 

33,3235 

C297 3 

c 


STORE 

THFTAM +9 


0853 





33,3236 

7765C 

1 


GOTO 



0859 

REF 

1 



33,3237 

67262 

c 



AODI RCRF 


0855 





33,3290 

93395 

1 

COHPGS 

0LC4L 

DAO 

COMPASS 

0856 

REF 

6 

LAST 

935 

33,3291 

C296 7 

c 



THET AM 


0857 

REF 

6 

LAST 

935 

33,3292 

02975 

c 



FlLDELVl 


0856 

REF 

7 

LAST 

935 

33,3293 

16967 

c 


STOOL 

THET AM 


0859 

KEF 

7 

LAST 

935 

33,3299 

02975 

0 



F ILDELVl 


0 860 





33, 32^5 

99273 

1 


OMPR 

60SU 


C861 

REF 

1 



33,3296 

27720 

1 



GE( CCFS3 


0862 

REF 

6 

LAST 

935 

33,3297 

C2973 

c 



THLTAM +9 


0 863 

REF 

9 

LAST 

935 

33,3250 

16973 

c 


STCDl 

THET AM +9 


0869 

REF 

e 

LAST 

935 

33,3251 

C2501 

1 



FlLDELVl +9 


0665 





33, 3252 

99275 

1 


OMPR 

8DSU 


0 666 

REF 

2 

LAST 

93 5 

23,3253 

27720 

1 



GE0CCNS3 


0867 

REF 

10 

LAST 

935 

33,3259 

C2971 

1 



THET AM *2 


0868 





33,3255 

57325 

1 


POOL 

DhPR 


0869 

REF 

*3 

LAST 

935 

33,3256 

C25C3 

c 



INTVECl ^9 


0870 

REF 

1 



33,3257 

27722 

c 



CECCCFS9 


0871 





33,3260 

95921 

1 


BOSU 

STAOR 


0872 

REF 

11 

LAST 

935 

33, 3261 

753C6 

t 


STORE 

THETAM +2 


0 6 73 





33,3262 

77776 

i 

AOO incrf 

EXIT 




0879 

REF 

12 

LAST 

939 

33, 3263 

11*912 

C 

ENOGTSAL CCS 

LENGTHLT 

IS 5 SEC CvER-THE 

TIME 

TC TQRQ PLATFORM 

vJd 75 

REF 

3 

LAST 

932 

33,3269 

0 2522 

C 

TC 

S L E b n f 

NO-SET UP NEXT WAITLIST 

CALL FOR .5 SEC 

C676 

REF 

3 

LAST 

92S 

33,3265 

0 3902 

1 

TC 

CHKCCMED 




0^77 

REF 

2 

LAST 

187 

33,3266 

11*309 

c 

CCS 

LGVRC 

VES fill ARE GYROS 

BUSY 
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ue78 

REF 

9 

LAST 

935 

33t3267 

1 2523 

c 


TCP 

SLEEPIE +1 

BOST-GET then .5 SECONDS FRON NON 

0679 

ail 

26 

LAST 

939 

33.3270 

C 6Q C.6 

u. 

LAS1G1S 

It 

INTPPET 


Q86C 





33t3271 

77775 

1 


VLUAO 



caei 

HEF 

9 

LAST 

921 

33f3272 

C2650 

G 



ERCOPFl 


Ufltl2 . 

R1 F. 


LAST 

Ail . 

33.3273 

16961 

C 


STOOL 

THE TAXI 


0663 

REf 

9 

LAST 

^2 1 

33»3279 

C2993 

c 



THAPK 


068^ 

REF 

e 

LAST 

93 1 

33.3275 

C2957 

c 


STORF 

ALK 


0885 





33. 3276 

77776 

\ 


EXIT 


FREVICUS SECTION NAS FQR RESTARTS 













0686 

REF 

12 

LAST 

932 

33f 3277 

C 530 1 

c 

PESTAIER 

IC 

PHASCHNG 


0887 





33. 33CC 

CC275 

» 


OCT 

002 7 5 


0688 

REF 

2? 

LAST 

936 

33,3301 

C 60C6 

1 


TC 

INTPPFT 

AGO CCMPASS CCKNANOS INTC ERATE 

0889 





33,3302 

69375 

1 


VLOAD 

MXV 


0690 

REF 

ii 

LAST 

935 

33,33C3 

C2967 

0 



THE TAM 


0891 

REF 

27 

LAST 

43 4 

33,3309 

C26 72 

0 



XSH 


0892 





33,3305 

53372 

1 


YSLl 

VAD 


0893 

REF 


LAST 

936 

3 3 f 3 306 

02961 

c 



ThET AXl 


ca9<» 

REF 

10 

LASt 

93 6 

33,3307 

16650 

c 


STOOL 

ERCOPPl 


0895 

REF 

9 

last 

936 

33, 3310 

02957 

c 



ALK 


0896 

REF 

5 

LAST 

936 

33, 3311 

02993 

c 


STORE 

TMAPK 


0897 





33,3312 

77776 

1 


EXIT 



0898 

REF 

5 

LAST 

921 

33,3313 

0 2917 

1 


TC 

EAkThF9 

TQROOE IT ALL IN 

0899 

REF 

2 

LAST 

935 

33,3219 

31*696 

1 


CAE 

ERECT IM 


0900 

REF 

9 

LAST 

926 

33,3315 

55*631 

c 


ts 

GEOSAVEl 


0901 

REF 

12 

LAST 

93 6 

23,3316 

C 5301 

c 


TC 

PHASChNG 


0902 





23,3317 

CC155 

c 


OCT 

00155 


0903 

REF 

26 

LAST 

936 

23,3320 

0 60C6 

1 

RESIESTl 

TC 

INTPPFT 


0909 





33,3221 

77775 

1 


VLQAC 



0905 

REF 

5 

LAST 

925 

33,3322 

27113 

1 



SCHZ EPCS 


09C6 

REF 

13 

LAST 

936 

23, 3323 

C2967 

c 


STORE 

THET AM 


0907 





33,3329 

77776 

1 


EXIT 



0912 

REF 

1 



33,3325 

11*632 

c 


CCS 

PKENTBXC 


09121 

REF 

1 



33, 3326 

0 3375 

c 


TC 

NOCHCPLD 


09122 

REF 

19 

LAST 

936 

33,3327 

0 53C1 

c 


TC 

PHASCHNG 


0913 





33, 333C 

C0255 

c 


fiCT 

00255 


09131 

REF 

29 

LAST 

936 

23,3331 

0 6006 

1 

RE5TEST3 

TC 

INTPPFT 


0919 





33,3232 

17795 

1 


OLOAO 



C9192 

REF 

2 

LAST 

166 

23,3333 

C2639 

1 



LAUNCHA2 


0915 





33,3339 

53025 

c 


OSLI 

ITz? ^ 


09151 

PEf 

2 

LAST 

939 

33,3335 

C269C 

1 



OLUA 2pTH 


09152 

REF 

1 



33,3336 

67372 

c 



nOaZChGE 


09153 





33,3237 

COCCI 

c 


STORE 

00 


Q915< 





33,3390 

93335 

0 


SLOAD 

DAC 


C9155 

REF 

2 

LAST 

919 

33,3391 

27121 

0 



ONEFFP +1 


0918 

R E f 

2 

LAST 

4 3 6 

23,3392 

02633 

c 



FpehtpxG 

OCES NCT CHANCE LAUNCH Jl 

0919 

REF 


LAST 

936 

33,3393 

16633 

c 


STCDL 

PKENTPXC 


0920 

PEF 

3 

LAST 

936 

33,3399 

C2639 

1 



LAUNChAZ 


0920 1 

REF 

1 



33,3395 

16636 

c 

STOOL 

Nfc NA ZNTH 


C9202 





33,3396 

OOOOi 

0 



60 
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09203 

REF 

1 



23f 3347 

C2654 

1 

AOERCCHP 

STUPE 

ERCOPF +4 



09204 





33,3350 

77 776 

1 


FX IT 




.09205. 




434 

23,3351 

C 3164 

1 


TC 

P0SM7C 



09206 

REF 

15 

LAST 

436 

33,3352 

0 5301 

C 


TC 

PHASCFNG 



09207 





23,3353 

00335 

1 


OCT 

00335 



092JL . 





23,3354 

C CGC6 


PESCHNC 

EXTEND 




0922 

REF 

2 

LAST 

43 6 

33,3355 

3 1636 

c 


OCA 

NENA2NTH 



0923 

REF 

1 

LAST 

436 

23,3356 

53 '64C 

c 


CXCH 

OLGA 2PTH 



49231 

ref 

ii- 

LAST 

392 

33,3357 

3 4704 

c 


CA 

6177 

SPEND 320 SEC ERECTING 


09232 

REf 

13 

LAST 

435 

23,3360 

55*412 

c 


TS 

LENGTFOT 



0924 

REF 

16 

LAST 

43 T 

23,3361 

G 5301 

c 


TC 

PFiASCHNG 



092.5 





23,3362 

CC075 

c 


OCT 

0007 5 



0926 

re7 

1 



33,3363 

3 3424 

c 

SPi ICTRO 

CA 

EFCGPPPL 



0927 

REF 

7C 

LAST 

432 

33,3364 

0 4555 

c 


TC 

8ANKCALL 



0926 

REF 

4 

LAST 

432 

23,3265 

17125 

1 


CADR 

IMUPLLSF 



0929 

REF 

71 

LAST 

437 

23,3366 

0 4555 

c 


TC 

bANKCALL 



0930 

REF 

7 

LAST 

419 

23,3367 

17516 

c 


CAOR 

IHUSTALL 



0931 

REF 

2 

LAST 

419 

33,3370 

C 3104 

i 


TC 

SCNE Pf2 



09311 

REF 


LAST 

41 E 

33,3371 

C 2453 

1 


TC 

ESTIFS 

RE-IMTI AL IZE 



C932 33,3372 77776 I NCA2CHGE EXIT 

0933 REF 56 LAST 434 33,3373 3 4712 I CA ONt 

0934 REF 4 LAST 4J6 33,3374 55*632 0 TS PPEM7FXC 

0941 REF 5 LAST 436 33,3375 ll'63l C NOCHORLO CCS GECSAvEl 

0942 REF 3 LAST 436 23,3376 55*646 C TS EPfcCTiMl COUNTS DCUN FCR ERECTION 


0943 REF 1 23,3377 3 4334 1 ANNNNNN CAF NINE 

0944 REf 14 LAST 437 33,340C 55*412 C TS LENGTHCT 

09 45 REF 5 LAST 436 33,3401 0 2523 1 7C SLEEPIE ♦! 


0946 





33,3402 

C 

0004 

c 

CFKCOPEO INHINT 



094 7 

REF 

99 

LAST 

4 3 4 

23,3403 

4 

4714 

c 

CS 

2EFC 


0946 





33,3404 

G 

0006 

1 

EXTEND 



0949 

REF 


LAST 

242 

33,3405 

06 

030 

1 

HXCR 

CHAN3C 

READ AND INVERT BITS IN CHANNEL 3C 

0950 

REF 

24 

LAST 

41 ? 

23, 3406 

7 

4706 

c 

NASK 

6175 

LiFTCFF an ~~ 

0951 

REF 
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LAST 

42 £ 

33, 3407 

1C 

000 

c 

CCS 

A 


0952 

REF 

1 



33,3410 

1 

3417 

1 

TCF 

PRELTERF 

LIFTCFF HAS OCCURRED 

0953 

REF 

2 5 

LAST 

43 7 

33,3411 

3 

4706 

1 

CA 

BITS 

CHECK FUR 0ACKUP LIFTOFF 

0954 

REf 

e 

LAST 

39 1 
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7 
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c 
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REF 
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LAST 
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10 
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c 
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A 
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REF 
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LAST 
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1 
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1 
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REF 
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LAST 
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C 

C 

0 
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«£f 
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- 


33f3A23 
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1 
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REF 
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EQUALS HlOPhllF 
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REF 
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REF 
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REF 
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33,3426 
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GCOPPVER 

TC 

PHASCHNO 

OPTICAL verification ROUTINE 




33,3427 

00154 
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UCT 

00154 


C976 

REF 

4 

LAST 
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23,3430 

0 5243 

1 


TC 

NEWMCCtX 
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0977 





33,3431 
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1 


MM 

03 


09771 

REF 

1 



33,3432 

C 2037 

1 

SETN6PUS 

TC 

N8PCSPL 


0978 

ref' 

12 

LAST 

431 

33,3433 

C 4555 

C 


TC 

BANKCALL 


G979 

REF 

2 

LAST 

416 

33, 3434 
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C 


CAOR 

MKkE LEAS 
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REF 

35 

LAST 
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1 

CPTCATA 

CAP 
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23,3436 

22 007 
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2L 
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0982 

RfcF 

1 



23,3437 

22*427 

1 


LXCH 

RUN 

AZIMUTH CLCCKWSE FROM NORTH TO TARGET 

0963 

REF 

20 

LAST 
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33,3440 

55*047 

1 


TS 

OSPTEPl *Z 

ELEVATION MEASURED FROM HORIZONTAL 

C9eA 





23, 3441 

C 0006 

1 


EXTEND 



0965 

REF 
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LAST 

44 C 

23,3442 

5 1427 

1 


INDEX 

RUN 


0966 

REF 

1 



33, 3443 

3 1433 

1 


OCA 

TAZELl 


0987 

REF 

21 

LAST 

44C 

33,3444 

53*046 
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OXCH 

OSPT £P1 


0988 

REF 

1 



33, 3445 

3 3470 

1 


CAF 

VU5N3CF 


0969 

REF 

13 

LAST 

44C 

33,3446 

C 4555 

c 


TC 

BANKCALL 


0990 

REF 

1 



33, 3447 

2057 7 

c 


CADK 

&OLSFRET 


0991 

REF 

1 



33, 3450 

3 3456 

c 


CAF 

VNC6 4 1 
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REf 

14 

LAST 

440 

33,3451 

C 4555 
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BANKCALL 


09912 

REF 
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LAST 
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33,3452 

20624 

L 


CAOR 

GOFLASH 
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REF 
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TC 
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C 3445 

1 


TC 
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33,3456 
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c 
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VN 
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RfcF 
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LAST 
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33,3457 
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c 


DXCH 
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REF 
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LAST 
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1 
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REF 
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LAST 
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c 


OXCH 

TAZELl 
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REF 
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LAST 
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RUN 
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c 
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REF 
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LAST 
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REF 
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REF 
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REF 
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1 
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33,35CC 
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0 
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33, 3501 

60533 

1 

TARl 
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X2»12 S2«6 Xl*0 X2=»6 S2*6 
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LAST 

44 C 
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02436 

J_ 



TAZELl ♦S,! 
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33,3503 

boool 
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STORE 

0 

POQO 
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1024 





33,3504 

77756 

C 


SIN 




1025 
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10023 

1 


STORE 
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77745 

1 
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0 
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33,3510 

41546 

c 
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33,3511 

47133 
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SLOAD* 

RTB 
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REF 

4 

L^ST 

44 1 

33,3512 

02435 

1 



TAZELl +2,1 



1031 

REF 

4 

LAST 
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33,3513 

45510 

1 



COUIOGIC 



1032 





33,3514 
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1 


STORE 

2 

PC02 
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1033 





33,3515 

41356 

1 


SIN 

OMP 
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33,3516 

OQOCi 
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1035 





33,3517 

77752 

1 
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33,3520 
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STORE 
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c 
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72405 

c 


DMP 
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1040 





33, 3524 
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1041 





33,3525 
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STORE 
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33,3527 
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REF 
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67501 

1 



TARl 
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33,3531 




BANK 
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REF 
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LAST 
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33,3531 




8ANK 




104445 

REF 
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COUNT* 
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REF 
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LAST 
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33,3521 

3 4712 

1 
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CA 
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REF 
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LAST 
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33,3532 
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TS 

STAR CCCE 
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REF 
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LAST 

437 

33,3533 

3 4714 

1 


CA 

ZERO 



1044 6 

REF 

1 



33,3534 

G 3626 

c 


TC 

TARGCRVE 



10449 

REF 

2 1 

LAST 

44C 

33,3535 

0 60C6 

1 


TC 

INTPPET 



104492 





33,3536 

7762^ 

1 


CALL 




104494 

REF 

1 



33,3537 

67472 

1 



TAR/ BPEF 



104496 





33,3540 

64375 

1 

NEXIBNKS 

VLCAD 

MXV 



1045 





33,3541 

C0007 

c 



60 



1047 

REF 

2€ 

LAST 

436 

33,3542 

02672 

0 



XSN 



10471 





33,3543 

TfrfT 

c 


VSLl 




1048 

REF 
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LAST 

92 

T3,3544 

26T36 

1 


STOVL 

STARAD 



1049 





33,3545 

CC015 

c 



120 



1050 





33,3546 

76521 

c 


RXV 

VSLl 



1051 

REF 

29 

LAST 
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33,3547 
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XSN 



1052 

REF 
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last 
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1 
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1060 

REF 

^ L^ST 

^32 

33t3553 

024 lA 

1 

STORE 

LC'SV EC 




1061 




33,3554 

77776 

1 

EXIT 





1062- 

REf 

15 liLlT 

44C 

31x3555 

Q A5S5 

C 

TC 

&ANKCALL 



M 

1063 

REF 

3 L/5T 

44C 

33,3556 

16063 

c 

CAOR 

MKRELEAS 





1L69 

1070 

1071 

REF 

REF 

REF 

27 

A 

It 
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LAST 

LAST 

44 C 
44 1 
407 

33,3557 

3 4711 

1 

1 

C 

REXENKSS CAF 

TS 

CAF 

ThC 
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54 735 
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STARCODE 

SIX 
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REf 

2 

LAST 

4A 1 

33,3562 

0 3626 

C 

TC 

TAF&CPV6 
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REF 

32 

LAST 

4A 1 

33,3563 

0 60C6 

1 

TC 

I MPRET 

1074 





33,3564 

77624 
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CALL 



1C75 REF 2 L/Sl 1 33, 3^*45 67723 C LITUSUB 

10751 33,3566 2<t015 C STQVL 12D 
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10753 33,3570 3A0C7 1 STCALL 06D 

1075A REF 1 33,3571 <733A C AXISCEN 
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REF 
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1 
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33.3573 

33.3574 

33.3575 

47140 

17776 
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1 

1 
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REF 
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LAST 
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C 
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REF 
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LAST 
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REF 
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LAST 
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REF 
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REF 
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REF 
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REF 
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STORE 

LRCOPPl 


1067 





33,3610 
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EXIT 
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REF 
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LAST 
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c 
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REF 
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LAST 
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REF 
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REF 
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REF 
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REF 
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REF 
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LAST 
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REF 
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STOOL 
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REF 
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LAST 
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77434 

1 


RT0 
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REF 
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LAST 
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REF 
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LAST 
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LAST 
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REF 
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TC 

LANK C ALL 


1126 

REF 

1 



04,2630 
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REF 
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TC 
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REF 
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LAST 
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TC 
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TC 
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TC 
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REF 
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REF 
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LAST 
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REF 
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LAST 
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STORE 

AZIH7H 


il3A 1 





04,2644 

60535 

1 


SLOAD 
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REF 
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LAST 
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REF 
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LAST 
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BANK 
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REF 
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RQOli LCG SECriCN - P22- P35 i F72-P73 

KQC/12 HCC e> kHIE-P DATE IJUNE67 

R0013 flkf-fXlf 


rOOIA (U 10 CALCOLATE THE RECOlPEC CELIA V AND OTHER INITIAL CONOmCNS 

R00i5. PECDIKEC BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER 

R0016 PHASE (MTlATtON (TPI) MANELVER* GIVEN - 

RQQ17 (A l TIME CP IGMTICP TIG (TPIJ OR THE ELEVATION ANGLE (E> OF 

ROO10 THE ACT Ive/PASS IVE VEHICLE LOS AT TIG (TPII. 

KQilli lei central angle CE transfer (CENTANG) from tig (IPIJlJO 

Ra020 INTERCEPT TINE (TIG (TPPM. 

R0Q2i ( 21 TO CALCLLATE TIC (TPIl GIVEN E CR E GIVEN TIG (TPI), 

R0022 (3» TO CALCLLATE THESE PARAMETERS BASED UPON MANEUVER CATA 

80023 APPRCVEC ANC KE7EL INTO THE DSKY BY THE ASTRCiNAUT. 


R002A (A» TO display TC TPE ASTRCNAUT AND THE GROLJNO CERTAIN CEPENOENT 

kCC25 VARIABLES ASSQCIATEC NITH THE MANEUVER FOR APPROVAL BY THE 

R0C26 ASTRCNALT/GPOUNC. 

80027 _ (5) 1C STORE THE TPI TARGET P ARA PETfcR S FOR USE BY THE CESIREO 

R002e THRUSTING PROGRAM. 

R Q 0 2 s A i ! L M PTICN S 

PQ030 (I) LM ONLY - THIS PROGRAM IS fiASEC UPON PREVIOUS COMPLETICN CP 

R0031 THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73I. 

PQ032 1HEREF0PE - 

RQ033 _ lAI AT A SELECTED TPI TIME (NCR IN STORAGE! THE L INE CP SIGHT 

R003^ DETMEEN THE ACTIVE AND PASSIVE VEHICLES NAS SELECTEC TO BE 

H0035> A PPESCRI0EC ANGLE (E) (NCk IN STORAGE) PROM THE 

R003C HORIKNTAL PLANE CEPINEC BY THE ACTIVE VEHICLE PCSITICN. 


R0037 (BI THE TIME bETNEEN COH IGNITION AND TPI IGNITION NAS 

HOOae C0MPU1EC to be greater than lO minutes. 




n 


* 


n 


P0039 (C) THE VARIATICN CP THE ALTITUDE DIFFERENCE BETWEEN THE 

kOOAO CH6 1TS NAS MIMMUEU* 


RjO*»i (Cl THE PEBICENTER ALTITUDES CP ORBITS FOLLOWING CSI AND 

H J o •» 2 ” “ COH WERE COMPUTED TO BE GREATER THAN 35,000 M 'Tc"R XUNHaR 


AS SmiLi RiVlStOh 221 Cf ACC PRCGRAM COLOSSUS e v N*SA 2Q21111-C31 IU7 ACG. 2<iiiq68 SHQQCH .005 PAG£ ^51 


L P3^-P35i P7<i-P75 ^ OSeR'S PAGP NO. 2 £0 53 


ROO^i ORBIT CP <35 NP POP CAPTh CRBJT. 

lEl THE CSI AND CDH HANCUVERS ^lEWE ASSUPEO TC 86 PARALLH TC 

R00^5 THE PLANE OF Th£ PASSIVE VEHICLE ORBIT. HOWEVER, CR6 h 

POOA6 PUDIFICATICP CF DELTA V (LV» COPPCNENTS MAY HAVE RESULTED 

BQQ^I IN AN CUT-QF-PLANE MANEUVER. 

P004e 121 STATE VECTCP UPCATEC EY P27 APE DISALLOWED DURING ALTCHATIC 

R0Q<t9 STATE VECTOR UPCATIPG INITIATED BY P20 (SEE ASSUNPTICN lAII. 


KQ050 (3) THIS PRCGP4P MUST BE CONE OVER A TRACKING STATION FCK REAL 

hOOSL TIRE GRCUND PAR 1 1 C I P A T tO P IK CATA INPUT AND OUTPUT. CCPPLT60 

R0052 VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND. 

R00S3 THESE STORAGE CAPABILITIES APE LIHITEC ONLY TC THE PARAMETERS 

flJjgSA FOP CNE THRUSTING MANEUVER At A TIME EXCEPT FOP CLNCENTRIC 

R0055 FLIGHT PLAF MANEUVER SEGUENCES. 


R0C56 _ _ (A I THE RENCEZVCUS PADAR MAY OR MAY NOT BE USED TO UPDATE THE LM 

R0057 CB CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS 

R005B CESIRED THE RADAR WAS TURNED CN AND LOCKED ON THE CSM BY 

R Q059 P REVIOUS SELECTION CF P20. RADAR SIGHTING MARKS WILL BE MACE 

POOeO AUTOMAT ICALLY APPROXIMATELY CNCE A MINUTE WHEN ENABLED BY THE 

R0Q61 TRACK ANC UPDATE FLAGS (SEE P20I. THE RENDEZVOUS TRACKING 

R0062 MARK COUNTER IS ZERCEC BY THE SELECTION OF P20 AND AFTER EACH 

R0063 THRUSTING MANEUVER. 

KQC.G^ (51 THE iSS NEED NUT BE CN TC CCMPLETE THIS PROGRAM. 


R00o5 (61 THE CPERAUCN OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS - 


RQQ66 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS 

R0067 COING RENOeZVCUS THRUSTING MANEUVERS TO THE PROGRAM WHICH 

ROOBB CALCULATES THE MANEUVER PARAMETERS* SET AT THE START OF 

RUC69 EACH RENOEZVCUS PRE-THRLST ING PROGRAM. 

fi.0Q7Q FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HA^ 

R0C71 SELECTED THE F INAL MANEUVER COMPUTATION CYCLE. 

R QiJ 7^ EXTERNAL DELTA V FLAG - CESIGNATES THE TYPE OF STEERING 

RQ073 REQLIREC FOR EXECUTICN CF THIS MANEUVER BY THE THRUSTING 

R.OOTX PROGRAM SELECTED AFTER CCMPLETICN CF THIS PROGRAM. 


K0075 (71 CNCE THE PARAMETWPS REGUIREC FCR CCMPUTIGN OF THE MANEUVER 

P0O76 HAVE BEEN CCMPLETELV SPECIFIED, THF VALUE CF THE ACTIVE 

R0077 VEHICLE CENTRAL ANGLE CF TRANSFER IS COMPUTED AND SlOPEC. 

R0076 THIS NUMBER WILL BE AVA I LA 01 E FOR DISPLAY TO tHE ASTKCNAUT 

P0079 THRCUGH The use CF V06N52. 


ROUBO 

ROOBl 


THE ASTRCNAUT WILL CALL THIS DISPLAY TO VERIFY THAI THE 
CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN 
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RCC82 170 10 LSC DEGREE S. I F THE /SNCLE IS mITHIN THIS ZCN E THE 

R0083 4STRCNAET SHCULC REASSESS THE INPUT TARGETING PARAHETEBS BASED 

ROOe^ UPON DELTA V ANC EXPECTEC MANEUVER TIME. 


ROOeS (8) THIS PRCGPAP IS SELECTE D BY THE ASTRCN AUT BY OSKY ENTRY - 


ROOBo P3^ IF THIS VEHICLE IS ACTIVE VEHICLE. 


PJTQfiT P74 .I E T his VE MCCE IS. P. A Sil^ fc . V E HI CU* 


R0088 INFE1 


HOOeS (1) TTPI TINE OF THE TPI MANEUVER 


P00<30 

12 ) 

ELEV 

CESIREC LCS ANGLE AT TPI 



R0091 

(3 ) 

CENTANG 

CRBITAL CENTRAL ANGLE CF THE PASSIVE VEHICLE DURING 



R0092 



TRANSFER FRCP TPI 1C TIME CF INTERCEPT 









Rcosa 

CLIPL 1 











R009A 

( 1 ) 

TRKMKCNT 

number OF PARKS 



HU095 

(2) 

ITCGC 

TIME TC GO 



R0096 

(3 ) 

4MCA 

PIODLE GIMEAL ANGLE 



R0097 

H 1 

TTP I 

COMPUTED TIME OF TPI MANEUVER 



RQQ9a 


OR 




PQQ99 


ELEV 

CCMPUTEO LCS ANGLE AT TPI 



ROlOO 

(5 1 

FCSTTP 1 

PERIGEE ALTITUDE AFTER THE TPI MANEUVER 



RClOl 

U\ 

CELVTPI 

MAGNITUCE CF CELTA V AT TPI 



R0IO2 

(7 ) 

CELVTPF 

magnitude CF DELTA V AT INTERCEPT 



RC103 

(6 ) 

CVLOS 

CELTA VELCCITY AT TFl - LINE CF SIGHT 



KOIOA 

(9 1 

CELVLVC 

DELTA VELCCITY AT TPI - LOCAL VERTICAL CCCRCINATES 









R0105 

CCtiNL INK 











ROll^i 

(1 ) 

TTPI 

TIME OF THE TPI MANEUVER 



R0115 

(2 1 

TIG 

TIMt OF IHE TPI MANEUVER 



K0116 

(3 ) 

ELEV 

CESIREC LCS ANGLE AT TPI 



B0117 

} 

CENTANG 

CPyrTAU CENTRAL ANCLE CF THE PASSIVE VEHICLE DURING 



ROLie 



TRANSFER FROM TPI TC TIME OF INTERCEPT 



KU119 

(5 1 

CELVEET3 

CELTA VELCCITY AT TPI - REFERENCE CCCPOINATES 



R0120 

(E ) 

TPASS4 

T IME Of INTERCEPT 



H0121 

CCHPUN 1C AT ION TO THRUSTING PRCGRAmS 









K0122 

(1 1 

TIG 

TI«E OF THE TPI MANEUVER 



R0123 

(2 1 

PTARC 

CfFSET TARGET PCSITICN 



RQ12A 

O I 

TPASSA 

T IME OF INTERCEPT 



R0125 

) 

>CELVFLG 

RESET TC INDICATE LAMBERT (A IMPO INT I VG CCMPOTAT ICN 









R0126 

SUERGLTINES USED 










R0127 

AVFLAGA 
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R0i26 


/VFL4GP 









8012S 


VRFCCH 









RC13Q 


£UPUTfE 









R0131 


SELECTMU 









«0i32 


PPECSE7 









PJB13 3 - 


533/34. 1 









RC13<i 


4L^RP 









R0135 


EAFKCALL 









R0136 


CCFL4SF 









R0137 


GC 1CFCGH 









RQ13e 


1 IP67HET 









RC13<5 


534/25.2 









RCl^Q 


PER I iPCl 









ROlAl 


SUFIRI 











S24/3S.5 









R0U3 


VM6<i5 




















flL4A 

Rif 

1 


35.2CQC 




SETLCC 

CSI/CCH 


01A5 




35f 2000 




BANK 



0146 

REF 

5 LAST 

246 

64,1170 




EB ANK® 

subE xn 


0147 

REF 

__J 






COUNT 

35/P3474 













0146 

REF 

1 


35,2CC0 

0 3726 

1 

P34 

TC 

aVFL AGA 


014<3 

RfF 

1 


35,2001 

C 2003 

C 


TC 

P34/P74A 


0150 

REF 

1 


35,2002 

0 3741 

c 

P74 

TC 

AVFLAGP 


0151 

REF 

1 


35,2003 

0 3746 

1 

P34/P74A 

TC 

P20F IGCK 

SET LPDATFLG, TRACKFLG 

01515 

REF 

1 


35,2004 

3 3125 

1 


CAP 

V06N37 

TTPI 

0152 

REF 

1 


35,2005 

C 3114 

c 


TC 

VNPOCH 


0153 

REF 

1 


35,2006 

0 3073 

0 


TC 

DISPLAYE 

ELEV AND CEATANG 

0154 

REF 

40 LAST 

449 

35,2007 

0 6006 

1 


TC 

INTPRET 


0155 




35,2010 

71214 

c 


CLEAR 

OLO A L 


0156 

REF 

3 LAST 

47 

35,2011 

C127C 

c 



ETPIFLAG 


0157 

REF 

„ ^ l-AST 

262 

35,2012 

03663 

1 



TTPl 


0156 

REF 

16 LAST 

262 

35,2013 

17413 

1 


STLDL 

TIG 


015<! 

REF 

5 LAST 

272 

35,2014 

03744 

c 



ELEV 


0160 




35,2015 

43054 

1 


BZE 

SET 


0161 

REF 

1 


35,2016 

72020 

0 



P34/P746 


0162 

REF 

4 LAST 

453 

35,2017 

C1070 

1 



ETPIFLAG 


0163 




35,2020 

T7624 

1 

P34/P74a 

CALL 



0164 

REF 

1 


35,2021 

10716 

c 



SELECTPU 


0165 




0032 



CELELC 

EQUALS 

260 


0166 




35,2022 

43145 

0 

P34/P74C 

CL CAD 

SET 


0167 

REF 

2 LAST 

3 1 

35,2C23 

15332 

1 



ZERGYECS 


0168 

REF 

1 


35,2024 

03461 

i 



ITSWICH 


0169 




35,2025 

43014 

c 


BON 

CLtATl 


C170 

REF 

5 LAST 

452 

35,2026 

C1310 

1 



ETF 1 FLAG 


0171 

REF 

1 


35,2027 

72C31 

0 



^WCHSET 


0172 

REF 

2 LAST 

452 

35,2030 

03661 

c 



trsR icN 


0173 

REF 

1 


35,2031 

02364 

1 

SWCHSET 

STORE 

NCHTFI 


0174 




35,2032 

43345 

1 

INTLOGP 

OLCAD 

DAD 


- - - 












gap: 


0175 

0176 

0177 
0170 
C17S 
CL16Q 
0161 
0162 
0163 
016 ^ 

0165 

0166 

0167 

0168 
0169 
0190 
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REf 
REF 
RE t 
REF 

Ml 

ref 

REF. 


C 

2 

1 

X. 


LilST 

L/SST 

L/ST 


452 

452 


1 

24 


L<ST 442 


REF 

REi 

REF 

REF 

REF 


1 

12 

1C 

7 


LAST 449 
LAST 445 
LAST 445 
LAST 453 


35,2C33 

35,2C34 

35f 2036 
35f 2037 
35t2C4C 

35.2041 

35.2042 

35.2043 

35.2044 

35. 2045 

35 .2046 

35.2047 

35.2050 

35.2051 

35. 2052 


C3663 1 
C23E4 1 
34Q4I C 
53354 1 
77624 1 
72212 C 


TIPI 

NOHTPI 

STCALL TDEC l 

PPECSE7 

CALL 

S33/34.1 


77455 1 
72053 1 
0 5537 C 


QZE 


TC 


EXIT 

SKCHCLR 

ALARR 


006 11 1 
3 4743 C 
0 4555 C 


20624 0 
0 4106 1 
0 2003 C 


CCT 
CAF 
TC 
CAOR 
TC 
TC 


611 

V05NC9 

bANKCALL 


CCjFL ASH 
GOTCFCCH 
P34/ P74fl 


PROCEED 


C 2053 1 


7C 


-7 


V32 


35,2053 53014 C ShLHCLR bONLLP BON 


0192 

REF 

3 

LAST 

45 2 

35,2054 

C3601 

0 


ITSh ICH 

0193 

REF 

1 



35,2055 

72032 

C 


I NTLCCP 

0194 

REF 

6 

LAST 

453 

35*2056 

C1310 

1 


ETP IFLAG 

0195 

REF 

1 



35,2057 

72063 

1 


P34/ P74D 

C196 





35,2060 

77776 

1 

EXIT 


0197 

REF 

2 

LAST 

453 

35,2061 

0 3073 

c 

TC 

OISP LAYE 

0198 

REF 

1 



35,2062 

0 2066 

0 

TC 

P34/P74F 

0199 





35,2063 

777 76 

1 

P34/P740 EXIT 


u20Q 

REF 

2 

LAST 

453 

35,2064 

3 3125 

1 

CAF 

V06N37 

02G1 

REF 

2 

LAST 

453 

35,2065 

6 3114 

c 

TC 

VNPCCH 

0202 

REF 

51 

LAST 

453 

3 5 f 2 0 66 

0 6006 

1 

P34/P74t TC 

I NTPRET 

0203 





35*2067 

712C1 

1 

SETPD 

OLD AC 

0204 





35,2C7C 

00001 

0 


00 

0205 

REF 

2 

LAST 

123 

35,2071 

C3746 

1 


RtXl 

02G6 

REF 

1 

LAST 

432 

35,2072 

14097 

1 

STCOL 

XI 

0207 

REF 

5 

LAST 

273 

35,2073 

C3754 

1 


CEN7 ANG 

0206 





35,2074 

71«»C6 

c 

PUSH 

Cos 

0209 

REF 

2 

LAST 

93 

25,2075 

16734 

0 

STOOL 

CSTH 

0210 





35,2076 

77 756 

c 

SIN 


0211 

REF 

2 

LAST 

93 

35,2077 

26732 

c 

stovl 

SNTh 

u212 

REF 

2 

LAST 

119 

25,2100 

C3554 

c 


PPASS3 

0213 





35,2101 

77657 

c 

VSRO 


0214 





35,2102 

57176 

c 


0,2 

0215 

REF 

1 



35,2 103 

26657 

1 

STOVL 

RVEC 

0216 

REF 

2 

LAST 

119 

35,2104 

03562 

c 


VPASS3 

0217 





35,2105 

43057 

1 

VSR* 

SET 

0216 





35,21L6 

57176 

c 


0,2 

0219 

REF 

1 



25,2107 

03466 

c 


RVSU 

0220 

REF 

2 

LAST 

93 

35,2110 

36746 

1 

STCALL 

VVEC 

0221 

REF 

1 



35,2111 

24737 

I 


TIHCTHET 

0222 





35,2112 

77745 

i 

OlOao 


0223 

REF 

6 

LAST 

45 5 

35,2113 

03663 

1 


TTPI 


DISPLAY TTPI 


DISPLAY ELEV ANC CENTANG 


TTP I 
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022A 

PEF 

2 

im 

1 2C 

35f2nA 

03503 

1 

STORE 

INTI PE 

FOR 

IMTVEL 

0225 





35,2115 

77615 

C 

OAO 




0226 

RfcF 

1 



35,2116 

00037 

C 


T 

RENDEZVOUS TIRE 

Q227 

ref 

A 

last 

17C 

35,2117 

37656 

c 

STCALL 

TPASSA 

FOR 

IMTVEL 

0226 

REF 

X 



35,2120 

725iA 

c 


S3A/35.2 



fl22^_ 





35.2121 

51575 



VLCAD 

AOVAL 



0230 

REF 

A 

LAST 

17C 

35,2122 

C36A6 

c 


0ELVEET3 



0231 

REF 

A 

LAST 

273 

35,2123 

26635 

c 

STOVL 

OELVTPI 



Q2iL2 

REF 

2_ 

LIS T 

12Q 

35,212A 

C36AC 

c 


VPASSA 



0233 





35,2125 

51A51 

c 

VSU 

AbVA L 



Q23A 

REF 

3 

LAST 

12C 

35,2126 

C3620 

c 


VTPR IPE 



Q235 

JLiF_ 

A 

LAST 

273 

35.2127 

26637 

1 

STOVL 

OELVTPF 



0236 

REF 

2 

LAST 

IIS 

35,213C 

C35A0 

c 


(<ACT3 



0237 





35,2131 

A5115 

c 

PDVL 

CALL 



0236 

REF 

__i_ 

LAST 

12C 

35,2132 

03612 

1 


VIPF IPE 



023S 

REF 

1 



35,2133 

A5312 

c 


PERI APCl 



Q2A0 





35,213A 

7762A 

1 

CALL 




Q2A1 

REF 

1 



35,2135 

A5A22 

1 


SHIFTPI 



02A2 

REF 

2 

LAST 

273 

35,2136 

166A1 

c 

STCDL 

PCSTTFI 



02A3 

REF 

7 

LAST 

A5A 

35,2137 

03663 

1 


TTPl 



C2AA 

REF 

17 

LAST 

A53 

35,2 lAG 

03A13 

1 

STORE 

TIG 



02 A 5 





35,2 lAl 

77776 

1 

EX IT 




02Ab 

REF 

1 



35,21A2 

3 3127 

c 

CAF 

V06N5e 



02A7 

REF 

1 

LAST 

ASA 

35,21A3 

0 311A 

c 

TC 

VNPGCH 



02Ae 

REF 

42 

LAST 

4 5 A 

35,21AA 

0 6006 

1 

TC 

INTPRET 



02A5 





35,21A5 

7762A 

1 

CALL 




0250 

REF 

1 



35,21A6 

727A2 

c 


S3A/35.5 



C251 





35,21A7 

7762A 

1 

CALL 




0252 

REF 

1 



35, 2150 

730C5 

c 


VN16A5 



0253 





35,2151 

77650 

1 

GOTO 




025A 

REF 

1 



35,2152 

72022 

1 


P3A/P7AC 
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P0255 

REFCeZVCLS MIO-COLRSE MANEUVER FRCGRAFS (P35 

AND P75I 







RQ^5<l 

BLD NC -1 LCG SECTICN - P32-P35. P72-P75 



RG257 

MCC 0Y VHTE.P DATE IJUNE67 










PUPFCSE 









B0259 

(1) TO CALCLLATE THE RECUIHEC DELTA V 

AND OTHER 

INI T1 AL 

CONDITIONS 

PC 2 6J) 

PECUIREC BY THE ACTIVE VEHICLE FOR 

EXECUT ION 

OF THE 

NEXT 


k026l MCCCURSE CORRECTICh CF THE TRANSFER PHASE OF AN ACTIVE 


RG262 VEHICLE RENCEZVCOS. 


RC263 

RU26A 

RG265 

(2) 

TO display TO THE ASTPqNAUT ANC THE GROUND CERTAIN DEPENDENT 

VARIABLES ASSOCIATED VITH THE MANEUVER FOR APPROVAL BY THE 

- -- 


astrcnalt/grcunc. 


R'U ^ 6 6 

(31 

TC STORE THE TPP TARGET PAPAPETEPS FOR USE BY THE DESIRED 


P0267 


THRUSTING PRCGRAM. 






R0268 A< 

SLPf TICNS 




» 


R02AS 

(1 1 

THE ISS NEED NOT BE CN TC CCMFLETE THIS PROGRAM. 






H0iL7Q 

- ^JL2J_ 

STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC 


R0271 


STATE VECTCP UPDATiNG INITIATED BY P20 (SEE ASSUMPTION (31). 






m2_72^ 

(3 1 

THE PENCEZVCUS RADAR IS CN AND IS LOCKED ON THE CSM. THIS hAS 


R0273 


CONE DUPING PREVIOUS SELECT ICN CF P20. RADAR SIGHTING MARKS 


R027A 


FILL BE MADE AU TCMAT ICALLY APPROXIMATELY ONCE A MINUTE WHEN 


PQ275 


ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P201. THF 


R0276 


PENDEZVCLS TRACKING MARK CCLMER IS ZEROEC BY THE SELECTION OF 


R0277 


F20 AND AFTER EACH THRUSTING MANEUVER. 






P0278 

(A 1 

THE CPEPATICN OF THE PROGRAP UTILIZES THE FOLLOWING FLAGS - 






PQ279 


ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS 
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CA, 3C35 

CCC15 

c 



I2D 

U 




1AA8 





CA,3C36 

77752 

1 


VSL2 


L 




l^AS 





GA,3037 

!3AA5 

1 


BVSL 

UNIT 





IAA9C5 





CA,3CAC 

77656 

1 


UNIT 






U5C 





C<t,30Al 

50206 

c 


PUSH 

OCT 

LCS PROJECTED INTO HORIZONTAL 

120 



IA51 





CA,3CA2 

CCOCl 

c 



000 

PLANE 




IA52 





CAt30A3 

65552 

c 


SLl 

APCCCS 





1A53 

REF 

6 

L^ST 

275 

CA,3CAA 

26325 

1 


STCVL 

PTHL TA 

PSI» ARCCCSIU .U ) 




14 5^ 





CA,3CA5 

50235 

c 


VXV 

DOT 

A L 




IA55 





CA,3CA6 

OOOCl 

t 



000 





IA56 





tAf30A7 

712AA 

c 


8PL 

OLOAE 





IA57 

REf 

1 



CA, 3C5Q 

11095 

1 



P36T AC2 





lA5e 

REF 

1 



CA,3Q51 

11A6A 

1 



LODPFAX 




’ll 

1A5S 





CA,3C52 

77625 

c 


OSU 






1A6C 

REF 

7 

LAST 

AS3 

CA.3C53 

C2325 

1 



RTHE TA 





IA61 

REF 

6 

LAST 

A93 

0A,3C5A 

02325 

1 


STORE 

RTHETA 





lAt2 





CA,3C55 

A71A5 

1 

R36TAG2 

OLCAD 

RTb 





IA63 





€4 f 3 C 56 

00037 

c 



3 00 





1 A tA 

REF 

2 

L/ST 

Ail 

CA,3G57 

A55A1 

( 



SGNAGREF 





1A65 

REF 

e 

LAST 

A92 

CA, 3C60 

C1U52 

1 


STCRE 

DSPT tPX 





IA66 





CA,3C6l 

77776 

1 


EXIT 






IA67 

REF 

1 



0A,3C62 

3 3102 

1 


CAP 

VC6N90N 

DISPLAY Y , YOCT , AND PST 




lA6a 

REF 

SA 

LAST 

A92 

CA,3C63 

0 A555 

c 


TC 

BANKCALL 




0 

IA6S 

REF 

■3 

LAST 

A92 

C A , 3 C6A 

20A69 

1 


CAOR 

GCMAPKF 





IA70 

REF 

20 

LAST 

A92 

CA,3C65 

1 5A23 

c 


TCP 

ENDEXT 

TERMINATE 




1A71 

REF 

21 

LAST 

A93 

CA,3C66 

1 5A23 

c 


TCP 

ENDEXT 

PROCEED , END OF PROGRAM 



' - 0 

IA72 

REF 

2 

LAST 

25 9 

CA,3067 

1 2751 

1 


TCP 

R36 +3 

redisplay cltput 



H 

Ia73 

REF 

56 

LAST 

AAC 

CA,307t 

56 OCl 

c 

LREGCHK 

XCH 

L 




1 

IA7A 





CA,3C71 

0 0006 

1 


EXTEND 






l A li _ 

REF 

1 



OA, 3072 

1 3075 

1 


BZP 

ENTT IH2 

L-R6G ZERO ,SET TIME « PRESENT TIME 



l^t 76 

REF 

f 7 

LAST 

A93 

CA,3C73 

56 COl 

0 


XCH 

L 

L-REG NON ZERO, TIME =» ASTRO INPUT TIME 



1A77 

REF 

1 



CA,307A 

1 2762 

1 


TCP 

ASTRCTIF 





lA7e 

REF 

5C 

LAST 

A92 

CA,3G75 

C 60C6 

1 

ENTT IN2 

TC 

INTPRET 





1A79 





CA,3C76 

5203A 

1 


RTB 

GCTC 





1A60 

REF 

A 

LAST 

A5E 

CA, 3077 

A5505 

c 



LOAC T IPE 





1A61 

REF 

1 



CA, 3 ICC 

1C766 

1 



A36I NT 





IA82 





(JA,3 101 

C1A20 

c 

VG6N16N 

VN 

0061 6 





1A83 





CA, 3102 

01532 

1 

VC6R90N 

VN 

0C6 9C 
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BANK 


» 


3004 

RiF 

1 








COUNT* 
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3004 1 

REF 

1 



35,3150 

3 

4752 

C 

R310ALL 

CAF 

PR 1C3 





— — — — - — — - 

30a42 

PiF 

17 

1 Mi 1 


35,3151 

0 

5042 

1 


TC 

F INDVAC 






30042 

REF 

12 

LAST 

47 1 

E4, 1770 





EBANK* 

SUBEXn 






30044 

REf 

2 

LAST 

32 

35,3152 


C32CA 

1 


2CA0R 

V83C ALL 






30044 





35,3153 


72064 

0 









300A5 

REF 

3 

LAST 

47 1 

25,3154 

3 

4734 

0 

CSPC6LAV 

CAF 

ISEC 






30046 

REF 

S* 

LAST 

492 

35,3155 

0 

^55 5 

c 


TC 

BANKCALL 






30047 

REF 

** 

LAST 

471 

35,3156 


01730 

1 


CAOR 

DELA VJCfc 






3004E 

REF 

9 

LAST 

230 

35,3157 

3 

1044 

0 


CA 

EXTVEACT 






3004E5 

REF 

21 

LAST 

382 

35, 3160 

7 

4 6 7 7 

1 


RASK 

8IT12 ^ 






3CC4S 





35,3161 

0 

0006 

1 


EXTEND 







3CC4S5 

REF 

1 



35,3162 

i 

3154 

c 


0ZF 

DSPDELAY 





- — ' 

3005 

REF 


LAST 

259 

35.3163 

3 

0105 

c 

0ISPN5X 

CA 

FLAGWP09 

TEST 

R3IFLAG (IN SUNDANCE 

R31FLAG 

h 1 L L 

30051 

REF 

23 

LASl 

37 6 

3 5 f 3 1 6 ^ 

7 

4707 

1 


HASK 

1 1 14 


A LBA V S 

BE SET AS R34 

DOES NOT 

exisTi 

300515 





35,3165 

0 

0006 

1 


EXTENU 







30052 





35,3166 

1 

3171 

1 


BZF 

♦ 3 






30053 

REf 

1 



35,3167 

3 

3310 

c 


CAF 

V 16h 5^ 

R3l 

USE 

NOUN 54 



30054 





35,3170 

0 

3172 

0 


TC 

*2 






30055 

REf 




35,3171 

3 

33U 

1 


CAF 

V16N 53 

R34 

USE 

NOUN 53 



3006 

REF 

96 

LAST 

^94 

35,3172 

0 

4555 

0 


TC 

BANKCALL 






30C7 

REf 

4 

LAST 

49 2 

25,3173 


20465 

1 


CAC« 

GCNARKF 






3008 

REF 

1 



35,3174 

0 

5514 

1 


TC 

eSOFF 






3009 

REF 


LAST 

494 

35,3175 

C 

5514 

1 


TC 

B5aFF 






3010 

REF 

1 



35,3176 

1 

3163 

1 


TCF 

DiSPNSX 







3014 REF 51 LAST 493 35,3177 C 60C6 1 

3015 35,32CC 17o24 1 

3016 REf 1 35,3201 73426 C 

3017 35,3202 77650 1 

3Cie REF 1 35,3203 73207 C 

301S REF 52 LAST 494 35,3504 0 6006 1 

302C 35,3205 7l624 1 

3021 REF 1 35,3206 13312 0 STATEXIP ExTBAPCLATE STATE VECTORS 

3022 35,3207 52375 I COHPCISP VLGAC VSU 

3023 REF 9 LAST 492 35,3210 COCCI 0 

3024 REF 3 LAST 0E 35,3211 02327 0 

3 02 5 _ _ 35,3212 514C6 1 

3029 REF 10 LAST 492 35,3213 02321 0 

3U3L 35,3214 773CI C 

3031 R EF 5 LAST 47S 35,3215 CC047 1 

30315 35,3216 77762 1 VSRl 

3032 35,3217 53457 1 VSl* UNIT 


PUSH 

RONL 

ABVA L 

RATT-ROnE TC CD 

PO- 6 

STORE 

K iiKC fc 

meters 0-29 


NORM 

VLOAr. 




XI 
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ve3 


TC 

CALL 


INTPRET 
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GOTO 


P 
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3033 





25,3220 

20201 

C 


0,1 



303A 





35, 3221 

523 15 

1 

POVL 

VSU 

UNIT (LCS ) TC 00 

PO- 6 

3035 

Hit 


X §. S.T 

492 

35. 3222 

. 0QQ07 

X 


VATT 



3036 

REF 

2 

LAST 

86 

35,3223 

C2335 

C 


VINE 



3037 





35, 3224 

77641 

1 

DOT 


(VATT-VONE) .UMT( LOS» 

PD« 0 

3.C39 





25,3225 

77752 

1 

SLl 




3a<»o 

REF 

6 

LAST 

492 

35,3226 

36323 

c 

stcall 

RPAT E 

RANGE RATE N/CS B-7 


30A1 

REF 

1 



35,3227 

47432 

1 


CDUTRIG 

TO INITIALIZE FfR •N0SF* 


30A11 





35,3230 

77624 

1 

CALL 




30<tl2 

REF 

1 



25,3231 

62CCQ 

0 


R34LCS 

NCTE. POL RUST > 0. 


3042 





35,3232 

53575 

C R34ANG 

VLOAD 

UNIT 



3043 

REF 

9 

LAST 

494 

35,3233 

02327 

C 


RONE 



3044 





35,3234 

77715 

1 

POVL 


UR TO 00 

P0« 6 

3045 

REF 

1 



35,3235 

1 5330 

C 


THISAXIS 

UMTX FOR CN, UMT2 FOP L“ 







35.3236 

772 14 

0 

BON 

VLOAC 

CHK R31FLAG. 0N«R3l THETA, 

aFF»P34 PHI 

30454 

REF 

1 



25, 3237 

C4713 

C 


R31F LAG 



30455 





25, 3240 

73242 

1 


♦ 2 

R31-TRETA 


30456 





25.3241 

00015 

c 


120 



3045 6 





35,3242 

77624 

1 

CALL 




3046 

REF 

1 



35,3243 

47601 

C 


♦NBSR* 



3047 





35. 3244 

415CS 

1 

VXH 

PUSH 

UXQRZ TO 6C 

P0*120 

3048 

REF 

4 

LAST 

46 3 

35, 3245 

01736 

1 


REFSFFAT 



3049 





35,3246 

72431 

1 

VPROJ 

VSL2 



3050 





35,3247 

CCCOl 

c 


oc 



3051 





35, 3250 

53445 

1 

bVSU 

UNIT 



3052 





35,3251 

COC07 

c 


60 



3053 





35, 3252 

47315 

C 

POVL 

VXV 

UP/2 TO 120 

po-ieo 

3054 

REF 


LAST 

495 

35,3253 

0 2327 

c 


RONE 



3055 

REF 

2 

LAST 

495 

35,3254 

02335 

C 


VCNE 



3056 





35. 3253 

47256 

c 

UNIT 

VXV 



3L57 

REF 

6 

LAST 

49 5 

35,3256 

0232^ 

c 


KCNE 



3056 





35, 3257 

63241 

c 

OOT 

POVL 

SIGN TO 12C, UP/2 TO NFAC 

po*iao 

3C5S 





35, 3260 

0OC15 

c 


120 



3060 





35,3261 

50372 

1 

VSLl 

OCT 

u p . uTcrI 


3061 





35,3262 

CC0C7 

0 


60 



3062 





35,3263 

72565 

1 

SIGN 

SLl 



3063 





35,3264 

OOCIS 

c 


120 



3064 





25,3265 

77726 

1 

ACQS 




3065 

REF 

S 

LAST 

492 

35.3266 

26325 

1 

STOVL 

R TH E T A 



3066 

REF 

7 

LAST 

495 

35,3267 

C2327 

c 


RONE 



3067 





35,3270 

5K41 

c 

DOT 

8PL 



3066 





35, 3271 

00007 

c 


60 



3069 





35,3272 

73277 

1 





3070 





35, 3273 

44345 

c 

OLOAD 

BOSU 

IF UX0H2.R NEG, RTHETA - 1 

- RTHFTA 

3071 

REF 

1C 

LAST 

49 5 

35,3274 

02325 

1 


R T H E T A 



3072 

REF 

c 

1^ 

LAST 

467 

35,3275 

15340 

1 


OPPC SFAX 



30 73 

REF 

11 

LAST 

49 S 

35,3276 

02325 

1 

STORE 

R THETA 

RTH6TA BETWEEN C AND I REV. 


3074 





35,327? 

77776 

1 

EXIT 




3075 

REF 

it 

LAST 

43l 

35,3300 

3 4706 

1 

Taf 

irms 

hAT/'E" w E ■ TE'B K ATTS WTFTD 


3075 1 

REF 

1C 

LAST 

494 

25,3301 

7 104h 

1 

HASk 

EXTVBACT 
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3076 

3C77 

REF 

22 

L4ST 

A93 

35, 32C2 
25, 33C3 

C OOC6 

1 5A23 

1 

C 


EXTEND 

QZF 

ENDE XT 

YES, CIE 

3076 

REF 

11 

LAST 

^9 3_ 

15, 33CA 

9 10A9 

1 


CS 

tXTVeACT 


3079 

REF 

22 

LAST 

49A 

25, 33C5 

7 9677 

1 


RASK 

BIT12 


3u6Q 

R£f 

12 

LAST 

^96 

35.3306 

27*099 

1 


AOS 

t XTV BAC7 


3Q8C5 

REF 

1 



35,3307 

1 317? 

1 


TCF 

V83 

_ _ 

3061 





35.331C 

C66 

c 

V16N59 

VN 

1659 


3062 





35,3311 

09065 

c 

V16N53 

VN 

1653 
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3093 





35,3312 

97020 

C 

STATEXTP 

STQ 

P T[- 


3C9A 

REF 

X 



35, 3313 

02279 

1 



STATEXIT 


3095 

REF 


LAST 

993 

35,3319 

95505 

C 



loactime 


3096 

REF 

11 

LAST 

992 

35,3315 

39091 

C 


STCALL 

TDEC 1 


3i>9 7 

REF 


LAST 

992 

35,3216 

27036 

i 



OTHPPEC 

GET BASE VECTORS 

3090 





35,3317 

7?7?5 

1 


VLCAO 



3099 

REF 

2 

LAST 

9BC 

35,3320 

00017 

1 



RATT 1 


3ICC 

PEF 

1 



25,3321 

26225 

c 


STCVL 

basectp 

OTHER POS. 

3101 

REF 

2 

LAST 

^8C 

35,3322 

00025 

c 



VATT 1 


3iC2 

REF 

1 



25,3323 

16291 

1 


STOOL 

bASeCTV 

OTHER VEL. 

3 103 

REF 

9 

LAST 

<*9 2 

35,3329 

00015 

c 



TAT 


3lt9 

REF 

1 



35, 3325 

C2272 

1 


STORE 

BASETIME 


3105 

REF 

12 

LAST 

497 

25,3326 

39091 

c 


STCALL 

TDECl 


3106 

REF 

3 

LAST 

992 

35,3327 

27022 

1 



THISFREC 


3107 





25,3330 

77775 

! 


VLGAD 



3100 

REF 

3 

LAST 

997 

35,3331 

00017 

1 



R ATT 1 


3109 

REF 

1 



35,3332 

26255 

1 


STOVL 

EASETHP 

THIS PCS. 

3110 

REF 

3 

LAST 

997 

35,3333 

00025 

0 



VATT 1 


3111 

REF 

1 



35,3239 

C2263 

1 


STORE 

BASE THV 

THIS VEL 

3112 





35,3335 

97019 

1 

HAVEBASE 

BON 

RTfa 


3113 

REF 

i 



35,3336 

C3711 

c 



V37F LAG 


3119 

REF 

1 



35,333? 

7 391 3 

C 



CFTRVN 

IF AVC OH ,GET RN ETC. 

3115 

REF 

6 

LAST 

99? 

35,3390 

95505 

c 



LOADTIME 


3116 

REF 

12 

LAST 

99? 

25,3391 

39091 

( 


STCALL 

TDECl 

BEGIN SET UP FOR CCNIC EXTRAP. FOP THIS. 

3117 

REF 

e 

LAST 

979 

35,3392 

27371 

1 



1 NT STALL 


3110 





55,3393 

93175 

c 


VLCAO 

CLEAR 


3119 

KEF 

2 

LAST 

99? 

35,3399 

02255 

1 



BASE THF 


312C 

REF 


LIST 

979 

35,3395~ 

CC263 

c 



MCCMFIAC 


3121 

REF 

6 

LAST 

90C 

35,3396 

25535 

c 


STdVL 

RCV 


3122 

REF 


LAST 

997 

35,339? 

C2263 

1 



BASETHV 


3123 

REF 

6 

LAST 

90C 

35,3350 

15593 

1 


STOOL 

VCV 


3129 

REF 

2 

LAST 

99l 

35,3351 

02272 

1 



BASE time 


3125 





35,3352 

93019 

c 


BOF 

SET 

GET APPROPRIATE HCOHFLAG SETTING 

3126 

REF 

9 

LAST 

259 

35,3353 

09 3 9 3 

1 



HCONThlS 


3127 





25, 3359 

73356 

c 



4-2 


3120 

REF 

6 

LAST 

997 

35,3355 

CC063 

i 



MOONFLAG 


3129 





35,3356 

7 76 19 

1 


SET 



3130 

REF 

9 

LAST 

93 C 

35,335? 

C1973 

c 



INTYPFLG 

CCNIC EXTRAP. 

3131 

REF 

6 

LAST 

90C 

35,3360 

35517 

1 


STCALL 

TET 


3132 

REF 

3 

LAST 

9ec 

35,3361 

27066 

1 
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3133 





25,3362 

77775 

1 


VLGAO 





3134 

REf 

10 

L«ST 

494 

25,3363 

OQOGl 

c 



RATT 




3135 

3136 

REF 

8 LIS1 

495 

35.3364 

26327 

c 


STOVL 

RONE 




Rtf 

7 

LAST 

495 

35,3365 

C00C7 

c 



VATT 




3137 

REF 

4 

LAST 

495 

35,3366 

36335 

1 


STCALL 

VONE 

GET 

SET FCR CCNIC EXTRAP., 

OTHER. 

3136 

REF 

9 

LAST 

49 7 

35,3367 

2737 1 

i 



I NTSTALL 




3139 





35,3370 

7 1214 

0 


SET 

OLDAC 




3140 

REF 

G, 

LAST 

497 

35,3371 

C1473 

c 



INTVFFLG 




3141 

REF 

•0 

LAST 

497 

35,3372 

COOIS 

c 



TAT 




3142 

REF 

14 

LAST 

497 

35,3373 

0004 1 

1 

CTHINT 

STORE 

TOECl 




3143 





35,3374 

43175 

c 


VLOAD 

CLEAR 




3144 

REF 

2 

LAST 

497 

35,3375 

C2225 

c 



BASECTP 




3145 

REF 

7 

LIST 

497 

35,3376 

00263 

c 



MOCNFLAG 




3146 

REF 

7 

LAST 

497 

35,3377 

25535 

c 


STOVL 

RCV 




3141 

REF 

2 

LAST 

497 

35,34CC 

C2241 

1 



BASECTV 




3148 

REF 

7 

LAST 

49 7 

35,3401 

15 54 3 

1 


STOOL 

VCV 




3149 

REF 


LAST 

497 

35,34C2 

C2272 

1 



BASE IlNf 




315G 

3151 





35,3403 

43014 

c 


UOF 

SET 




REF 


LAST 

497 

35,3404 

C4343 

1 



HCONTHIS 




3152 





35,3405 

734C7 

c 



+2 




3153 

REF 

8 

LAST 

49 E 

35,3406 

00063 

1 



MOCNFLAG 




3154 

REF 

7 

LIST 

49? 

35,3407 

35517 

1 


STCALL 

TET 




3155 

REF 

4 

LAST 

497 

35,3410 

27066 

1 



INTEGRVS 




3156 





35,3411 

77650 

1 


GOTO 





3157 

REF 

2 

LAST 

4 9 7 

35,3412 

C2274 

1 



STAT EXIT 

■ THIS 

VEHrCLES PCS.fVEL. IN 

PuShlIST. 

3158 





25,3413 

77775 

1 

GETRVN 

VLOAD 





3159 

REF 

c; 

LAST 

282 

35,3414 

01171 

1 



h N 




316C 

REF 

s 

LAST 

491 

35, 3415 

26327 

c 


STOVL 

RCNE 




3161 

REF 

5 

LAST 

282 

35,3416 

0117 7 

1 



VN 




3162 

REF 

5 

LIST 

49E 

35,3417 

16335 

c 


STOOL 

VCNE 




3163 

REF 

4 

LAST 

262 

35,3420 

01205 

1 



P IPT IMf 




3164 





35,3421 

77624 

1 


Cal l 





3165 

REF 

K 

LAST 

498 

35,3422 

273 71 

1 



INTSTALL 




3166 





35,3423 

52014 

c 


CLEAR 

GCTC 

PREC 

EXTRAP FCR OTHER 


3167 

REF 

6 

LAST 

498 

35,3424 

CU73 

1 



INT7PFLG 


3168 

REF 

1 



35,3425 

73373 

1 



CITHI NT 




316S 





35,3426 

52020 

1 

RECCEJiTP 

STQ 

GOTO 




31 7ij 

REF 

3 

LAST 

49E 

35,3427 

02274 

1 



STATEXIT 




3171 

REF 

1 



25,343C 

73335 

t 


setloc 

HAVEEASE 




3172 

REF 

1 



31,2000 




R34 




3173 





31,2CCQ 




BANK 





3174 





31,2000 

77776 

1 

R34LCS 

EXIT 





3175 

REF 

8 

LAST 

275 

31,2001 

3 0036 

1 


CA 

COLS 




3176 

REF 

2 

LAST 

25 6 

31,2002 

5C 120 

1 


IndEx 

fixlcc 




3177 





31, 2dC3 

54 011 

c 


TS 

9 0 




3178 

REF 

7 

LAST 

275 

3i,2CC4 

3 0035 

1 


Ca 

CDUT 




3179 

REF 

3 

LAST 

496 

31, 2005 

5C 120 

1 


INDEX 

PtXLCC ^ 




3iec 





31,2006 

54 013 

1 


TS 

1 ID 





6 


uAP 


SiilLaLl 


PROGRAM 



P21 


— - - 


— 




- 

3161 

REF 

A 

LAST 

A9{ 

31,2007 

3 

0120 1 

CA 

FI XlCC 

3162 

REF 

17 

LAST 

442 

31,2010 

6 

6211 C 

■* 

AO 

SIX 


1: n AL6, 2^,1966 SRQOCH ,005 PAGE <t99 


3165 
3 let 
3187 
3168 


USER’S PAGE NO. 


EO S3 


J±61__ 



31t2Cll 4_QQQ Q 

J 

COM . __ 

3164 

REF 

5 LAST 499 

31,2012 5C 120 

1 

INDEX FlXLCC 


REF t LAST 49^ 3 1«2Q13 

LAS J ^9 ^ 

21,2015 
31,2Cie 


5^ 0^6 1 
C 6Q06 1 


TS 

TC 


X 1 

INTPRET 


PEf 


2 LAST 4<t5 


1762 ^ 1 
A600C C 


CALL 


SXTNB 


3169 


31.201? 

34Q15 

1 

STCALL 12D 



3190 

REF 1 

31,2020 

73232 

C 

R34ARG 




ACC PKCGBAM COLCSSLS BY NASA 2U2LI 1 1-C31 1:1? AUG. 2AtlS68 SMOOCH .QOS PACE 900 

USEk'S PAGE NO. 1 EO S3 


P500C 1) PPCCPAP NAME - TARGET CELTA V PflCGPAR (P7^). 

R50C1 2) FU^C^IC^AL CESCRIPTIQN - UPON ENTR? 6? ASTRONAUT ACTiONt F7fc FLASHES DSKV REQUESTS TC THE ASTRONAUT 

TC PRCVICE VIA CSKY (1) THE CELTA V TU 9E APPLIED TC THE OTHER VEHICLE STATE VECTOR AND (?1 THE 

PlaOCS TIME (TIC) AT WHICH TFE CTHEF VEHICLE VELOCITY WAS CHANGED BY EXECLTION OF A THRUSTING MANEUVER. THE 

«5tC7 CTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIC ANC LPDATEO BY THE ADDITION OF DELTA V (DELTA V HAVING 

f; 5 C C S B LEN T R ANSFCPMEO FROM IV TC PEF CQSYS). USING INTLGPVSt ThE PROGRAM THEN INTEGRATES THE OTHER 

P5011 VEHCLE STATE VECTCP TO THE STATE VECTCP CF THIS VEHICLE, THLS INSURING THAT THE W-MATRIX AND BOTH VEHICLE 
B5UIJ STATES CCHFESPCND TC THE SAME TIME. 

S501A 3) ER ASABLE IMTIALUATION RECUIREC - NCNE. 

R5015 ^) CALLING SEQLENC6S AND EXIT MCDES - CALLEC BY ASTRONAUT RECUtST THRU 05KY V 37 E 76 E. 

R5017 EXITS BY TCF ENOCFJCB. 

psgie 5) C nPLT - other vehicle state VECTCP integrated TC tig and INCREMENTEO by CELTA V IN REF CQSYS. 

R5020 THE PLSHLIST CONTAINS THE MATRIX BY WHICH THF INPUT DELTA V MUST EE POST-MULTIPLIED TO CONVERT FROM LV 

H5022 TC RE F CCS YS. 

R502 3 6 ) CEEP IS - OTHER VEHICLE STATE VECTCP. 

R502A 7) SLEPCLTINES CALLED - tiANKCALLtOCXDSPF .CSMPPEC lOR LEMPHEL 1 , ATCPCSM (OR ATOPLEM ) , INTS TALL , I NTWAK E , PHASCHNG 

PS026 INTPRET, INTEGRVS, AND MIMRECT. 


gap: AiSlMELl 


PTE 


P5027 

8) 1 

FL/C 

LSE - 

HOC N flag ,CMCCNF LAC , 1NTYFFLG,RASFLAG 

1 , AND 

MARK C TP. 

S)02B 





30,2C0U 




BANK 

3 0 

502S 

REt 

1 



1 3 1 2 C 0 0 




SETLCC 

P76L CC 

!3G3C 





13,2036 




BANK 


!)031 

REF 

1 







COUNT* 

i5/P 76 


REF 

2C 

LAST 

467 

E7,1412 




EBANK* 

T IL 

5033 

REF 

n 

LAST 

472 

13,2C36 

0 5935 

C 

P76 

TC 

UFFL AC 

503 A ^ 

AEf 

2 

LAST 

252 

13,2C37 

CCC3 1 

C 


AOKES 

TF ACKFLC 

5035 

REF 

1 



13,2090 

3 2163 

1 


CAF 

ve t- Nfc4 

50<«0 

REF 

«7 

LAST 

494 

13,2C41 

C 4555 

C 


TC 

BANKC ALL 

50A1 

PEF 

lA 

LAST 


13,2042 

2 u 6 2 4 

0 


CAOR 

G(iFL ASH 

50A2 

REF 

1 



13,2043 

1 2155 

c 


TCF 

fcNC'P76 

50A3 





13,2044 

U 2046 

1 


TC 


50A^ 





13,2045 

C 2090 

1 


TC 

-5 

50A5 

REF 

2 

LAST 

50C 

13,2096 

3 2169 

c 


CAF 

VUtNEA ♦1 

50^6 

REF 

SE 

LAST 

50C 

13,2097 

0 9555 

c 


TC 

BANKC ALL 

50^ 1 

PEF 

1 5 

LAST 

50L 

13,2050 

20629 

c 


CADR 

GCFL ASH 

5048 

REF 

2 

LAST 

5dC 

13,2051 

1 2155 

c 


TCF 

£NCiP76 

5C49 





1 3 , 2052 

C 2059 

1 


TC 


505C 





13,2053 

C 2096 

1 


TC 

-5 

5051 

REF 

5A 

LAST 

-^99 

13,2054 

0 6006 

1 


TC 

INtPFFt 

5052 





13,2055 

77795 

1 


OLOAO 


5053 

PEF 

;i 

LAST 

5QC 

13,2056 

C39 13 

1 



T IG 

505A 

REF 

15 

LAST 

49 E 

13,2057 

39091 

c 


STCALL 

TDEC 1 

5055 

REF 

4 

LAST 

497 

13,2060 

27036 

1 



OTHPPEC 

5056 





13,2061 

53575 

c 

CCMPMAT 

VLCAO 

UNIT 

5057 

REF 

11 

LAST 

49E 

13,2062 

CCOCl 

0 



RATt 


FLASH LAST CELTA V, 

AND WAIT FCP KEYBOARD ACTION. 


PROCEED 

STORE DATA AND REPEAT FLASHING 

Flash verb 06 ngun 33 , display last tig, 

AND hAir FCP KEYDOAPD ACTION. 


RETURN TC INTERPRETIVE CODE 
SET CIMPAO-TIG IN CS6C B28 


SET TCEC1«TIG FCR ORBITAL INTEGRATION 


( 



i 




II 


I 


i 




5059 l3i2Ct^ 0C031 0 STQRt 2AD U (-R I TO 2^C 

5 Ofc c 13.2065 53A35 C VXV UNIT U (-H>XV « mvXR \ 

5C61 KtF e LiJST 496 13t2Cfc6 0000? C VATl 

5062 13,2Cfc7 C0023 C STORE 1 fcD 

506 3. , 13.2070 53A35 C VXV UNIT U(VXft)XU(-fl> » Ott RXVIXR) 

5C64 13,2071 0003 1 C Z^V 

5065 13,2072 2<.Ol5 C StCVL 1 2t> 

5066 R EF A L/ST 275 13,2073 C35<t0 C OfcLVCV ^ 

5067 13,2C7<i 765C5 C VXM VSLl V IHPAC J-OELTA V IN REFCOSYS 

SCea 13,2075 CC015 C 12D 

5 069 13,2076 77655 1 VAC ^ 

5070 REF S LAST 501 13,2077 CC0C7 C VATT 

5071 13,2100 C0QC7 C STORE 6 V(P061«VATT ♦ DELTA V 

5072 13,2101 7762^ 1 CALL PREVENT WCOLD-QE USER CF ORBITAL 

5073 REF H LAST 496 13,2102 27371 1 INTS7ALL INTEG FRQN INTERFERING WITH UPDATING 

5074 13,2103 7762^ 1 CALL 

5Q7 5 REF 1 i3,210A 26 165 1 P76SLP1 

5076 13,2105 53775 1 VLOAD VSR* 

5077 13,2106 000C7 0 6 

507 6 13,21c 7 571 76 C 0,2 

5079 REF e LAST 49t 13,2110 25543 1 STOVL VCV 

5080 REF 12 LAST 50C 13,2111 00001 0 RATT 

5081 13,2112 77657 C VSR* 


50 82 
3083 

5 0 84 

REF 

REF 

8 

22 

LAST 

LAST 

49 e 
50C 

13.2113 

13.2114 

13.2115 

57176 
15 5 3 5 
C341 3 

C 

C 

1 

STOOL 

0 ,2 

KCV 

TIC 




- — 

5085 

REF 

e 

LAST 

49 8 

13,2116 

C1517 

C 

STORE 

TET 





5U86 





13,2117 

71214 

c 

CLEAR 

OLCAC 





5087 

REF 

7 

LAST 

49 E 

13,2120 

CU73 

1 


1 NTY FFLG 





5068 

REF 

1 



13,2121 

C 1 5 7 1 

c 


UTTHS 





5009 

REF 

16 

LAST 

50C 

13,2122 

340^1 

c 

intcthis stcall 

TOEC 1 





5Q90 

REF 

i; 

LAST 

496 

13,2123 

27066 

1 


INTFGRVS 





5091 





13,2124 

77624 

1 

CALL 






•jC93 

REF 

12 

LAST 

50 1 

13,2125 

2737 1 

1 


IMSTALL 





5094 





13,2126 

77775 

1 

VLOAD 






5C95 

REF 


LAST 

49 7 

13,2127 

CC017 

1 


RATT 1 





5096 

REF 

2 

LAST 

32 

13,2130 

C15C3 

c 

STORE 

RREC 7 





5uS7 

REF 

9 

LAST 

50 1 

13,2131 

15535 

( 

STOOL 

RCV 





5C98 

REF 

6 

LAST 

496 

13,2132 

CCC15 

0 


TAT 





5099 

REF 

9 

LAST 

50 1 

13,2133 

2 5 5 1 7 

c 

stgvl 

TET 





510C 

REF 

4 

LAST 

49 7 

13,2134 

0CC25 

c 


VATTl 





51C1 





13,2135 

77624 

1 

CALL 






5102 

REF 

1 



13,2136 

23360 

c 


HIN 1 PECT 





5103 





13,2137 

77776 

1 

EXIT 






5104 

REF 

• 

LAST 

472 

13, 2 14C 

0 53C1 

c 

tc 

PHASCFNG 





5 105 





13,2141 

C4024 

( 

OCT 

04024 




- — — . 

5106 

REF 

IE 

LAST 

50C 

13,2142 

C 5435 

c 

TC 

UPFLAO 





5107 

REF 

1 



13,2143 

00236 

( 

ACRES 

REINTFLG 






I 

I 

1 

I 

i 


4 


r 
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5109 

Rfcf 

55 

IASI 

50C 

13t2MA 

C 6QC6 

1 


TC 

I NT P P E T 



5110 





12,21A5 

77629 

1 


CALL 





REF 

1 



13.21^6 

26711 

1 



ATOPCTH 



5116 





12, 2 HI 

77531 

C 


SSP 

EXIT 



5117 

REF 

9 

LAST 


13,2150 

C0053 

1 



QPRE T 



5ue 

REF 

1 



13,2151 

26159 

c 



OUT 



5119 

REF 

9 9 

LAST 

50C 

i3f2 152 

0 9555 

c 


TC 

BANKCALL 

PERMIT USE CF ORBITAL INTEGRATION 


5U0 

REF 

1 



13,2153 

27926 

1 


CAOR 

INTMAKEl 



5121 





13,215A 

77776 

1 

CUT 

EXIT 




5125 

~ REF 

IC 5 

LAST 

^9 2 

13,2155 

3 9719 

1 

eNGP76 

CAP 

ZERO 



5126 

REF 

1 



13,2156 

55*126 

1 


TS 

markctr 

CLEAR RR TRACKING MARK COUNTER 


51265 

REF 

M 

LAST 

111 

13,2157 

55*125 

1 


TS 

VHFCNT 











— 






5127 

REF 

1 1 

LAST 

295 

13,2160 

3 7 7 16 

c 


CAF 

II 



5126 

REF 

6 

LAST 

22 1 

13,2161 

5 5 * 7M 

1 


TS 

M R K 8 U F 2 -- 

INVALICATE MARK BUFFER 


5129 

REF 

12 

LAST 

4 7_A 

13,2162 

X 91C6 

c 


TCP 

COTC PCCH 

— 







m t\ mu 


K 


w 




- A 


L<« .A 
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L 

R3C 

USER'S 

PAGE NO. 1 EO 

S3 






P52C0 

SIEPCUIKE KAMEs Ve2CALL 




R520i 

MCC NC: C 

DATE : 

16 FFft 67 


H52.Q3 

MCC E\: PF EAlRNSfAIHER 

LCG section: 

R30 


P5205 

MCC NC: 1 MCO by: PR BA I»^NSFATHER DATE: U APR 67 

SR30.1 CHANGED TC ALLCP MONITOR OPFRN 

R52C/0 

MCC KC: 2 MOD BY ALCNSC DATE : 11 CEC 67 

VB82 PROGRAM 

R6PR ITTEN 


R5^_C5 5_ 

MCC KCi 3 PCD BY ACCNSC DATE: 26 PAP 68 

PROG MCO TC 

HANCLE OIF EARTH/MCON 

SCALF 

P 5210 

KEP FCKCTICKAC OESCRIPTICK: CACLEC EV VERB 82 ENTER. PRICRITY 10 




R521 1 

CSEC THRCLGHCUT. CACCLLATE AND DISPLAY CRbITAL PARAPETERS 









R5212 

1. IF AVERAGE G IS CFF: 




R5213 

FLASH DISPLAY VQ^K06, R2 IKCKATES PHICH SHIP'S STATE VECTOR IS 




R52iA 

TO BG UPDATED. IMTIAL CHOKE IS THIS SHIP (R2-n. ASTRONAUT 




R5215 

CAN CHARGE TC OTHER SHIP bY V22EXE, PHERE X KOT tt 1. 




R52 le 

SELECTED STATE VECTCP LPOATEC BY THISPREC (QTHPREC). 




A5il7 

CALLS SR30.1 (WHICH CALLS TFFCCNMU ♦ TFFRP/PAI TC CALCULATE 




R52ie 

RPER (PERIGEE RADIUS It RAPC (APOGEE RAUlUSK HPER (FEPIGEE 




R5219 

HEIGHT ABOVE LAUNCH PAD CR LUNAR LANDING SITE!, HAPC (APOGEE 




ft522C 

HEIGHT AS ABCVEIi TPER (TIPE TC PERlGEEIt TFF (TIME TC 




R522i 

INTERSECT 300 KFT ABCVE PAG OF 35KFT ABOVE LANDING SITEI. 




R5222 

FLASH MONITOR VUN-'iA (HAPCt HPERt TFHI.TFF IS -59M59S IF IT PAS 




H5223 

NOT COMFUTABLEf CTHIRPISE IT INCREMENTS ONCE PER SECCNC, 




R522A 

ASTRCNALT HAS OPTION TC PCMTOR TPER BY KEYING IN N 32 C. 




R522S 

CISPLAY IS IN HPSi IS NEGATIVE (AS pAS TFF), AND INCRERFNTS 




R5226 

CNCE PEP SECCNC ONLY IF TFF CISPLAY PAS -59M59S* 





R5227 

2. IF AVERAGE G IS ON: 




K5228 

CALLS SR30.1 APPROX EVERY TPC SECS. STATE VECTOH IS ALPAVS 




R5229 

FOR THIS VEHICLE. V82 COES NOT DISTURB STATE VECTOR. RESLLTS 




R523C 

CF SR3G.I APE RAPO, RPER, HAFC, HPER, TPER, TFF. 




P5231 

FLASH MCMTCR VIENAA (HAPG, HFER, TFF). 




K5232 

If NCCE IS Pll, THEN CALL OELRSPL SC ASTRONAUT LAN FCMTCR 




P5233 

RESLLTS 8Y N5UE. SPLASH CCMFITATICN DONE ONCE PER TPC SECS. 





^52331 ACCENCLM hAPL ANC hPEB SHCULC EE CHANGLC TG READ HAPCA AND HPERX IK THE 
P 52332 ABCVE REMARKS* 

R523A CAUI^C !E(IENCE t TeRE 62 EKUB. 


KS235 SCEPCniKEE CALLEC: 5R30.1f GCXCSPF 

f<5236 maybe - iHlSPREd t OTHPPEC, LOAOTIME, DELRSPL 

R5237 KCFPAl EXIT MCCES> TC ENCEXT 


P 5 23 6 A LARPSi KCNE 


P523S CnPU: HAPO( (-29J M 

R52 AC HFERX (-29 1 > 

H52<«1 RAPC (-2S) M EARTH 

B 52^1 1 i-2 7) M MCCK 


GJi P ; ASS U-ELl fl£V IS l Oft 237 Zf. AUC PP CGPAH. CGLLSbUS fiY NA SA 20^1Ili"C 3 I 
L RiC ’ 


lil7 AUG. 2^.196^ S»>0CCH ,OOS PAGfc 50^4 

CSER’S PAGE ISC, 2 60 S3 


H52^2 
P 22^21 
R52^3 
k52^A 
P5245 


flPER (-29) H EARTH 

(-27) P PCCN 

TPF (-28) CS CCMAINS NEGATIVE QUANTITY 

-1PER (-28) CS CCKTAIhS NEGATIVE QUANTITY 

PSP-RREC t-2S) P IF CELRSPL CALLED 


R22Ae EPASAELE IMT IAU UAT ICN RECLIREC: STATE VECTOR. 

R52<i7 CEBP lSt QFRET. RCNE. VQNE .TFF/PTMU , _h££.PP_ifTj R_PA0T£M^ _ V82EH_EL^ 

PAVeE: TSTART82« V82FLAGSf TCECl. 


52^19 

REE 

3 

LAST 

272 

69,1751 




EBANK* 

HAPCX 


5250 





31,2021 




BANK 

31 


5 251 _ 

ilE E 

1 



23.2000 




SETLOC 

R3ULCC 


5252 





23,2332 




BANK 



5253 

PEE 

1 



— — 




COUNT* 

$t/P 3C 

- - - ' - - 

525^ 

REF 

! 6 

LAST 

502 

23,2332 

G 60 C 6 

1 

Ve2CALL 

TC 

INTPPET 


5255 





23,2333 

52C14 

C 


PUN 

GOTO 


5256 

REE 

1 



23,2334 

CC716 

1 



aVECELAG 


5257 

REE 

1 



23,2335 

96566 

C 



V62GCN 

IF AVERAGE G CN 

5258 

REE 

1 



23,2336 

96337 

1 



Ve2GCFE 

IP AVERAGE G CFF 

5259 





23,2337 

777 76 

1 

V82G0fF 

EX IT 


ALLOW ASTflCNAUT TO SELECT VEHICLE 

5260 

REF 

IX 

LAST 

442 

23,2340 

3 4711 

1 


CAF 

T WC 

DESIRED FOR ORBITAL PARAMETERS 

5261 

REE 

d 

LAST 

269 

23,2341 

5 5 ' 1 3 1 

1 


TS 

UPTI CM 

CALCULATIGN AND DISPLAY. 

5262 

REF 

62 

LAST 

44 6 

23,2342 

3 4712 

1 


CAF 

ONE 


52ci 

REE 

2 

LAST 

509 

23,2 343 

55* 132 

1 


TS 

UPTICM +1 


52fcA 

REE 

1 



23,2344 

3 24C6 

1 


CAF 

OPT I CNVN 

o 

0 

1 

1 

1 

1 

5265 

REF 

ICC 

LAST 

502 

23,2345 

0 4555 

c 


TC 

BANKCALL 


52c6 

REE 

9 

LAST 

256 

23,2346 

2C465 

1 


CAOR 

GOXOSPF 


5267 

REE 

23 

LAST 

^ 9 t 

23,2347 

0 5923 

1 


TC 

ENCEXT 

TE«P INATE 

5266 





23,2350 

0 2352 

1 


TC 

*2 

PROCEED 

5269 





23,2351 

0 2394 

c 


TC 

-5 

DATA IN. OPTICNl*! * 1 FOR THIS VEHICLE. 

A527C 











UNEQ 1 FOR OTHER vFHICLP. 

5271 

REE 

2A 

LAST 

4 9 9 

23,2352 

3 97C7 

c 


CAF 

H IT4 

BO PS 

5272 

REE 

n 

LAST 

407 

23, 2353 

C 5140 

t 


TC 

WAITLIST 


5273 

REF 

A 

LAST 

273 

E4, 1793 




E B A NK ** 

TEF 


527A 

flEE 

1 



23,2359 

C253 1 

1 


2C4uR 

TICK test 


527A 

REE 

1 



23,2355 

96064 

1 





52 75 





23,2356 

C 0003 

1 


R El I N't 



5276 

REF 

1 



23,2357 

3 24 10 

c 

V82G0FLP 

CAE 

TFEBANK 

MAJOR RECYCLE LCOP ENTRY 

5277 

PEE 

19 

LAST 

432 

23,2360 

5 9 0C3 

c 


TS 

EBANK 


5276 

REE 

1C6 

LAST 

502 

23,2361 

3 9^19 

1 


CAF 

ZERO 


5279 

PEE 

3 

LAST 

B6 

23,2362 

55*792 

c 


TS 

V82F LACS 

ZERO FLAGS FOR TICKTtST. INHIBITS 

A52e0 











DECREMENTING CF TFF AND -TPER. 


52 61 PEE 5 LAST 26l 23t23e3 3 ^75<> I CTF P E 1 C 7 

5282 REE IE LAST 49A 23,236^ (3 50A2 1 TC EINDVAC 


V62GCFF1 WILL EXECUTE STATE VECTOR 



Ull±' ^ 


1 

B I.UJ: 

1 

LX CJL 



j- -B I <i.v j 


*.♦41 H u *4 • t T 1 4 V a j fT J ^ 


L 

R3L 









USER'S PAGE NO. 3 E4 S3 



5283 

REF 


LAST 

504 

£4,1743 



EeANK= 

T FF 

UPDATE and orbit CALCULATIONS FOR 


5284 

REF 

1 



^23,2365 

02411 

1 

2CADR 

V82GCFF1 

SELECTED VEHICLE ABOUT PROPER BODY. 


_b2e4 _ 

REf 

1 



23 1 2 366 

- .46064 

1 





5285 





23,2367 

C C003 

1 

RELINT 




5286 

REF 

14 

LAST 

302 

23,2370 

3 6214 

C 

V82STALL CAF 

THFE E 

STALL IN THIS LCOP AND vJiTHOLD V 16 N 44 



RtL 


LAST 

504 

23.2371 

7 1742 

( 

MASK 

Ve2F LAGS 

UNTIL STATE VECTOR UPOAIE SETS ONE OF 


52S8 

REF 

137 

LAST 

44 4 

23,2372 

1 C oco 

c 

CCS 

A 

OUR flag aiTS. 


5269 

REF 

1 



23,2372 

0 2400 

1 

TC 

FLAGGGN 

EXIT FROM STALL LCOP. 



REF 


LAST 

494 

23.2374 

3 4734 

c 

CAF 

ISEC 



5291 

REF 

U 1 

LAST 

504 

23,2375 

C 4555 

c 

TC 

BANK CALL 



5292 

REF 

4 

LAST 

494 

23,2376 

C173C 

1 

CACR 

UELAVJCe 



529.3 

REF 

L 



23.2377 

C 2 3 70 

1 

TC 

V825TALL 















5294 

REF 

1 



23,2400 

3 2407 

c 

FLAGCCN CAF 

V16N44 

MCNITCR HAFC,FPER,TFF. 


52 95 

REF 

1C2 

LAST 

505 

23,2401 

0 4555 

c 

TC 

bANK CALL 




52<}t 
5^97 
1^2 Si 
52SS 


REf 

REF 

REF 


1C L/ST 50^ 


23f2AC2 


L4ST 49-1 
L^St 505 


23, 2^03 

23,2404 


20465 1 
0 5514 1 
0 5514 1 


CADP 

TC 

TC 


GCXOSFF 
bSC'F F 
6 5 Of F 


TERM THIS TELUS TICKTEST TO KILL ITSELF 
PPCCEEC CITTC 


HEF 


1 


23,2405 0 2357 1 


TC 


V82GCFLP 


RECYCLE RECOMPUTE STATE VECT ♦ DISPLAY 


52M 

5301 

5302 


REF 


LAST 505 


23,2406 01006 C LPT ICNVN VN 


23,2407 

23,2410 


0406 


C4054 1 
C2343 I 


VN 


1644 


V16N44 
TFFBANK 6CADR TFF 


5303 

53C4 

REF 

57 

LAST 

504 

23,2411 

0 60C6 

1 

va2caFFi 

TC 

INTPPET 






23.2412 

77634 

C 


RTfl 



5305 

REF 

7 

LAST 

49 7 

23, 2413 

455C5 

C 



LCAOTIME 


5306 

REF 

17 

LAST 

101 

23,2414 

00041 

1 


STUHE 

TDECl 

TIME FOR STATE VECTOR UPDATE. 

5307 

REF 

1 



23,2415 

C2325 

1 


STORE 

TST APTe2 

TIME FCR INTERNAL USF. 

5308 





23,2416 

77776 

1 


EXIT 



5309 

REF 

A 

LAST 

504 

23,2417 

4 1132 

1 


CS 

QPTICM +1 

1 FOR THIS VEHICLE, NOT 1 FOR OTHER. 

5310 

REf 

63 

LAST 

504 

23,2420 

6 4712 

1 


AO 

ONE 


5311 





23,2421 

C 00C6 

1 


EXTEND 



5312 

REF 

1 



23,2422 

1 2446 

i 


8ZF 

THIS SHIP 


5313 

REF 

5£ 

LAST 

505 

23,2423 

0 6006 

i 

cthShip 

rc 

INTPRET 


5314 





23,2424 

77624 

1 


CALL 


CALL STATE VEC7CH UPOATE FOR OTHER SHIP. 

5315 

REf 

5 

LAST 

50 0 

23,2425 

2 7036 

1 



OTHPPEC 


5316 





23,2426 

77775 

1 

eOTHSHlP 

VLCAO 


MOVE RESULTS INTO TFFCCNIC STORAGE AREAS 

5317 

REF 

13 

LAST 

50 1 

23,2427 

COOCl 

c 



RATT 

TO BE CALLEC by SR30.1. ^ 

5318 

REF 

1C 

LAST 

49 e 

23,2430 

2632 7 

c 


STOVL 

RONE 

PATT AT (-29TM FOR EARTH CR MCON 

5321 

REF 

1C 

LAST 

50 1 

23,2431 

00007 

c 



VAtT 


5322 

REF 

6 

LAST 

49 E 

23,2432 

02335 

c 


STORE 

VONE 

vAtt AT I-IJM/CS FOR EifRtH CR HCCN"’ 

5323 





23,2433 

77743 

1 


OLOAO* 



5324 

REF 

1 



23,2434 

71321 

1 



1/KTFUE^2' 

X2 IS 0 FOR EARTH CENTERED STATE VEC 

5325 

REF 

1 



23,2435 

CC037 

c 


STOKE 

TFF/RTFU 

X2 IS 2 FCR MOCN 

5326 





23,2436 

17743 

i 


DlOao* 


AS left 8Y ThISPREC OR OTHPREC. 

5327 

REF 

1 



23, 2437 

11315 

c 



MIVP EPF, 2 


3328 

REF 

2 

LAST 

86 

23,2440 

02 3'2 1 

c 


STORE 

hrEpMIn 

TFTUTHu, HPElTFTTr AND RPADTEM ARE ALL 

5 32 9 





23, 2441 

46135 

1 


SLCA0 

BHI2 

EARTH/MOGN PAPAPETER5 AS SET HERE. 


CiiP:- 


237 CF flGC PftCGRAM COLOSSUS NASA 2C?LiIl-C31 lUI AIG* 2<nl96a SHQCCH .00? PAGE 506 



R3C 




- 

- 


- 




USER'S PAGE NO. 4 


E4 S3 


533C 

R£f 


LiST 

487 

23*2442 

QC05C 

1 



X2 








REf 

1 



23*2443 

46463 

1 



EARTFFAD 







^ j 32 





2.3il44_4 

77650 

1 


GOTO 








5333 

REF 

1 



23*2445 

46467 

C 



MOONPAO 








KEF 

i*L 

L^ST 

5Q5 

21 » 24 46 

0 6006 

1 

IHl SSHIP 

TC 

INTPPET 







5335 





23.2447 

77624 

1 


CALL 


CALL 

state vector 

UPDATE 

FOR 

THIS SHIP. 


533fc 

REF 

4 

LAST 

497 

23*2450 

27022 

1 



ThI SPREC 







5137 





23,2451 

7765C 

1 


GOTO 








5336 

REF 

1 



23*2452 

46426 

c 



BOTH SKIP 







:^2 35_ 

JJiE 

F C L L CklM. 

CONS 

TANTS ARE 

PA IPklSE 

INCEXEO. UG 

NOT SEPARATE PAIRS. 







*3 3^\J 





23, 2453 

27533 

1 

1/K TMLM 

2DEC* 

•45162595 G-4 

Bl4* 






ll <f t. ^ 





13*2454 

07571 

C 










53^1 





23,2455 

25004 

1 

1/R TMLE 

2UEC* 

.50067529 £-5 

B17* 






5 3<»1 





23,2456 

06702 

1 










51^2 





23,2457 

OCOCl 

c 

HINPERM 

20EC 

10668 e-27 

35 KRT PIN PERIGEE 

HEIGHT 

FOR 

MC0N(-27 IN 


53^2 





23, 2460 

11530 

1 










5343 





23*2461 

0CCC2 

0 

R INPEHL 

2LEC 

9I44C 8-29 

aco 

KFI (-29)P FOR 

EARTH 




5343 





23, 2462 

312 30 

1 











5344 





23,2463 

43145 

C 

E ARTHPAO 

OLOAO 

CLPGC 

PAD 37-B RADIUS. SCALED AT <-29)M. 

5345 

REF 

2 

LAST 

487 

23, 2464 

0531 1 

1 



KPAD 


53455 

REF 

1 



23,2465 

C4622 

C 



V82ERFLG 

INDICATE EARIH SCALING FCP SR3C.1 

5346 

REF 

1 



23,2466 

464 73 

C 



BOFHPAU 


5347 





23,2467 

51575 

1 

POQRPAO 

VLCAO 

ABVAL 

CCMPLTE MCCN PAC RADIUS FRCP RLS VECTOR. 

5 346 

REF 

3 

LAST 

437 

23,2470 

02026 

1 



HL S 

SCALED AT 

5149 





23.2471 

17614 

1 


StT 



53491 

REF 

2 

LAST 

506 

23,2472 

C4462 

C 



V62EPFLG 

INDICATE MCON SCALING FCR SR30.1 

5350 

REF 

2 

LAST 

88 

23,2473 

36323 

c 

BOTHPAD 

STCALL 

PPADTEP 


5352 

REF 

1 



23,2474 

4666 7 

1 



SR30 .1 

CALCULATE CRBITAL PARAPETEPS 

53521 





23,2475 

77776 

1 


EXIT 



53522 

REF 

9 

LAST 

474 

23,2476 

3 ICll 

c 


CA 

MUDR EG 

ARE RE IN PCC 

53523 





23,2477 

0 0006 

1 


Extend 



53524 

REF 

1 



23,2500 

1 2645 

c 


BZF 

CANDEL 

YES, CC OELPSPL 

53525 

REF 

60 

LAST 

506 

23,2501 

0 6006 

1 

SPLREn 

TC 

I NT P PET 


5353 





23,2502 

45234 

c 


RTB 

OSL 


5354 

REF 

e 

LAST 

505 

23,2503 

455C5 

( 



L0AC1 IPE 


3356 

REF 

2 

LAST 

505 

63,2504 

02325 

1 



T S74PT82 

PPESENT TIME - TIME vaZGOFFl BEGAN 

5357 

REF 

*1 

LAST 

506 

23,2505 

C2325 

1 


store 

T£TARTe2 

SAVE IT 

5358 





23,2506 

53145 

1 


DLOAO 

BZE 

SP30.1 SET'S -TP IF hPER If 

5359 

REF 

3 

LAST 

263 

23,25C7 

C2346 

1 



-TPER 

HPERPIN (3C0 CP 35> HPT. 

5360 

REF 

1 



23,2510 

46521 

c 



TICK TFF 

(-TPER * 0) 

5361 





23,2511 

43345 

1 

TICKTPER 

DLOAD 

DAD 

(-tPER' NON ZEPOI IFF WAS N"OT TCHT'UTPC , 

5362 

kef 

4 

LAST 

506 

23,2512 

02346 

1 



-THE R 

BUT RAS SET TC 59N59S.DGNT TICK TFF, CD 

5363 

REF 

A 

LAST 

50 6 

23,2513 

02325 

1 



TSTAPT82 

TICK -TPER. DISPLAY BOTH. 

5 3 ‘64" 

ref 

5 

LAST 

506 

23,2514 

02346 

1 


STORE 

-tPEP 

-tPEP COftRECTEC FOP TINTTINa VBronPFl 

5365 





23,2515 

77776 

1 


EX I F 


BEGAN. 


5 


L R3C 


USER'S PACE NO. 


EA S3 


5366 

P£f 

27 

L/ST 

^71. 


2 A712 

1 

CAP 

RITl 



5367 

REf 

5 

LAST 

505 

i3,25l7 

55*7^2 

C 

TS 

VB2E LACS 

INFCBVS TICKTEST TO INCREHENT ONLY -TPER 


JJtB 

R£f_ 

5fl 

LAST 

^73 

23.2520 

-0-1112 


TC 

ENOCFJCe 















536S 





23t252l 

A33<f5 

1 

ticktff uload 

OAO 

I-TPER-OI IFF ViAS CCMPL T 6C.T I CK TFF. 



_ RfcF ■ 

7 

LAST 

5Q5 

23*2522 

023^4 

J_ 


TFf 

00 NOT TICK -TPER.OISPLAY TFF, BUT NOT 


5371 

REF 

c 

LAST 

50d 

23«2S23 

C2325 

1 


TSTAPTe2 

-TPER . 


5372 

REF 

e 

LAST 

507 

23»2 52<t 

C2344 

C 

store 

TFF 

TFF CORRECTED FCR TIME SINCE V92GCFFI 


5173 





23,2525 

77776 


EXIT 


BEGAN. 


53 7A 

REF 

12 

LAST 

e 

23,2526 

3 4 711 

1 

caf 

P1T2 



5375 

REF 

6 

LAST 

t»Q7 

23,2527 

55*742 

c 

TS 

ve2F LAGS 

INFORMS TICKTEST TO INCREMENT ONLY TFF. 


53 7t 

REF 

55 

LAST 

507 

23,2530 

0 5112 

c 

TC 

ENDOFJCB 




5377 

REF 

^2J- 

LAST 

491 

23* 2 ! 2 1 

3 97C6 


TICKTEST 

CAF 

S1T5 

THIS WAITLIST PPOGRAN PERPETUATES 

ITSELF 

5378 

REF 

13 

LAST 

996 

23,2532 

7 1099 

1 


HASK 

FXTVBACT 

ONCE A SEC 

UNTIL BIT 5 OF 6XTV0ACT 

*6. 

5379 

REF 

128 

LAST 

505 

23,2533 

10 CCO 

C 


CCS 

A 




538C 

R_i.F_ 

1 



23,2539 

0 2592 

C 


TC 

OOTl CK 




5381 

REF 

1 



23,2535 

3 7662 

1 


CAF 

PRI025 




5382 

REF 

15 

LAST 

378 

23,2536 

C 5027 

1 


TC 

NOVAC 

TERMINATE 

V 82. CANT CALL ENOEXT IN 

RUPT, “ 

5383 

BEF 

1_4^ 

LAST 

50 7 

IC99 




E8ANK* 

FXTVBACT 




53 64 

REF 

44 

LAST 

509 

23,2537 

C5923 

1 


2CA0R 

ENUEXT 




536^ 





23,2590 

09062 

I 







5385 

REF 

21 

LAST 

92 6 

23*2591 

0 5213 

1 


TC 

TASKCVER 




53 6 6 

rH £ F 

5 

LAST 

505 

23,2592 

3 9739 

c 

CCT ICK 

CAF 

ISEC 

RE-REQUEST 

TICKTEST. 


5387 

REF 

18 

LAST 

504 

23,2593 

C 5190 

1 


TC 

WAITLIST 




53 6 8 

REF 

9 

LAST 

507 

89,1793 




EBANK« 

TFF 




5389 

REF 

2 

L A S f 

50 9 

23,2599 

C25J1 

1 


2CADP 

T ICKIEST 




5389 





23,2595 

96069 

1 







539C 

REF 

15 

LAST 

505 

23,2596 

3 6219 

c 


CAF 

THREE 




5391 

REF 

7 

LAS T 

5C7 

23,2597 

7 1792 

c 


MASK 

V62FLAGS 




5392 

REF 

129 

LAST 

507 

23,2550 

5C OCQ 

1 


INDEX 

A 




5393 





23,2551 

C 2552 

1 


TC 

♦ 1 




5394 

REF 

42 

LAST 

507 

23, 2552 

0 5213 

1 


1C 

TASKCVER 

IF NO FLAGBITS SET OONT CHANGE TFF 

OR 

A5395 











-TPER, euT 

CONTINUE LOOP. 


5396 

REF 

1 



23, 2553 

C 2561 

1 


TC 

TPtRTICK 

CNLY eiT 1 

SET. INCR -TPER 0Y 1 SEC. 

5397 

REF 

6 

LAST 

50 7 

23,2559 

3 9739 

c 

IFFT ICK 

CAF 

ISEC 

ONLY BIT 2 

SET. INCR TFF BY 1 SEC. 


5398 

REF 

58 

LAST 

993 

23,2555 

59 OCl 

1 


TS 

L 




5399 

REF 

IC7 

LAST 

509 

23,2556 

3 9 719 

1 


CAF 

ZERC 




5400 

REF 

1C 

LAST 

507 

23,2557 

21' 799 

c 


CAS 

TFF 




36C1 

REF 

23 

LAST 

507 

23,2560 

0 5213 

1 

iPERTtCK 

TC 

TASKCVFP 




5402 

REF 

7 

LAST 

507 

23,256 1 

3 9739 

c 

CaF 

1 SFC 




59C3 

REF 

59 

LAST 

5C7 

23,2562 

59 OCl 

1 


TS 

L 




5904 

REF 

1C8 

LAST 

507 

23,2563 

3 97 19 

1 


CAF 

2 ERL 




5905 

REF 

6 

LAST 

506 

23, 2569 

21*796 

1 


oas 

-TPF R 




5900 

REF 

29 

im 

507 

23,2565 

C 5213 

1 


TC 

TASKCVER 





£IAP: 


REVlSlOh 227 CF AGC PKCGPAM 


NASA 202UU-C3I 


i;I7 AUG, SNOOCH .00? PAGE 506 


L R3C 


USER'S PAGE NO. 6 EA S3 


5AC7 





23»2566 

77776 

1 

V82CQN 

EX IT 


AVERAGE G CN. CSE CURRENT STATE VECTOR 

A5ALe 











FOR ORBITAL PARAMETER CALCULATIONS. 

5 Ails 

RLF 

t LAST 

509 

23.2567 

3 9 7 56 

1 


CAF 

PRIC7 

LESS THAN LAMBERT 

5A10 

REF 

19 

LAST 

509 

23,2570 

C 5092 

1 


TC 

F IND VAC 

V82GCN1 hill perform ORBTT CALCULATIONS 


REF 

u 

LAST 

507 

E9, 1793 




EBANK- 

TFF 

ABOUT PROPER BOCY APPRGX ONCE PER SEC. 

5AU 

ref 

1 



23,2571 

02609 

1 


2CA0k 

Vd2CCM 


5A12 

REF 

1 



23,2572 

96069 

1 





5A13 





23,2573 

C 0003 

1 


REL INT 



j 1 1 *♦ 

MEF 

3 

LAST 

91S 

23,2579 

1C 067 

1 


CCS 

NENJCe 

WITHOLD V16 N99 UNTIL FIRST ORBIT CALC 

P *» 1 

FEF 

’ 2 

LAST 

919 

23,2575 

C 50 5 7 

C 


TC 

CHANCl 

IS OCRE. NOTE* V82G0NI (PRID7, FINDVAC 

A 5** i c 











JOB) IS CORPLETED BEFORE V82G0N IPRIG7, 

fl 1 1 1 











NCVAC JOB). 

5A17 

REF 

2 

LAST 

505 

23,2576 

3 2907 

c 

V82RECSP 

CAF 

V16N99 

MCNITCR HAPC, HP£H, TFF 

5Ai8 

PEF 

IC3 

LAST 

505 

23,2577 

0 9555 

c 


TC 

BANK CALL 


3A19 

REF 

11 

LAST 

505 

23,2600 

20965 

1 


CAOR 

GCXDSFF 


t)A20 

REF 

5 

LAST 

50! 

23,2601 

0 5519 

1 


TC 

fJ50F F 

TERM this TELLS V82G0NI TO KILL ITSELF. 

5A21 

REF 

t 

LAST 

50E 

23,2602 

0 5519 

1 


TC 

B5QFf 

PRCC DITTO. 

5A22 

REF 

1 



23,2603 

0 2576 

1 


TC 

Vt)2R ECSP 

RECYCLE 

9A23 

REF 


LAST 

506 

23,2609 

0 6006 

1 

V62CCNI 

TC 

INTPPET 

THIS EXEC PRCGRAR PERPETUATES ITSELF 

A5*f2A 











ONCE A SEC UNTIL BIT 5 OF EXTV0ACT -0. 

5A25 





23,2605 

52175 

c 


VLOAO 

GOTO 

HCLOS OFF CCS NEWJCB BETWEEN RN AND 

5AZ6 

REF 

6 

LAST 

996 

23,2606 

01171 

1 



RN 

VN FETCH SO RN , VN ARE FROM SAME 

5A27 

REF 

1 



23,2607 

96610 

1 



NEXT LINE 

state VECTOR UPDATE. 

!jA28 

REF 

11 

LAST 

505 

23,2610 

26327 

c 

NEX1L1NE 

STCVL 

RONE 

RN AT 1-25 IM FOR EARTH OR MOON 

5a29 

REF 

t 

LAST 

996 

23,2611 

Cl 177 

1 



VN 


5A3C 

REF 

7 

LAST 

505 

23,2612 

02335 

c 


STORE 

VCNL 

VN AT (-7JR/CS FOP EARTH OR MOON 

5A31 





23,2613 

52019 

c 


BON 

GOTO 


5A32 

REF 

6 

LAST 

996 

23,2619 

09303 

c 



MOONTFIS 

flag indicates BODY ABOUT WHICH GPBITAL 

SA3 '• 

REF 

1 



23,2615 

96617 

c 



MCONGCN 

CALCULATICNS ARE TO BE PERFORMED. 

5A3A 

REF 

1 



23,2616 

966 30 

c 



EART FGCN 

IF SET - RCCN , IF RESET - EARTH. 

5A3i 





23,2617 

71219 

c 

MOONGON 

SET 

CLDAD 


5A36 

REF 

3 

LAST 

506 

23, 2620 

09962 

c 



ve2£NFLC 

INDICATE MCCN SCALING FOR SR30.1 

5A36 1 

REF 

1 



23,2621 

069 54 

1 



l/R T MR 

LUNAR PARAMETERS LCAOEC HERE FOR SP30.1 

5A37 

REF 

2 

LAST 

50 5 

23,2622 

19037 

c 


stool 

T FF /PTRU 


5A3e 

REF 

1 



23,2623 

06960 

c 



MINPERR 


^A39 

REF 

3 

LAST 

505 

23,2629 

26321 

c 


StCVL 

HPER MN 


5AA1 

REF 

9 

LAST 

50 6 

23,2629 

C2026 

1 



FLS 

SCALED AT (-27 JM. 

5AA3 





23,2626 

52096 

1 


ABVAL 

GCT t 


5AAA 

REF 

1 



23,2627 

9663 7 

1 



VB2GCN2 


3AA5 





23,263C 

71219 

c 

eartkoon 

CLEAR 

DLOAC 


5AA6 

REF 

9 

LAST 

506 

23, 2631 

C9662 

I 



VOZERFIG 

INDICATE EARTF Scaling fOr sRSo.i 

5AA6 1 

REF 

2 

LAST 

505 

23, 2632 

06956 

c 



l /R true 

EARTH PARAMETERS LOADED HERE FOR SP30.1 

5AA7 

REF 

3 

LAST 

506 

23,2633 

190 i 7 

c 


STOOL 

TFF/PTRU 


9AAe 

REF 

2 

LAST 

505 

23,2639 

C6962 

1 



HINPERE 


9949 

REF 

9 

LAST 

50 6 

23,2635 

16321 

c 


STOOL 

HPERRIN 


5A5C 

REF 

3 

LAST 

506 

23,2636 

55311 

1 



W60 


5991 

REF 

3 

LAST 

506 

23,2637 

36323 

c 

V82G0N2 

STCALL 

P PADTER 

lcmMCIs COflE^FCR EARTH C HGCN. 

5953 

REF 

2 

LAST 

506 

23.2690 

96667 

1 



5R3C.i 




cap; 


L 







202llll-C3i 


B30 


U17 AUG. 24*1968 SMOOCH .QOb PAGE 309 

USErt»5 PAGE NO, 7 E^ S3 


54 54 
5^55 
5456 

REF 

5457 

KEF 

5456 

5458 L 

REF 

54582 

545S 

REF 

54 6X1 

REf 

5461 

5462 

REF 


S LAST 415 

__ _ 

iZ LAST S06 

H LAST ^ 

12 LAST 50e 
1 


23f264l 77776 1 

23,2642 C 5253 C 
23.264^ 0CC13 C 

23.2644 C 2657 1 

23.2645 0 6006 1 

23.2646 77624 1 

23.26 47 2 7371 1 

23.2650 45145 C 

23.2651 02344 C 

23.2652 64017 C 

23.2653 77776 1 


EXIT 

TC CHEt KPP 

DEC 11 

TC V02GCN3 

cancel TC INTPRET 

CALL 

INTSTALL 
OLCAO CALL 

TFF 

OELRSPL 

SPLPET EXIT 


54621 fl|F 1C LAST 506 23,2654 

54622 23,2655 

5_46 21 REF 1 23,2656 

5463 REF 26 LAST 507 23,2657 

5464 REF 15 LAST 507 23,2660 

54t_5 23, 2661 

5460 REF 25 last 5C7 23,2662 

54t8 REF 8 LAST 507 23,2663 

5409 REF IC4 LAST 508 23,2664 

54?C REF 5 last 505 23,2665 

5471 REF 2 LAST 508 23,2666 


3 1011 C CA 

0 0006 1 EXTEND 

1 25C1 C 6ZF 

3 47C6 1 V82GCN3 CAF 

7 1044 1 MASK 


C CQC6 I 

1 5423 C 
3 4734 C 
C 4555 C 
01730 1 
0 26C4 1 


EXTEND 

IIP 

CAF 

TC 

CAOR 

TC 


MQDRtG 

SPiRETl 

Cl T5 

EXT veACT 


ENDEXT 

ISEC 

BANKCALL 

DELAYJCB 

Va2CCNl 


NOT IN HOOE U. 
IN MCCE 11 CR OC 


OELRSPL DOES INTHAKE 


RETURN IS TC NEXT LINE ( S'PLRET 1. 


SEE IF ASTRONAUT HAS SIGNALLED TERMINATE 

YES, TERMINATE V8 82 LCQP ~ 

WATT ONE SECCNO BEFORE REPEATING 

ORBITAL PA'RTMETEP CONPuTTTIBnT ^ 


1:17 flLG, 2^tl9e6 S»«OOCh .005 PAG5 510 


CLA^ : ASSg»BLg REWl^lQN 237 Cf AUC PRCGPAM CQLCSSUS OY NASA 202liU-C3l 


USER'S PAGE NO. 8 E^ S3 


PS5A8 SLEPCUINE NA^'Ei SB30.1 

B55A9 ^CC NC 1 0 

8 5 5 5 1 - M_Q IL_&.V J RB EAIRNSPATHER 

R5553 KCC NC: 1 f-(QD GY: RP BAIRRSFATHEP DATE: 11 APP 67 SP30.1 CHANGED 70 ALLOW MCNITOR OPERN 

K5555 PCD NC: _2 POD tiV: BP BAiRNSFATHfcK DATE: 14 APR 67 AGO OVFL CK FOR RAPO 

R5557 PCC NC : 3 PCD BY ALCNSC DATE: 11 CEC 6? SLBPCUTINE REHRITTEN 

k55585 PCC NC: A MOO BY ALCNSC UAT£: 26 PAR 60 PROG MOD TO HANDLE OIF EARTH/HOON SCALE 

R5559 PCD NC: 5 PCD BY,: __KP BAIRNSFATHER CATE: 6 AUG 68 CVFL CK FCR HAPC C HPEP.VCID5 MOD 12. 

H 5 561 


P5562 NEB FLNC11CNAL DESCRIPTION: CRBITAL PARAPETE RS DISPLAY FC R NCLNS 32 AND 44. 

R5564 S P3C.1 CALLS TFFCCNPU AND TFFPP/RA TO CALCULATE RPER (PERIGEE RADIOS) t 

R5565 RAFC (APCGEE RAOlLSIf hPEB (PERIGEE PEIGFT ABOVE LAUNCH PAD CP LUNAR 

R5566 LAFCING SITE)* HAfC (APOGEE hEIGHT AS AECVE), TPER (TIME TC PERIGEE), 

R5567 TFf (IIPE TO INTERSE CT 300 KFT ABOVE P AL OR 35KFT ABOVE LANDING SITJ)^ 

89568 IF FPER 1$ GREATER THAN OP ECUAL TC HPERMIN, CALCULATES TPER AhC STORES 

P5569 NEGATIVE IN -TFER. OTHERklSE STORES +0 IN -TPER. WHENEVER TPER IS 

R5570 C4L CLLATEC, TFF IS NCT CCPPUTA8LE AND CEFAULTS TQ -59M1N 59SEC.. IF HAPC 

R5571 vicULC EXCEED 9999.9 NM, IT IS LIMITED TC THAT VALUE FOR niSPLAY. 


R5572__ 

A tC E N LU P_ 

: HAPQ AND HPER SHCULC 

BE CHANGEC T(] READ HAPOX AND HPERX IN THE 






R5573 


ABOVE 

R EPARKS. 

















R55741 

C.ALL LK . 

SECUENCE 

: CALL 







R5575 




SR 30. 1 






R5576 

SLEPCLTINE5 CALLEC: TFFCCNMU, TFFRP/RA, CALCTPER, CALCTFF 






R5577 

NCRPAL EXIT MCCE 

; CALLING LINE 41 (STILL IN INTERPRETIVE MODE) 






P557e 

ALA FM5 : 


NCNE 







P5579 

CL T FIT : 

RAPO 

(-29) P EARTH 

APOGEE RADIUS EARTH CENTERED CCCRC. 






P558U 



(-27) M MCCN 

MOON CENTEHEC CCORD. 






R5581 


RPER 

(-29) P EARTH 

PERIGEE RACILS EARTH CENTEREC CCORC. 






R5582 



(-27) M MCON 

MOON CENTERED COdBC. 




9999,9 


85583 


H APCX 

(-29) P 

APCGEE altitude ABOVE PAD CK LANC. SITE MAX 

value 

L IMITEO 

TQ 

NM. 

855 85 


HFERX 

(-29) P 

PERIGEE ALT. ABOVE PAD OR LAKC. SITE MAX 

VALUE 

L IMITEO 

TO 

9999.9 

NM. 

R5587 


TFF 

(-28) CS 

TIME 1C 300KFT CR 35KFT ALTITUCC 






Rssee 


-TPER 

(-26) CS 

TIME TC PERIGEE 






R5509 

ERA SAELE 

IMTIALI 2ATICN RECUlPEC- 






R5590 


TFF/RTMU (-*17) EARTH 

RECIPROCAL OF PROPER GRAV CONSTANT FOR 






fi5591 



(*14) MCCN 

EARTH CR MOON » i/SGRTlMU). 






F'5592 


RCNE 

(-29) M 

STATE VECTOR 






R 5593 


VCNE 

(-7) M/CS 

STATE VECTOR 






R5594 


R FACT EH 

(-29) M EARTH 

RACILS CF LAUNCH PaC OR LUNAR LANDING 






H5595 



(-27) M RCCN 

SITE. 






P5596 


HFERM IN 

(-29) M EARTH 

(300 CR 35)kFT MINIMUM PERIUEE ALTITUDE 






R5597 



(-27) P PCCN 

AbCVE LAUNCH FAD CP LUNAP LANCING SITE. 






85598 


VE2EMFLG (INT SW BIT) 

RESET FCR EARTH, SET FCR MOON. 
















P 5 5 S 9 

CEePl !: 

CFRET , 

PCI, S2 








DATE: 16 FEB 67 

LGG section: R32 
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5600 

REF 

1 






COUNT* 

it/SP30S 















JACl 





23.2667 

44001 

C SR30.1 

. SELPD _ 

STQ 


INITIALIZE PUSHCOHN LIST. 

5602 





23,2670 

00001 

0 


0 



5603 

REF 

4 

LAST 

44 C 

23,2671 

0CC51 

C 


$2 



Ai604 











Sfl30.l TNPUTl RCNE AT (-29IH EARTH/MOCN 

AS605 

A5606 









- 



VCNE AT (-7»H/CS 

TFFCONHU , TFFRP/RA, CALCTPER AND CALCTFF 

A56C7 











CALLS REQUIRE i 

A56lj8 











EARTH centered (NO RESCALING REQUIRED} 

A5609 











RONE SCALED TO B-29 M 

A56K 











VONE SCALED TO B-7 H/CS 

A561 1 











NOON CENTERED (RESCALING REQUIRED) 

A5612 











PONE SCALED TO 8-27 H 

A5613 











VCNE SCALED TO B-5 H/CS 

5614 





23,2672 

77214 

c 

BUFF 

VLCAC 



5615 

REF 


LAST 

50E 

23,2673 

04742 

1 


V82EHFLG 


OFF FOR EARTH , ON FCR HCON. 

5616 

REF 

1 



23,2674 

46703 

1 


TFFC ALLS 



5617 

REF 

12 

LIST 

306 

23,2675 

C 2 3 2 7 

c 


HONE 



5618 





23,2676 

77752 

1 

V5L2 




5619 

REF 

12 

LAST 

511 

23,2677 

26327 

c 

STOVL 

RCNE 



5620 

REF 

8 

LAST 

308 

23,2700 

02335 

c 


VONE 



5621 





23,2701 

77752 

1 

VSL2 




5622 

REF 

9 

LAST 

511 

Y3,2702 

02335 

0 

STORE 

VONE 




5623 23,27C3 7762^ 1 7FFCALLS CALL 

562A REF 1 23»270A 56722 C TFFCCNHU 

5625 _ _ 23f 2705 77 62A 1 CALL TFFRP/RA COMPUTES RAPO.RPER. 


5626 

REF 

1 



23,2706 

56770 

1 


TFFH P/RA 


A5627 










RETURNS MITH RAPO IN O(MPAC). 

5626 





23,2707 

77625 

C 

DSU 



5629 

REF 

4 

LAST 

506 

23,2110 

C2323 

I 


k PAD TEH 


563C 





23,2711 

64414 

1 

BOFF 

SP2R 

NEED HAPO AT (-29)H FOP DISPLAY. 

A5631 










IF HCCN CENTEREC, RESCALE FROM (-27)M. 

A5632 










IF EARTH CENTERED ALREADY AT (-29)H. 

5633 

REF 

6 

LAST 

511 

23,2712 

04742 

1 


V82EHFLG 

OFF FOR EARTH , ON FCR MCON. 

5634 





23,2713 

46714 

I 


♦ 1 


5635 





23,2714 

77624 

i 

CALL 


IF HAPO > HAXNM, SET HAPO «9999.9 NM . 

5636 

REF 

1 



23,2715 

46754 

c 


HAXCF-K 

OTHERWISE STORE ( R APO-RPAOTEH) IN HAPO. 

5637 

REF 

4 

LAST 

504 

23*2716 

16352 

I 

STORHAPG STODL 

HAPOX 



5638 REF 1 23t27l7 CC017 1 PPEP 

5639 23t2720 77625 C OSU 

56AC REF 5 LAST 511 23t2721 02323 1 RPADTER GIVES HPER AT (-29JM EARTH, (-27)M MOON. 

56 A I REF 22E lJsI 4^1 23,2722 00161 1 SYCRE MPAC *4 SAVE THIS FCR CCMPARISCN tC HPERMIN. 

5642 23,2723 64414 1 BOFF SR2R NEED HPER AT (-29)H FOR DISPLAY. 

A56 43 IF HCCN CENTEP EC, RESCALE FRCH (- 27)P. 

5645 REF 7 LAST 511 23,2724 04742 1 V82EHFLG CFF FCR EARTH, CN FCR HOGN. 

5646 23,2725 46726 t *1 

564 7 23,2726 T?6 24 I CALL ~~ IP HPEP > FlOflyP HTER - 9999.TnRir; 

5648 REF 2 LAST 511 23,2727 46754 C 


HAXCHK 


GAP : 


231 CF AGC PRCGPAM 




mi AliG. 2Ail9feB SPOOCH .005 PAGE 512 


R30 


USER*S PAGE NO, 10 


E4 S3 


56^9 

Rtf 

9 

L/IST 

273 

23*2730 

1 

! 

1 

STORHPfcH 

STOOL 

HPF PX 

STCRE (RPER - RPIOTEHJ INTO 

HPERX. 

5650 

REf 

239 

L^ST 

511 

23,2731 

00161 

1 



MPAC +9 



5e5J_ 





23.2732 

—51025 



OSU 

bPL 

HPERPIh AT (-2<7}R FOR EARTH, 

(-27 IN NOON 

5652 

REf 

5 

L^ST 

50 E 

23,2733 

02321 

c 



HPt R PI K 

IF HPER L/ HPERMIN (300 OP 

35)KFT, 

5653 

REF 

1 



23,2739 

96790 

c 



DOTPtP 

THEN ZERO INTO -TPER. 


565<i 





23.2735 

•2195 

c 


DLCAO 

GOTO 

ClHERhISE CALCULATE TPER. 


5655 

REF 

1 



23, 2736 

15332 

1 



HI 6Z EPOS 



5656 

REF 

1 



23,2737 

96 799 

1 



SKI P TPER 



5657 





23.2790 

95195 

c 

COTPER 

DLQAD 

CALL 



5656 

Rtf 

m 

1 

L/ST 

51 1 

23,279 1 

CC017 

1 



RPER 



5659 

REF 

1 



23, 2 792 

57026 

1 



calctfer 



566C 





23.2793 

77676 

c 


OCQMP 


TPER IS PUT NEC INTO -TPER. 


5661 

REF 

7 

L^ST 

507 

23,2799 

16396 

1 

SKI PIPER 

STOOL 

-TP6P 



5662 

REF 

6 

L^ST 

512 

23,2795 

C2321 

c 



HPERPIK 

HPEBPIN AT I-291M FOR EARTH, 

(-27)M NOON 

5663 





23, 2796 

950 15 

1 


OAO 

CALL 



566A 

REF 

6 

L^ST 

511 

23,2797 

02323 

1 



RPADTEP 

RPADTEH AT (-2‘J»H FOP EARTH, 

(-27IN NOON 

5665 

REF 

1 



23,2 750 

5703 1 

1 



CALC TFF 

GIVES 59H59S FOR TFF IF RPER 

G/ 

5o66 





23,2751 

17676 

c 


DCOMP 


HPERHIN 4 RPACTEM. (TPER HAS NGN ZERO) 

5667 

REF 

13 

L3ST 

509 

23,2752 

36399 

1 


stcall 

TFF 

OTHERHISE CCHPUIES TFF. 

(GOTO) 

5666 

REF 

5 

L4ST 

51 1 

23,2153 

OCCSl 

c 



S2 



5669 





23,2759 

SIQ25 

1 

PAXCHK 

OSU 

BPL 

IF C(NPAC) > 9959.9 NN, HPAC 

» 9999.9 NN 

5670 

REF 

1 



23,2755 

C6769 

1 



MAXNP 



5671 





23.2756 

96761 

c 



>3 

otherwise CIMPAC) » 0(HPAC». 


5672 





23,2157 

93915 

c 


OAO 

RVO 



5673 

REF 

2 

L/57 

512 

23,2760 

C6769 

1 



MAXNP 



56 7<» 





23,2761 

93595 

1 

♦ 3 

clcao 

PVC 

(USEC BY P3C - P37 ALSO) 


5675 

REF 

3 

LIST 

512 

23,2762 

067 69 

i 



HAXNP 
















56 76 





23.2763 

01065 

c 

PAXKH 

20CT 

01065 05603 



5676 





23, 2769 

0560 3 

1 








s 


I 







-> ' •• 


4 -^ 


th, i 




t 


$ 
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L S14BLEGPB1T- P3 fi-P39 U SER ' S PAGE NO. 1 bO S3 i 

PCOCl SliPl f CPen RENCtZVCLS PPCGP/iPS (F38 thL P78) ZZZIZZZIZIZI IZHZ 

aaociz.- Mcc nc leg S£^;TIG ^ - st able C fiiai T - p g s-p ji i 

R0003 HCC 8> RECMCHUS CITE 25JIM0 „ ” 


fU3 CC^ _ FLhCllCML CESCRlfTlXLh 


R0005 

P3£ INC 

P78 CALCULATE THL REOUIPEC DELTA V AND OTHER INITIAL 



FOOC6 

CCNCITICNS PECU1R6C BY IhE ACC IL (1) PUT THE ACTIVE VEHICLE 



R0007 

CN A TRANSFER TRAJ6CTCRY THAT INTERCEPTS THE PASSIVE VEHICLE 



R0008 

CPEIT A 

GIVEN DlSTANCEf DELTA R, EITHER AH6AC CF CR BEHIND THE 



RQ009 

PASSIVE 

VEHICLE AND <21 ACTUALLY PLACE THE ACTIVE VEHICLE IN THE 



ROOlO 

PASSIVE 

VEHICLE CRBIT NITH A DELTA R SEPARATION BETWEEN THE TWC 



POOll 

VEHICLES 











RQ012 

CALLING SECUENCE 









ROQ13 

A5TRCNALT RECLEST 

THRU CSKY 









ROOIA 

V3 7E38E 

IF THIS 

VEHICLE IS ACTIVE VEHICLE 



ROOI5 

V37E78E 

If CTHER VEHICLE IS ACTIVE VEHICLE 









R0016 

INFLT 











R0C17 

(1) SCI 

NANEUVEP 









. _ B.OCli _ 

(A) 

TIG 

TINfc CF SCI PANELVER 



BQ019 

(8) 

CENTANG 

ORBITAL CENTRAL ANGLE CF IHfc PASSIVE VEHICLE 



RQ020 



DURING TRANSFER FHCM TIG TC TIME OF INTERCEPT 



R0021 

(C ) 

CEL TAR 

THE DESIRED SEPAPATICN CF THE T WC VEHICLES 



R0022 



SPECIFIEC AS A DISTANCE ALONG THE PASSIVE VEHICLE 



R0023 



OReiT 



R002A 

(C ) 

CPT ICN 

EQUALS I FCP SC 1 




R0025 12 I SCR MANEUVER 


B0C26 U) TIG TIRE CF SCR HIRECVER 

RC027 <E) CENTIhG AN LPTICML RESPEC IF KAT ION OF 1 (B) ABOVE 

K^C2J IC) CPTICK EqOAlS 2 FCP SCR ~ 

ROC2S IDI CELTTIHE THE TIRE BECtIPEC TO TRAVERSE DELTA f WHEN 

ft0G30 TRAVELING AT A VELOCITY EUUAL tC THE FCPIZQNTAL | 


POO 31 VfcLCCITY CF THE FISSIVE VEHICLE ~ SAVtC FHCH 


R0032 

P0033 



SOI PHASE 



lei TINT 

TINE CF INTERCEPT (SCI! - SAVED FRCH SCI PHASE 






R003A 

QLTPL 1 



A 






R0O35 

(1 ) 

TRKMKCNT 

NUMBER OF NARKS 


Rd03~6 

(2 I 

1 1 C G C 

TINE TC GC 


RC037 

(3 ) 

•♦MCA 

NlCDLb GIMEAL ANGLE 






UAP i ASS£ l>BL t REWlSlOh 23? CF AGC PRCGPAM CGLQSSUS BY NASA 2U2111I-C31 1:17 AUG. SHOgCH .005 PAGE 51^ 


L SI/eiE CPBiT - _____ UStK’S PAGE NC, 2 EO 53 


R 0 C 3 e 

RCC 39 

R.Q 04 Q 

(A ) 

i 5 L 

tSPTEMl 

FCSTTP I 

71 PE QF IMEPCEPT CF PASSIVE VEHKLE ORE 17 
(FCR SCI CNLY) 

PERIGEE AIIITGDE CF ACTIVE VEHICLE tPBIT AFTER 





R 004 I 



THE SOI (SCRI HAHEUVEP 




Ra 042 

(6 ] 

EELVTP I 

RAGNITICE CF DELTA V AT SCI <SC«) TIRE 




H 0043 

(7 » 

CELVTPP 

RAGMTtOE CF DELTA V AT INTERCEPT TIHL 




RG 04 A 

(6 ) 

CELVLVC 

DELTA VELCCITY AT SCI (AhC SCR I - LOCAL VERTICAL 




P 0045 



CCCRO IhATES 



- 

RC 046 SIEFCU 1 AE 5 USEC 





ilQQ 4 ? 

aflaga 




_ _ — 


R00A8 AVFLAGP 

R0049 VACSFLY i 

_ __ EAAKCALL 

FUOSOa CCFLASHR 

R00SO4 GCTCPOCH 

R005 0< E^.A^HE^ 

RQOdOG EhCCFJCB 

R0C51 PPEC/Tl 

KC052^ SELECTRU 

P0053 IMPfVP 

R0054 F4IAFTRE 


I 

I 

Ri 

I 


0055 

0056 

0057 

REF 

1 



C4,3103 
C4,20C0 
C4f 3103 




BANK 

SETLOC 

BANK 

04 

STELECRB 

_ - - 

• 

0056 

REF 

12 

LAST 

494 

E 4 1 17 70 




EBANK* 

SUbEKlT 

- - - - - - - 


0J359^ 

REF 

I 







COUNT* 

iS/P3879 



C06C 

REf 

1 C 5 

LAST 

50S 

C4f3103 

0 4555 

C 

P3e 

TC 

BANKCALL 

_ — — . _ - - 


0061 

REF 

3 

LAST 

458 

0 4 f 3 1 C 4 

73726 

C 


CAOR 

AVFLAGA 

THIS VEHICLE ACTIVE 


0062 





C4t3K5 

0 3110 

1 


TC 

♦ 3 



0063 

REF 

1C6 

LAST 

515 

C 4 f 3 1 C 6 

0 4555 

C 

P78 

TC 

BANKCALL 



0064 

REF 

3 

LAST 

458 

t4,3 IC7 

73741 

1 


CAOR 

AVFLAGP 

other vehicle active 


00645 

REF 

IC7 

LAST 

515 

C4,3U0 

C 4555 

C 


TC 

BANKCALL 



00646 

REF 

3 

LAST 

45 e 

04,3111 

73746 

C 


CAOR 

P20F ICON 

SET LPOATFLG, TRACKFLG 


0065 

REF 

1 



C4, 3U2 

3 3435 

( 


CAF 

V06N33SR 

display tig 


0066 

REF 

1 



04,3113 

0 3424 

C 


tc 

VNDSPLY 



0067 

REf 

1 



04,3114 

3 3436 

C 


CAF 

VC6N55SR 

DISPLAY CENTANG 


0068 

REF 

ice 

LAST 

515 

04,3115 

0 4555 

C 


TCR 

SANK CALL 



0069 

REF 

2 

LAST 

473 

C4, 3116 

J0763 

1 


CACR 

GOFL AShR 



0069A 

REF 

13 

LAST 

502 

04,3117 

1 4lC6 

C 


TCF 

GCTOFCCH 

terminate 


0G696 





C4, 3120 

1 3125 

C 


TCF 

+ 5 

PROCEED 


0C6S8 





C4,3121 

1 3114 

I 


TCF 

-5 

recycle 


0070 

REF 

It 

LAST 

507 

04, 3122 

3 6214 

C 


CAF 

THRf E 

immediate return - BLANK Rl, k2 


007C2 

REF 

2 

LAST 

473 

04,3123 

0 5415 

1 


TCP 

BLANKET 



00704 

REF 

6C 

LAST 

507 

C4,3I24 

1 5112 

1 


TCF 

ENDOFjCe 



0071 

REF 

8 

LAST 

416 

04,3125 

3 4715 

C 


CAF 

FIVE 




p = I 


gap: t RtiWlSIDN 737 CF AGC PRCLPAM 
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.005 PAGE 516 


SI/ EL I CPtlT -_Pje-P39 USER' S PAGE NC. 3 E4 S3 

0072”~ R^F 5 LAST K»5 L^f 3126 55'13l 1 TS OPTICM 

0073 REF LAST 505 LA, 3127 3 A712 1 CAF ONE 

00 lA _8£f jA_ last AA E CA.3130 5S'132 1 TS 0PTICN2 QPf [CN COPE IS SET T O I 

0Q7A2 REF 1 0A,3131 3 3A37 1 CAF V0ANC6SR DISPLAY CPTICN CODE - 1 * SOI, 2 « SQR 

G07AA R£f ICS LAST 515 CA,3132 0 A555 C TCR BAhKCALL 

QQ7A6 RE F 3 LAST 515 CA,3 133 20763 1 CADR CCF LASER 

007Ae REF H LAST 515 CA,313A 1 AIC6 C TCF GOfOFCCh TERMINATE 

0075 OA,3135 1 31A2 1 TCF * 5 PROCEED 


00 75 2 0A,il36 I 3131 C TCF -5 RECVCLF 


u W r ^ £ 

3076 

REF 

16 

LAST 

367 

0^,3137 

3 A710 

C 


CAF 

BIT3 

IMMEDIATE RETURN - BLANK R3 


0077 

REF 

2 

LAST 

515 

CA,31A0 

0 5A15 

1 


TCR 

BLANKET 



CC78 

REF 

61 

LAST 

515 

CA,31A1 

1 5112 

1 


TCF 

ENDOFJCB 



0079 

REF 

63 

LAST 

50 S 

0A,3l^2 

C 6 0 C 6 

1 


TC 

INTPPET 



0060 





0A,31A3 

70535 

c 


SlOAO 

SRX 



CC81 

REF 

5 

LAST 

516 

0 A 1 3 1 A ^ 

C1133 

1 



OPT! CN2 



0062 





0A,3 1A5 

11230 

c 


BHIZ 

DLOA C 



QC83 

REF 

1 



0 A, 3 1 A6 

lllSA 

1 



OPTN 1 



006A 

REF 

1 



GA, 3 1A7 

036 56 

1 



TINT 



0065 

REF 

1 



QA, 3150 

€2611 

c 


STORE 

TINTSCI 

STORE FOR SCR PRASE 


0066 





OAf 3151 

7 7 6 1 A 

1 


CLRGO 




0087 

REF 

1 



0A,3 152 

C1230 

1 



OPIKSm 

OPTNSWi ON « SOI, CFF » SOP 


0068 

REF 

1 



CA, 3153 

11200 

c 



JUNC TM 



CC89 





0A,315A 

A50 lA 

c 

GPTM 

SET 

CALL 

SCI 


0090 

REF 

2 

LAST 

516 

0 A f 3155 

C107C 

1 



OPTNSW 



GG91 

REF 

1 



OA, 3156 

11357 

c 



PREC/TT 



0092 





QA,3157 

77615 

c 


OAO 




C0S3 

REF 

i3 

LAST 

501 

OA, 316C 

C3A13 

1 



TIC 



009A 

REF 

2 

LAST 

516 

OA, 3161 

C3656 

1 


STORE 

1 INT 

TI » TI« ♦ TF 


0095 

REF 

31 

LAST 


CA,3 162 

C10A6 

1 


STORE 

OSPTERl 

FOR DISPLAY 


0096 





QA, 3163 

77776 

1 


EXIT 




00962 

REF 

1 



0A,316A 

3 3AA0 

1 


CAF 

V06N57SP 

DISPLAY DELTA R 


0096A 

REF 

lie 

LAST 

516 

0A,3165 

0 A5 55 

c 


TCR 

BANKCALL 



Gg<;66 

REF 

A 

LAST 

516 

OA, 3 166 

20763 

1 


CAOR 

GOFL ASHP 



0CS6E 

REF 

15 

LAST 

516 

OA, 3167 

i A106 

c 


TCF 

GCTOFCCH 

TERMINATE 


oos? 





CA, 3170 

1 3175 

c 


TCF 

+ 5 

PROCEED 


0CS72 





CA, 3171 

1 316A 

c 


TCF 


RECYCLE 


0096 

REF 

16 

LAST 

4 9 9 

0A,3172 

3 621 1 

c 


CAF 

SIX 

IMMEDIATE RETURN - BLANK fl2. 

R3 

00^9 

REF 

A 

LAST 

516 

OA, 3 173 

0 5A15 

1 


TCP 

BLANKET 



0100 

REF 

62 

LAST 

516 

CA, 317A 

1 5112 

1 


TCF 

ENUC FJCO 



ClOl 

REF 

1 



0A,3 175 

3 3AA1 

c 


CAF 

V06N3ASF 

display TIME CF intercept 


0102 

ref 

2 

LAST 

515 

CA,3 176 

0 3A2A 

c 


TC 

VNt S FLY 



0103 

REF 


LAST 

516 

0A,3177 

G 6006 

1 


“TT 

INTPpET 



OlOA 





0a,32CC 

A5C1A 

c 

JUNCTM 

CLEAR 

CALL 



0105 

REF 

1 



0A,3201 

CA26e 

1 



R 39/79SN 



0106 

REF 

3 

LAST 

<t5€ 

CA,3202 

IC716 

c 



SELF C7KD 

SELECT fftr, TLEAP FINAIFLG, GO 

TC VNIFA5 

0 107 





CA,32C3 

n62A 

1 

RECYCLE 

CALL 




C1C8 

REF 

2 

LAST 

516 

OA, 32Ca 

11357 

c 



PRtCyTT 



CIOS 





CA, 3205 

T121A 

c 


3GFF 

DLCAU 



Clio 

REF 

•a 

LAST 

51 6 

QA,32C6 

C1350 

c 



optnSk ' 



0111 

REF 

1 



OA, 3207 

11221 

c 



OPTN 2' 
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0112 

REF 


L/ST 

bU 

04t321C 

C3656 

1 



TINT 



0113 

REF 

18 

L3S1 

5_0 5 

CA,i2U 

34041 

C 


STCALL 

TOECl 

PRECISION UPDATE PASSIVE 

VEHICLE TC 

QUA 

REf 

-JL- 



04*3212 

11410 




INTRPVP 

INTERCEPT TIRE 


Oil* 





04*3213 

53575 

c 


VLOlO 

UM T 



OIU 

REF 

H 

L4ST 

bOS 

C4|3214 

00001 

c 



P ATT 

RP/(RP) 


Gil3^ 





04.3215 

41315 

_L_ 


POVL 

VXV 



one 

REF 

11 

L4ST 

505 

C4, 3216 

000C7 

c 



VATT 



CU9 





04*3217 

60246 

1 


AbVAL 

NCRH 

(VP X RP/ (RP ) ) 


0120 

^R.E F 

__7„. 

L4ST 


C4j3220 

0CC47 

\ 



XI 



0121 





04*3221 

56325 

c 


POOL 

0 0 V 



0122 

REF 

5 

LIST 

273 

04,3222 

02611 

c 



DEL tar 



.Q12J _ 





04,3223 

17657 

c 


SL* 


DELTA R / (VP X RP/RP) 


012A 





04,3224 

20172 

i 



0 -7,1 



012S 

REF 

1 



04,3225 

36613 

c 


STCALL 

delttihe 

DELTA T • (RP) DELTA R / 

(VP X RP) 

. 0126 

REF 




04,3226 

11233 

c 



J0NCTh2 



0127 





04,3227 

43345 

1 

0PTK2 

OLOAO 

OAO 



0126 

REF 

2 

L4ST 

516 

04,3230 

C 2 6 i 1 

c 



TINT SC 1 



012S 

REF 

2 

L4ST 

4 5 S 

C4,3231 

00037 

c 



T 



0130 

REF 

*i 

L/ST 

5n 

C4,3232 

03656 

1 


STORE 

TINT 

TI • T| ♦ TF 


0131 





04,3233 

45345 

1 

JINCTN2 

OLOAO 

OSU 



0132 

REF 

5 

LIST 

511 

04.3234 

C3656 

1 



TINT 



0133 

REF 

2 

LIST 

51 7 

04,3235 

02613 

1 



DELTT IPE 



013A 

REF 

1 



04,3236 

02615 

1 


STORE 

TAROT IFE 

T1 - TI - DELTA T 


RJ3135 

ft 

FAIKPTNE 

« • « « 










R0I36 SlEPQlTlhE! USED 


3Ain S343S,25 

RU136 fEPUPCl 

R013S SUFTRl 

RO UP VhCSPLY 

ROlAl e^^KC«LL 

H0i<t2 CCFL/Sh 

Q I'tS GCTOFOCFi 

ROl^S VM645 


0146_ 

REF 

19 

LIST 

511 

04,3237 

34C41 

C 

RAINRTNE 

STCALL 

TDECl 

PRECISICN UPDATE PASSIVE VEHICLE TC , 

0147 

REF 

2 

LIST 

511 

04,3240 

114 10 

1 



INTRPVP 

TARGET TIME 1 

0146 





04,3241 

17 745 

1 


OLOAD 



0144 

REF 

24 

LIST 

516 

04,3242 

03413 

1 



T iC 


0150 

REF 

7 

LIST 

48C 

04,3243 

C35C3 

1 


STORE 

INTI PE 


0151 





04,3244 

77331 

c 


SS^P 

VLOAC 


0152 

REF 

14 

LIST 

51 5 

C 4, 3 245 

C237 1 

c 



SUfctXlT 


0153 

REF 

1 



04,3246 

112*2 

i 



TEST 3979 


0154 

REF 

15 

LIST 

511 

04,3247 

OOQCl 

c 



P ATT 


0155 





04,3250 

176 24 

1 


CALL 



0156 

REF 

1 



04, 3251 

12547 

1 



S343 5.25 


0157 





04,3252 

43014 

c 

T£ST39 7‘J 

S(]FF 

bCN 


0158 

REF 

2 

LIST 

516 

04,3253 

C4346 

1 



P39/ 79Sh 


0159 

REF 

1 



04, 3254 

11263 

c 



HAINRTNI 


0160 

REF 

5 

LIST 

4 8 4 

04,3255 

C13U 

c 



f INALFLC 

■ •** " " 


H 
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0161 

REF 

1 



04,3256 

11261 

1 



P39P79 


0U2 





04,3257 

77614 

1 


SET 



0163 

KEF 

A 

LAST 

A72 

CAt326C 

CC4 70 

L 



UPDA 7FLG 


C16A 





04,3261 

77776 

1 

F39P79 

EXI T 



016A5 

REF 

1 



04,3262 

0 3310 

C 


TC 

OSPLYBl 

FOR P39 ANC P79 

0165 





04,3263 

51515 

1 

HAINRTNI 

vload 

ABVA L 


CI66 

REF 

12 

LAST 

461 

04,3264 

C 3 6 ^ 6 

C 



DELVEFTB 


0167 

REF 

C 

LAST 

452 

CA, 3265 

2 66 35 

C 


STOVL 

OELVTFl 

DELTA V 

0168 

REF 


LAST 

465 

04, 3266 

C36^C 

C 



VPASS4 


C16S 





C A, 3267 

51451 

C 


VSU 

ABVA L 


0170 

REF 

7 

LAST 

43 1 

04,3270 

C3620 

C 



VTPP IME 


0171 

RE.F 

ft 

LAST 

455 

CA,327l 

26637 

1 


STOVL 

OELV IPF 

DELTA V (FINAL! * V*T - VT 

0172 

REF 

16 

LAST 

<t8£ 

OR, 3272 

C3S40 

c 



RACT 3 


0173 





CR, 3273 

45115 

c 


PDVL 

CALL 


017A 

REF 

9 

LAil 

481 

C4.3274 

C3612 

1 



VIPK IME 


0175 

REF 

t 

LAST 

455 

04,3275 

45312 

c 



PEP I AFCl 

GET PERIGEE ALTITUDE 

0176 





04,3276 

77624 

1 


call 



0177 

REF 

2 

LAST 

455 

04,3277 

45422 

1 



SHI P 7Pl 


0178 

REF 

3 

LAST 

455 

04,3300 

02641 

c 


STORE 

POST tPi 


0179 





04, 3301 

430 14 

c 


BON 

SET 


0180 

REF 

6 

LAST 

517 

04,3302 

01311 

c 



F INALFLG 



0181 REf 1 CA,33C3 11305 1 DSPLV58 

0182 BIf 5 LiSl 518 CA,33CA CCA70 1 UPOATELG 

0103 0A,33C5 77776 1 CSPLY58 EXIT 


0184 

REF 

1 



04, 33U6 

3 3442 

C 

CAF 

VC6N58SR 

DISPLAY 

HP, DELTA V, DELTa V (FINAL) 

0185 

REF 

2 

LAST 

516 

04,3307 

0 3424 

C 

70 

VNDSPLY 

DISPLAY 


0186 

REF 

i 



04,3310 

3 3443 

1 

CSPLY81 CAF 

VC6N EISP 

DELTA V (LV) 

0187 

REF 

4 

LAST 

516 

04,3311 

0 2424 

c 

TC 

VNDSPLY 



0168 

REF 

65 

LAST 

516 

04,3312 

C 6006 

1 

TC 

intpret 



0189 





04,3313 

772 14 

c 

CLEAR 

VLOAC 



0204 

REF 

2 

LAST 

47C 

04,3314 

C1267 

c 


XDEL VFLG 



U205 

REF 

13 

LAST 

516 

04,3315 

03646 

c 


OELV EET3 



C2C6 

REF 

ft 

LAST 

R71 

C4,3316 

37646 

1 

STCALL 

DELVSIN 



0207 

REF 

4 

LAST 

484 

04,331? 

7300 5 

c 


VN1645 

DISPLAY 

TRKHKCNT, TTCGC, ♦MGA 

0206 





04,3320 

52014 

c 

eoN 

GCTt 



0209 

REF 

3 

LAST 

517 

04,3321 

Q43C6 

c 


P39/ 79SM 



0210 

REF 

1 



04,3322 

11344 

1 


P39/F74B 



0211 

REF 

1 



04,3323 

112 0 3 

c 


RECYCLE 




B o 212 ST/eie CP61T PIOCCIRSE PPCGBAP (P3*3 ABO P791 


K02i3 PCC NC -1 LCG SECTICB - STABLE CReil - P38-P39 

^021<i HCC BT BLLMCKl.S CATE 25JAh68 


PC215 FLXCTICNtfL CESCRIPTICN 

R0216 CALCLLATE TEE RECU I P tt Cf LT 4 V AND^DTHER INITIAL 

BU217 CCBCITI CBS PE CUIPEO BY THE AGC TC HAKE A HICCCUBSE CGPPECTICiN 

R_a2ie HANELVER AFTER CCHPLETIhG ThE S CI MANEUVER BUT BEFuRE H/KINC 

B0219 UE SCR HANELVER 
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HG220 CALtUC SECoYnCE _ V_ 

^221 „ ^ ASTPCNALI RECLEST THRU CSKY _ 

R0222 V3TE29e iT THIS VEHICLE IS ACTIVE VEHICLE 

P Q 22 3 V 2 7 Em IP CTPER VEHCLE IS ACTIVE VE HCLE 

R0224 IPPL T 

PU225 (U 1PASS4 TIME OP IhTEPCEPI - 5AVEC FPCM P3e/P78 

R022fc (2) lARGTIHE TIRE THAT PASSIVE VEHICLE IS AT INTERCEPT PCINT - 

Pu 22J SAVED PPOH P3e/PTE 

P0228 CLTPLT 


KC229 

P0230 

P0231 

(U TRKPKCNT 
(2) TTOGC 

13) <NCA 

hUPBER CF PARKS 

TIRE TC GC 

RICLLE GIREAL ANGLE 



- 



R0232 

(4) CELVLVC 

CELTA VFLCCITY AT RIC - LCCAL VERTICAL CCCRCTNATES 



■ - 



Ra233 

SLERQLTINES LSED 




- 



R023A 

fi0235 

AVPLAGA 

AVFLAGP 




• 

- 


p623*6 

R0237 

RC236 

ICACTIHE 

SELECTRU 

PRECJET 







PC239 

S3A/25.1 







R02A0 

PA INPTNE 








02^1 

02A2 

C2A3 

REP 

REP 

111 

A 

LAST 

LAST 

516 

515 

OA. 332A 
04,3325 
0A,3326 

0 9555 
73726 

0 0006 

C 

G 

1 

P39 

TC 

CAOR 

EXTEND 

BANKCALL 

AVFLAGA 

THIS VEHICLE ACTIVE 

02A^ 

REP 

2 

LAST 

45 6 

04,332? 

3 1922 

1 


OCA 

ATIG INC 


G2<*S 

REF 

1 



04,3330 

0 3335 

1 


TC 

P3S/P79A 


02A6 

REF 

112 

LAST 

519 

04,3331 

0 9555 

C 

P79 

TC 

BANKCALL 


02^7 

REP 

A 

LAST 

515 

C4,3332 

73791 

1 


CAOR 

AVFL AGP 

OTHER VEHICLE ACTIVE 

C246 





04,3333 

0 0006 

1 


EXTEND 



02^9 

REF 

2 

LAST 

456 

C4,3334 

3 1929 

1 


OCA 

PTIG INC 


0250 

REF 

9 

LAST 

456 

C4,3335 

53*769 

1 

P39/P79A 

OXCH 

KT 

TIRE TC PREPARE FOR AuPN 

02505 

REF 

113 

LAST 

519 

04,3336 

0 9555 

C 


TC 

BANKCALL 


Q25C6 

REF 

A 

LAST 

515 

C4, 333? 

73796 

0 


CAOR 

P2lF LGCN 

SET UPCATFLC, TRACKFLC 

0251 

REF 

66 

LAST 

516 

09,3340 

0 6006 

I 


TC 

INTPPET 


C255 





04,334 1 

95019 

c 


SET 

CALL 


02555 

REF 

A 

LAST 

516 

04,3392 

09066 

c 



P39/79SN 


0256 

REF 

A 

LAST 

516 

09, 3393 

10716 

0 



seleCTru 

" 'TEcrCT^, TtEAP TTOCFttr, 'GTrT0^1il645 - - 

025? 





09,3399 

93239 

0 

P39AP?9e 

RTfl 

DAD 


0258 

REF 

9 

LAST 

506 

0^,3395 

95505 

c 



LOAOTIRE 


0259 

REF 

10 

LAST 

519 

C9, 3396 

C2369 

1 



kt 


02595 

REF 

di 

LAST 

511 

09,339? 

C3413 

I 


STORE 

no 

TIG • 7 (PRESENT) ♦ PREPARATION TIME 
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cap: AS StKBLE REV IS lOh 231 CF _AILC 
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02oO 

REF 

iC LAST 511 

CA|3350 

34041 

C 

C261 

REF 

3 last 45fi 

CA,3351 

45354 

1 

0262 



04,3 35.2 

- T76 2_4 


0263 

REF 

3 LAST 45S 

04»3353 

72522 

1 

Q26<i 



04,3354 

52145 

0 

Q2(l5 

REF 

2 LAST I 

04,3355 

02615 


0266 

REF 

1 

04,3356 

112 3 7 

1 

RQ272 

t • • « 

FPEC/1T .... 




FQ273 

SLEFCLilhES LSEQ 




RC27A 


PBECSET 




R0275 


IIREIHET 




RC276 


S34/35.1 





STCALl TOECl 

PREt SET 
CALI 


S3A/35.1 
OLOAO GOTO 

TARGTIPE 


HAlNPThE 


USER'S PAGE NO. 


EA S3 


PRECISION UPDATE ACTIVE AND PASSIVE 
VEHICLES TC TIG 


GET UMT NCRHAL 


CALCULATE DELTA V AND DELTA V (LVI 


0277 OA. 3357 71220 1 PREC/TT STQ DLQAC 

027 8 REF A LIST 47A CAf33tO C236 7 1 RIF N 

0279 BBF it L^ST 5M 0A,3361 03AU 1 TIG 

02 80 REF il LAST 52C CAt3362 3A0AI C STCALL TOEC I 

0261 REF A LAST 52C CAf3363 4535A 1 PkECSET 

0202 OA|33eA 53775 1 VLOAD VSR* 

0283 REi 8 LAST <>88 CA,33e5 C355A C RPASS3 


028^ CA,33fcfc 57176 C 0*2 

0285 REF 2 LAST ^86 CA,3367 U657 1 STOOL RVLC 

02 86 B_£_F__ 5 LAST 45A CAt337C C375A 1 CENT ANG 


0287 





04, 3371 

714C6 

C 

PUSH 

COS 



0268 

REF 

a 

LAST 

454 

C4,3372 

16734 

0 

STOOL 

CSTH 



0289 





04,3373 

43156 

1 

SIN 

SET 



C290 

REF 

2 

LAST 

454 

C4, 3374 

C3466 

c 


RVSl* 



0291 

REF 


LAST 

454 

C4, 3379 

26732 

c 

STQVL 

SF.TH 



0292 

REF 

8 

LAST 

48E 

04,3376 

C3562 

c 


VPASS3 



0293 





04,3377 

77657 

0 

VSR* 




0294 





04,3400 

57176 

c 


0 f d 



0295 

REF 

5 

LAST 

46 6 

C4,3401 

36 74 6 

I 

STCALL 

VVEC 

GET TRANSFER TIRE BASED ON 

CENTANG OF 

0296 

REF 

2 

LAST 

4 5^ 

04,3402 

24737 

1 


TINETHET 

PASSIVE VEHICLE 


C297 





04,3403 

77624 

1 

CALL 




0298 

REF 

4 

LAST 

52C 

04,3404 

72522 

1 


S34/35.1 

GET UMT NCRHAL 


C299 





04, 3405 

52145 

c 

OLOAO 

GCTU 



0300 

REF 

3 

LAST 

517 

C4,3406 

00037 

c 


T 



0301 

REF 

7 

LAST 

52C 

C4,34C7 

C2367 

1 


RTRN 




R03C2 .... INTFPVP .... 

P03C3 SLEFCIIINES USED 


PRECISION UPDATE ACTIVE AND PASSIVE 
VEHICLES TC TIG 


RC30A CSPPFEC 

R0305 LEPPFEC 


0306 





04,3410 

43020 

1 

INTRPVP STO 

eOFF 

PRECISION UPOATF PASSIVE VEHlCLt 7C 

03C7 

REF 

8 

LAST 

52C 

04,3411 

C2367 

I 


RTRN 

TCECl 

0308 

REF 

4 

LAST 

488 

04,3412 

C1352 

1 


AVFLAC 


0309 

REF 

1 



04,3413 

11420 

1 


DTHF. PV 


C310 





04,3414 

71624 

1 

CALL 
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L 

ST/eti CFE^rL - 

P36- 

P39 
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0311 

RfcF 

3 LAiT 

4i4 

04,3415 

27022 

1 



CSMPREC 


0312 




04,3416 

7765C 

1 


GOTO 



JLLL3 

REF 

9 LIST 

52 C 

04,3417 

02367 

[ 



RTFK 


03U 




04,3420 

77624 

1 

C7HERV 

CALL 



C315 

REF 

3 LIST 

4eE 

04,3421 

27036 

1 



L CHPREC 
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TEPPCRARY STORAGE 

0216 

REF 

6 

L4S7 

527 

34,2171 

02634 

1 


LAUNCHAZ 



0219 





24, 2172 

74356 

1 

SIN 

VXSC 


SIN (/ZUE/ST 

0220 





34. 2173 

534 55 

(r 

VAO 

UNIT 


SIN(A2)*EAST - CPS ( A Z ) *SOUTH = REFl 

0221 

REF 

9 

LAST 

527 

34,2174 

01736 

1 


REF SPRAT 



0222 

REF 

1C 

LAST 

527 

34,2175 

C1736 

1 

STORE 

REF SPPAT 















0223 





34,2 176 

53435 

c 

VXV 

UNIT 


(REFl X REFl) s -REF3 

Q2Z^ 

REF 

11 

LAST 

527 

34,2177 

CU52 

( 


REFSPP/T 

♦ 120 


0225 





34,2200 

77676 

c 

VCOMP 




0226 

REF 

12 

L/ST 

527 

34,2201 

01744 

1 

STORE 

REFSPPAT 

4 


02261 





34,2202 

45345 

1 

CLOAO 

DSL 



02262 

REF 

11 

L/ST 

46 1 

34,2203 

15330 

c 


OPHALF 


1/2 REV 

02262 

REF 

7 

L/ST 

527 

34,2204 

02634 

1 


LAUNCH/Z 



02264 





34,2205 

69215 

1 

OAO 

POLL 



02265 

REF 

5 

L/ST 

44 3 

34,2206 

02401 

c 


AZIMTH 



02266 

REF 

2 

L/ST 

112 

34,2207 

03301 

c 


SATR LRT 


SET SATPLRT » -SATRLPT IF 

02267 





34,2210 

45565 

c 

SIGN 

STAOR 


(1/2REV -LAVNCHAZ ♦AZIPUThl IS NEGATIVE 

u2266 REF 

3 

L/ST 

527 

34,2211 

74476 

1 

STORE 

SATR LET 


FCR RCLL CALC IN FDAI ATT. ERROR DISPLAY 

0227 





34,2212 

7 7414 

c 

SET 

EXIT 



0226 

REF 

2 

L/ST 

4 7 1 

24,2213 

C1462 

c 


REFSPFLG 


SET REfSMPAT f<NC.<N FLAG 


C229 

0230 

REF 

25 

L/ST 

525 

34,2214 

0 5301 

C 

TC 

PhASCHNG 







34,2215 

C4023 

1 

QCT 

04023 














0231 





34,2216 

0 OOC6 

1 

EXTEND 




0232 

REF 

1 



34,2217 

3 2302 

1 

CCA 

PllSCADR 



0233 

REF 

1 



34,2220 

53*223 

1 

OXCH 

AVGEXIT 

SET AVGEXIT 



0234 

REF 

2 

L/ST 

299 

34,2221 

3 7665 

c 

CA 

PRIC31 

2 SeCCNDS AT 2(+fl) 


0235 

REF 

9 

L/ST 

434 

34,2222 

55*074 

1 

TS 

l/Pl FACT 




u236 

REF 

5 

L/ST 

409 

E6, 1501 




EBANK* 

PCSF LAGS 




0237 

REF 

6 

LAST 

252 

34,2223 

3 

4752 

C 

CA 

EBANP6 




023 6 

REF 

23 

L/ST 

525 

34,2224 

54 

CC3 

c 

TS 

LBAN ¥ 


















0239 





34,2225 

0 

0CC4 

c 

INHINT 





0246 

REF 

111 

L/ST 

524 

34,2226 

4 

4714 

c 

CS 

ZERO 




02^7 

REF 

1 



34,2227 

55 

•063 

1 

ts 

TBAS E5 

RESTART REACACCS 2 SECCNOS AFTER LIFTOFF “ 




I 





r 



jS 

GAP t ?l^ r.P Af.C PRCGBAM CQLCASUS jj^_NASA 2Q21I11-C31 Ifn_mjGt P .* N QQP* . « 0? g EAGi 520 


L 


Pll 


USER'S PAGE NO. 7 E6 S3 


C240 

0249 

REF 

REF 

IG 

i.^ S T 

42E 

34t223C 

4 0025 

1 

CS 

TIHEl 


1 



24,2231 

6 4735 

1 

AO 

2SECS 

OC REACACCS 2 SECONDS AFTER LIFTOFF 










0250 

0251 

0252 

REF 

nc 

LAST 

507 

34f 2232 

1C 000 

0 

CCS 

A 

CHECK TO INSURE OT IS POSITIVE 





34.2233 

1 2236 

c 

TCP 

4-3 

TIME POSITIVE 





34.2234 

1 2236 

c 

TCF 

♦ 2 

CANNOT GET FEPE 

C253 

REF 

U2 

L^ST 

527 

34,2235 

3 4714 

1 

CA 

ZERO 

TIME NEGATIVE - SET TO 1 

0254 

REF 

65 

LAST 

516 

34,2236 

6 4712 

1 

AO 

ONE 

RESTORE TIRE - OR HAKE POSITIVE 












0255 

REF 

«Q 

LAIT 

525 

314,22^37 

0 5140 

1 

TC 

WAITLIST 


0256 

ref 

14 

LAST 

211 

E6, 1661 



E6ANK« 

AGO 


0257 

REF 

1 



24,2240 

02653 

c 

2CA0R 

REAOACCS 


0257 

REF 

1 



34,2241 

76C66 

c 




0258 

REF 

4 

LAST 

525 

34,2242 

0 5261 

1 

TC 

2PHSCFNG 


0259 





34.2243 

00QG3 

1 

OCT 

00003 

TURN CFF GROUP 3 

0260 





34 1 2244 

00025 

0 

OCT 

0002 5 

PROTECT NORHLIZF AND REAOACCS 












Q2_6J 

HEF 

26 

LAST 

44 5 

34,2245 

0 4574 

c 

TC 

PCST JORP 


0262 

REF 

2 

LAST 

210 

34,2246 

77145 

1 

CAOR 

norhlize 

DO NCRMLIZE ANC EN00FJ08 























0263 

REF 

n 

LAST 

525 

E3, 1706 



EBANKa 

1 ERHER 


0264 





34,2247 

C 0CQ4 

0 REPll ~ 

INHINT 



0265 

REF 

1 



34,2250 

10 763 

1 

CCS 

PHASES 


0266 

REF 

6 3 

LAST 

516 

34,2251 

0 5112 

0 

TC 

ENDCFJCe 



0267 

REF 

A 

LAST 

524 

34.2252 

u 

•265 

C 

CCS 

LIFTTERP 

0266 





34,2253 

1 

225? 

1 

TCF 

♦A 

0269 





34,2254 

1 

2257 

1 

TCF 

♦ 3 

0270 





34,2255 

1 

2257 

1 

TCF 

♦ 2 

0271 

REF 

1 



34,2256 

1 

2013 

C 

TCF 

Pll + 7 












0272 

REF 

C 

LAST 

526 

34.2257 

4 

1336 

I 

CS 

TLIFTCFF 

C273 





34,2260 

0 

0006 

1 

EXTEND 


0274 

REF 

1 



34,2261 

6 

2267 

c 

B2MF 

ENCREPil 


0275 

REF 

15 

LAST 

524 

3 4 f 2 26 2 

1C 024 

C 


CCS 

T 1 R E 2 

♦♦TIHE2 MUST 

BE NCN-ZERC AT LIFTOFF** 


02 76 

REF 

2 

LAST 

206 

34,2263 

1 2021 

1 


TCF 

REPl lA -5 

T2,n NOT VET 

ZEROED, CO AND DO IT 
















02 7 7 





34,2264 

0 OQGb 

1 


EXTEND 


T2,T1 2ER0EC, 

SET TLIFTOFF ” 


0279 

REF 

5 

LAST 

52 8 

3^,2265 

3 1266 

1 


OCA 

LIFT TERF 




0280 

REF 

1 



34,2266 

1 2024 

1 


TcT 

REPl lA-2 


















0281 





34,2267 

0 0006 

1 

ENQREPll 

EXTEND 





0282 

REF 


LAST 

524 

34,2270 

3 2275 

0 


OCA 

RLf USA 




0283 

REF 

1 



34,2271 

1 2025 

c 


TCr 

KfcF 1 lA-l 
































0284 





34,2272 

7 I 7 66 

c 

REPl IS 

20CT 

77766 coon 




02 84 





34,2273 

CQOll 

1 
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0285 

0285 





3A, 227^ 
3A,2275 

77764 

C0C13 

1 REPllSA 

C 

20CT 

77764 00013 




02651 

REf 

1 

— ' 


3<if 22 T6 

C2451 

C PIIAIT 

GENAOR 

PllClT 








39t 2277 

717l** 

1 -ERTHRAT 

2DEC* 

-7.292115138 

E-7 818* - earth RATE AT 

2(16) 

0266 





34*2300 

41735 

C 





0288 

REF 

A 

LAST 

52! 

E6 f 1704 



EBANK* 

BODY 3 



0289 

REF 

1 



34.2301 

02303 

C PUSCAOR 

2CADP 

VHHC CT 



0289 

REF 

1 



34,23C2 

7G066 

C 





0290 

REF 

m 

LAST 

529 

E6f 1704 



EB ANKs 

B0CJY3 



R0295 

VFFCCl 1 

! tXECLTEC 

EVERY 2 SECCNOS TC 

cisplay CN 

OSKY 




Ra2 96 





VI INERTIAL VELQCnY NACNITU06 




R0297 





FOOT RATE 

CF CHANGE CF ALT 

ABOVE L 

PAD PAOllS 



R029d 





H ALTITLCE above L PAC RADIUS 




0299 

REF 

6 9 

LAST 

526 

34,2203 

0 6006 

1 VhHCCl 

TC 

INTPPFT 


— 

0300 





34,2304 

77624 

1 

CALL 


LCAC VNAGI, ALTI, 


0301 

REF 

1 



34,2305 

70436 

I 


Sll. 1 

HOOT FCR DISPLAY 


0302 





34,2306 

77776 

1 

EXIT 




030.3 _ 

REF 

1 



24,230? 

3 2511 

0 

CAF 

VC6N62 

DISPLAY IN PI R2 R3 


030A 

REF 

1 16 

LAST 

525 

34,2310 

0 4555 

c 

TC 

bANKCALL 

VI HOOT H 


03C5 

REF 

1 



34,2311 

20621 

c 

CAOR 

PEGCOSPR 

DISPLAY INTERFACE - IMNEOIATE RETURN 

0306 

REF 

1 P 

LAST 

529 

34.2312 

0 4555 

c 

TC 

bANK CAL L 



0307 

PEf 

1 



34,2313 

77136 

c 

CACK 

SERVEXn 

END CF PllSERVE CYCLE 


0308 

REF 

1 



34,2214 

3 47CI 

C ATERTASK 

CAF 

Ph IC 1 

eSTABLlSH JCe TC DISPLAY 

ATT ERRORS 

0309 

REF 

20 

LAST 

508 

34,2315 

U 5042 

I 

TC 

F INC VAC 

CCMES HERE AT L.O. ♦ .33 

SEC 

0310 

REF 

t 

LAST 

529 

E6,170A 



EBANKa 

aoDV3 



0311 

REF 

1 



34 f 2 316 

02326 

1 

2CA0N 

ATER JCP 



0311 

REF 

1 



24,2317 

7C066 

C 





03111 

REF 

6 

LAS1 

527 

34,2320 

4 1501 

C 

CS 

RCSF LAGS 

SET eiT3 FOR 


03112 

REF 

n 

LAST 

516 

34,2321 

7 ^710 

1 

MASK 

B IT3 

NEEDIER 


03113 

REF 

7 

LASl 

529 

34,2322 

27'5Cl 

C 

ADS 

RCSF LACS 

INIT lALlZAT ICN PASS 


0311A 

REF 

21 

LAST 

Ifl 

34,2323 

0 4633 

C 

TC 

IbNKCALL 

AND GO 


03115 

REF 

1 



34,2324 

42404 

I 

CAOR 

NFEDlFR 

DC IT 


0312 

REF 

25 

LAST 

507 

34,2225 

0 5213 

1 

fC 

taskcver 




R0313 

AU315 

TH5 JECTICN PPOVlCeS ATTITUDE EPRCR CISPLAYS TC 

COMPUTE 

THE FDAI DURING SCNE BOOST 

DESIRED PITCH W.P.T. LAUNCH SITE LOCAL VERTICAL. 



A0316 

A0317 

A0318 

PITCH ■ 

IF TL » 

-.0000469 18^ C2e+.00 137 571 556* 1 ♦.023 15C220O*T*T-. 0 20592936 5*1 *1*1 
SCALED TO 32 REVOLUTIONS 

TIME from launch in seconds, THEN T ■ 1 CO ( TL- 10 SEC ) / I 2** 14 1 



AC319 

A0320 

WHERE 

TL CE 10 SEC 

TL L£ 133 SEC . 


- 


AG322 

A0323 

AQ32A 

A0325 


IN PEV 


LAUNCHAZ to -ZCS/C) as S^EN PROH X(S/CJ. 

POLL ■ LAUNChA Z-aZ I N LTH- .5 ♦SATPlPT*! 

SATBLRT * RATE CF POLL IN PEV/GeN T I-SEC — — 

T.IN CEnTI-SFC.IS DEEINEC as ABQA/E.INCLISIVE CF TIME RESTRICTIONS 




L 
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^Q326 _ _ FOR SIWPLICITV, LET P « 2>tPI*PITCH 

AQ3n P * 2*PI*RCLL 


A0^7fi CONSTRUCT the TP. ANSF CRRAT 1 CN MATRIX, TSHV, GIVIRG DESIRED S/C AXES IN 

40329 TERRS UF SH COCFOl NA TES. LET THE RESULTING ROWS EQUAL THE VECTORS XOC , 

40 330 VDCtAND ZDC. 


40331 ♦ ( SIN(P> 0 -COSCPI ) (XOO 

40332 TSMV ■ (-S IN(R J*COS ( P ) -CCSCPI - S I N ( R I ♦ S IN ( P 1) « (YDC) 

40333 (-COS(F )*COS( P ) SIN(R) -CCS ( R I ♦S IN ( P M (ZOO 


40334 XCCtVCCtZDC ARE U SED AS INPUT TO CALCGTA FCR THE CXTRACTICN OF THE 

40335 EULER SET OF ANCLES RFICH WILL BRING THE SR INTC THE DESIRED 

40336 ORIENTATION. THIS EULER SET, CGC, IGC, ANC RGC. HAY BE IDENTIFIED 

40337 _ AS THE DESIRED CPU ANGLES. 


40336 IXDC) (CGC) 

4033S (YDC) ) CALCGTA ) (IGC) 

Aa3AC (20 0 (HGC) 


AQlAi = 

403^2 DEFINE THE VECTOR DELTACCU. 


40 34 3 - (QGC) ( CtUJL) 

A03A4 DELTACOU » (IGC) - (CCUY) 

40345 (MCC) (CCUZ) 


A03A6 - - ♦ - 

40347 COMPUTE ATTITUDE ERRCflS, A, WHERE A - T G S C*C EL T ACOU 


40346 ♦ (I SIN(CDUZ) 0 ) THE GIMEAL ANCLES 

40349 TGSC - (0 COS (CDUX )*CCS (CCUZ ) SIN(CDUX)) - TC SPACECRAFT AXES 

40350 (0 -SIN(CDUX )*CCS(CCUZ) CQS(CDUX)) CCNVERSIQN MATRIX 


AQ35I 

AC352 









THE ATTITUDE ERRORS, A, ARE 

STOREC ONE HALF SINGLE PRECISION IN 

A0353 

AQ354 









THE REGISTERS AK, AK 1 , AK2 

ERRCR DISPLAY RCUTINE. 

AT~I N PUT TO NEECLER, THE FOaI ATtTTuW 

0355 

REF 

16 

LAST 

526 

34,2326 

30 

024 

1 

ATERJCe 

CAE 

TIME2 

CHECK IF MORE THAN 

0356 





34,2327 

0 

0006 

I 


EXTEND 


164 SfCOHOS FRQR L.O. 

0357 





34,2330 

6 

2332 

1 


QZRF 

>2 


0358 

REF 

1 



34,2331 

1 

2424 

C 


■^TTf 

SATCLEAP 

YES - Clear EPRCfl COUNTER ♦ EXIT 

0359 

REF 

9 

LAST 

254 

34,2332 

30 

102 

1 


CAE 

FlAGRRC6 

CFECK FLAGWR06 

0360 

REF 

7 

LAST 

254 

34,2333 

7 

4lC5 

C 


MASK 

OCTt OCOO 

FITS 14+15 

C361 





34,2334 

Q 

00C6 

1 


EXTEND 



0362 

REF 

1 



34,2335 

1 

2331 

C 


eZF 

ATTC ISP 

NC SATURN IT ICK ON 

•J363 

REF 

1 



34,2336 

U 

2420 

C 


TC 

ATERSET 

EXIT - SATURN STICK IN USE 

03 64 

REF 

2 

LAST 

1 1 i 

34,2337 

4 

1702 

1 

ATT C ISP 

CS 

PPSTART 

PITCH/ROLL START TIME 

0365 

REF 

U 

LAST 

526 

34,2 j40 

6 

002 5 

c 


AO 

TTME 1 
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C2651 





3A,22Al 

C 00C6 

1 

Extend 



03652 

REF 

1 



3A,23A2 

6 2 504 

1 

eZMF 

NCPC LV 

IF MINOS THEN ATTITUDE HOLD 

0366 

fiii. 


LAST 512 

34 t 2 343 

34 154 

_C 

IS 

MPAC 

MPAC « TIMEl - PPSTART 

0367 

REF 

2 

LAST 

112 

3At23AA 

55*7C7 

1 

TS 

SPDL VAPG 

SAVE FOR USE IN ROLL CALCULATICN 

0368 

REF 

2 

LAST 

112 

3A,23A5 

6 1703 

1 

AO 

PtLYSTCP 

NEC PITCHOVER TIME IN CSECS 

03<lS 





34.23A6 

0 0006 

1 

EXTEND 



0370 





3A,23<»7 

6 2351 

1 

eZMF 

♦ 2 


0371 

REF 

1 



3^,2350 

1 2416 

1 

TCF 

SATCLI 

EXIT IF TIMEl GR THAN tRPSTART-POLVSTCP ) 

0372 

REF 

1 

LAST 

in 

3A.2351 

31*661 

1 

CAE 

PCL VNUH 


0373 

REF 

6C 

LAST 

507 

2A,2 352 

34 OCl 

1 

TS 

L 


037A 

REF 

1 



34,2353 

3 2510 

1 

CAF 

COEFPCLV 

EVALUATE PITCH POLYNOMIAL 

0375 

REF 




34,2354 

0 7164 

C 

TC 

POWR SERS 

SCALED TO 32 REVOLUTICNS 


A0376 

AQ37? 








THE FOLLOMING PAD LOAOEC COEFFICIENTS 
USED TO COMPUTE THE PITCH PCLYNOMIAL 

ARE 

A0J771 








SUNOISK SI 

C0EF5 - 

M _ « « 

- - 









POLYNUM 


FIVE 


PCLYNCMIAL DEGREE -I 

40379 









♦ 1 

2 DEC 

-.469184028 E- 

4 AQ 

A038C 









♦ 3 

2DEC 

.137571556 £-2 

A1 

A0361 









♦ 5 

2 DEC 

,231502200 e-1 

A2 

A0362 









♦ 7 

2DEC 

-.205929363 E- 

1 A3 

40383 









♦90 

20EC 

0 

A4 

A0364 









♦ 110 

2DEC 

0 

A5 

A0385 









♦ 13D 

2DEC 

Q 

A6 

40386 








PCL YLOC 


m 

PCLYNL'M ♦IQO 


0387 

REF 

113 

LAST 

528 

34,2353 

3 4 714 

1 


CA 

ZERO 

RETURN 

WITH PITCH(32REV) 

0368 

REF 

3 

LAST 

294 

34,2356 

54 163 

1 


TS 

MUUE 

STORED 

IN MPAC, MPAC ♦ 1 

J03e9 

KEF 

7C 

LAST 

529 

34,2357 

0 60C6 

1 


TC 

INTPPET 



0390 





34,2360 

54201 

C 


SETPO 

SL 

32(PITCH( 32REV) 1 ■ PITCH(pev) 

0391 





34,2361 

OQOCl 

c 



0 



0392 





34,2362 

20206 

1 



5 



0393 





34,2363 

77606 

1 


PUSH 


LET PIRACl - 2*Pl*PITCHIREVI 

U394 





34,2364 

7765C 

1 


GOTO 



- 

0395 

REF 

1 



34,2365 

76103 

1 



ATTO 15P1 

AROUND 

SETLCC 

A0396 











♦ 


AC397 








CCNSTRUCT SM TO 

S/t PATPIX, TSMV 



0398 

0399 

REF 

1 

37, 2CC0 
37,2103 



SETLCC 

6ANK 

Pll TWO 

36 IN COL., 34 IN DISK 


0400 

REF 

1 




COUNT 

36/P 11 


- - - 











0401 

04C2 

0403 



37.2103 

37.2104 
37,21C5 

5 7 546 
14G17 

7 7756 

1 

1 

( 

ATTDISPl COS 

STOOL 

SIN 

DCCMP 

14D 

-,54C0S(P ) 


0404 

0405 

REF 

6 LiST 46^ 

37,2 IC6 
37,2107 

14013 

15332 

C 

1 

StODL 

ICO 

zERt vecs 

.5*SIn(PJ 



gap: 


L 
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04CS 

OAIO 

REF 

1 1 

LAST 

m M. M* 

53 1 

37.2111 

37.2112 

37.2113 

A1335 

C331C 

_Q33QI 

1 

C 


SLOAU 

DMP 

SPCL VARG 
SATE LRT 

TIHEl - RPSTART ,CSECS fi-lA, 

QAU 





37,211A 

A526 1 

c 


SL 

DSU 


0<tl3 





37,2115 

20217 

1 



lAO 


OAIA 

REF 

U 

LAST 

521 

37.2116 

15330 

c 



DPHALF 


0Ai5 





37.2117 

A5215 

c 


OAD 

OSU 

ASSUMING X(SM) ALONG LAUNCH AZIMUTH, 

0A16 

KEF 

8 

LAST 

52 1 

37.2 12C 

0263A 

1 



LAUNChAZ 

LAUNChAZ » ANGLE FROM NORTH TO XISMJ. 

yAl7 

ref 

6 

LAST 

527 

37j2l2l 

C2AC1 

c 



AZIMITH 

AZIMUTH « -ancle FROM NORTH TO ZiS/CI 

OAie 





37.2122 

776 3 A 

b 


RTd 


DETERMINE IF ROLLOUT 

QAIS 

REF 

1 



37.2 123 

70A73 

c 



RLTST 

IS CCMPLETEC 

0A21 





37.212A 

71A06 

c 

ATTOISPR PUSH 

COS 

CONTINUE COMPUTING TSMV 

QA22 





37,2125 

776C6 

1 


PUSH 


LET RIRADl » 2*P 1*RCLL t REV 1 

0^23 





37,2126 

72A05 

c 


DMP 

SLl 


0A2A 





37,2127 

CQ017 

1 



lAO 


UA25 





37,2130 

1A027 

1 


STOOL 

220 

-.5ACCS IR »*COS( PI 

QA26 





37,2131 

77676 

c 


DCOMP 



0A27 





37.2132 

00023 

c 


STORE 

leo 

-.5*CCSIR i 

0A28 





37,2133 

72A05 

c 


OMP 

SLl 


0A29 





37,213A 

C0013 

c 



lOD 


0A30 





37,2135 

IA033 

1 


STOOL 

260 

-.54iCCS(R 1*SIN(P» 

0A31 





37,2136 

A1556 

1 


SIN 

PUSH 


QA32 





37,2137 

G0031 

c 


STORE 

2AD 

.5«SIN(R) 

QA33 





37,2 lAO 

72AC5 

c 


DMP 

SLl 


0A3A 





37,21A1 

Q0017 

1 



lAD 


0A35 





37,2 H2 

l<t021 

1 


STOOL 

16D 

-,5«SINIRl<CaS(P» 

CAi6 





37,21A3 

77676 

c 


DC OMP 



VA37 





27,21AA 

72AC5 

c 


DMP 

SLl 


0A3e 





37,2 1A5 

CCQ13 

c 



IGD 


0 A 3 S 





37.2 1A6 

2A02S 

c 


STOVL 

20U 

-.5*SIN(R1*SIM P > 

OAAO 



- - . _ 


37,21A7 

00013 

c 



lOD 


AOAAl 



- 

- - - 




FKOM 

TSMV FIND 

THE half 

UNIT VECTCRS XDC,VCC,ZCC » INPUT TO CALCGTA 

0AA2 





37,215C 

77656 

1 


UNIT 



0AA3 

R E F 

3 

LAST 

92 

37,2151 

2671A 

1 


STOVL 

XOC 

XDC - .5*UNir(SlN(Pl,0,-CCS(P) 1 

OAAA 





37, 2152 

00021 

1 



1 60 


0AA5 





37,2153 

7 76 56 

1 


UNIT 



0AA6 

REF 

3 

LAST 

92 

37,215A 

26722 

1 


STOvl 

YDC 

YDC » .5<UNIT{-SIN<«1MC05(P1,-C0S(R) . 

0AA7 





37,2155 

C0027 

1 



220 

-s f NTTiTiTm p 1 r 

CAA8 





37,2156 

77656 

1 


UNIT 



3AA9 

REF 


LAST 

92 

37,2 157 

36730 

c 


STCALL 

ZOC 

ZOC « .5*UMT(-Ca5(R)*CaSTP),SINrRI, 

0A5O 

REF 

2 

LAST 

4A 2 

37,216C 

A71AC 

1 



CALCGTA 

■ — -casiRi*sT7rrpTr“ ■ 

Ap_A5l 








CALL 

CALCGTA tc 

COMPUTE 

DESIRED SM ORIENTATION OGC.IGC.ANO MGC 


A0^52 - - - 

A0A53 FINC CIFFEft6NCfc VECTOR 06L7ACDU * CGC-CDOX 
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AC^S31 







C 

ENTER HERE IF ATTITILE HOLD 





37f 2161 

41575 

NQPQLTM 

VLOAO 

PUSH 

OGC IGC 

. - 

0455 

REF 

15 

LAST 

526 

37,2162 

02760 

1 



OGC 

Change igc to hgc for compatibilitv 

0^56 





37,2163 

45006 

C 


PUSH 

CALL 

MGC OGC 


REF 

2 

LAST 

49 5 

37,2164 

47432 

1 



COUTP IC 

mITH V,Z,X CRCER of CDUSPCT 

OAse 





37,2165 

47175 

1 


VLOAO 

RTB 

OPHI OCC-COUX ,PD4 

C4S9 





37,2166 

00003 

1 



2 

OELTACDU • CTHETA - IGC-CDUY , 0 

046C 

REF 

3 

LAST 

4ill 

37,2167 

45547 

c 



V1STC2S 

CPSI MCC-COUZ , 2 

QA6I 

REF 

1 



37, 2170 

2 73 1 7 

I 


STCVL 

eOOSTFPP 


0^62 

REF 

7 

L<S1 

531 

37,2171 

15332 

1 



ZERLVECS 


c^ea 





37.2172 

24CG1 

c 


STCVL 

0 


0A6A 

REF 

6 

LAST 

44 5 

37,2173 

00767 

1 



CDUSPCT 


0<ifc5 





37,2174 

47034 

c 


RT8 

RTB 


0466^ 

REF 

_1_ 

LIST 

532 

3 7^2175 

45547 

c 



V1STC2S 


0<»67 

REF 

1 



37,2 176 

704 5 3 

1 



OELS TOR 


0^66 





37,2177 

14013 

c 


STOOL 

100 


QAcS 

REF 

1 



37, 2200 

CC741 

c 



S INCCUZ 


0^70 





37, 2201 

72405 

c 


ONP 

SLl 


CA71 





37,2202 

CQCOl 

0 



0 


0^72 





37,2203 

60415 

1 


OAO 

SF2 

change scale CF AK TO 2REVS 

0^73 





37,2204 

00005 

1 



4 


0A7^ 





37,2205 

77650 

1 


GOTO 



0^75 

REF 

1 



37,2206 

70366 

c 



ATTO 1SP2 


04 76 

REF 

2 

LAST 

524 

34,2000 




SETLOC 

PHONE 


C47 7 





34,2366 




BANK 



0476 

REF 

2 

LAST 

524 7C 

531 : 

244 2444 


COUNT 

34/ P 1 1 


04 7 i 





34,2366 

14021 

1 

ATICISP2 

STOOL 

160 

160, .5(QPHI * OTHETA4SIN(COUZn 

04B0 

REF 

1 



34,2367 

0074 7 

c 



COSCCLZ 


0481 





34,2370 

41405 

c 


DHP 

PUSH 


0482 





34,2371 

00001 

c 



0 


0463 





34,2372 

72405 

c 


OMP 

SLl 


0484 

REF 

1 



34,2373 

00751 

1 



CCSCDUX 


0405 





34,2374 

41325 

c 


POOL 

DHP 


04 86 

REF 

1 



34,2375 

CC743 

1 



SINCCLX 


0487 





34,2376 

00003 

1 



2 


0486 





34,2377 

72415 

1 


OAO 

SLl 


04 89 





34,2400 

77626 

c 


staor 



0490 





34,2401 

63755 

c 


stool 

1 70 

170, .51DTFeTA4CCS(CDUX> *C0S(CDUZ1 

G4 91 





34,2402 

72405 

c 


OMP 

SLl 

♦ DPSI*SIN(COUXM 

C492 

REF 

2 

LAST 

533 

34,2403 

0074J 

1 



S INCCbX 


04 93 





34,2404 

41325 

c 


POOL 

OMP 


04 94 

REF 

2 

LAST 

533 

34,2405 

CC751 

1 



ccsccux 


0495 





34,2406 

00003 

1 



2 


0496 





34,2407 

72425 

1 


OSU 

SLl 


0497 





34,24i0 

77626 

c 


STAOI^ 



0498 





34,2411 

77754 

1 


STORE 

180 

TST; •5(-CTHETA*SIN(CDUX l*CCSTCDUr) 

0494 





34,2412 

77751 

1 


TLOAO 


+ DPSI*COS(CDUXn 


r 


I 
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Q5C0 

C501 



34, 2413 

C0021 

1 

16D 


REF 

S LAST 243 

34f24l4 

03077 

1 

store AK 

STORE attitude ERRORS IN AK,AK1,AK2 

Q5Q2 


34.2415 

77776 

1 

EXIT 










AO 503 






display attitude efpcps cn foai 

VIA KEEGLER 


Q5C4 

REF 

lie 

LAST 

529 

34,2416 

0 45 55 

C 

SATCUT 

TC 

bANKCALL 


G505 

REF 

2 

LAST 

529 

24,2417 

424C A 

1 


CAOR 

NEEDIER 


0506 

REF 

2 

LAST 

34 1 

34.2420 

3 4113 

C 

ATERSET 

CAP 

nCTBl 

DELAY .25 SEC 

0507 

REF 

1 19 

LAST 

534 

34,2421 

0 45 55 

C 


TC 

bANKCALL 

EXECLTION ♦ delay «.56SeC APPRCX 

05C6 

REF 

t 

LAST 

509 

34. 2422 

01730 

1 


CAOR 

DELAVJCB 


Q5CS 

REF 

2 

LAST 

529 

34,2423 

0 2326 

1 


TC 

ATER JC8 

END CF ATT ERROR DISPLAY CYCLE 













0510 

REF 

22 

LAST 

472 

34,2424 

4 4705 

C 

SATCLEAH 

CS 

EIT6 


C511 





34,2425 

0 OOC6 

1 


tXTENO 



0512 

REF 

24 

LAST 

378 

34,2426 

C3 012 

1 


AND 

C H A N 12 

CLEAR IRU EBRCH COUNTER 

0513 

REF 

26 

LAST 

527 

34,2427 

0 5301 

c 


TC 

PHASCHNG 

TURN CPF PfiCTECTlON 

0514 





34.243C 

00004 

0 


OCT 

00CL4 

FCR ATTITUCE ERROR DISPLAY 

05141 

REF 

1 14 

LAST 

53 1 

34,2431 

3 47 14 

1 


CAP 

2ERL 


05142 

REF 

1C 

LAST 

534 

34, 2432 

55*476 

1 


TS 

AK 

ZERO CUT 

05143 

REF 

1 



34,2433 

55*477 

c 


TS 

AKl 

AKS FCR 

05144 

REF 

1 



34, 2434 

55'5CC 

1 


TS 

AK2 

DOWNLINK 

0515 

REF 

64 

LAST 

52e 

34,2435 

C 5112 

c 


TC 

ENCCFjCe 














0516 





34,2436 

51575 

1 

Sll .1 

VLDAO 

A6VAL 


0517 

REF 

7 

LAST 

508 

34,2437 

Cl 177 

1 



VN 


05ia 

REF 

5 

LAST 

274 

34,2440 

27723 

1 


STCVL 

VHAG I 

VI SCALED 2(7J IN HETERS/CSEC 

0519 

REF 

7 

LAST 

508 

34,2441 

01171 

1 



KN 


C52U 





34, 2442 

45246 

c 


AdVAL 

OSU 


0521 

REF 

4 

LAST 

508 

34,2443 

05311 

1 



RPAO 


0522 

REF 

1 

LAST 

272 

34,2444 

27735 

c 


STCVl 

ALTl 

H SCALED 2(29) IN HETERS 

0523 

REF 

e 

LAST 

534 

34,2445 

C1171 

1 



RN 


C524 





34,2446 

50256 

c 


UNIT 

DCT 


0525 

REF 

8 

LAST 

534 

34,2447 

cin7 

1 



VN 


0526 





34,245C 

77752 

1 


SLl 



0527 

REF 

2 

LAST 

272 

34.2451 

0373? 

1 


STORE 

HOOT 

HCOT SCALED 2(7) IN METERS/CSEC 

0526 





34,2452 

7 76 16 

c 


RVO 



0529 

REF 

0 - 

d 

LAST 

53 3 

34,2453 

2 1716 

c 

CELSTCR 

CA 

BCC STEHP 


0530 





34,2454 

0 0006 

1 


EXTEND 


STORE DElTACOL INTO PDL 0,2,4 

0531 

REF 

241 

LAST 

53 1 

34,2455 

2C 154 

c 


RSU 

NPAC 


0532 

REF 

6 

LAST 

499 

34,2486 

50 12C 

1 


INCEX 

F IXLCC 


0533 





34,2457 

54 OCO 

c 


TS 

0 


0534 

REF 


LAST 

534 

34,2460 

3 1717 

1 


CA 

BGOSTEHP *l 


0535 





34,2461 

0 G006 

1 


EXTEND 



0536 

REF 

242 

LAST 

534 

34,2462 

2C 155 

1 


MSU 

MPAC +1 


05 3 7 

REF 

7 

LAST 

534 

34,2463 

SC 120 

1 


INDEX 

F IXLCC 


0538 





34,2464 

54 dC2 

1 


rr 

2 


C539 

REF 

4 

LAST 

534 

34,2465 

3 1720 

c 


CA 

8CCSTEFP 42 


0540 





34,2466 

0 Q0C6 

1 


EXTEND 



0541 

REF 

242 

LAST 

534 

34,2467 

2C 156 

1 


HSU 

MPAC *2 
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0542 

REF e 

LAST 

534 

34,2470 

5C 120 

1 


INDEX 

F IXLCC 


0543 




34,2471 

54 004 

1 


7S 

4 


0544 

REt L 

LAST 

ZU 

34.2472 1 6030 

c 


TCP 

DANZ IC 


0545 

ref 244 

LAST 

534 

34,2473 

3 0154 

1 

RLTST 

CA 

HPAC 

oeterpin'e if rollout 

05451 




34,2474 

C 0006 

1 


EXTEND 


IS CCMPLETEC 

0 545 2 

R E F . 5, 

LAST 


34.2475 

7 17C1 

I 


MP 

SATRLRT ♦! 


05453 




34,2476 

C 00C6 

1 


EXTEND 



05454 

REF 3 

last 

535 

34,2477 

6 6030 

1 


eZMF 

DANZ IG 

UNLIKE SIGNS STILL ROLLING 

0540 




34.2500 

0 00C6 

1 


EXTEND 


ROLLOUT CCMFLETED 

Q5461 

REF 1 



3^,2501 

3 3563 

1 


OCA 

KHDVTCTL +2 

ZERO OUT flClL CCNTRI0UTIGN 

05462 

REF 245 

LAST 

53 5 

3^.2502 

52 155 

1 


DXCH 

HPAC 


05463 

REF 4 

LAST 

535 

34.2503 

0 6030 

\ 


TC 

DANZ IG 


05464' 

REF 1 1 

LAST 

53 1 

34,2504 

0 60C6 

1 

NCPCLV 

TC 

INTPRET 

COMES HERE IF 

05465 




34,2505 

S20C1 

1 


SETPD 

GCTC 

ATTITUDE HOLD 

05466 




34,2SC6 

OCOCl 

C 



0 


05467 

REF 1 



34,2507 

76161 

c 



NOPCLVP 


0547 

REF 1 



34, 2510 

01673 

1 

CCEPPOLY 

ADRES 

POLYICC 


0540 




34,2511 

C1476 

0 

V06N62 

VN 

0662 


R0552 

SATLPN 

T AKECVEP 

1 FLNCTICN 







R0553 

444444 « 4444 <* 4 *«** 4 « 4 «*<»* 







B0554 

PPCGR AN 

CESCPIPTICN 








R0155 

J«XC 

NO Fate. 1 








RC556 

PCC 

eY ELIASSEN 








R0557 

FLNCllCNAL CIESCRIFTICN 








R0558 OLPlhG THE COASTING PHASE CP SIVB iTTACHECi Th£ 

P0559 ASTRChAUT PAY PECCEST SATLHh TAKECVEP THROUGH 

P0S6Q EklEKCEC VERB A6 (BITS UflA OF CAPCATRl SET ). 

PC561 UE CPC PEGARCS RHC CCPPAAOS AS ECCY-AXES RATE 

P 0 5 6 2 _ C_CiiP A ^C_S_ AKU 1 T TRANSPITS THESE TC SATURN AS DC 

ROSea VCLTACtS. THE VALUE OF THE CCNSTAM RATE COMMAND 

R056A I« 0.5 CEG/SEC. AN ABSENCE CF RHC ACTIVITY RE- 

R OSfeS SILTS IN A ZERO RATE CCPMANC. 


RLS66 THE FCAI ERROR NEECLES WILL INDICATE THE VALUE 

R056 7 CF THE RATE CCMPANO, 


R0566 CALLING SEQUENCE 


R056<J C/PFIG +90 TC PCSTJLPP 

RC570 CACR SATSTKON 

P0571 SLCFClllNES CALL EC 

RQ572 ENCEXT 

R0573 lENKCALL 

R057A ST ICKCHK ^ ^ 





I 
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PQ575 MECLEF 

R0576 T5RIPT 

hilill BUkl*-!- 


R0578 

ASTKFACT 

PEGLESTS 






R0519 

CMP V 

- VERB A6 ENTER 



R0560 


(CONCITICN - EITS I3t IS CF DAPCATRl SETJ 








R058I 

EX 11 

- VERB S8 ENTER (FLASH VQENS6I 



«CI5e2 


VERB 21 ENTER AXXXX ENTER VHERE A^O OR 1 



R.Q5ft3 


VERB as ENTER 



R058A 


VERB SE ENTER 




BQSBS NCFP n Exn HOCE 

R0586< VERB ^6 ENTER 1 SE £ "aTt RCKAIT ^BOVEJ 


R0567 AL^FF CP AECRT EX 11 RCCe_S 


Efl5_85 ECEL 


R058<3 CCIFU 


ROSSO SAUPN RATES Ih COUXCRD» CCUYCHCi CCUZCRC 


-RjQl^l ERASAELE iMI I AL I 2A1 ICN 

PQ592 [4PC A1P1 ( BUS 13, IS POST EE SET > 

RC593~ CEEPIS 


R_fl594 CEMPALS 

PC595 CClXCHt, CCUYCRCt C0U2CRC 


CSSfc 





43.3210 



BANK 




0597 

05S8 

REF 

3 

LAST 

2S 1 

43r2C00 



SETLCC 

FXTVERES 







43.3210 



BANK 















059S 

REF 

1 






COUNT 

23/STTKE 



-600 





43,3210 

C 00C6 

1 

SATStKCN EXTEND 




06001 

REF 

1 



43.3211 

3 3226 

1 

OCA 

2PEDCSAT 



G60C2 





43,3212 

C CGC4 

C 

INHINT 




06003 

REF 


LAST 

25S 

43,3213 

52*313 

C 

OXCH 

T5L0t 



Q60CS 

REF 

12 

LAST 

422 

43.3214 

3 4672 

c 

Caf 

PCSNAx 



C6C1 

REF 


LAST 

185 

43,3215 

54 C30 

c 

IS 

TIMtS 



06011 

REF 

1C 

LAST 

53C 

43,3216 

4 C1C2 

c 

CS 

FLAGNP06 

TURN CN BITS 15,14 OF 


06012 

REF 

2 

LAST 

129 

43.3217 

7 4105 

c 

HA S K 

RELTAEil 

FLAGRRC6 


06013 

REF 

11 

LAST 

S3 < 

43,3220 

26 IC2 

c 

AOS 

FLAGVBC6 

SATSTICK CONTROL OF 

T5 

060132 

REF 

12 

LAST 

529 

43,3221 

0 4633 

c 

tc 

i pnkcall 

ZERO JET CHANNELS IN 14 

■RS AND THEN 
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- 






USER* 

S PAGE NO. 16 

E6 SA 

- 

06013^ REF 

1 


^3j3a22 

42616 

C 

CAOP 

ZBHtJjET 

LEAVE THE 

T6 CLOCK CISABLEO 



0601^ 



^3t3a23 

C CCC3 

1 

R£L INT 







17- 

LIST 26C 

^3,3 llh 

0 2125 

c 

TC 

GOPI N 

EXIT THUS 

BECAUSE WE CAME VIA 

VA6 


060151 REF 

7 

U4ST 52S 

Eb, 17C4 



EOANKa 

00DV3 






06016 BEL 


L IS_l 18 J _ 

<i3.3225 

C2765 

1 2RECCSAT 

2CA0R 

PEDCSAT 





06G16 



^3t 3 226 

46 IC6 

1 






- - 

06(11.62^. 



32f 2017 



BANK 

32 




- 

Q6QU^ REF 

1 


23»2CG0 



SETLOC 

PI IFCCR 





C60166 



22,2U5 



BANK 







0602 

REF 

3 

LAST 

21 e 

23,2765 

22 016 

C 

HEDCSAT LXCH 

BANKRUPT 

ALSO COMES HEME FOR RESTARTS 

U6C2 1 





23,2 166 

C 0006 

1 

EXTEND 



060.21.- 

REF 



L^Sl 

2U 

23^2167 

22 0_U 

\ 

CXCH 

QRUPT 


06023 

REF 

8 

LAST 

529 

23,2770 

4 1501 

C 

CS 

Rf SFLAGS 

TURN ON BIT3 CF RCSFLAGX 

06024 

REF 

18 

LAST 

529 

23,2171 

7 4710 

1 

MASK 

BIT3 

FCR 

06C25 

REF 

9 

LAST 

53 T 

23,2772 

21'501 

c 

AOS 

RCSF LAGS 

NEECLER INITIALIZATION 

0603 

REF 

23 

LAST 

536 

23,2773 

0 4633 

c 

TC 

I eNKCALL 


0604 

RtF 

3 

LAST 

534 

23,2174 


1 

CACR 

NEEOLER 

DISABLE IMD EFR COUNTERS ETC. 

_06C5 

--R-EF. 

_ie_ 

LAST 

250 

23,2775 

3 4702 

0 

CAF 

bIT9 

SIVB 

C606 





23,2176 

0 00 06 

1 

EXTEND 


T AKECVER 

0607 

REF 

25 

LAST 

534 

23,2777 

05 012 

1 

HOR 

CHAN12 

ENABLE 

0608 





23,3000 

0 0006 

1 

EXTEND 


SET UP T5 CYCLE 

0609 

REF 

1 



23,3001 

3 3046 

c 

OCA 

2SATSTCK 


0610 

REF 

6 

LAST 

536 

23,3002 

53'313 

c 

OXCH 

T5L0C 


0611 

REF 

1 



23,3003 

3 3C44 

1 

CAF 

100MST5 

IN ICO MSECS 

0612 

REF 

4 

LAST 

536 

23,3004 

54 030 

c 

TS 

TIMES 


0613 

REF 

as 

LAST 

221 

23, 3005 

1 5222 

1 

tlf 

RESUME 

END GF SATURN STICK IN I T I AL I Z AT I ON 


A0614 








THIS SECTION IS 

EXECITEO EVERY 

100 MSECS 

Q615^ 

Mf 


LAST 

531 

23,3006 

22 016 

C 

SATSTICK LXCH 

BANKRLPT 


0616 





23,30U7 

0 0006 

1 

EXTEND 



0617 

REF 

4 

LAST 

531 

23,3010 

2 2 0 12 

1 

OXCH 

URUPT 


0618 

REF 

2 

LAST 

531 

23, 3011 

3 3045 

C 

CAF 

2SAT STCK 

SET LP BUPT 

0619 

REF 

7 

LAST 

53 1 

23,3012 

55*312 

1 

TS 

T5LUC 

LC CRCER LCC SET 

0620 

REF 

2 

LAST 

531 

23,3013 

3 3044 

1 

CAP 

1UOM5T5 

100 msecs 

0621 

REF 

c; 

LAST 

531 

23,3014 

54 030 

c 

ts 

TIMES 


0622 

REF 

1 



23,3015 

3 3043 

c 

CAF 

STIKBITS 


0623 





23,3016 

0 0006 

1 

EXTfNO 



0624 

REF 

2 

LAST 

382 

23,3017 

06 031 

c 

RXOR 

CHAN 2 1 

CHECK iFiniN AOt elTS Same 

0625 

REF 

2 

LAST 

531 

23,3020 

7 3043 

1 

MASK 

s T I K e I T S 


0626 

REF 

24 

LAST 

531 

23,3021 

0 4633 

c 

TC 

IBNKCALL 

SET RATE INCKES 

0627 

REF 

1 



23,3022 

43114 

1 

CaOR 

STICKCHK 

FOR PITCH YAW APTD WOLl 

0628 

REF 

2 

LAST 

101 

22,3023 

51*656 

c 

INDEX 

PMANNCX 

SET SATURN BATES 

0629 

REF 

1 



23,3024 

3 3037 

0 

C A 

S At PATE 


C63C 

REF 

11 

LAST 

53 4 

22,3025 

55*476 

1 

TS 

AK 

ROLL 
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P 



0631 

REf 

2 

L^ST 

107 

23 1 3 C 2 6 

51*657 

1 

INDEX 

PMANNtX 



C632 

REF 

2 

L^ST 

53 7 

23,3C27 

3 3037 

0 

CA 

SATF ATE 



0631 

REL 

2 

LA51_ 

3 i4 

23m 3030 

SS'A?? 

c 

TS 

AM 


P ITCH 

063A 

REF 

2 

L^ST 

1 1 1 

23t303l 

51*660 

c 

INDEX 

YMANNCX 



0635 

REF 


LAST 

536 

23,3C32 

3 3037 

c 

CA 

SATRATE 



0636 

ref 

i 

LAST 

53 A 

23. 3C33 

55*5CC 

1 

TS 

AK2 


YAW 

C637 

REF 

25 

LAST 

537 

23, 3C3A 

0 A633 

c 

TC 

1 BNKCALL 

PCR 

SATURN INTERFACE AND FOAI DISPLAY 

0636 

REF 

Jl 

LAST 

537 

23.3035 

A2A0A 


CAOR 

NEEDIER 



063S 

REF 

26 

LAST 

53 7 

23,3C36 

1 5222 

1 

TCP 

KESLPE 

EhC 

CF SATIRN STICK CONTROL 


06A0 

Q6A1 

06A2 



23,3037 

23.3040 

23.3041 

QOQOO 

CC476 

77301 

1 

1 

C 

SAIPATE 

DEC 

DEC 

DEC 

0 

♦ 316 
-31 a 

IN DETENT - ZERC RATE 
PCS RATE .5C/S P, .30/S 
NEG RATE DITTO 

P AND Y 


- 

Q6<t3 



23,3042 

COOOU 

1 

- 

CLC 

0 

PQS NEG BITS CN ASSUME 

IN DETENT 



06*ffi 



23f3g43 

CCC77 

1 

STlKeiTS 

OCT 

00077 




- 

0645 



23,3044 

37766 

1 

100PST5 

DEL 

16374 





0646 

REF 

6 

LAST 53 7 E6,n04 




EBANK» 

BODY 3 





064 7 

REF 

1_ 

23,3045 

03006 

1 

2SATSTCK 

2CA0P, 

SATSTICK 





C647 

REF 

1 

23,3046 

461C6 

I 









K 


II 
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L T£1 SlAPCh USER'S PAGE NO, I EO S4 


H2000 PKGMA CeSCPIFTICN S17.1 ANC $17.2 


R2002 tee TFI search RCUTIhE OETErtWINES THE HINIMUH TOTAL VELOCITY TRANSFER TRAJECTCPY FRCM A GIVEN TPI 

P2ajQ4 KAhE UVEB TIME VlTHA THE CCNSTRAINT Cf A SAFE PERI C ENTEP. THIS VELOCITY IS THE SUN OF THE I MPULSI VE VELOCITIES 
R2006 FCF TFE IP! ANC IFF MANEUVERS. 

R2C07 THE SI7.1 flCLTINE EXTPAFCLATIS THE STATE VECTORS CF BOTH VEHICLES TC THE TPI IIWE AND CCNPUTES THE 

KZflliS RELAT IVE PHASE ANCLE bETrtEEN THE VEHICLESt THE ALTITUDE 0 IF F ERENC 6 (I . E . THE MAGNITUDE DIFFERENCE OF THE 

P2011 PCSITICN VECTORS! ANC SELECTS A SEARCH SECTCP BASED ON THE S ICN CF THE ALTITUCE C I F F Efl ENC E . ‘ ^ 

R2013 THE S17.2 ROUTINE FURTHER CEFINES THE SEARCH SECTCH EY COMPUTING ANGULAR LIMITS ANO USES THE TIME THETA 

R20i5 SLEROLTINE T C C O MFLTE THE SEA RCH START ANC END TIMES. THE SEARCH IS THEN MACE IN AN ITERATIVE LOOP USING THH 
R2017 LARBEFT SLBRCUTINE TC COMPUTE THE VELCCITIES REQUIRED AT TPI TIME ANO AT TPF TIME. EXIT FROM THE SEARCH LOOP 

R2019 IS MACE mHEN SCLUTlCK CRITERIA ARE MET (NORMAL EXIT) OR AS SCCN AS IT IS EVIDENT THAT NC SCLUTIGN EXISTS IN 

R 2 0 2 1 THE SECTCR SEAPCHEC. . 

R2022 calling SECUENCE 


R2023 BCTH ROUTINES ARE CALLEC IN IMERPPtTIVE CODE AND RETURN VIA QPRET. Sl7.'l HAS CNLY A NORMAL EXIT. 

K2025 S17.2 RETURNS VIA CPRET FCR NCRMAL EXIT ANO TO ALARUMS FOR ERR OR EX IT. 

H2C2e SLEFCLTINES CALLEC 


f<2C29 CSMCCNIC 

R2030^ LEMCCMC 

P2031 TIMETHET 

R2032 IMTVEL 


2033 



36*2000 




BANK 

36 





2034 

REF 

1 

36»2C00 




SETLOC 

P17S 





2035 



36.2C0C 




BANK 






2036 

REF 

1 

- 




COUNT 

36/TPI 

- - — - 




2037 

REF 

17 LAST 5ie 

£7,1537 




EbANK* 

RACT3 


















H20 3-e_ 


AAt* TEMPORARY 











2039 



36,20CC 

GCCC4 

C 

HPE 

20EC 

157420. C B-29 

EARTH'S MIN. PERICENTEP 

ALTITUDE 

65 N.M. 


2039 



36,2001 

31566 

C 








2040 


- 

36, 2C02 

coooo 

1 

MPL 

2UEC 

10666.0213 e-29 

MOGNSS MIN. PERICENTEP 

ALTITUDE 

35000FT 


2040 



36,2003 

12326 

C 








2041 



36,2CQ4 

C(:C02 

C 

COSEC 

Toec 

4GU0C 





2041 



3 6 f ^ C 0 5 

I6l0o 

1 








2042 



36,2C06 

OOOOO 

1 

CLSEC 

2 DEC 

150CC 





2042 



36,2C07 

35230 

C 








2043 



36,2010 

12137 

1 

PIINVERS 

20EC 

•3183C96662 





204 3 



36,2011 

C6033 

1 








2044 



36,2C12 

C6 161 

1 

SEC 1 THET 

20EC 

m 19A 4A 





2044 



36,2013 

30707 

1 
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20^5 





36t2C14 

35252 

1 

SEC2THeT 

20EC 

•9166666667 






20^5 





36,2015 

25253 

1 










20A6 





36,2016 

67777 

1 

NAN7FE6T 

2DEC 

-1.0 B-2 






20^6 





36,2017 

T7777 

C 










20^7 





36,2020 

coooo 

1 

LIHVEL 

20EC 

.6096 E-2 B-7 

2FPS 





^0^7 





36,2021 

30 760 

_e_ 










20A8 





36,2022 

COOCO 

1 

DFTFCCN 

20EC 

.1524 63 6-29 

500 FEET 





2QR8 





36,2023 

00114 

c 










20AS 





36.2024 

00040 

c 

CP- 

.002 

20EC 

0.002 






2049 





36,2025 

3C447 

c 










2030 





36,2026 

71220 

1 

517 

.1 

STQ 

OLOAC 






2031 

REF 

17 

LAST 

48 E 

36,2027 

01340 

1 




NORHEX 






2052 

REP 

10 

LAST 

462 

36,2030 

03663 

1 




TTPI 






2053 

REF 

22 

LAST 

52 C 

36,2031 

34041 

c 



STCALL 

TCEC I 

ADVANCE PASSIVE VEHICLE 

TO TPI 




2054 

REF 

i 



36.2032 

27057 

0 




LEKCCMC 






2055 





36, 2033 

77624 

1 



CALL 







2056 

REF 


LAST 

48 E 

36,2034 

45372 

c 




LENSTORE 






2057 





36,2035 

77745 

1 



OLCAO 







2056 

REF 

11 

LAST 

54C 

3 6 f 2 C 3 6 

03663 

1 




TTFI 






2059 

REF 

23 

LAST 

54 C 

36,2037 

34041 

0 



STCALL 

TOEC 1 

advance active VEHICLE 

TC TPI 




2060 

REF 

1 



36, 2Q4Q 

27045 

0 




CSMCCMC 






2061 





36,2041 

7 7624 

1 



CALL 







2062 

REF 

2 

LAST 

40E 

36,2042 

45402 

c 




CSN5TCRE 






2063 





36.2043 

77775 

1 



VLCAO 







2064 

REF 

18 

LAST 

53 S 

36,2044 

C3540 

c 




RACT3 






20b5 





3o,2045 

63246 

1 



ABVAL 

POVL 

/RA/ 00 


PL 

2D 


2066 

REF 

9 

LAST 

52C 

36, 2046 

03554 

c 




RPASS3 






2067 





36,2047 

65256 

0 



UNIT 

POOL 

LMT RP 00 


PL 

60 


2068 





36,2050 

43C21 

c 



BDSU 

SET 






2069 





36, 2051 

00045 

c 




360 

/RP/ -/RA/ 





2070 

REF 

1 



36,2052 

00076 

c 




KFLAG 

CFF • ^ 





2071 





36,2053 

43040 

1 



BMN 

CLEAR 






2G72 





36,2054 

74056 

1 




♦ 2 






2073 

REF 

2 

L A S T 

54C 

36,2055 

C02 76 

1 




KFLAG 

CN • - 





20 74 

REF 

2 

LAST 

27^ 

3 6 f Z Cib 

27754 

1 



STCVL 

DELH ITF 






2075 





36,2057 

COOOl 

0 




CO 






2076 





36,2060 

53435 

c 



VXV 

UNIT 






2077 

REF 

9 

LAST 

32C 

36,2Ctl 

03562 

c 




VPASS3 






2070 

REF 

1 



3 6 f 2 C 6 2 

27646 

c 



STCVL 

E2 

ALMOST IT SAVE FOR 17.2 





2C7S 

REF 

19 

LAST 

54C 

36,2063 

03540 

c 




PACTS 






2080 





36,2064 

46206 

1 



PUSH 

VPRO J 






2001 

REF 

2 

LAST 

540 

36,2065 

03646 

0 




E2 






2002 





36,2066 

51352 

1 



VSL2 

Bvsu 

RTi 





2003 





36,2067 

50256 

0 



UNIT 

OCT 






2064 





36,2070 

OOOOl 

0 




00 






20 85 





36,2071 

^55 52 

0 



SLl 

ACCS 






2006 





36, 2072 

17715 

1 



POVL 







2007 





36 ,2073 

50235 

c 



VXV 

DOT 






2008 

REF 

2C 

LAST 

54 C 

36,2074 

C354C 

( 




PACT 3 






2089 

REF 

1 

LAST 

54C 

36,2075 

03646 

c 




E2 
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TPI SEARCH 


2Q90 

2091 

2Ci2 

2093 

2094 
20.95 

2096 

2097 
2590 
2099 
210C 
11 0.1 
2102 

2103 

2104 


Ai£ 

REf 

REF 

REF 

M.F_ 


e 

2 

15_ 


LiS7 27A 


LAST 517 
LAST 123 
LAST 54C 


36,2C76 
36f2C77 
36.2100 
36f 21C1 
36,2 102 
36.2103 


73325 1 
77626 C 
61160 1 


POOL 

STADR 

STOOL 


S ION 


THET 2EB0 


i LAST 12C 
11 LAST 54C 


36,2 104 
36,2 105 
36.2106 


00047 1 
3 7 7 6 C 
01340 1 


XI 

stcall xrs 

NCRMEX 


REF 


LAST 54C 


REF 


1 


36,2107 

36.2110 

36.2111 

36.2112 

36.2113 

36.2114 


77220 1 
C3657 C 
C354Q C 


S17.2 


STQ 


VLUAC 

OTCRP 

RACT3 


50256 C 


ONIT DOT 


03646 C 
75446 C 


ABS 


E2 

SORT 


43352 1 
34025 1 
57414 1 


SLl 


aoN 


OAC 

DP-.002 

DCOPP 


2105 

2106 
R2107 
R2ioe 

2109 
2109CS 

2110 
2111 
2112 

2113 

2114 

2115 


REF 3 

PH I ( CJ^ 
SIR (lEC 


LAST 54C 36,2115 

36,2116 

ieQ-(-( THETA2EK0 ^kSITI 


00316 C 
7411? C 
) , PRU 1 1 


KFLAC 
♦ I 

10O-(-{ THETA2EPO+K2I T n 


A L F P A ) 


REF 


1 


SU(ALPHA) ETC 
36,2117 
36,2120 


REF 


4 LAST 541 


36 

36 

36 


REF 


2 LAST 


9 1 


36 

36 

36 


21201 
2121 
2121C5 



52C 

541 


36 

36 

36 


2135 

2136 

2137 


77676 C 
16734 C 
03746 i 


DCOHP 

STOOL 


CSTH 
XF S 


54 1 
54C 


36 
36 
3 6 


2 14C 

2141 

2142 


24047 1 
03554 C 
77657 C 


STGVL XI 

RPASS3 

VSR* 


52C 

54C 


36 

36 

36 


2 143 

2144 

2145 


57176 C 
26657 1 
C3562 C 


STCVL 


0,2 
RVEC 
VPAS S3 


52C 


36 

36 

36 


2146 

2147 

2 150 


52C 


52 C 


36 

36 

36 


2151 

2152 

2153 


77657 C 
57176 C 
36746 1 
24737 1 
77745 1 
00037 C 


VSR* 

0 ,2 
STCALL VVEC 


OLCAO 


TThTTFlT 


2133 

2134 


123 

91 


36 

36 


2154 

2155 


03752 1 
16627 C 


STOOL TpO 


2116 





36,2127 

414 15 

1 

CAO 

PUSH 

PHKOl , -(THETZERC K5IT1 

2117 

2116 

REF 

3 

LAST 

52C 

36.2130 

36.2131 

43156 

03466 

1 

C 

SIN 

SET 

RVSN 


2119 

2120 
2120C5 

REF 

4 

LAST 

52C 

36.2132 

36.2133 

36.2134 

16732 

50146 

74136 

C 

1 

c 

STOOL 

COS 

SNTH 
bMN 
♦ 2 



402C5 

34011 


2121 
2 122 
2123 


COCCI 

452C6 

02617 


1 

C 

1 

C 


DMP 


SLTPC 
PI INVERS 


POSH 


OD 

osu 

THtTZERC 


2124 

2125 

2126 


02611 C 
41525 ( 
43342 C 


STOKE 

POOL 

SRI 


1 T 

PUSH 

OAO 


USER'S PAGE NO. 


E7 S3 


CENTRAL ANGLE 


SAVE INDICES FOP FURTHER USE 

ACTIVE AHE4C -* ACTIVE BEHIND 


CCMPUTE SEARCH SECTOR LINITS 


AGO .002 KACIANS TO IT 

GIVES CORRECT SINE. COSINE MUST BE 


CCHP. ICO .5 FOR ANGLE 


REVCLUT ICNARV HERES TNG IT 


PHII 1) 


(THET2ER0 ♦ K2ni 


SAVE JTART TIKE AND GET END TIME 


CF AGC PKCGPAM 


NASA 


iin trnc. 2A«i<?6a pandora .012 p/ice 5 <t 2 


L 

TPI 

SEARCF 






- 

USER'S PAGE NO. 4 E7 S3 

2135 

REF 

-3 

m 

L3ST 

54 1 

36t2 156 

C26U 

C 


IT 


2136 





36,2157 

734C6 

1 

PUSH 

SIK 


2137 ^ 

RfcF 

5 

im 

54 1 

36.2160 

16732 

C 

STOOL 

SNTH 


2138 





36,2161 

50146 

) 

COS 

BHN 


2l3eCS 





36,2162 

74164 

1 


♦ 2 


21381 





36t2163 

77676 

C 

DCOHP 



2139 

REF 


L/Sl 

54 1 

36,2164 

C2734 

C 

STORE 

CSTH 


21^0 





36,2165 

45150 

1 

LXA,1 

CALL 


21^1 

REF 

4 

. LA1.T 

541 

36,2166 

03745 

1 


XRS 


2142 

REF 

4 

L/Sl 

54 1 

36,2167 

24737 

1 


TINE THET 


R2143 

1M117L12E LOOP 







2144 





36,2170 

43145 

( 

DLOAO 

CLEAR 


2145 

REF 

1 ; 

LAST 

54 1 

36,2171 

00037 

C 


T 


2146 

REF 

5 

LAST 

459 

36,2172 

03661 

c 


ITSW ICH 


2147 

REF 


LAST 

91 

36.2173 

16621 

c 

STOOL 

TFI 

SAVE TINE FCR LCOP TEST 

2146 

REF 

6 

LAST 

495 

26, 2174 

15340 

1 


OPPO SPAX 


2149 

REF 

2 

LAST 

9 1 

36,2175 

16623 

1 

STOOL 

DELVEE 


2150 

REF 

_ J 



36,2176 

34017 

c 


MANYFEET 


2151 

REF 

2 

LAST 

91 

36,2177 

16625 

i 

STOOL 

HP 


2152 

REF 

1 



36,2200 

34013 

1 


SEtl THET 

70 DEGREES 

2153 





36,2201 

71214 

c 

BON 

OLOAC 


2154 

REF 


LAST 

54 1 

36,2202 

00316 

c 


KFLAG 


2155 





36,2203 

742C5 

c 


♦ 2 


2156 

REF 

1 



36,2204 

34015 

1 


SEC2THET 

330 CEGR6ES 

2157 

REF 

2 

L AST 

123 

36,2205 

37 750 

1 

STCALL 

THET L 


2156 

REF 

1 



36,2206 

7<i23G 

c 


CCNC AUL 


2159 





36,2207 

7C545 

1 

BIS OLOAC 

SRI 


2U0 

REF 

6 

LAST 

542 

36,2210 

02734 

c 


CSTh 


2161 

REF 

2 

LAST 

28C 

36,2211 

14021 

1 

STOOL 

COSTh 


2U2 

REF 

6 

LAST 

542 

36,2212 

02732 

c 


SNTH 


2163 





36,2213 

77742 

c 

SRI 



2164 

REF 

m 

LAST 

2fiC 

36,22 14 

24023 

1 

STCALL 

SINTH 

GET 4 QUADRANT ThETA 

2165 

REF 

2 

LAST 

28C 

36,2215 

47211 

c 


ARCTRIG 


2166 





36,2216 

4 32^^ 

1 

OPL 

OAC 


2167 





36, 2217 

74221 

c 


+ 2 


2168 

REF 

7 

LAST 

54 2 

36,2220 

15340 

1 


DPPCSPAX 

PUT THETA BEThEEN C,l 

2169 





36,2221 

65221 

c 

BOSU 

POOL 


21 7C 

REF 

*3 

LAST 

542 

36,2222 

C3750 

c 


THET L 


2171 

REF 

3 

LAST 

54 1 

36,2223 

03752 

1 


Tr 


2172 





36,2224 

75225 

c 

D5U 

S ION 

fast tines 

2173 

REF 

3 

LAST 

542 

36,2225 

C2621 

c 


TFI 


2174 





36,2226 

77640 

c 

8HN 



2175 

REF 

1 



36,2227 

744 32 

i 


RNCE lEst 

TIhE PLST HAVE A STOP 

R2176 

ACViiriCE 

PASSIVE FCP 

TarCet vector 





2177 





36,2230 

77 745 

1 

CONCALL OLOAC 



2178 

REF 

12 

LAST 

54C 

36,2231 

03663 

1 


TTP 1 


2179 





36,2232 

43015 

1 

OAC 

ION 


2180 

Rtf 

4 

L AST 

542 

36,2233 

03752 

1 


TF 


2181 

REF 

it 

LAST 

52C 

36,2234 

01312 

c 


AVFL AC 


2182 

REF 

1 



36,2235 

14242 

c 


ADVCSN 



CAPi 
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TFl SMFCH 


USER'S PAGE NO. 


E7 S3 


2163 

REf 

24 

L4ST 

54C 

36t2236 

34 041 

C 


STCALL 

TOEC 1 


218^ 

REF 

2 

L/ST 

54C 

36,2237 

27C57 

c 



LEPCCMC 


2165 





36. 224C 

7765C 

1 


GOTO 



2186 

REF 

1 



36,2241 

74244 

c 



JUNCT3 


2187 

REF 

25 

LAST 

543 

36,2242 

3404 1 

c 

ACWCSP 

STCALL 

TOEC 1 


^188 

plf 

2 

LAST 

54 C 

36,2243 

27045 

c 



CSNCCMC 


R2ie'5 

SIV E 

EACK VALUES CF 

bP ARC CELV6E 






2190 





36,2244 

77775 

1 

JUNCT3 

VLOAO 



2191 

RE F 

12 

LAST 

517^ 

36,2245 

CCCC7 

c 



VAT T 


2192 

REF 

« 

LAST 

516 

36,2246 

2764C 

c 


STOVL 

VPASS4 


2193 

REF 

it 

LAST 

517 

36,2247 

COGOl 

c 



RAT7 


219A 

REF 

2 

L/ST 

12C 

36.225C 

C3632 

c 


STORE 

RPAS S4 


219AC5 

REF 

9 

LAST 

48 1 

36,2251 

17415 

1 


STOOL 

RTAPG 


21S5 

REF 

c 

LAST 

542 

36,2252 

03752 

1 



TF 


21 S6 

_R£E 

1 LIST 

48C 

36,2253 

17423 

1 


STOOL 

DELLT4 


2197 

REF 

3 

LAST 

542 

26,2254 

C2625 

1 



HP 


2196 

REF 

2 

LAST 

9 1 

36,2255 

16631 

1 


STOOL 

HPC 


2199 

REF 


LAST 

542 

36.2256 

02623 

1 



DELV EE 


2200 

REF 

2 

LAST 

9 1 

36,2257 

16633 

c 


STOOL 

DEL V EC 


R2201 

PPEPiF E 

FCP LAPbEPT 








2202 

REF 

13 

U/S1 

542 

36,226G 

C3663 

1 



TTF I 


2203 

REF 

8 

LAST 

517 

3 6 , 2 26 1 

1 7503 

1 


STOOL 

INTI PE 


2203C5 

REF 

5 

L/ST 

542 

36,2262 

03746 

1 



XRS 


22U31 

REF 

e 

LAST 

489 

36,2263 

17746 

1 


STOOL 

R TXl 


220313 

REF 

3 

LAST 

526 

36,2264 

15 3 32 

1 



HI6Z ERCS 


220315 





36,2265 

65201 

1 


SETPD 

POLL 


22032 





36,2266 

OCQOl 

c 



00 


220325 

REF 

2 

LAST 

4 6 5 

36,2267 

33147 

c 



6PSFCUR 


22033 





36,2270 

777 15 

1 


PDVL 



220335 

REF 

22 

LAST 

54 1 

36,2271 

C3540 

c 



PACT 3 


22034 

REF 

io 

LAST 

48 2 

36,2272 

2 7570 

c 


STCVL 

RIMT 


220345 

REF 

e 

L/ST 

48E 

36,2273 

03546 

c 



VACT3 


22035 

REF 

9 

L/ST 

48 2 

36,2274 

37576 

1 


STCALL 

VIM T 


2207 

REF 

2 

LAST 

46 5 

36,2275 

220C0 

1 



IM T VEL 


P2208 

CCP PI IE 

F ET 

CETERA 








2209 





36,2276 

52375 

1 


VLUAC 

VSU 


2210 

REF 

8 

LAST 

516 

36,2277 

0362C 

c 



VTPRIPE 


2211 

REF 

6 

LAST 

54 2 

36,2300 

C3640 

c 



VPASS4 


2212 





36,2301 

414^6 

1 


ABVAL 

PUSH 


2213 

REF 

2 

LAST 

9 1 

36,2302 

26637 

1 


STOVL 

HELDELV 

/V2-VP(TPI*TF1/ 

2214 

REF 

14 

LAST 

516 

36,2303 

C3646 

c 



DELVEET3 

Vl-VA 

2215 





36,2304 

77646 

c 


A6VAL 


/Vl-VA/ 

2216 

REF 

2 

LAST 

91 

36,2305 

02635 

c 


STORE 

HAGv in 


2217 





36,2306 

45415 

c 


OAD 

STALP 


2218 

REF 

4 

LAST 

542 

36,23C7 

6ll?4 

c 


STOOL 

DELVEE 


2219 

REF 

6 

LAST 

54 3 

36, 231C 

C3746 

1 



XRS 


2220 

REF 

1C 

LAST 

54 1 

36,2311 

24047 

1 


STOVL 

XI 


2221 

REF 

1C 

LAST 

516 

36,2312 

^3612 

1 



VIPP IPE 


2222 





36,2313 

“17657 

c 


VSR* 



2223 





36,2314 

57176 

0 



0 f ^ 
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222A 

REF 

7 

LAS! 

541 

26,2315 

26746 

c 

c 


STOVL 

VVEC 


2225 

222t 

REF 

23 

LAST 

54 3 

36,2316 

C3540 


VSR* 

RACT3 





36,2317 

77657 

c 




2227 





3 6 » 2 3 2 C 

57176 

c 



0,2 


2226 

hef 


LAST 

54 1 

26,2321 

36657 

c 


STCALL RVEC 


222 i 

REF 




36.2222 

45322 

c 



PLRI APC 


2230 





26,2323 

71354 

c 


LAA,2 

DLOAL 


2231 

REF 

7 

LAST 

542 

36,2324 

C3746 

J 



XRS ♦ 1 


2232 





26,2225 

17657 

c 


SL* 



2233 





36,2326 

57576 

1 



0,2 


223<i 

REF 

4 

LAST 

543 

36,2327 

02625 

1 


ST CPE 

HP 


P2235 

nStelCF 

CE^CTES I MERPGLATICN- 

-SCLUT ION 

ACCEPTANCE IS FORCED 


2236 





36,2330 

71214 

c 


0ON 

OLOAC 


2237 

REF 

6 

LAST 

542 

26,2331 

C37C1 

1 



ITSW ICH 


2238 

REF 

1 



36.2332 

14443 

1 



ENOE h 


2239 

REF 

7 

LAST 

5 12 

36,2333 

02321 

c 



HPERPIN 


22^0 





26,2334 

50025 

c 


osu 

bmn 


22A1 

Rtf 

5 

LAST 

544 

36.2336 

C2625 

1 



HP 


22<i2 

REF 

1 



36,2336 

144C1 

1 



halfsafe 


22^3 





36,2337 

45325 

1 


POOL 

OSU 

HAS PERICENTER ALT SAFE 

22<i<» 

REF 

8 

LAST 

5^4 

36,2340 

02321 

c 



HPEPMN 


22A5 

REF 

1 

w 

LAST 

542 

36,2341 

02621 

I 



HPO 


22-46 





36,2342 

45240 

c 


OHN 

OSU 

(HPLIP-HPC I- IHPL IH-HPJ sHP-HPO 

2247 

REF 

1 



36,2343 

14360 

1 



INTERP 

SQLOTICN AT HANC 

2246 





26,2 344 

11240 

1 


B~NN 

CLCAC 


2249 

REF 

1 



36,2345 

13534 

1 



alaplps 

ITS GETTING WORSE - SOUND THE ALARM 

225C 

REF 

1 



36,2346 

340C5 

c 



COSEC 


2251 





36,2347 

5741*, 

1 

JUNCTl 

aOFF 

DCOPP 

OFF IS PLUS CN IS MINUS 

2252 

REF 

5 

LAST 

542 

36,2350 

C0356 

1 



kflac 


2253 





26,2351 

14352 

c 



+ 1 


2254 

REF 

2 

LAST 

123 

36,2352 

03 744 

c 


STORE 

DEL T EE 


2255 





36,2353 

43345 

1 

JLNCT2 

OLOAO 

OAC 


2256 

REF 

3 

LAST 

544 

36,2354 

C3744 

c 



OELTEE 


2257 

REF 

6 

LAST 

54 2 

36,2355 

03752 

1 



TF 


2256 

REF 

7 

LAST 

544 

36,2356 

27752 

c 


STCALL TF 


2259 

REF 

1 



36,2357 

742 0 7 

1 



BIS 

^YCLE 

2260 





36,2360 

452 14 

1 

INTERP 

SET 

OSU 

HP-HPC 

2261 

REF 

7 

LASl 

544 

36,2361 

C3461 

1 



ITSW ICH 


2262 





36,2362 

6530 1 

c 


NORH 

POOL 


2263 

REF 

11 

LAST 

543 

36,2363 

00C47 

1 



XI 


2264 

REF 

1 



36,2364 

24023 

1 



OFT^»CCN 


2265 





36,2365 

4 5215 

c 


OAC 

DSU 


2266 

REF 

9 

LAST 

544 

36,2366 

02321 

c 



HPLP PIN 


2267 

REF 

6 

LAST 

544 

36,2367 

02625 

1 



HP 


2266 





26,2370 

7<55C1 

1 


NORN 

SRI 


2269 

REF 

6 

LAST 

506 

36,2371 

OOOSQ 

1 



X2 


227C 





26,2372 

56264 

1 


}($U,2 

DtV 


2271 

REF 

12 

LAST 

544 

36,2373 

00046 

c 



XI 


2272 





26,2274 

•36 05 

1 


DMP 

SR* 


2273 

REF 

4 

LASl 

544 

36,2375 

C 3 7 4 A 

c 



DEL TEE 
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227A 





36t2 376 

57177 

1 



0 -1,2 


2275 

REF 


L4ST 

54 4 

36,2377 

37744 

1 


STCALL 

DELT EE 


21,7 6 _ 

-JgEf 

1 



36.2400 

74353 

J_ 



JUNCT2 


2277 





36,2401 

45325 

1 

HALFSAFE 

POOL 

OSU 

SAVE HP-HPLIH FCR POSSIBLE 

2276 

REF 

5 

L4ST 

542 

36,2402 

02623 

1 



DELVEE 


2215=^ 

JEJ 

3 

L4ST 

543 

36,2403 

02633 

C 



OtLVEC 

SAVE THIS TCC 

22 ec 





36,2404 

51406 

i 


PUSH 

AbS 


2261 





36,2405 

5C025 

c 


OSU 

BHN 


22ai 

REF 

1 



36.2406 

34021 

c 



LlHVEl 

2 FT PS 

2263 

REF 

c 

L^ST 

54 4 

36.2407 

74443 

1 



E NO E N 


2264 





36.2410 

45345 

1 


OLCAD 

OSU 


2285 

Atl. 

AS^ 

1./S7 

54 4 

36,2411 

02321 

c 



HPEPHIN 


2266 

REF 

4 

L/ST 

544 

36,2412 

C2631 

1 



HPL 


2267 





36,2413 

77725 

1 


POOL 



2266 





36.2414 

71240 

1 


6MN 

OLGAL 


226^ 

Rtf 

1 



36,2415 

744 24 

c 



LRCRCVC 


22S0 





36,2416 

71244 

c 


BPL 

OLCAC 


21 91 , 

REF 

_2_ 

L4ST 

544 

36.2417 

7436C 

1 



INTL RP 


2292 

REF 

6 

L3ST 

545 

36,2420 

03744 

c 



DELTEE 


2293 





36,2421 

57542 

c 


SRI 

DCCHF 


2294 

REF 

7 

L3ST 

545 

36,2422 

37744 

1 


STCALL 

OELT EE 


2295 

REF 

2 

LAST 

545 

36,2423 

74353 

1 



JUNE T2 

• 

2296 





36,2424 

77745 

1 

LRGRCVO 

CLGAO 



2297 





36,2425 

71240 

1 


BHN 

DLOAC 


2298 

REF 

3 

L3ST 

545 

36,2426 

74353 

1 



JUNC 72 


2299 

REF 

1 



36,2427 

34007 

1 



CLSfcC 


23CC 





36,2430 

7765C 

1 


GOTO 



2301 

REF 

1 



36,2431 

74 347 

1 



JUNCTl 


R2302 

THE 

P3K on 

4SSUFE 

SCLUT ICN 

IF SAFE 

PER ICENTER 




2303 





36,2432 

45345 

1 

RNGETEST 

OLGAO 

OSU 


2304 

REF 

7 

L/ST 

544 

36,2433 

C2625 

1 



HP 


2305 

REF 

11 

L4ST 

545 

36,2434 

02321 

C 



HPER H IN 


2306 





36.2435 

7124C 

1 


8HN 

DLOAC 


2307 

REF 

2 

L «ST 

544 

36, 2436 

73534 

1 



ALARLHS 


2306 

REF 

6 

L4ST 

5^ ^ 

36,2437 

03752 

1 



TF 


2309 





36,2440 

77625 

c 


OSU 



2310 

REF 

6 

L4ST 

545 

36,2441 

03744 

c 



OELTEE 


2311 

REF 

9 

L4ST 

545 

36,2442 

C3752 

1 


STORE 

TF 

TIHE CF SGLLTICN 

2312 





36,2443 

77775 

1 

ENOEN 

VLOAO 



2 313 

REF 

9 

L4S7 

543 

36,2444 

C362Q 

c 



VTPR HE 


2314 





36,2445 

65241 

c 


DOT 

POOL 

SG2 H ITH HAGNTTLDE 

2315 

REF 

3 

LAST 

543 

36, 2446 

03632 

c 



RPAS <4 


2316 

REF 

3 

L4ST 

543 

36,2447 

C2637 

1 



RELDELV 


2317 





36,2450 

45565 

c 


SIGN 

STAOP 

NCW SIGNfRELDELV)-SIGN(SG2J 

2318 

REF 

4 

L4ST 

545 

36,2451 

4114C 

1 


STCALL 

RELUELV 


2318C5 REF 

1 



36.2452 

16440 

c 



TPANSANG 

COMPUTE GHEGA T , central ANGLE 

23181 





36,2453 

5C375 

c 


vloaO 

dCT 


2319 

REF 

24 

L4ST 

544 

36,2454 

C3540 

c 



F AC T 3 


2320 

REF 

] 1 

L4ST 

54 2 

36,2455 

036 12 

1 



VI PR HE 

SGI 

2321 





36,2456 

51165 

1 


SIGN 

aPL 

IP POSITIVE THEN SGI * SC2 OTHERWISE 
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2322 

REf 

5 

LAST 

545 

36,2457 

C2637 

1 



RELOELV 

2323 

REF 

1 



36, 2460 

74470 

1 



USEK AY 

2324 





36^2461 

57535 

C 


SLOAO 

OCOHP 

2325 

REF 


LAST 

46 S 

36,2462 

33144 

C 



oecthc 

2326 





36,2463 

51165 

1 


SIGN 

BPL 

2327 

REF 

6 

LAiJ 

546 

l_6_t 24_6 4 _ 

C2637 

1 



RELOELV 

2326 

REF 

1 



36,2465 

74476 

1 



NEXUS 

2326C9 





36,2466 

52076 

1 


OCCRP 

GOTO 

23281 

PEf 

m 

4 

LAST 

546 

36,2467 

74474 

C 



USEKAY ^4 

2329 





36,2470 

43135 

1 

LSEKAY 

SLCAO 

BGN 

2330 

REF 

3 

LAST 

546 

36,2471 

33144 

c 



DECT VO 

2331 

REF 

6 

LAST 

544 

36,2472 

00316 

c 



KFL AG 

23J2 

REF 

2 

LAST 

546 

36,2473 

744 76 

1 



NEXUS 

2333 





36,2474 

77625 

c 


osu 


2334 

REF 

2 

LAST 

44E 

36,2475 

361C0 

c 



P21 CNENN 

2335 

RCF 

2 

LAST 

273 

36,2476 

17646 

c 

NEXLS 

STOOL 

NNI 

2335C5 

REF 

e 

LAST 

545 

36,2477 

C2625 

1 



HP 

2336 

REF 


LAST 

51 C 

36,2500 

36641 

1 


STCALL 

POST TPl 

2337 

REF 

3 

LAST 

54 1 

36,2501 

03657 

c 



QTEHP 

23371 





07,2440 




BANK 

U7 

23372 

REF 

1 



C7,2C00 




S6TLGC 

XANG 

23373 





07,2440 




BANK 


2337A 

REF 

1 







COUNT 

07/X ANG 


USER'S PAGE NC, 0 E7 S3 


S ICN(SG2-SGl l-S 1GN(SG2 J»SIGN( RELOELV J 


P233E CEMRAL ANGLE SUBRCUTINE 

H2339 THIS SL8RCUTINE CCMPUUS THE CENTRAL ANGLE CF TRAVEL CF THE 

1-2 3^0 PA SSIVE VEHICLE OLRING THE TRANSFER, 


23^1 t7,2<i^0 ^0220 C TRANSANG STG SETPC 


2342 

REF 

19 

LAST 

517 

C7,244 1 

C237C 

1 


SUbExn 



2343 





07,2442 

cocci 

C 


0 



2344 





07,2443 

73150 

1 

L X 4 f 1 

LXA , 2 



23^5 

REF 

8 

LAST 

54 4 

07,2444 

C3745 

1 


XRS 



2346 

REF 

9 

LAST 

546 

07,2445 

C3746 

1 


XRS ♦! 



2347 





07,2446 

53775 

1 

VLOAO 

VSR* 



2348 

REF 

7 

LAST 

543 

C7, 244? 

C3 640 

c 


VPASS4 



2349 





07,2450 

57176 

c 


0,2 



2350 

REF 

e 

LAST 

544 

C7,245l 

22746 

I 

STOOLS 

VVEC 



2351 

REF 


LAST 

4 04 

07,2452 

11630 

1 


MUTAELt +2,1 



2352 





07,2453 

iifiJ 

1 

PDVL 

VSR* 

SCRT MU I+IB OR ♦IS) 

JJTTD 

2353 

REF 

4 

LAST 

54 5 

C7, 2454 

03632 

c 


rpaS^Sa 



2354 





07,2455 

571 76 

c 


0 f 2 



2355 





07,2456 

64646 

1 

ABVAL 

POOL* 

HACMTUOE Cf T« ~1*29 OR ♦271 

0211 

2356 

REF 

4 

LAST 

546 

07,2457 

116 2'6 

c 


KUTABLE, 1 



2357 





07,2460 

47515 

c 

PDVL 

vsc 

l/HU r+lA CR *28) 

04C 


2358 

REF 

9 LAST 

546 

07,2461 

02746 

C 

VVEC 


2359 




07,2462 

573C1 

1 

norm OHPR 

PUSH LIST AT 02D 

2360 

REF 

12 LAST 

544 

07, 2463 

0dO47 

1 

XI 



2361 ' 07,2Ae^ 53605 1 OMP SPP* 

2362 C7,2A69 C00C3 I 020 
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23t3 





07,2^66 

21576 

C 



0-3,1 


234^ 





07,2^67 

77621 

1 


BUSU 


R V**/PU (*6) 

_ 

KJLf 

. L 



C7. 2^70 

11103 




01/32 


2366 





C7f 2A71 

653CI 

C 


NORN 

POLL 


2367 

REF 


LAST 

54 6 

07. IMl 

00047 

1 



XI 

(2 - R V**/PU» l+e-Nl 

2366 





C?t2^73 

*6362 

C 


SKIR 

ODV 

NAGNITUCE of R (♦30 OR *20) 

236S 





07,2474 

41457 

1 


SL* 

PUSH 

R/12 - R V**/PUI (+29 OR ♦27J020 

2370 





07,2475 

20174 

1 



C -5,1 


237^ 





07,2476 

75542 

c 


SRI 

SURT 


2372 





07,2477 

77605 

1 


OMP 



2373 





07,2500 

653C1 

c 


NORN 

POOL 

ASUBP*** OOD 

237A 

Rlf_ 

15 

LAST 

54? 

C7, 25C1 

0004 7 

1 



XI 


2375 





07,2502 

56 342 

1 


SRI 

ODV 


2376 





07,2503 

53605 

1 


UMP 

SL* 


Z^ll 

REF 

K 

LAST 

545 

07,2504 

C3752 

1 



Tf 


2378 





07,2505 

20201 

c 



0,1 


2378C5 





C7, 2SC6 

60325 

c 


POOL 

NORN 


23781 

REF 

1 



07,2507 

11515 

c 



2PI SC 


237015 

REF 

16 

LAST 

54? 

07,2510 

C0047 

1 



XI 


23782 





07,2511 

56325 

c 


POOL 

DOV 


237825 





07,2512 

77657 

c 


SL* 



23783 





07,2513 

2Q176 

c 



0 -3,1 

CENTANG • (SORT (MU/ASUP***)7F 1 

2379 

REF 

6 

LAST 

52C 

07,2514 

37754 

c 


STCALL 

CENT ANG 

IN REVCLUTICNS E-0 

238C 

REF 

_u. 

LAST 


07,2515 

C2370 

1 



SU6EXIT 


2361 





35,3431 




BANK 

35 


2362 

REF 

1 



35*2CC0 




SETLOC 

Pi7Sl 


2303 





35,3431 




BANK 



23635 

REF 

1 







COUNT 

35/P17 
















TiX 

SEARCH OISPLA? 

ROUTINE 







2385 

REF 


LAST 

5 19 

35,3431 
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TC 
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REF 

1 
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TC 
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REF 
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REF 
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REF 
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TC 
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PPEF 
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1 
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1 
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c 
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c 
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REF 
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0073 
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JQX3S 

REf 24_ 

LAST 

552 

3Qi2QC0 

0 544 7 


PROG22 

TC 

DORNFLAG 

RESET RNCVZFLC BIT 7 

FLAG 0 

0139^ 

REF 

3 

LAST 

55 1 

30f 2001 

OCOlO 

C 


ACRES 

RNDV2FLG 



01396 

REF 

125 

LAST 

552 

3Ct2C02 

0 4555 

C 


TC 

BANKCALL 



QIAO 

Rgf 

2 

LAST 

55C 

30.2003 

17573 

0 


CAOR 

PO2B0TH 

IHU STATUS CHECK 


OlAl 

REF 

76 

LAST 

552 

30f20C4 

0 6006 

1 


TC 

INTPRET 

COMPUTE ANGLE BETWEEN 

\ AND VXR SM 

01^2 





3Cf 2CC5 

77634 

c 


RTB 




0143 

REF 

U 

LAST 

55 1 

30.2006 

45505 

c 



LOAOTIME 



0145 

REF 

26 

LAST 

543 

3C.2007 

34 041 

c 


STCALL 

TDBC 1 



0146 

REF 

3 

LAST 

54 3 

3Ct2010 

27045 

c 



CSNCCMC 

integrate tc present 

TIME 

0147 





30.2011 

47375 

0 


VLOAO 

VXV 

CROSS PRODUCT BETWEEN 

V AND R 

CI48 

REF 

13 

LAST 

543 

30.2012 

CCCC7 

c 



VATT 



0149 

REF 

17 

LAST 

543 

30,2013 

OOOCl 

c 



RATT 



QX^S . 





30.2014 

50256 

c 


UNIT 

OCT 



0151 

REF 

13 

LAST 

527 

30.2015 

Cl 744 

i 



REFSKRAT 46 



0152 





30.2016 

77646 

c 


ABS 




0153 





30.2017 

65552 

c 


SLl 

ARCCCS 



0154 

REF 

7 

LAST 

48 3 

30.2020 

03626 

c 


STORE 

+ MGA 



0155 





30.2021 

77414 

c 


CLEAR 

EXl T 



0156 

REF 


LASl 

55 1 

30.2022 

02676 

1 



REKOWFLG 



0157 

REF 

1 



30.2023 

3 2162 

c 


CAF 

V06N45e 



0158 

REF 

126 

LAST 

553 

30.2024 

0 4555 

c 


TC 

BANKCALL 



0159 

REF 

6 

LAST 

548 

30.2025 

20763 

1 


CAOR 

GGFLASHF 



0160 

REF 

20 

LAST 

54 9 

30.2026 

0 4106 

1 


tc 

GCTCPCCH 

TERM P22 


0161 

REF 

1 



30,2027 

0 2034 

1 


TC 

PROG22A 

PROC 


0162 





30.2030 

0 202 3 

1 


TC 

-5 

ENTER 


0163 

REF 

17 

LAST 

515 

30.2031 

3 6i2l4 

c 


CAF 

THREE 



0164 

REF 

6 

LAST 

548 

30*2032 

G 5415 

1 


TC 

BLANKET 

BLANK CUT R1 4 P2 


0165 

REF 

69 

LAST 

552 

30,2033 

0 5112 

c 


TC 

enoofjCb 



0166 

REF 

1 



30.2034 

4 2172 

c 

PROG22A 

CS 

OCT L70CC 

SET OFFSET hC.*C 


0166 1 

REF 

13 

LAST 

553 

30.2035 

7 1751 

1 


MASK 

LANDMARK 



G1662 

REF 

1 M 

LAST 

553 

30,2036 

55'751 

1 


TS 

LANDMARK 



01663 

REF 

11 

LAST 

553 

30,2037 

0 6006 

1 


TC 

INTPPET 



01664 





30,2040 

776 14 

1 


CLEAR 




01665 

REF 

1 



30,2041 

C1664 

1 



P22MKFLG 



0167 





30.2042 

43014 

c 


SET 

BOFF 



0168 

REF 

3 

LAST 

526 

30.2043 

00462 

1 



ER AOf LAC 



0169 

REF 

6 

LAST 

502 

30*2044 

04343 

1 



CMLONFLC 



0170 

REF 

1 



30,2045 

60107 

1 



PRCG22e 

EarTr 


0171 





30,2046 

77614 

1 


SO 


MCCN 


0172 

REF 

3 

LAST 

449 

30,2047 

C1463 

1 



lunaflag 



0174 





30,2050 

77776 

1 


EXIT 




0176 

REF 

1 



30.^051 

3 2163 

1 


CAF 




— - 
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Q17? 

REE 

127 

LAST 

553 

3Qj2C52 

0 4555 

C 


TC 

bAMKCALL 



0160 

REF 

7 

IASI 

553 

30»2C53 

20763 

1 


CADR 

GOFL ASHF 



aiai 

REE 

21 

LAST 

3_5J_ 

30#2C54 

0 4106 

) 


TC 

GCTCFCCH 

TERMINATE 


0182 





30,2055 

C 2062 

1 


TC 

♦ 5 

PROCEED UNPACK AbCQE 


0183 





30,2C56 

0 2051 

1 


TC 

“5 

RECYCLE 


0184 

REF 

9 

LAST 

515 

30.^C57 

3 4715 

C 


CAF 

FIVE 

IMHECIATE RETURN BLANK CUT Rl,P2 


0165 

REF 

7 

LAST 

553 

30,2060 

0 5415 

1 


TC 

BLANKET 



0186 

REF 

K 

LAST 

553 

30,2061 

0 5112 

c 


TC 

ENDCF JCB 



0187 

REF 

76 

LAST 

553 

30.2062 

0 6006 

1 


TC 

INTPRET 



0188 





30,2063 

77624 

1 


CALL 


UNPACK ABCOE FRCM LANDMARK 


0189 

REF 

1 



30,2064 

60234 

1 



UNPACKAE 



CISC 





30,2065 

45335 

c 


SLGAO 

OSU 



0191 

REF 

2 

LAST 

94 

30,2066 

02745 

c 



22 SUeSCL 



0192 

REF 

1 



3C, 2067 

20166 

1 



P22MAXCE 



0193 





30,2070 

4 5044 

c 


BPL 

CALL 



0194 

REF 

1 



30,2071 

60075 

c 



DE-GR-50 

OE GREATER THAN MAX 


0195 

REF 

1 



30,2072 

76333 

c 



P22SLeRA 

SLBRCUTINE A SETS LAT/LCNG/ALT 


0196 





20.2073 

77650 

1 


GOTO 




0197 

REF 

1 



30,2074 

60114 

0 



CALLP52 



0198 





30,2075 

77624 

1 

DE-GR-50 

CALL 


CALL ADVANCED ORBIT ROUTINE 


0199 

REF 

1 



30,2016 

30206 

c 



AOVOPB 



01991 





3Q,2C77 

77776 

1 


EXIT 




01992 

PEF 

7 

LAST 

551 

30,2100 

0 5261 

1 


TC 

2PHSCHNG 



01993 





30,2101 

0C0C4 

c 


OCT 

00004 



01994 





30, 2 102 

05022 

1 


OCT 

05022 



01995 





30,2103 

13000 

c 


OCT 

1300 0 



01996 

REF 

79 

LAST 

554 

30,2104 

C 6006 

1 


TC 

INTPPET 



0200 





30,2105 

1 7 5 C 

1 


GOTO 




0201 

REF 

1 



30,2106 

60132 

1 



OCV5N71 



0202 





30,2107 

43014 

c 

PR0G22B 

CLEAR 

SET 

EARTH ORBIT 


0203 

REF 

4 

LAST 

552 

30,2110 

01663 

c 



LUNAFLAG 



0204 

REF 

2 

LAST 

55 

30,2111 

03067 

c 



KNOV^KFLG 



0205 





30,2112 

77624 

1 


CALL 


GET LAT/LGNG/ALT FROM ASTRO 


02Ce 

REF 

1 



30,2113 

60217 

c 



P 22 SLePB 



0207 





30,2114 

77776 

r 

CILLH52 

EXIT 




0208 

REF 

25 

LAST 

552 

30,2115 

C 5435 

c 


TC 

UPF LAC 

TAPG2FLG » 1 • SIGHTING LANDMARK 


0209 

REF 

1 



30,2116 

00025 

c 


ACRES 

TAKG2FLG 

BIT 9 FLAG 1 


0210 

REF 

''' C 

^ Z 

LAST 

553 

30,2117 

0 5447 

t 


TC 

OOVtNFLAG 

TAPGIFLG » C * NON-LEM 


0211 

REF 


LAST 

552 

30,2120 

C0O24 

1 


ACRES 

TAFOIFLG 

BIT IJ FLAG 1 


02111 

REF 

8 

LAST 

554 

30,2121 

0 5261 

1 


TC 

2PHSCF^NC 



02112 





30,2122 

CCCC4 

c 


OCT 

00D04 



02113 





30,2123 

05022 

1 


OCT 

Q5U22 



02114 





30,2124 

13000 

c 


"OTT 

1300C 



0212 

REF 

1C 

LAST 

554 

30,2125 

3 4715 

c 


CAF 

FIVE 



0213 

REF 


LAST 

201 

30,2126 

54 301 

1 


TS 

hAPK IKOX 

SET mark INCeX«5 FOR R52 


0217 

REF 

EC 

LAST 

554 

30,2127 

0 6006 

1 


TC 

INTPPET 



0218 





30,2130 

77624 

1 


CALL 




0219 

REF 

2 

LAST 

552 

30,2131 

30002 

c 



R52 



C220 





30,2 132 

77776 

1 

0CV5N71 

EXIT 




0221 

REF 

1 



30,2133 

3 2164 

c 


CAF 

V05N 712^2 




LAP : A 

L 

P20- 

Fi5 



ALL _PH 

LbHAW Li 

- 

ct n 


LA Al-tJJI 
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QZ2k 

BfcP 

126 

L/S7 

554 

30t2134 

0 4555 

c 


TC 

bankcall 


0223 

86 F 

8 

L/bl 

554 

30t2n5 

20763 

1 


C40P 

GOF L ASHP 



AiE 22 

L/ST 

55 4 

30.2136 

jC AL06 

_L_ 


TC 

gotgfcch 

TERMINATE 

0223 





30.2137 

0 2144 

1 


TC 

♦ 5 

PROCEED UNPACK ABODE 

0226 





30.2140 

0 2133 

1 


TC 

-5 

RECYCLE 

0227 

RiF_ 

ll 

.UAL. 

554 

30.2141 

3 4715 

C 


CAP 

FIVE 

IRHEC1AT6 ENTRY BLANK CUT Rl,R3 

0228 

REF 

8 

L4S7 

55 4 

30.2142 

0 5415 

1 


TC 

BLANKET 


022S 

REF 

71 

L^ST 

554 

30.2143 

0 5112 

c 


7C 

ENDC F JCfe 


0230 

REF 

E 1 

L4ST 

554 

30.2144 

0 6006 

1 


TC 

IN TP RET 


0231 





30.2145 

77624 

1 


CALL 



0232 

REF 

2 

L^SI 

554 

30.2 146 

60234 

1 



UNPACKAE 


0233 





30.2147 

77624 

1 


CALL 


SET LAT/LANC/ALT 

Q23A 

REF 

2 

L/ST 

554 

30.2 150 

76333 

c 



P22SLePA 


0233 





30.2151 

66744 

c 

PR0022C 

LXC .2 

SLLAC* 


0236 

REF 


l^ST 

445 

30x2152 

01330 

c 



MAE kSTAT 


0237 

REF 

1 1 

L4S7 

502 

30.2153 

77724 

c 



QPRE1.2 


0236 

REF 

-a 

L/ST 

174 

30.2154 

36 750 

c 


STCALL 

8NN 


Q2^0l 

REF 

1 



30.2155 

60255 

c 



S22. 1 

ESTABLISH LANDMARK - CCMPL'TE ORBITAL 

02^1 





30.2156 

777 76 

1 

P220VER 

EXIT 



02^11 

REF 

27 

LUSI 

534 

30.2157 

0 5 301 

c 


K 

PFASCHNG 


C2<.12_ 





30.2160 

04022 

c 


OCT 

0 402 2 


02^2 

REF 

2 

LilST 

553 

30.2 16 1 

0 2034 

1 


TC 

PPLiG22A 

POINT A CN GSOP 

02<.3 





30.2162 

01455 

1 

VC6N45B 

VN 

0 64 5 


02A^ 





30.2163 

01306 

c 

V05N7022 

VN 

0C57C 


02A5 





30.2164 

C1307 

1 

V0SK7122 

VN 

0057 1 


02^6 





30.2165 

C0041 

1 

P22f' ^<06 

2Dec 

33 6-14 


C2A6 





30.2166 

COOGO 

1 





02<.7 





30.2167 

01531 

1 

V06Ne9 

VN 

00689 


C2A6 





30. 21 70 

C0077 

1 

CtTL77 

OCT 

77 

DE MASK OF ABODE 

02A^ 





30.2171 

C07C0 

c 

0CTL7Q0 

OCT 

700 

C MASK OF ABCCE 

0230 





30.2172 

C70C0 

c 

0CTL7000 

CCT 

7000 

e MASK OF ABCOE 

02303 

REF 

3 

L<ST 

55C 

37.2000 




setloc 

P20S 


u2506_ 





37. 2333 




BANK 




0251 





37.2333 

43C20 

1 

P22SLtlRA STC 

BOFF 

SET LAT/LCNC/ALT 

FOR 

KNONN LANDMARK 


0252 

REF 

A L^ST 

122 

37,2334 

03667 

0 


S22TCFF 





0253 

REF 

*3 

L/ST 

554 

37,2335 

C3347 

1 


KNCNKFLC 





0254 

REF 


LAST 

555 

37,2336 

03667 

c 


S22TCFF 

UNKNCRN LANKMARK 

.EXIT 



0255 





3 7, 2 337 

46135 

1 

SLCAO 

BHU 





0256 

REF 

3 

LAST 

554 

37,2340 

02 745 

c 


22SLeSCL 





0257 

REF 

1 



37,2341 

60213 

1 


iJhlA INLL 

GET LAT/LCNC/ALT 

FROM 

ASTRO 


0256 





37,2342 

50C25 

c 

OSU 

BHN 





0259 

REF 

1 



37,2343 

21646 

c 


9DN 1 C 

2 B ^ 1 ^ 




0260 

REF 

1 



27.2344 

60173 

1 


S22LS1TE 

GET LAT/LCNG/ALT 

FROM 

PLS (LANDING SITE) 


0261 





37,2345 

70152 

0 

SLl 

LXC ,1 

GET LAT/LCNG/ALT 

FROM 

TABLES 


0262 

REF 

247 

LAST 

54E 

37,2346 

00154 

1 


“WTkZ 





0263 





3 7,2 347 

70601 

1 

SETPO 

DLOAC* 





0264 





27,2350 

COCCI 

c 


00 





0265 

REF 

1 



37,2351 

23705 

1 


ALT! AB.l 





0266 





37,2352 

64723 

c 

POOL* 

POOL A 
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0267 

RE»^ 

1 



37,2353 

23623 

1 



LCNGTAB, 1 


Q2o6 

REF 

1 



37, 235A 

235A1 

C 



LATT Ae,l 


0269 





37,2355 

77666 

1 


VOLF 



C270 

REF 

7 

LAST 

526 

37,2356 

3510A 

1 


stcall 

LAT 


0271 

REF 

A 

LAST 

555 

37,2357 

03667 

C 



S22TCFr 

EXIT 

02715 

REF 

2 

L^ST 553 

3Ct2C00 




SETLOC 

P20S1 


027U 





30,2173 




BANK 



02 72 





30.2173 

7763A 

c 

522LSITE 

RTB 


CCNVERT RLS FROM MCCN-FIXEO TC BASIC REF 

0273 

REF 

12 

LAST 

552 

30,21?A 

A5505 

0 



LOACTIME 


0273 1 





30,2175 

2AOC7 

0 


STOVL 

60 

6-7C» TIME 

027J2 

ref 


LAST 

508 

30,217c 

02026 

1 



WLS 


02733 





30,2177 

lAOCl 

c 


STOOL 

00 

0-50» LANDING SITE VECTOR 

0273A 

REF 

A 

LAST 

A3 e 

3C, 22C0 

1533C 

c 



HIUPFALF 

MPAC* ANY NCN-ZERO FCR MOON 

02735 





3C, 2201 

7762A 

1 


CALL 



0273t 

REF 

1 



3C,2202 

553A1 

1 



RP-TC-R 

RLS IN BASIC REF 8-27 IN RPAC 

02737 





30,2203 

777A2 

c 


VSR2 


LUNAFLAG ANC ERAOFLAG SET ABOVE 

027A 

REF 

3 

LAST 


3C,220A 

C2152 

c 


STORE 

ALPH AV 

SCALE RLS e-29 FOR LAT-LGNG 

0275 





30,2205 

7^6 3 A 

0 


RTB 



0276 

REF 

13 

LAST 

556 

3C, 22C6 

A55C5 

c 



LCA07IPE 

SET PRESENT TIME IN MPAC FOR LAT-LCNG 

0277 





30,2207 

7762A 

1 


CALL 



0278 

REF 

2 

L AS T 

^A9 

30* 22 10 

26322 

t 



LAT-tCKG 


0279 





30,2211 

7765C 

1 


GOTO 



0280 

REF 

c 

LAST 

556 

30,2212 

03667 

c 



S22TCFF 

EX 1 1 

0261 





30,2213 

7762 A 

1 

CBTAIRLL 

CALL 


GET LAT/LONG/ALT FROM ASTRO 

0262 

REF 

2 

LAST 

55A 

30, 221A 

60217 

0 



P22SLBPB 


0263 





30,2215 

77650 

1 


GOTO 



028A 

REF 

6 

LAST 

556 

30,2216 

03667 

c 



S22TCFF 

EXIT 

0265 





30,2217 

77A2C 

1 

P22SLbR6 

STQ 

EXIT 

GET LAT/LCNG/ALT FROM ASTRO 

0286 

REF 

1 

LAST 

556 

30*2220 

03670 

c 



S22TCFF ♦! 


0267 

REF 

i 



30,2221 

3 3656 

1 


CAF 

V0tNE9B 


0266 

REF 

129 

LAST 

55 5 

30,2222 

0 A5S5 

c 


TC 

BANKCALL 


0289 

REF 

IE 

LAST 

5A6 

30,2223 

2062A 

c 


CAOR 

GCF L ASH 


0290 

REF 

23 

LAST 

555 

30,222A 

0 A1C6 

1 


TC 

&OTC PCCH 

TERMINATE 

C291 





30,2225 

0 2227 

1 


TC 

♦ 2 

PflOCEEC 

0292 





30,2226 

0 2221 

1 


tc 

-5 

ENTER Oft ftECVCLE 

0293 

REF 

E2 

LAST 

5 5 5 

30,2227 

0 60C6 

1 


TC 

INTPRET 


029A 





30,2230 

7762A 

1 


CALL 



0295 

REF 

1 



30,2231 

613A5 

1 



LLA5PCA 


0296 





30,2232 

77650 

1 


GOTO 



C297 

REF 

E 

LAST 

556 

30,2233 

C3670 

G 



S22TCFF +1 

EXIT 

0296 





30,223A 

77776 

1 

LNPACKAE 

EXIT 


UNPACK landmark INTO ABODE 

0299 

REF 

15 

LAST 

553 

30, 2235 

3 1751 

c 


CA 

L AM; PARK 


0 300 

REF 

1 



30,2236 

7 2170 

1 


MASK 

UCTL77 


0301 

REF 

A 

LAST 

555 

30,2237 

55* 7AA 

c 


TS 

22SUeSCL 

OE-L-LMK rO NC. N 30, Cl, 02-26 

0302 

REF 

16 

LAST 

55 6 

3O,22A0 

3 1751 

c 


CA 

LANDMARK 


C3C3 

REF 

2 

LAST 

552 

30, 22A1 

7 2172 

c 


MASK 

OCT L 7000 


03UA 

REF 

2 

LAST 

9A 

30, 22A2 

55*7A5 

1 


TS 

CXOF F 

B* OFFSET INDTCATOR 

0305 

REF 

26 

LAST 

55 A 

3C,22A3 

0 5A35 

c 


It 

UPFL AG 

SET KNCWNFLG 

0306 

REF 

A 

LAST 

555 

30, 22AA 

CdlAl 

c 


ACRES 

KNOWKFLG 

BIT 5 FLAG 6 
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C30? 

0308 

-Oias _ 

REF 

17 

36 

L^ST 

LAST 

556 

<»1S 

20,22A5 

3 

1751 

C 

C 

J 

CA 

MASK 

EXTEND 

LAND PARK 

B I T 1 4 

IF 

eiT14 OF LANDMARK 

-1,A«2 

OTHERWISE A«l 


— 

REf 

iOf 2246 

T 

4675 

0006 



3Qt224_7 


0310 





20,2250 

1 

2253 

C 

flZF 

3 

A»1 

LEAVE KNCWNFLAG 

SET FCR 

KNOWN LMK 



0311 

REF 

26 

LAST 

5 1 > ^ 

30,2251 

0 

544 7 

C 

TC 

DOWN FLAG 

A-2 

CLEAR KNOWNFLG 

(BIT 8 

FLAG 61 FOR 



QIU 

MF 

* 

LAST 

556 

20,2252 


00141 

C 

ACRES 

KKOHPFLG 


ONKNOhK LPK 





0313 

REF 

£3 

LAST 

556 

30,2253 

0 

6006 

1 

TC 

INTPHET 







C31A 





30,2254 


77616 

c 

RVG 
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P0315 PRtCP/P ^A^'E- CPTICS CALIBRATICN RCUTIKE 

P031t. RCC NC- I 

HCC BY- tCR KNATT 

R03ie 

rt03l9 FL^C11C^/JL OESCRIPTICN- TC MEASURE THE EFFECT OF SOLAR RADIATION ON 
H Q i 2 0 UE <XT TPLNMOR ANGIE AND TC STCPE THE MEASURED TRUNNION EIAS FOR P23 

R0 321 

R0322 CALL1^C SECOERCE' CALL 

R032i_ Bli 

RC32A 

R 0325 SlEPCniNES CALLEC- DISPLAY RCUTINES 

R0326 ^ 

R0327 NCFRAL EXIT RCCES-VIA EGRESS 

RC328 

R Q 3 2 9 _ ALAP Rj" NCFE 

RU330 

RQ331 AECPT PCCES- P23AECPT IF PARKING SYSTEH OR EATENOEO VERB ACTIVE 

R0332 I NPLT" KCNE PECUlPECt NQRPALLT CALLEC fiV P23 

R0333 CLTPLl- TRINMCN BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT 
PU3332 ISICSJ AND LANDMARK LINE CF SIGHT (LLCS) ARE SUPERIMPOSED. THIS ANGLE 
R0333A PA> NCT EE EXACTLV 2EP0 BECAUSE OF UNEVEN HEATING OF THE CPT1CS,F0R 
R0333E EXAMPIE. 


RC33A 














R0335 

EPASACLE 

IMTIALliATICN RECUIREC- PRKBLFl, EXTVBACT 





R0336 














h033T 

DEEP IJ- 

PIFTREGS LSEC 

BY PARKFOPT AND 


ER ASABLES 

USED BY 

0 ISPl AYS 




0336 





33,3773 




BANK 

33 




0339 

REF 


LAST 

555 

37,2CCC 




SLTLCC 

PiOS 




03A0 





37,2360 




BANK 





C391 

REF 

1 







COUNT* 

$i/R 57 




03A2 

REF 

20 

LAST 

275 

E7, 1725 




EBANK« 

MRKBLFl 




03A3 





37,2360 

77420 

1 

R57 

STQ 

EXIT 




0349 

REF 

2 

LAST 

07 

37,2361 

C2317 

C 



Egress 




03442 

REF 

3 

LAST 

432 

37,2362 

3 4753 

1 


CAF 

EBANKT 




C344A 

REF 

2t 

LAST 

552 

37,2363 

54 CC3 

C 


TS 

E6ANK 




034S 

REF 

19 

LAST 

516 

37,2364 

3 6211 

C 


CAF 

SIX 

BtT2 * MARKING SYSTEM 

IN USE 


0346 

REF 

16 

LAST 

509 

37,2365 

7 1044 

1 


MASK 

EXT VBACT 

0IT3 - EXTENDED VERB 

IN PROGRESS 


0347 

PEF 

141 

LAST 

52 E 

3 7 f 2 3 6 6 

1C 000 

C 


CCS 

A 




0346 

REF 

1 



37, 2367 

0 2437 

c 


TC 

P23AeRT 

SET, THEREFCRE ABCRT 



0349 

REF 

22 

LAST 

507 

37,2370 

3 471 1 

1 


CAF 

ttlT2 

NOT SET 



Q35C 

REF 

17 

LAST 

55 6 

37,2371 

27*044 

1 


AOS 

EXTVEAtT 

SET IT 



□ 351 

REF 

27 

LAST 

556 

37,2372 

C 54 3 5 

c 

R57A 

TC 

UPf L AG 

SET V59FLAG (BIT 12 

FLAG 51 TO INDICATE 


C352 

REF 

1 



37,2373 

001 16 

1 


AORES 

V59F LAC 

~TiITeP4T lO* M'ARK 



0353 

REF 

1 



37,2374 

2 2442 

1 


CAF 

V59Ne 




0354 

REF 

UC 

LAST 

556 

27,2375 

C 45 5 5 

c 


TC 

BANKCALL 




0355 

REF 

1 



27, 2376 

205C4 

1 


CAOR 

GOMAKKFR 




0356 

REF 

24 

LAST 

556 

37,2317 

C 4106 

1 


TC 

GCTCPCCN 

TERMINATE 



0357 

REF 

1 



37,2400 

G 2424 

1 


TC 

ENOR57 




0358 

REF 

£ 

LAST 

55E 

37,2401 

0 2424 

1 


TC 

ENDR57 " 




0359 

PEF 

1C 

LAST 

366 

27,2402 

3 4li6 

c 


CAF 

SLVE N 







w 


4 

/ 


8 

i 
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(;3<)Q 

0361 

fiQ3A2 

R8F 

R8F 

9 

72 

L/ST 

L3S1 

555 37,2403 

555 37,2404 

ANCLE (CCDOl 

0 5415 

0 5112 

1 

C 


TC 

TC 

BLANKET 

ENDCF jce 

BLANK CUT B1,P2,R3 



C363 

REF 

1 



37,2405 

3 2441 

1 

HIRKCl SP 

CAP 

VC6Ne7Ne 




0364 

RtF 

131 

L3ST 

558 

37,2406 

0 4555 

C 


TC 

BANKCALL 




03 65 

REF 

.2 

LIST 

558 

37,2407 

20504 

\ 


CADR 

GCNAPKFR 




03 66 

REF 

25 

LIST 

558 

37,2410 

0 4106 

1 


TC 

GCTCiFCCH 

TERMINATE 



0367 

REF 

1 



37,2411 

0 2416 

C 


TC 

P578 

PPOCEEC 



036fl 

REF_^ 

L 



37. 2412 

0 2 3 72 

c 


TC 

H57A 

ENTER IRECVCLEl 



0369 

REF 

12 

LIST 

555 

37,2413 

3 47 15 

c 


CAP 

FIVE 




03 70 

REF 

1C 

LIST 

559 

37,2414 

C 5415 

1 


TC 

BLANKET 

BLANK CUT R1,R3 



03 71 

R5E 

73 

LIST 

559 

37,2415 

0 5112 

0 


TC 

ENOCPJCB 




03712 

REF 

1 



37,2416 

3 2444 

1 

P57e 

CA 

19.77CEC 

PIT FIXED INTC ERASABLE FOR 

MSU 


0371^ 

REF 

61 

LIST 

53 1 

37,2417 

54 001 

1 


TS 

L 

INSTRUCTICN COMING UP 



0372 

REF 

JJL 

LIST 

558 

37,2420 

3 1732 

c 


CA 

MRKBLFl +5 

CONTAINS TRUNNICN 



0372<«5 





37,2421 

0 0006 

1 


EXTEND 




03725 

REF 

62 

LIST 

559 

37,2422 

20 OCl 

1 


MSU 

L 

CCRRECTS TRUNBIIS FROM 2'S 

TO 1*S 


0373 

REF 

1 



37,2423 

55*342 

1 


TS 

TPUNBIAS 




0376 

REF 

27 

LIST 

557 

37, 2424 

0 5 A A 7 

c 

ENDR57 

TC 

DCWNFLAG 

RESET V59FLIG 



0377 

REF 

2 

LIST 

558 

37,2425 

COIU 

1 


AORES 

V59FLAG 

BIT 12 FLIC 5 



03772 

REF 

3 

ini 

552 

37,2426 

3 4751 

c 


CAP 

E BANK 5 




03774 

REF 

26 

LIST 

558 

37,2427 

54 0C3 

c 


TS 

EBANK 




03776 

REF 

3 

LIST 

55 1 

37,2430 

3 4761 

c 


CAF 

PRi0l4 




03777 

REF 

16 

LIST 

507 

37,2431 

0 5027 

1 


TC 

NOVAC 

THIS JOB CLEARS BIT IN 



037 7 8 

REF 

30 

LIST 

555 

1330 




EBANK 

* MARKSTAT 




037785 

REF 

2 

LIST 

226 

37,2432 

C5423 

1 


2CA0R 

ENDNIRK 

MARKING IN R57 SO R53 CAN 

TAKE OVER 


037785 





37,2433 

04062 

1 







0376 

REF 

84 

LIST 

55 7 

37,2434 

C 6006 

1 


TC 

INTPRET 




0379 





37, 2435 

7765C 

1 


GOTO 





0360 

REF 

3 

LIST 

558 

37, 2436 

02317 

c 



EGPbSS 




0381 

REF 

3 

LIST 

216 

37,2437 

0 5604 

c 

P23ieflT 

TC 

BAILCCT 




0382 





3?,244C 

01211 

1 


CCT 

01211 




0383 





37,2441 

C1527 

c 

VC6N87NS 

VN 

0667 




03 84 





37, 2442 

16600 

c 

959N8 

VN 

5 900 




0385 





27,2443 

146C0 

1 

VSINB 

VN 

5100 




03652 





37,2444 

61740 

c 

19. 77CEG 

OCT 

6174C 





i 


#i 



n 
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P0386 FPCGfl4P CESCPIFTICN 
R03B7 HCC hi - 1 

flC3 68 . MCC fl.Y - NjMQiEyjP 

H03e9 FUhCllLN^L CESCR 1 FT ICN 
R0390 

B 0 39 1 ? C PEBFCPB SIGHTING PARKS U CONJUNCT ICN telTH THE BENDEZVCIS NAVIG’ 

B0392 AT ICN PBQGFAH. CALLbC BY ASTRONAUT VIA EXTENOEO VERB 

KC39A CAUIFG JECLENCE - 

R0395 P21 VIA V 57 

HC396 P22 VIA V 3A 

H0399 SlEFOlTiNES CALLEC - 

hO^OO f LA C IP FIACCCWN BANKCALL 

POAUl ChCCFJCe GCFABK2 GQNABKF 

HOAOll IMFBET GEhTRAN KLEENEX 

R0AC1 2 ENCFARK 

R0A02 NCFFAL EXIT FCCES- 

BCA03 FARHPLPT US EC B Y SXTPARK HAS BEEN NCCIFIEG IC STORE NAKK IN HBKeuF2 

FOP US E BY R22. WREN ASTRONAUT IS F IMSFEO TAKING MARKSt HE PITS AN 

ROADS PFCCEEC , P2 l 15 TEBMINATEC THUS CAUSING THE FINAL MARK TO BE THANSFRD 
ROA051 TC NRKeUF2 FOR PRCCE5SING BY fl22 

RjOA 0 6 ALAFK CP AECPT EXIT POPES - 

R0A07 NONE 

K 0 A 08 onpu? - 

H0A09 7 RECISTER PRKBLP2 CONTAINING T 1NE2 ,T INEI t CCUYiQPT ICS XtCOLZ tOPT ICS Y, 

POAIO CCUX, 

RQAli ERASAELE IM T lAL 1 2AT ICN RECUlREC 

R0A12 FL AGS SET ANC RESET 


R0A13 FilRABK (CCMMLN 1C AT ION TO NARKRUFT 1C STORE HARKS IN MRKBUFl + 2» 

ROAIA R23FLG INCICATES OCAS NARKING 

RO A 1 1 C EERIE 


CA16 

0A17 

0A18 

REF 

REF 

22 

1 

LAST 

55S 

E7, 1725 
37t20CO 
37,2AA5 




EBANK* 

SETLCC 

BANK 

HRK8LF1 

REND £2 



0AI9 

REF 

1 







COUNT ♦ 

ii/R21 



UA20 

REF 

28 

LAST ‘ 

556 

37,2AA5 

0 5A35 

C 

fl2lCSH 

TC 

UPFL AG 

SET 

R 2 IHARK 

uA21 

REF 

2 

LAST 

19A 

3?,2AA6 

00037 

0 


ADRES 

R21HARK 

BIT 

lA FLAG 2 

0A22 

REF 

12 

LAST 

502 

37,2AA7 

3 1716 

c 

P23CSH 

CA 

NEGONE 




0A23 REF 23 LAST sTc 37,2A50 55*725 I fS HRKBLFl 

0A2A REF 8 LAST 551 37f2A51 55'73A 1 TS MPKBLF2 

0A27 REF 12 LAST AAA 37,2A52 3 0075 C CA FLACNBCI 

0A2e REF IS LAST 53 7 37,2A53 7 A7<J2 1 HA S K 8 179 'TBT B23 FlG 

0A29 37,2A5A 0 0006 I EXTEND 

0A3C REF 1 3?,2A55 I 2510 C BZF P^lTl NOT SET REGULAR ft21 HARKING 

0A31 REF 1 3?,2N5e 3 2535 C OAF VOtVA ^23 B/TCKUP HARKINTS 

DA32 REF 122 LAST 55S 37,2A57 0 A555 C TC BANKCALL DISPLAY SHAFT ♦ TRUNNION 

0A33 REF S LAST A9A il,ZAbO 2QA65 1 CADP GOHAPkF 

0A3A REF 1 37t 2AEI 0 2527 C TC P21 ENC ~ ' TTFS 

0A35 37,2At2 0 2AtA C TC +2 PRCC 


jQiP: 


L 
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l:U AlC, 2Ail9fee PANCORA .072 PAGE 561 
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GA 36 
0A37 
QAie 

REF 

MI. 

1 

133 LAST 

t>6C 

27f 2^63 

3 7, 2 R 64 
37t 2965 

C 2456 
3 2534 
0 4555 

1 

1 

_s_ 

R23CSHI 

TC 

CAF 

TC 

-5 

V53 

BANKCALL 

ENTER 

PERFCRP ALT LCS SIGHT PARK 


GA3A 

REF 

1 



37,2966 

20470 

C 


CAOR 

C'CHARK2 



OAAO 

REF 

2 

LAST 

56C 

37,2967 

0 252? 

c 


TC 

K21ENC. 

V34-lfRMINATE R23 



Rtf 

L 



37,2470 

1 2516 

c 


TCF 

R21CSNA 

PROCEEO-ENO BACK UP MARKING 

(R23) 

0AA2 

REF 

2C 

LAST 

558 

37,2971 

3 6211 

c 


CAF 

SIX 

TRANSFER PRKBUFl TO MRKBUF2 


0AA3 

REF 

7 

LAST 

259 

37,2972 

0 5475 

1 


TC 

GENIPAN 



OAAA 

REF 


LAST 

56C 

37,2973 

01725 

c 


AORES 

HRKBLF 1 



0AA5 

REF 

9 

LAST 

56C 

37,2974 

01734 

c 


AOKLS 

MFKBLF2 



0A51 





37,2475 

C 0006 

1 


EXTEND 




QAb2 

REF 

17 

LAST 

53C 

37,2476 

3 0025 

c 


OCA 

T IWE2 



OA53 

REF 

55 

LAST 

56 1 

37,2477 

53*726 

1 


OXCH 

Mf KBtFl 

READ TIME 


0^5^ 

REF 

A 

LAST 

526 

37,2500 

3 0033 

1 


CA 

COUY 

REAC ecu ancles 


0A55 

Rtf 


LAST 

56 1 

37.2501 

55»727 

c 


TS 

MKKBLFl *2 



0AS6 

REF 

e 

LAST 

526 

37,25C2 

3 0034 

c 


CA 

CDUZ 



0A57 

REF 

27 

LAST 

56 1 

37,2503 

55'731 

1 


TS 

MPKBLFl +4 



oAse 

REF 

IL 

LAST 

526 

37,2504 

3 0032 

c 


CA 

COUX 



0A59 

REF 

28 

LAST 

56 1 

37,2505 

55*733 

c 


IS 

HRKBUFl «6 



046^ 





37,2506 

0 0003 

1 


REL INT 




0A65 

REF 

1 



37, 2507 

0 2464 

c 


TC 

R23CSP1 



0A66 

REF 

1 



37, 2510 

3 2443 

c 

R21C1 

CAF 

V51Nb 



0A67 

REF 

12A 

LAST 

5o 1 

37,2511 

0 4555 

c 


TC 

BANK CALL 



0A6& 

REF 

2 

LAST 

56 1 

37,2512 

20470 

c 


CAOR 

GCHARK2 



0A6S 

REF 

3 

LAST 

561 

37,2513 

0 2527 

c 


TC 

P21ENC 

V34-T£R»riNATE R2l 


LA70 

KEF 

2 

LAST 

56 1 

37,2514 

1 2516 

( 


TCF 

R21C SPA 

PRQCEEO-EnO fi21 


0A71 

REF 

2 

LAST 

56C 

37,2515 

1 2510 

c 


TCF 

R21C1 

RECYCLE 


OA73 

REF 

59 

LAST 

56 1 

37,2516 

3 1725 

c 

R21CSPA 

CA 

HRKBLFl 

IF -1 NO PARK 

— - — -- - - - 

UMlh 

REF 

67 

LAST 

552 

37,2517 

6 4712 

1 


AO 

ONE 



OA75 





37,2520 

0 0006 

i 


EXTEND 




0A76 

REF 

A 

LAST 

561 

37,2521 

1 2527 

1 


B2F 

R21E hC 

ZERO « NO MARK 


0A78 

REF 

51 

LAST 

561 

37,2522 

3 621 1 

c 


CAF 

SIX 

MARK THEREFCRE TRANSFER IT 

TO MRKBUF2 

Oa79 

REF 

8 

LAST 

561 

37,2523 

0 5475 

1 

R21CSNI 

TC 

GENT RAN 

transfer MRKBUFl TO HRKBUFZ 


0A8C 

REF 

2C 

LAST 

561 

37,2529 

C1725 

c 


AORfcS 

MFKBLFl 



OAei 

REF 

K 

LAST 

56 1 

37,2525 

C1734 

c 


ACRES 

MRk6lF2 



CA82 





37,2526 

0 COCi 

1 


REL INT 




QA87 

REF 

125 

LAST 

56 1 

37,2527 

C 4555 

c 

f 21 END 

TC 

BANKCALl 



OASa 

REF 

2 

LAST 

225 

37,2530 

20464 

0 


CAOR 

KLEE NEX 



QA88 1 

REF 

58 

LAST 

559 

37,2531 

C 544 7 

c 


TC 

oov^nflac 

RESET R21MARK 


0A8e2 

REF 

3 

LAST 

56C 

37,2532 

00037 

c 


AORES 

P21PAPK 

BIT 14 FLAG 2 


CASl 

REF 

•3 

mfi 

LAST 

559 

37,2533 

0 5423 

1 


TC 

endmark 

ENG PARKING ANC ENCJQB 


GAS A 





37,2534 

15200 

\ 

V53 

VN 

5300 



0AS5 





37,2535 

C1536 

c 

V0694 

VN 

0694 
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PC^96 PPEFtfPEC IRACKIMC A7HTUCE PCLTINE USH 

K0^97 PPCCPAP CESCRIPTICN 

i? MCC ^ ^ 

ROASq HCC 0> - N.BPCCEUfl 

RC50C FLhCTlCh4L OESCRIFTICN- 

P05Q1 1 C CCRPU1E THE FPEFERREC TRACKING ATTITUDE CF THE CSW TO ENABLE OPTICS 

R05C2 TRACK1RG OF THE Ih ARC TC PERFGPM THE MANEUVER TO THE PREFERRED 

R0503 OP )-<>IS IRACKINC ATTITUCE_s 

RC5C^ CAlLlhG SECUEWCE- 

R0505 T C BANKCALL 

R0506 C/OR R61CSM 

R05C? SIER QCTINES CAILEC ~ ] 

ROS08 RAKECACR BANKCAIL 

R050S IMFRET FLACUP FLAGCCViN 

_PC5l.O fiARKJ.U?P CPS61.1 R60CSP 

RUSH fFASCHISG ^ 

RC512 NCFML EAlT RCCES- 

R_0 11 3 RCPFAL RETURN TS TC CALLER i I 

P0517 CLTFCI - 

R0518 SEE CCTFLT FCR CRS61.1 C ATTITUDE MANEUVER ROUTINE (R60CSMJ 

R C5 1 9 EPASAEIE IM T lAL I 2 AT I CN REGUIREC 

R0a20 GENRE! L5EC TO SAVE Q FCR RETURN 

R0521 PAICNTR FUST BE PRESET TC 2ERC 

R0 522 FL AGS S ET 4 RESET 

F0523 3-A)IS FLAG 


R0S24 CEERIS 

^0525 SEE iUBPCUTINES 


0527 

REF 

3 

LAST 

112 

E6t 1770 




EBANK » 

GENRET 


0528 

REF 

1 







COUNT* 

$$/R6l 

ROUTINES - NAVIGATION - PREF, TR. 9TT* 













0529 

REF 

9 ' 

LAST 

52T 

37,2536 

3 4752 

C 

R 6 ICSM 

CAF 

EBAN K6 

SWITCH TO EBANK 6 

0530 

REF 

2 7 

LAST 

559 

37,2537 

56 CC3 

1 


XCH 

EBANK 


0531 

REF 

m 

1 

LAST 

112 

37,2540 

55*771 

c 


TS 

SAVBNK 

SAVE EBANK 

0532 

REF 

2 

LAST 

3B 1 

37,2541 

0 4604 

1 


TC 

HAKECACR 


0533 

REF 

4 

LAST 

562 

37,2542 

35*770 

1 


TS 

GENRET 


0534 

REF 

2 

LAST 

552 

37,2543 

11*775 

1 


CCS 

R61CNTP 

TEST R61CNTR 

0535 

REF 

1 



37,2544 

0 2575 

1 


TC 

DECRF61 

NCT READY tC CCf RdU ' ~ 

0536 





37,2545 

0 254 7 

c 


TC 

+ 2 

CO R61 

0537 

REF 

2 

LAST 

56 2 

37f 2546 

0 2576 

1 


TC 

0ECFF61 +1 


0538 

REF 

E5 

LAST 

559 

37,2547 

C 60C6 

i 


TC 

I NTPRE7 


0539 





37,2550 

77624 

1 


CALL 



0540 

REF 

1 



37,2551 

71227 

c 



CRS6 1.1 

LCS OETERMINATICN ♦ VEH ATTITUDE 

0541 





37,2552 

77776 

1 


EXIT 



0542 

REF 

246 

LAST 

555 

37,2553 

50 154 

1 


INDEX 

MPAC 


0543 





37,2554 

0 2555 

c 


TC 

♦ 1 


0544 

REF 

1 



37,2555 

0 2574 

c 


TC 

R61ENC 

^UBRCUtlNC CftlVlNG' DAP (EXIT J'GU 

AO 5^^ 1 











OR AUTO MODE NOT SET (EXIT R61) 

A05442 











QP STIKFLAG SET (EXIT R6I) 

0 545 

REF 

2 9 

LAST 

56 1 

37,2556 

0 5447 

c 

R 6 IC 1 

TC 

DcwnFlag 

RESET 3-AXIS FlAG 

0553 

REF 


LAST 

389 

37,2557 

00124 

c 


acres 

3 AXIS FIG 

BIT 6 FLAG 5 
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P^0-Pi5 USER'S PAG E NG. 1^ E6 SS 


05f)5 

Rtf 

68 

L«17 

161 

37.2560 

4 4712 

C 


CS 

ONE 

SET R61CNTR NEG. TO INDICATE KALCHANU 


REF 


L/»S7 

562 

37,2561 

55'775 

1 


TS 

R61CMR 













0556 

REF 

2S 

L^Sl 

56C 

37j2562 

0 5435 

C 


TC 

UPFL AG 

SET FLAG FCP PRCIRITY Cl SPLAYS FOR R60 


0557 

REF 

2 

L/JST 

382 

37,2563 

00077 

1 


ACRES 

PDSPFLAG 

BIT 12 FLAG 4 


055 8 

ref 

U6 

L4ST 

56 1 

37,2564 

0 4555 

C 


TC 

BANKCALL 



055S 

REF 

2 

L^ST 

38S 

37,2565 

560CC 

1 


CADR 

R60C SN 



05t0 

REF 

30 

L/ST 

562 

37,2566 

0 544 7 

c 


TC 

OOWNFLAG 

RESET FLAG FCR PRIORITY DISPLAYS IN R60 


.0561 „„ 

ref 

3 

im 

563 

37.2567 

C0077 

1 


ADRES 

PDSPFLAG 

BIT 12 FL/C 4 


0564 

REF 

<8 

L4ST 

555 

37,2570 

0 5301 

c 


TC 

PHASCHNG 



0565 





37,2571 

CClll 

c 


OCT 

001 1 1 



05651 

REF 

j n 

L4ST 

552 

37,2572 

3 4714 

1 


CAP 

ZERO 



05652 

REF 

3 

L^ST 

56 2 

37,2573 

0 2575 

1 


TC 

0ECRF61 



0567 

REF 

]8 

L^ST 

553 

37,2574 

3 6214 

c 

R61EN(: 

CAF 

THREE 
















0568 

REF 

C 

L/ST 

562 

37,2575 

55'775 


CECRH61 

TS 

P61CNTR 
















—0565 

AIF 

c 



L/ST 

562 

37.2576 

31 '7 70 

c 


CAE 

GENRET 



0570 

REF 

H2 

L/ST 

55 8 

37,2577 

2 2 OGQ 

i 


LXCH 

A 

RETURN IS IN L 


0571 

REF 

3 

L/ST 

562 

27,2600 

3 1771 

1 


CA 

SAVBNK 

RESTORE EE/NK 


0572 

REF 

28 

L/ST 

362 

3 7 f ^ 6 0 1 

56 003 

1 


XCH 

EBANK 



0573 

REF 

i<2 

L/ST 

563 

37,2602 

22 000 

i 


LXCH 

A 

RETIRN IS NCM B/CK IN A 


0574 

REF 

6 

L/ST 

382 

37,2603 

C ^577 

c 


TC 

BANK JLRP 

EXIT R6L 


0575 





13,2176 




BARK 

13 



0576 

REF 

1 



23,2000 




SETLOC 

P2US2 



0577 





23,3047 




BANK 

















0578 

REF 

2 1 

L/ST 

56 1 

E7, 1725 




EBANKs 

MRKBUf 1 
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PC57S eVtCKP PtPFCRHS CCKPUTATICNS FOR 

R058U DELTAS, IFE NEASUREC CEVUTICN BASED CN THE DIFFERENCE BETWEEN THE CSM-LE 

RQSfil STAT E V E CTCR tSTlPATES AND THE A CTU/L THACMNG MEASUREMENT. 

HQ5e2 CStTFl RCCIFIEC FKTITICUS STAR CtPECTlCN VECTCR 

R0583 GECF'ETPT VECTOR B ASSOCiATEO WITH EACF TRACKING MEASUREMENT. 

PCSa^ __INFU 

RG5e5 CFtl/2 IMT VECTCR ALONG TFE CSP-LN LINE CF SIGHT (BASIC REF, SYSTEM! 

R058fe ISTAP ,F ICTITICLS STAR CIRECTICN (1/2 UNIT VECTOR! 

ft0587 R CLP. RELATIVE CSR TO IN PCSITICN VKTCP 

ROSea OLTPLT 

R058S ISTAR iMCOlF lEO FICTITCIS STAR OIPECTICN (1/2 UNIT VECTOF > 

RC5S0 eVECTCR * R OINENSICNAL BVECTQR (1/2 UNIT VEC.l 

RC591 CELTAC « NEASUFEC CEVIATICN 

RC592 CALLING SECUENCL 

R0593 L CALL BVECTQPS 

R059<i NCFRAL EAIT 

R0595 L«1 CF CALLING SEQUENCE 


C596 

REF 

1 






COUNT 

£3/20SUB 

_ 

0597 





23.3097 

77620 

C eVECTGBS 

STQ 


* 

0598 

REF 

A 

LAST 

55S 

23.3050 

023 17 

C 


E (;P E S S 


0599 





23, 3051 

53575 

C 

VLOAD 

UM T 


0600 

REF 

2 

LAST 

1 1 8 

23,3052 

03531 

C 


P CI P 

RELATIVE PCSITUN VECTCR 

0601 





23,3053 

19033 

1 

St(DDL 

26D 

RCLP UNIT VEC 

06C2 





23,3059 

CCC95 

C 


36D 

RCLP A8S value 

06C3 

REF 

1 



23,3055 

25301 

1 

STOVL 

TEMPCPl 

MOVE TO SAFE LOCATION 

060^ 

BfcF 

2 

LAST 

7 7 

23,3056 

01295 

C 


USTAR 


0605 





23,3C57 

53935 

C 

VKV 

UNIT 


06 C6 





23, 3060 

00033 

1 


2 6D 

USTAR « UNITIUS X UCD 

0607 

REF 

1 

LAST 

118 

23,3061 

37502 

1 

STCALL 

FVECTCP 


0606 

REF 

2 

LAST 

55 1 

23,3C62 

56712 

c 


CPP2PC 

phase CHANGE 

G6C9 





23,3063 

77775 

1 

VLLAO 



C61C 

REF 

A 

LAST 

56^ 

23,3069 

C35C2 

c 


BVECTCR 


0611 

REF 


LAST 

564 

23,3065 

01245 

c 

STORE 

ustap 


0612 





2 3 f 3 C 6 6 

72941 

c 

DOT 

SLl 


0613 

REF 

2 

LAST 

77 

23,3067 

C1235 

1 


UM 

USTAR DOT UP 

06l<» 





23, 3C70 

45326 

1 

ACCS 

OSU 


0615 

REF 

2 

LAST 

39 1 

23,3071 

15322 

c 


DPi/4TH 


0616 





23,3072 

413C1 

c 

NORM 

OMP 


0617 

REF 

17 

LAST 

59 7 

23,3073 

00047 

1 


xi 


06 16 

REf 

i 



23, 3C79 

C71(J7 

c 


P I /^ • c 


06 19 





23, 3C75 

*36C5 

1 

“Wf 

SRP ♦ 


J62C 

REF 

2 

LAST 

564 

23,3076 

01301 

1 


TCMPCRl 

RCLP ABS VALUE 

0621 





23,3077 

21576 

c 


0 -3,1 

ACJLSl SCALING 

0 6 22 

REF 

2 

LAST 

Lie 

23,3100 

27524 

1 

STCVL 

CELT AC 


-623 

REF 

e 

LAST 

53 2 

23,3i01 

15332 

1 


2EP0VECS 


Jo24 

REF 


LAST 

564 

23,3102 

C3510 

c 

STORE 

eVECrCR +6 


0c25 

REF 

i 

LAST 

5 6 4 

23,3103 

“ClTIT 

c 

StljPE 

8Vt( TCP ♦lac 


0626 





23,3109 

1765C 

1 

GOTO 
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Q6..7 REF 5 last b6A 23,31C5 C231? C 

0628 23,3106 31103 1 PI/<*.C 2DEC 

.062 6 23.31C? 36652 C 


LOPE SS 
.78539816A 
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PU629 (ETUP-OEIEP^^INES TPE CINE OF 5IQHT UM7 VECTCR UP IN THE PASIC PEFERFNC 
R0fe3U E CCCPDINATE SVSTEP FROM THE OPTICS SHAFT AND TRUNNION ANGIES AND THE IP 

RQ631 U C IP 

RQfc32 INFU 

P0633 PiPKCAT/tEASE ACCRESS GF PARK DATA 

Ra63^ REP SPPAT.HCTAT ICP PATRlX FRCP STABLE PEHEER TO BASIC KEF . CCCRC .S V S T EM 


R0e35 

PC63t 

SUEPCniNES CALLEC- 

iATKB - SEXT. ANGULAR PEACINGS TC 

P AV 

, BASE 

CGCR • 




R0637 

NB SP 

- TRANSFCRP 

1 PROP NAV. 

> BASE 

TC STABLE 

HEMBER 




R063e 

01 TPl 1 











R0439 

PPAC 

■ LINE 

OF SIGHT 1/2 UNIT VECTCR 

IN BASIC REFERENCE SVSTEP 



R06<i0 

CALLING 

SECUENCE 









R06A1 

L 

CALL GETUM 









B0G*t2 

NCFPAL EAIT 










H0t<t3 

L4l CF CALLING SEQUENCE 













23»3110 

40220 

C 

GETUH 

STQ 

SETPC 



U6A5 

REP 

6 

LAST 

565 

2 3 f 3 11 1 

0231 7 

C 



EGRESS 



Q6<>6 





23t3U2 

OOOOl 

C 



0 



06^7 





23*3113 

7674C 

C 


LXC,1 

VLCAC* 



06<ie 

REF 

2 

LAST 

77 

23,3114 

01242 

1 



HARK DATA 

CONTAINS ADCRES5 OF MARK CATA 


Q6A9 





23,3115 

COOC2 

C 



1,1 



Q6S0 

REF 

7 

L ^ S T 

2 2 1 

23,3 116 

23676 

1 


STOOL* 

HARKCCWN *1 

TRANSFER DATA FROP MCRKING STORAGE 


065 i 





23,3117 

COOQl 

C 



0,1 

TO MARKDOWN ARRAY FOR DOWNLINK 


0652 

REF 

e 

LAST 

566 

23,3120 

03675 

C 


STORE 

MARKCChN 



0653 





23,3121 

77 774 

C 


AXT,2 




065^ 





23,3122 

COOC2 

C 



2 



0655 





23, 3123 

67064 

1 


X$U,2 

S XA f 2 



0656 

REF 

18 

LAST 

56A 

^3,3124 

C0046 

c 



X 1 

XI * PARKCATA 


0657 

REF 

6 

LAST 

429 

23,3125 

CC050 

1 



S 1 

SI « PARKOATAI ACR t *2 


0658 





23,3126 

77624 

1 


CALL 




0659 

REF 

3 

LAST 

499 

23,3127 

4 6 0 C 0 

c 



SXTNe 

SEXT. ANGULAR READINGS TO NAV.BASE COQR. 


0660 





23, 3 130 

7762A 

1 


CALL 




0661 

REF 

1 



23,3131 

47541 

1 



NBSM 

TRANSFORM FRCP NAV.BASE TC STABLE MEM. 


0662 





23, 3132 

76505 

c 


VXH 

VSLl 



0663 

REF 

1^ 

LAST 

553 

23,3133 

01736 

1 



REF SPPAT 



0664 





23,3134 

77650 

1 


GOTO 


MPAC -lUMHINF CP SIGHT VECTOR 


0665 

REF 

7 

LAST 

566 

23,3135 

02317 

c 



EGRESS 

EXIT ~ 
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P066CI REr4D&2VC(^S TRACKING CATA PFCCESSING ROUTINE (F22) 

JLQjthl PLRPnfF in TO PROCESS RENDEZVCUS SIGHTING MARK DATA TC UPDATE THE STATE VECTOR CF EITHER THE CSM OK LH AS 

R06ft9 CfcFI^eC EY ThE RENCEZVOUS NAVIGATION PROGRAM (P2CI. 

ail6iD A<<LNPTlfN5 Ml li-is ROLUNE IS HANUALLY SELECTEO BY THE ASTRONAUT 9 Y V55E hPENEVER RENOEZVCUS SIGHTING MARKS 

K0672 ARE CESIREO. ITS SELECTKN HOWEVER IS LIMITEC TC PERIQCS WHEN TEE CMC IS HCLOING FOR A V/N FLASHING 

HC67^ CATA CISPLAY. THIS PCLTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY. 

0^76 3A.2512 BANK 3^ 

C677 R£f I 3A,20CC SETLCC P20S3 

0678 3A,2!12 BANK 


GAPJ ^SENBLE R EVISION 231 CF 


P20-F25 


I 



0679 

REF 

1 







COUNT 

39/R2? 





_a£i_ 

3 

LIST 

-^1 

39.2512 

3 76^3 

c 

R22 

CAF 

PRI026 




0661 

REF 

2 

LAST 

195 

39,2513 

55*056 

1 


TS 

PHSPR0T2 




06611 

REF 

6 

LAS 1 

551 

39,2519 

0 51C3 

c 


TC 

PF IC CHNG 




_ 

REF 

L 



39.2515 

3 7719 

1 


CA 

NEG3 




0683 

REF 

1 1 

LAST 

56 1 

34,2516 

55*739 

1 


TS 

MPKeiF2 




066^ 

REF 

E 6 

LAST 

56Z 

39,2517 

C 60C6 

1 


TC 

INTPRET 




0685 





39.2520 

77639 

c 


RTB 





0667 

REF 

14 

LAST 

556 

39,2521 

955C5 

c 



LOACT IME 




0666 

REF 

2 

LAST 

17C 

39,2522 

01152 

c 


STORE 

VHF TIME 

PRESENT TIME 



0689 





39,2523 

77629 

1 

RtNCl 

CALL 





C69C 

REF 

3 

LAST 

564 

39,2529 

56712 

c 



GRP2PC 




06901 





39,2525 

77629 

1 


CALL 





C691 

REF 

1 



39,2526 

569C9 

1 



WAITCNE 




0692 





39,2527 

77776 

1 

RENCIA 

EXIT 





0699 

REF 

1 



39,2530 

3 3220 

1 


CAF 

MKGU FAO 

SET MARKSTAT FOP 

RESTART (CLEARED 

IN 

0695 

REF 

31 

LAST 

559 

39,2531 

55*33C 

1 


TS 

HAT K S TAT 

FRESH START) 



0 700 

REF 

12 

LAST 

567 

39,2532 

3 1739 

c 


CA 

MRKbUF2 




0701 





39,2533 

0 0CC6 

1 


EXTEND 





0702 

REF 

1 



39,2539 

1 2537 

c 


bZF 

F EN02 




Q7C3 





39,2535 

C 0QC6 

I 


EXTEND 





0709 

REF 

1 



39,2536 

6 2556 

c 


bzmf 

kENt 3A 




U705 

REF 

m ^ 

i t 

LAST 

56 1 

39,2537 

3 621 1 

c 

RENC2 

CAF 

SIX 




0706 

REF 

9 

LAST 

561 

39,2590 

0 5975 

1 


tc 

GFNT PAN 




0707 

REF 

13 

LAST 

567 

39,2591 

01739 

c 


AORES 

HRK61F2 




0708 

REF 


LAST 

55 1 

39.2592 

01229 

1 


acres 

MAf KTIME 

MARKTIME MUST 8E 

CONTIGUOUS WITH 

V7EMP 

0718 

REF 

2 

LAST 

567 

39,2593 

3 7719 

1 


CAF 

NEG3 

NEC VALUE TC INCICATE VALUES USED 


C719 

REF 

14 

LAST 

567 

29,2599 

55*739 

1 


TS 

MPK8LF2 




C72u 





39,2595 

0 0003 

1 


RELINT 





0721 

REF 

67 

LAST 

56? 

39,2596 

0 6006 

1 


TC 

TNTPTFf 




0722 





39,2597 

95019 

c 


CLEAR 

call 




0723 

REF 

1 



39,2!5C 

C9667 

1 



SGURCFLG 

0 - OPTICS CATA 



07 29 

REF 

4 

LAST 

567 

39,2551 

56712 

c 



&RP2FC 

PHASE CHANGE 



C725 

REF 




39.2552 

52131 

c 


SSP 

GOTO 




0 7^6 

3 

LAST 

566 

39,2553 

C1293 

c 



MAPKOATA 




072 7 

REF 

2 

LAST 

77 

39,2559 

C1229 

1 


ECAOK 

VTEMf“^^^ 




Q728 

REF 

1 



39,2555 

7060 1 

I 



RENO 9 





GAP: 
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0729 

BEF 

Ee 

L^Sl 

567 

39f2556 

0 6006 

1 

REND3A 

TC 

INTPPET 




0732 





39,2557 

77629 

1 

PENC3 

CALL 





07321 

fEF 

5 

LAST 

56 7 

39.2S6C 

56712 

c 



GRP2PC 




07322 





39,2561 

77629 

1 


CALL 





0733 

REF 

2 

last 

567 

39,2562 

569C9 

1 



kAl TCAE 




0739 





39,2563 

77619 

1 


i30FF 





0736 

REF 

A 

LAST 

257 

39,2569 

09796 

c 



VHFRFLAG 




0737 

REF 

1 



39,2565 

70527 

C 



RENDU 




0736 





39.2566 

77639 

c 


RTB 





0739 

REF 

15 

LAST 

567 

39,2567 

955C5 

c 



LQADT IHE 

PRESENT TIKE 



0790 





39,2570 

95225 

c 


OSU 

DSU 




0791 

REF 

1 



36.2571 

1969 7 

1 



60SECOP 

1 HIN 



0792 

KEF 


LAST 

567 

39,2572 

01152 

c 



VHFT IKE 

LAST READING CF RADAR 



0793 





39,2573 

95090 

1 


BHN 

CALL 




0799 

REF 

2 

LAST 

566 

39,2579 

70527 

0 



F ENOU 




0 795 

REF 

1 



39,2575 

56915 

1 



KANGERC 

READ RADAR RANGE 



0796 





39,2576 

77795 

1 


OLOAO 





0797 

REF 

A 

LAST 

567 

39,2577 

C1225 

0 



MARK T 1P£ 




0796 

REF 

9 

LAST 

56 6 

39,2600 

01152 

c 


STOKE 

VHFT IKE 

FCR DCWNLINK 



0799 





39, 2601 

77629 

1 

PENC9 

CALL 





0 750 

REF 

3 

LAST 

551 

39,2602 

56 39 3 

c 



SLl INTG 

SET INTEGRV FLAGS 



C751 





39, 26C3 

95019 



BON 

CALL 




0752 

REF 

6 

LAST 

55 1 

39,2609 

C07C7 

1 



VEHUFFLC 




0753 

REF 

1 



3^ f 2 60 5 

71035 

1 



C5HLPP 

BRANCH IF CSM UPDATE 



0759 

REF 

5 

LAST 

55 1 

39,2606 

27113 

1 



INTEGPV 




0755 





39,2607 

77629 

1 


CALL 





0756 

REF 

6 

LAST 

566 

39,2610 

56712 

c 



GRP2PC 

PHASE CHANGE 



0757 





39,2611 

77629 

1 


CALL 





0758 

REF 

9 

LAST 

56 6 

39,2612 

56393 

c 



SETI RTG 

SET INTEGRV FLAGS 



0759 





39,2613 

77619 

1 


CLEAR 





0 760 

REF 

6 

LAST 

55 1 

39,2619 

C 1 6 7^ 

c 



VINT FLAG 

SET INTEGRA! ICN veHlCLT 

TO LM 


0761 





39,2615 

93019 

c 

PfcN05 

0GFF 

SET 




0762 

REF 

9 

LAST 

552 

39,2616 

02756 

1 



F ENDKFLG 




0763 

REF 

1 



39,26 17 

70621 

c 



RfcND5A 

DC NCT INTEGRATE H IF FLAG * 0 


0769 

REF 

9 

LAST 

551 

39,2620 

014 76 

c 



D IHC FLAG 




0765 





39,2621 

77629 

1 

RENC5A 

Call 





0 7 66 

REF 

6 

LAST 

566 

39,2622 

2 7113 

1 



INTEGPV 




0767 





39,2623 

77629 

1 


CALL 





01 1 6 

REF 

1 



39,2629 

56526 

c 



SHIFTNCX 

SET EARTH RCON SCALING 

INDEX 



076S 

0770 

0771 

REF 

1 



29.2625 

39.2626 

39.2627 

77629 

7U29 

95019 

1 

C 

C 

CALL 

SET 

CHPCS 

CALL 

SET 

CSK PCSITION 



0772 

REF 

1 



39,2630 

C2969 

C 


I NCLPFl C 

SET 

FCR 1ST PASS 



0773 

REF 

1 



39,2631 

71133 

C 


L MPC S 

SET 

LN POSITICN 



0779 





39,2632 

93019 

C 

CLEAR 

BON 





Q775 

REF 

2 

LAST 

202 

39,2633 

01671 

C 


ORbKFLAG 

CLEAR F OTT (TRB FT A L HTNIT TiyLUNAH 



0776 

REF 

5 

LAST 

56 E 

39,2639 

G27U 

c 


penokflg 





0777 

REF 

1 



39,2635 

7069 5 

1 


RFND6 





0778 





39,2636 

17795 

1 

olOaD 






C7781 

REF 

1 



39,2637 

C20C1 

1 


WPENCPCS 
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07782 

0779 

Q779L 

REF 

1 



39*2690 

39.2691 

29.2692 

39001 
56599 
77 795 

1 

1 

1 


STCALL 

OLOAO 

0 

INIT lALN 

C7792 

REF 

9 

LASl 

569 

39,2693 

15332 

1 



ZERGVECS 

C7793 

REF 

e 

LAST 

550 

39,2699 

01126 

C 


STORE 

VHFC NT 

JO.exi_ 





39,2695 

77619 

1 

RENC6 

SET 


0781 

REF 

6 

LAST 

56 6 

39,2696 

02976 

c 



P ENGViFLG 

0782 





39,2697 

52375 

1 


VLOAD 

VSU 

OTBi 

REF 


lAST 

77 

39,2650 

C1215 

0 



LtMPCS 

C7eA 

REF 

t 

LAST 

7 7 

39,2651 

Ci207 

c 



CSMPCS 

0785 

REF 

1 

LAST 

569 

39,2652 

C3531 

c 


STORE 

PCLP 

0786 





39,2653 

93056 

c 

PENC7 

UNIT 

BCN 

0787 

REF 

2 

LAST 

567 

39,2659 

C9707 

c 



SCURCFLG 

0788 

REF 

1 



39, 2655 

71096 

c 



PEND19 

0709 

REF 

1 



39*2656 

01273 

c 


STORE 

UCL 

C790 





39,2657 

950 19 

c 


aOFF 

CALL 

0791 

REF 

2 

LAST 

56E 

39,2660 

02799 

1 



1 NCGPFLG 

0792 

REF 

1 



39,2661 

70673 

1 



RENLS 

07 93 

REF 

1 



39, 2662 

97110 

1 



GETUP 

0799 

REF 

-5 

LAST 

56 9 

39, 2663 

25235 

1 


STOVL 

UM 

0 795 

REF 

2 

LAST 

569 

39,2669 

01273 

c 



ULL 

0796 





39, 26c5 

90035 

c 


VXV 

BCV 

0797 

REF 


LAST 

569 

34 f 2 6 66 

01235 

1 



UH 

0798 

REF 

1 



39,2667 

7C67C 

1 



KENOe 

0799 





39,2670 

90056 

c 

PENC8 

UNIT 

BCV 

080C 

REF 

1 



39, 2671 

70557 

1 



RENU3 

C8C1 

REF 

9 

LAST 

569 

39,2672 

01295 

c 


STCRP 

USTAP 

0802 





39,2673 

77629 

1 

RENC9 

CALL 


0803 

REF 

1 



39,2679 

97097 

1 



eVEC TCPS 

0809 





39,2675 

77219 

c 


BON 

VLOAC 

0805 

REF 

1 

LAST 

56E 

39,2676 

CC7C7 

1 



VEHtPFLG 

0806 

REF 

1 



39,2677 

707C3 

1 



RENU^A 

0807 

REF 

7 

LAST 

569 

39,27CC 

Q3502 

c 



8VEC TCP 

0808 





39,2701 

77676 

c 


VCOMP 


0609 

REF 

8 

LAST 

569 

39,2702 

03502 

c 


STORL 

BVECTCP 

0810 





39,2703 

77629 

1 

RENC5A 

CALL 


08101 

REF 

7 

LAST 

566 

39,2709 

56712 

c 



bPP2PC 

C8102 





39,2 705 

77619 

1 


BON 


0811 

REF 

2 

LAST 

25C 

39,2706 

Q0706 

c 



R23FLG 

0612 

REF 

1 



39,2707 

71077 

1 



PtN015 

0813 





39,2710 

93395 

1 


OLGAD 

DAD 

0819 

REF 

1 



39,2711 

31222 

1 



SxTVAF 

0815 

REF 

1 



39,2712 

31229 

1 



1 huvAp 

0816 

REF 

2 

LAST 

lie 

39,2713 

27526 

c 

PENCIO 

STOVL 

VAF 1 ANCE 

0817 

REF 

9 

LAST 

569 

39,2719 

03531 

c 



PCLP 

0818 





39,2715 

60296 

1 


ABVAL 

NGRK 

0819 

REF 

19 

LASl 

566 

39,2716 

00097 

1 



Xl 

0820 





39,2717 

91316 

c 


DSQ 

OMP 

0821 

REF 

3 

LAST 

569 

39,2720 

C3526 

c 



VAPl ANCE 

0822 





39,2721 

95070 

1 


XA0,1 

CALL 


0 - hPENCPOS 1* WRENCVEL 
INITIALIZE W HATRIX 


ZERO OUT VHTCNT ANO TRKPKCNT 


LK - CSN 


BRANCH IF CATA IS RADAR 


CALCULATE UP LINE OF SIGHT 


UCL X UK 


BRANCH IF CVEPFLOW IGNCRE MARK 


BRANCH IF BACKUP CPTTTS^ rRZirwflftk ING * 


TEMP STORAGE FOR VARIANCE CALC. 
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0623 

REF 

2C 

LAS7 

569 

34,2722 

CG046 

C 


XI 

0624 

REF 

2 

LAST 

568 

34,2723 

56526 

C 


SHI F TNOX 

0625 





34 • 2 7 2 A 

56C7C 

C 

XAD.l 

XAD, 1 

0626 

REF 

7 

LAST 

544 

34,2725 

C0047 

1 


X2 

0827 

REF 

6 

LAST 

57C 

34,2726 

00047 

1 


X2 

U62.e 





34,2727 

12257 

1 

SR* 

TLOAC 

0629 





34,2730 

2C577 

C 


0 -2,1 

0630 

REF 

249 

LAST 

562 

34,2731 

CC155 

c 


HPAC 

0031 

REf 


LAST 

56 9 

34,2732 

C3526 

c 

STORE 

VAPI ANCE 

0631 1 





34,2733 

54335 

c 

SLOAO 

SH 

063114 

REF 

2 

LAST 

69 

34,2734 

C2400 

1 


INTVAR 

083118 





34,2735 

20632 

1 


2 50 

C83122 





34,2736 

77771 

c 

TAD 


083126 

REF 

5 

LAST 

570 

34,2737 

C3526 

c 


VAR 1 ANCE 

08313 

R|F 

6 

last 

57C 

34,2740 

C3526 

c 

STOKE 

VARIANCE 

0632 





34,2741 

76214 

1 

BOFF 

TAD 

0833 

REF 

3 

LAST 

569 

34,2742 

C4747 

1 


SCUF.CFLG 

0034 

REF 

1 



34,2743 

70752 

c 


PENOKA 

0035 

REF 

1 



34,2744 

03005 

1 


RVARRIN 

0836 





34,2745 

72244 

c 

BPL 

TLOAC 

0637 

REF 

2 

LAST 

57C 

34,2746 

7C752 

c 


RENLICA 

0636 

REF 

2 

LAST 

57 C 

34,2747 

030C5 

1 


H VAF PIN 

06381 





34,2750 

77646 

c 

ABS 


0839 

REF 

7 

LAST 

570 

34,2751 

03526 

0 

STORE 

VAR I ANCE 

0840 





34,2752 

4 5014 

C RENOlOA 

CLEAR 

CALL 

0641 

REF 

1 



34,2753 

C2666 

G 


DMENFLG 

0842 

REF 

1 



34,2754 

152 50 

1 


INCOBPl 

0642 1 





34,2755 

17624 

1 

CALL 


06422 

REF 

6 

LAST 

569 

34,2756 

56712 

C 


&KP2PC 

0643 





34,2757 

45014 

C 

BOFF 

call 

0644 

REF 

3 

LAST 

56 9 

34,2760 

C2744 

1 


INCCRFLC 

0645 

REF 

1 



34,2761 

71007 

C 


KEND12 

0646 

REF 

3 

LAST 

57C 

34,2762 

56526 

C 


SHIF TNOX 

0847 





34,2763 

51575 

1 

VLOAD 

ABVA L 

0646 

REF 

ft 

LAST 

77 

34,2764 

C126S 

1 


OELTAX 46 

0649 





24,2765 

17657 

G 

Sk* 


0650 





34,2766 

57176 

C 


U f 2 

0851 

REF 

4 

LAST 

273 

34,2767 

27504 

C 

STOVL 

N4901SP 42 

0862 

REF 

6 

L 4 S T 

57C 

34,2770 

01257 

C 


DELT AX 

0653“ 





34,2771 

53646 

C 

ABVAL 

"Tp* 

0854 





34,2772 

57176 

C 


0,2 

0855 

REF 

A 

LAST 

57C 

34,2773 

03502 

( 

STORE 

N490 ISP 

06551 





-4,2174 

77735 

0 

SLOAD 


0 656 

REF 

1 



34,2775 

C2QC3 

c 


h HAX 

0057 





34,2776 

45261 

c 

SR 

DSU 

0856 





34,2777 

20613 

i 


lOD 

0659 

REF 

6 

LASt 

57C 

34,300(3 

03502 

c 


N490 ISF 

0660 





34,3001 

67240 

c 

6MN 

SLOAC 

C861 

REF 

1 



34,3002 

1X142 

c 


RENO ISP 

0662 

REF 

1 



34,3003 

020C4 

1 


VHAX 


GET EARTH PCON SCALING INDEX 


ADJUST SCALING TO 0-40 


INTEGRATION VARIANCE SCALED b-15 
scale it 6-40 


BRANCH IF NCT VHF RADAR 
ViTp RADAR nTN. variance 


HIN. VALUE WAS STORED AS NEG. 
STORE NIN. VALUE 


CLEAR FOR 6 X 6 W MATRIX 
CALCULATE UPDATE 


GET EARTH NCCF SCALING INDEX 


0-RANCH trinrs^ur.GPEAiER thar 'mtht.- 
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08t3 3A,3C0^ 50025 C USU bNN 

086<i REF 7 L^ST 57C 3^,3005 C3504 0 N49CISP *2 

Q86S REf 2 LIST 57C 34.3006 7I1<>2 C RENO ISP BRANCH IF VEL. UPDATE GREATER THAN PAX. 

G666 3A»3007 7762N ) RENCI2 CALL 

0869 REF I 3A,301C 75A60 I INC0PP2 INCCBPCRATE UPOATE VALUES INTO STATE VEC 


fla7C 3A.3QI1 A301A C BON 60Ff 


0871 

REF 

A 

L/ST 

57C 

3A,3C12 

C47C7 

( 



sdURCFlG 


0872 

REF 

1 



3A,3C13 

71104 

1 



PFNDU 

BRANCH IF DATA IS RADAR 

Q873 

REF 

A 


57C 

3A. 30 lA 

02744 




INCORFLG 


C87A 

REF 

1 



3A,3C15 

71112 

C 



RENC17 


0875 





2A, 3016 

77624 

1 


CALL 



0876 

REF 


LAST 

57C 

3At 3017 

56526 

C 



SHI F T^CX 

GET EARTH HCCN SCALING INCEX 

0 877 





3Af 3020 

45014 

C 


BON 

CALL 


0676 

REF 

6 

LAST 

56S 

3A,3C21 

CC7C7 

1 



VEHU PFLG 


0879 

REF 

L. 



3Af 3022 

71120 

1 



KENCie 

BRANCH IP CSH UPDATE 

0680 

REF 


LAST 

568 

3A,3023 

71133 

c 



L MPOS 

GET LR PQSITICN 

0881 





3A, 302A 

77624 

1 

RENC13 

CALL 



0682 

REF 

9 

LAST 

57C 

3A,3025 

56712 

c 



GRP2PC 

PHASE CHANGE 

0863 





3A, 3026 

52375 

1 


VLOAO 

VSU 


G8 8A 

REF 


LAST 

569 

3A,3027 

C121S 

c 



LEKPCS 


0865 

__Rtf 


LAST 

569 

34.3030 

01207 

0 



CSHPCS 


0886 

REF 

5 

LAST 

569 

3A,3C31 

03531 

c 


STCRE 

RCLP 

LN - CSM 

0887 





3A, 3032 

77614 

1 


CLRGO 



0886 

REF 

C 

LAST 

571 

34.3033 

02624 

c 



I NCCPFLG 


0889 

REF 

1 



34, 303A 

70633 

c 



REND 7 

BRANCH FOR 2ND PASS THIS OPTICS MARK 

0890 





34, 3C35 

45014 

c 

CSMUPP 

CLEAR 

Call 


0691 

REF 

7 

LAST 

568 

3 ^ f 3036 

01674 

c 



VINTFLAG 

SET INTCGRATICN VEHICLE EC CM 

0892 

REF 

7 

LAST 

56 E 

34,303? 

27113 

1 



INTEGRV 


0893 





34,3040 

77624 

1 


CALL 



C89A 

REF 

1C 

LAST 

5 7 1 

34.304 1 

56712 

c 



GRP2PC 

phase CHANGE 

0895 





34, 3042 

77624 

1 


CALL 



C696 

REF 

5 

LAST 

56E 

3A, 3043 

56343 

c 



SET I^TC 

SET FLAGS FCR INTEGRATION 

0097 





3A,3C44 

77650 

1 


GOTO 



0896 

REF 

1 



34, 3C45 

706 15 

1 



RENDS 


0899 

REF 

9 

LAST 

569 

34,3046 

27502 

c 

RENC14 

STCVL 

faVECTCR 

VHF RACAA BVECTCR 

0900 

REF 

10 

LAST 

569 

34,3047 

15332 

1 



ZEFCVECS 


0901 

REF 

1C 

LAST 

571 

34,3050 

03510 

c 


STCRL 

BVECTCR +6 


0902 

REF 

11 

LAST 

571 

34,3051 

27516 

c 


STOVL 

BVECTCR +120 


0903 

REF 

6 

LAST 

57 1 

34,3052 

03531 

c 



RCLP 


U90A 





34,3053 

71256 

c 


UN IT 

DLL AC 


09C5 

REF 

1 



34,3054 

C1257 

c 



VHFR A^GE 

VHFRANCE SCALED R-27 

0906 





34,3055 

60414 

c 


BON 

Sk2 


0907 

REF 

7 

LAST 

508 

34,3056 

04303 

c 



HOCNTHIS 


0908 





34,3C57 

7106G 

1 



♦ 1 


0909 





34,3060 

43025 

1 


osu 

SET 


0910 





34,3061 

00045 

c 



36D 

ABVAL (RCLPI 

0911 

REF 

6 

LAST 

57 1 

34,3062 

02464 

c 



INCOHFLC 


0912 

REF 

1 

LAST 

56A 

34,3063 

03524 

1 


STORE 

OELTAC 


0913 





34,3064 

77214 

c 


BdFF 

VLCAC 


091A 

REF 

S 

LAST 

57 1 

34,3065 

C0747 

c 



VEHUFFLC 



» — I 


i 

i 

I 

It 

1 

i 

4 

4 

i 

r 

0 

0 

0 
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QS15 

REf 

1 



34,3C66 

71072 

1 



REN014A 



0916 

REF 

12 

L/ST 

57 1 

34 f 30e 7 

03502 

C 



BVECTCP 



ijsil _ 





24,3010 

17676 

a 


VCCHP 




0918 

REF 

12 

L/5T 

572 

34,3C71 

C3502 

c 


STORE 

BVECTCP 



0919 





34,3072 

17624 

1 

RENC14A 

CALL 



’ 

09191 

PEF 

U 

l/ST 

57 1_ 

34.3073 

56712 

€ 



OFF'? PC 



09192 





34,3074 

52145 

C 


OLCAO 

GOTO 



0920 

REF 

1 



34,3C75 

C30C3 

1 



P VAR 



0921 . 

REF 

1 



34.3076 

70713 

c 



RENDIC 



0922 





34,3077 

43335 

c 

RENC15 

SLOAO 

DAO 

GET ILT LOS VARIANCE 


0923 

REF 

1 



34,3100 

01357 

1 



ALTVAR 

BACKUP OPTICS 


09e4 

REF 

i_ 

L4iT 

569 

34t3lQl 

31224 

1 



I MU VAR 

[RU VARIANCE 


0925 





34,3 102 

77650 

1 


GOTO 




0926 

REF 

2 

LAST 

572 

34,3103 

7C713 

c 



PENOlO 



0927 





34,3104 

62150 

1 

REN016 

LXA,1 

INCP ,l 



C928 

REF 

7 

LIST 

569 

34,3105 

C 1 1 2 5 

c 



VHFCNT 

VHF RICAR UPDATE COUNT 


0929 





34,3106 

COQCl 

c 


OEC 

1 



0930 





34,3107 

S213C 

i 


SXA,1 

GOTO 



093i 

REF 

E 

LIST 

572 

34,3110 

C1125 

c 



VHFCNT 

UPDATE CCUNT 


0932 

REF 

1 



34,3111 

70523 

1 



REND 1 



0933 





34,3112 

62150 

1 

P ENC L 7 

L X A f 1 

[ NC R f 1 



C934 

REF 

4 

LIST 

55C 

34,3113 

0112 6 

c 



TF KMXCNT 

OPTICS NARK CCUNT 


0935 





34,3114 

COCO 1 

c 


DEC 

1 



C936 





34,3115 

5213C 

1 


SXA, 1 

GOTO 



0937 

REF 

5 

LIST 

572 

34,3116 

01126 

c 



trkmkcnt 

UPDATE COUNT 


0938 

REF 

2 

LIST 

569 

34,3117 

70557 

1 



REN03 



C939 





34,3120 

77624 

1 

REN 018 

CALL 




09^0 

REF 

2 

LIST 

568 

34,3121 

71124 

0 



CMPOS 

GET CSN POSITION 


09^1 





34,3122 

17650 

1 


GOTO 




. Q9<i2 

REF 

1 



34,3123 

71024 

1 



F EN013 



09A3 





34,3124 

53775 

1 

CMPOS 

VLOAO 

VSR* 



09^^ 

REF 

1 



34,3125 

C1573 

1 



DEL TACSM 



C9A5 





34,3126 

57167 

c 



7,2 



09**6 





34,3127 

77655 

1 


VAO 




C947 

REF 

1 



34,3130 

01607 

1 



RCVCSM 



0948 

KEF 


LIST 

57 1 

34,3131 

Q1207 

c 


STORE 

CShPCS 

CSN PCSITICN scaled 0-27 OR B-29 


C94‘V 





34, 3132 

776 16 

c 


RVQ 




C950 





24,3133 

53775 

1 

LHPOS 

VLOAC 

VSR* 



U951 

REF 

1 



34,3134 

C1645 

1 



DEL r ALEP 



US52 





34,3135 

5ll67 

c 



7,2 



0953 





34,3136 

17655 

1 


VAO 




US 54 

REF 

1 



34, 3137 

C 1661 

1 



RCVL feP 



C 555 

REF 

4 

LIST 

57 1 

34,3140 

C1215 

0 


STORE 

LERPCS 

LR pCSITKn SClLeiT^-27 Ofi 0-29 


0956 





34,3141 

77616 

c 


PVQ 




0963 





34,3142 

77776 

1 

RENO ISP 

Exi r 




0964 

REF 

e 

LIST 

^94 

34,3143 

3 0105 

t 


CA 

FlAG»iRC9 



0965 

REF 

i2 

LIST 

434 

34, 3144 

1 4703 

c 


MASK 

BITS 



U 966 





34,3145 

0 Q0C6 

I 


EXTENO 




096 7 





34, 3 146 

1 3151 

c 


ezF 

+ 3 



0960 

REF 

24 

LIST 

55 8 

34,3147 

3 47 1 1 

1 


CA 

BIT2 




MSA 


cap; 


ftfVlSICh 23 7 CF AfiC 
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0969 





34,3150 

0 31S2 

1 


TO 

♦ 2 



Q97C 

Htf 

28 

LAS! 

507 

3^,3151 

3 47 12 

1 


CA 

P ITl 



0971 

Alf 

tL 

LASl 

571 

34.3152 

55*505 

_1_ 


TS 

N490 1 SP 

4^ 


097li 

REF 

lie 

LAS1 

563 

34,3153 

3 47 14 

1 


CAF 

ZFPC 


SET TEMPCRl > ZERO TC INDICATE 

09712 

REf 

3 

LASl 

56<» 

34,3154 

55*300 

1 


TS 

TEMPCRl 


V06 N49 DISPLAY HASNT BEEN ANSHERbD 

09J12 

Mf . 

29 

LAST 

563 

34.3155 

C 5iCl 

C 


TC 

PHASCHNC 



097l<i 





34,3156 

04022 

c 


GOT 

04022 



09715 

REF 

1 



34,3157 

3 7664 

1 


CAF 

PRI027 


SET UP DISPLAY JCB i^lTH HIGHER PRIORITY 

09716 

ref 

17 

LAST 

559 

34,316C 

0 5027 

1 


TC 

NCVAC 



097165 

REF 

32 

LAST 

563 

E7, 1725 




EBANK- 

MPKBLFl 


than present JOfc 

09717 

REF 

1 



34,3 161 

03173 

1 


2CA0R 

REND ISP2 



09717 

REF 

1 



34,3162 

10067 

1 






097175 

REF 

8 9 

LAST 

568 

34,3163 

C 60C6 

1 

R6NC ISP7 

TC 

INTPRET 



097177 

REF 

25C 

LAST 

57C 

34,3164 

00155 

c 


store 

MPAC 



C9711S 





34,3165 

53135 

€ 


SLQAO 

BZE 



097161 

REF 


LAST 

573 

34,3166 

C13C1 

1 



flHPCPl 



097183 

REF 

1 



34,3167 

71164 

1 



PEN01SP7 

♦ 1 

display has not been answered YET 

097185 





34.317C 

52040 

1 


BNN 

GOTC 



097187 

REF 

2 

LAST 

57C 

34,3171 

7 1007 

C 



RFND12 


NEG INDICATES PROCEED 

097189 

REF 

1 



34,3172 

71202 

1 



RENO ISP3 


PCS incicates recycle 

0972 REf 





34.3173 

3 3225 

1 

REND 1SP2 

CAF 

V06N49 



0973 

REF 

137 

LAST 

562 

34,3174 

C 4555 

0 


TC 

bANKCALL 



097A 

REF 

1 



34,3175 

20635 

c 


CAOR 

PF ICCSP 



0975 

REF 

k 

LAST 

383 

34,3176 

0 4550 

c 


TC 

GUTOV56 


TERM EXIT P20 VIA V56 

09 76 

REF 

69 

LAST 

563 

34,3177 

4 4712 

c 


CS 

ONE 


NEG INCICATES PROCEED REN0ISP7 JOB 

C977 

REF 

5 

LAST 

572 

34,3200 

55*300 

1 


TS 

TEMPCRl 


PCS INCICATES RECYCLE RENDISP7 JOB 

0978 

REF 

7< 

LAST 

55 < 

34.32CI 

C 5112 

c 


TC 

6NDCF JCt 


GC CCMPLETE ABOVE JOS 

0966 





34, 3202 

77614 

1 

RtN0ISP3 

BON 




C9ee 

REF 

5 

LAST 

57 1 

34,3203 

C4707 

c 



SCURCFLG 



0969 

REF 

2 

LAST 
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R11S2 IN VICTH^TASNI. 

&11S2 ta) SIN. CCS CDUxTy.Z FRCP SUSP CDUTHIG^ ~ 

R119A ~ TRANSFER^ QUTPLT CF SMCDOFES FRCN VtCCOU) TC VACl^C. 
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» 
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. -RiZiil. 

P1211 

R1212 

R1213. 

R121A 
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R12i6 


TRANSFER CESIREC CCUSt SCALED 180 DEGREES.FRCM T(SAVEOCOU) 
TC V(CCUXC). 

TRANSFER CELCOLSf SCALEC 160 CEG* FRGM VIVACIAD) 

TC VCCELCDUXI- 

TRANSFER CHECA CCNTRCLf SCALED A50 CEG/SECfFRGM VIMPAO 
TO vmeoDYi. 

RELlNTt SET NPAC=Qf EXIT CRSAl-l 


R1217 CAL I L call CBS61.1 ' 

R1218 RETURF S ALL TC L-»l. 

H1219 (1) S(HP<C>^Q. NCRHAl EXIT- 3 SETS OF INPUTS FED TC CAP- 

R1220 (2) SlMPAC)-l- CALCULATED DESIRED CDUSfSP» SET IN TICPHII 

R1221 FCR KALCMANU. ABSCACDL - CCCU) EXCEEDS 1C CEGREEy. 

R1222 131 S(MPAC)»2. GNCS AuTC PQCE NCT SGLECTEO (BiTlO*lJ. 
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Q.l SEC OCU ANGULAR INCREMENTS, 
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R12^5 (A) VtSAVEPOS) E7 CSP PCS VEC ANC DtSAVEPOSJ* tCR GTH OF lCS. 

R12<i6 (51 V(SAVEVEL) £7 CSP VEL VEC. 
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P12A8 RISC (U EHASAELE ITEMPl USED TCj TEMP STCRE EBANK UNDER I hHINT. 

S12A9 (2) EPASAELE P2111ME USED AS tEMP STORE DURING CKS61.1 
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1252 2A,2CC2 BANK 24 

1253 REF 1 34,2000 SETLOC P2CS4 

12 54 34,3227 ^ BANK 
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e 
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C STORT 

STCALL 
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STORE 

CLOCK TIRE FCR SU6R R63 
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REF 
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3^,3235 
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C 


R63 
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TO CALC DCCUtT*PPt SENTtF-ASSl 1 

1266 





36,3236 
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TLOAD 




1267 
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-U 

LAST 
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36.3237 

C1156 

1 


THET AO 

SAVE 

CCDUIT) FRCM CALCDCOU FOR STEP6. 

1268 

REF 

2 

LAST 
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36,326C 

C3373 

C 

STORE 

SAVtCCCU 




A1269 


1270 





36t326l 

77776 

1 


EXIT 


12701 

REF 
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36, 3262 

0 3263 

C 


TC 

STEP2CK 

1271 

REF 

9 
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381 

36,3263 

3 6371 

C 

AUTOCK 

CAP 

PF 1C3C 

1272 





36.3266 

0 0006 

1 


EXTEND 


1273 

REF 

3 

LAST 
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36,3265 
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C 


P.XOP 
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1276 

REF 

2 

LAST 
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36,3266 
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1 


MASK 
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1275 





36.3267 
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1 


EXTEND 
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1276 
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c 
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ASET 

1279 

REF 

13 
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6 0075 

1 
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CS 

FLAGRRDl 

1260 

REF 

37 
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c 


MASK 

B ITl 6 

1261 

REF 

H6 

LAST 

56 3 
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c 
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A 

1282 

REF 
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36,3255 
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I 


TC 

STEP3CK 

1263 

REF 

UC 

LAST 
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1 

ASET 

CAF 
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1286 
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TS 
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1265 

REF 

S5 

LAST 

575 

36,3260 
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i 


TC 

INTPPET 
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1 


GOTO 
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REF 
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LAST 
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Q61 1 

1268 

REF 

9 

LAST 
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36,3263 
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STEP2CK 
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FLAGliRCS 

1289 

REF 

2? 

LAST 
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1 


MASK 
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G CQC6 

1 


EXTEND 
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REF 
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36, 3266 
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c 


B2F 

HANUEXIS 

12911 

REF 


LAST 
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26,3267 

0 6555 

c 


TC 

6ANKCALL 
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REF 

2 
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1 


CAOR 

UPACTCFF 


RE_f 


LAST 
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36,3271 

3 6711 

1 


CAF 
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1293 

REF 

2 

LAST 

106 

36, 3272 

55 '61 1 

1 

CCULCCP 

TS 

DTHE TASM 

1296 

REF 

3 

LAST 
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c 


INDEX 
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REF 

12 

LAST 
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36,3276 

3 0032 
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EXTEND 
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REF 

6 

LAST 
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36,3276 
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INDEX 
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REF 

1^ 

LAST 
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c 
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1299 

REF 
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LAST 
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36,3300 
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( 


“TS 

MPAC 

1300 

REF 

96 

LAST 
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36,3301 

0 60C6 

1 


TC 

I NTPFET 

1301 





36,3302 

45266 

c 


ABS 

DSU 

1302 

REF 

1 



26,3303 

3 1552 

1 



DEOREEIO 
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36,3306 

17444 

C 


3PL 

EXIT 
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REF 

1 
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71311 

1 



STKTEST 

1305 

REF 

5 

LAST 

58 1 
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1 


CCS 

OTHF TASM 

1306 

REF 
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c 


TC 
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1 


CS 

FLAGRROl 
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28 
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24,3313 

7 4675 
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130625 

REF 
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LAST 

58 1 

24,3314 

1C OCC 

C 


CCS 

A 





REF 

2 

EAST 
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24,3315 
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1 


TC 
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STIKFLAG IS NCT SET (CC R63) 



1306^5 

REF 

19 
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34,3316 

3 4710 

c 


CAP 
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34,3317 

0 0006 

1 


EXTEND 


STIKFLG IS SET 
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REF 

21 
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1 


MOR 

OSALPCUT 
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REF 

2 
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c 


TC 

ASET 
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1307 

REF 

S7 

LAST 
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34,3322 

C 60C6 

I 

STEP3CK 

TC 

INTPRET 




1308 





24,3323 

776CI 

c 


SETPO 





1309 





34,3324 

COCCI 

c 
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A1310 











NOW HAVE OCCUS STORED IN KSAVEDCCUJ 

• 
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24,3325 
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1 

CHS61.2 

VLOAO 

vsu 
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REF 

2 

LAST 
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C3204 

1 



ocou 
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REF 

2 

LAST 
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34,3327 

C3715 

1 



SAVEVEL 

OV VL - VC 



1315 





34,3330 

57456 

1 


UNIT 

VCOMP 

V (HP4C I*-UN tTCV.VAC360«ABS0V. 



1316 





34,3331 

74235 

c 


VXV 

VXSC 

(-UNlTCV)CPGSSfUN ITLOS ) . 



1317 

REF 

2 

LAST 
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34,3322 

C37C7 

1 



SAVE PCS 




1318 

REF 

1 



24,3333 
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c 



PVCS/PDS 

(UNITLCS eUIUNlTOV BDICCNST B4)-CRCISS. 


1319 





34,3334 

77606 

1 


PUSH 


HOLD CROSS IN PLSHLISTG. SCALED Bt . 



1320 





34,3335 

60345 

c 


OLUAD 

NCRH 

OBTAIN ABS VALUE CF LOS. 



1321 

REF 

9 

LAST 

58 1 

24,3336 

02316 

1 



P21T IRE 

P21TIRE IS TERP STORE FOR A0SLOS. 



1322 

REF 


LAST 

57C 

34,3337 

00047 

1 



XI 




1323 





34,3340 

776C6 

1 


PUSH 
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• 
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34,3341 
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c 
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NOFP 




1326 





34,3342 
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c 



36D 

NORM ABS VALUE CF DVINUMJ. 
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REF 

e 

LAST 
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24,3343 

0C051 

c 



SI 
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1C46C 

1 


XSUfl 

SRI 

XI ■ Xl(N CENCHI-SUn NUR). 



1330 

REF 

9 

LAST 
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34,3345 
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1 



SI 

SPi TC AVOIC OFLOW ON DOV. 



1331 





34,3346 

74271 

c 


ODV 

VXSC 

ABSCVIRPACJ/ABSLCSIPUSHII * QUOT. 



1332 





34,3347 

77730 

c 
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QUCT(NPAC) X CRCSSIPUSHO) 



1333 

REF 

2 

LAST 
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24,3350 

037C5 

c 



C6U 1 

SAVE SCALE CF RESULT (B-15,1XI. 
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Xl» NCRR CF QUOT. QUOT SCALE 07-B29- 

B-22 
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34,3351 
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c 
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VSLl 

OFTITIN Rate TTi~5R COOROS (CMF gTHsr I 
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1339 

REF 

1! 

LAST 

566 

34,3352 

C1736 

1 



REP SPRAT 

ADJUST FOR RFFSRMAT SCALE OF Bl. 
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34,3353 

00025 

c 


STORE 
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34,3354 

77761 

1 


VXSC 





13A3 

REF 

1 



34,3355 

31555 

c 



TENTH 




13AA 

REF 

6 

LAST 

5b 1 

34,3356 

C3212 

e 


STORE 

DTHE TASM 
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REf 

2 

LAST 
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47432 

1 


CDUTP IG 


OBTAIN SIN,COSCCUS FOR SMCOURES. 
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34t 3361 

450G1 

1 

SE TPD 

CALL 


SHCCURES USES PUSH 

1348 





34,3362 

COCCI 

C 


0 



1349 

REf 

1 



34t 3363 

4 7675 

c 


SRCDLPtS 


OBTAIN CELCCU IN VIOCCU). 

uug 





34,3364 

77750 

c 

LXA ,1 



RELOAO XI 

1251 . 

_EJLE 


LAST 

582 

34,3365 

C37C5 

c 


06111 



13S2 





34,3366 

53775 

1 

VLOAL 

VSL* 


RECOVER SCALE. 

1353 

REE 

4 

LAST 
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34,3367 

C3204 

1 


bccu 


ia-13,XU * TENTH(B-3I ♦ HALFREVS(Bl) 

1354 





34,3370 

20160 

1 


0 -17C,1 


EQUALS B-1?C,1 TO OBTAIN HALFREVS BU. 

1355 





34,3371 

CQ017 

1 

STORE 

1 40 


HCLC CELS IN V(VAC140) FOR AUTOPILOT. 
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34,3372 

77624 

1 

CALL 



CCMPLTES SINES AND CCS INES FOP ♦SNNB* 

1358 

REF 

4 

LAST 

583 

34,3373 

47432 

1 


CDUTR IC 



1359 





34,3374 

45175 

c 

VLQAD 

CALL 


LOAD VECTOR ANC CALL TRANSFORMATION 
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34,3375 

C0025 

c 


2 0D 


VECTCR FOR TRG^SMNB INTO MPAC 

1361 

REE 

2 

LAST 
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34,3376 

47577 

1 


♦SMNe4 


OBTAIN ANG. RATE REFERRED TO NB (BCDYl 

1362 





24,3377 

77721 

c 

MXV 




1363 

REF 

2 

LAST 

535 

34,3400 

31561 

1 


M6DYTCTL 


CCNVEBT PATEICMECAI TO CONTROL COORDS. 

1364 





34,3401 

77761 

1 

VXSC 



MULT. 0Y 0.8 TO RESCALE REVS TO 450 DEG. 

1365 

REF 

1 



34,3402 

1S27C 

c 


poiNTe 


RECOVER SCALE. 

1366 





34, 3403 

53750 

c 

LX A f 1 

VSL* 


RELOAC Xl TC RECOVER NCRMALIZ. 

1367 

REE 

4 

LAST 

583 

34,3404 

037C5 

c 


06111 


(0-15, XU ♦ MBDYTCTLOII - B-14D,1 TO 

1368 





34,3405 

20163 

1 


0 -140,1 


OBTAIN REVS SCALEC AT 450 OEGREFS. 
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1370 





34,3406 

77776 

1 

CRS61.2A EXIT 
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34,3407 

G 0004 

c 

INHINT 




1372 

REF 

JLJJL_ 

LAST 

58 1 

34,3410 

3 4714 

1 

CAF 

ZERC 


TRANSFER OESIPEC CIMBAL ANGLES 

13 73 

REF 

7 

LAST 

5ec 

34,3411 

55*647 

1 

TS 

CDUXC +1 


FROM TISAVECCOU) TO V(CDUXD). 

1374 

REE 

4 

LAST 

41C 

34,3412 

55*691 

c 

TS 

CDUVC +1 



1375 

REE 

4 

LAST 

41C 

34, 34 13 

55*653 

1 

TS 

C0U2C +1 



1376 

REE 

3 

LAST 

58 1 

34,3414 

3 1772 

1 

CA 

SAVECCOU 



1377 

REE 

8 

LAST 

582 

34,3415 

55*646 

c 

TS 

CDUXC 



1378 

REE 

4 

LAST 

583 

34,3416 

3 1773 

c 

CA 

SAVECCOU 

♦ 1 


1379 

REF 


LAST 

583 

34,3417 

55'65C 

1 

TS 

CDUVC 



1380 

REF 


LAST 

583 

34,3420 

3 1774 

1 

CA 

SAVECCOU 

♦ 2 


1381 

REE 

5 

LAST 

583 

34,3421 

55*652 

c 

TS 

COUZC 



A13e2 












1363 





34,3422 

0 0006 

1 

EXTEND 
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13 84 

REE 
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LAST 

58 1 

34,3423 

3 0155 

c 

OCA 

MPAC 


FROM V(MPAC) TO V(WBOOY 1. 

1365 

REF 

9 

LAST 
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34,3424 

92*526 

c 

OXCH 
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1386 





34,3425 

0 C0C6 

1 

EXTEND 




1367 

REF 
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LAST 

583 

34,3426 

3 C16C 

c 

OCA 

MPAC **3 



1386 

REE 

4 

LAST 

409 

24,3427 

53*530 

1 

OXCH 

weccvi 



1389 





34,3430 

C QQC6 

1 

EXTEND 




1390 

REF 
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LAST 

583 

34,3431 

3 0162 

1 

OCA 

MPaC 



1391 

REF 
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C275G 

I 



S22LCC 

SETUP AOOR. OF PARK DATA FOR GETUH SUBR. 

1596 

REF 

A 

LAST 

567 

30,2371 

012A2 

1 



MAPKLATA 


15SS 





30,2372 

7762A 

1 


CALL 


CCPPLTE UH 

16UC 

REF 

2 

LAST 

56S 

30.2373 

A7no 

1 

S2GETUH 


GETUP 


1601 

REF 

ft. 

> 

LAST 

56S 

30,237A 

C1235 

1 


STORE 

uw 


i6QA 





30,2375 

A1535 

1 

CPP INTEG 

SLOAO 

PUSH 

TEST CFF»I 

U05 

REF 

3 

LAST 

581 

30,2376 

C27A7 

1 



6KK 


16C6 





30,2377 

50535 

1 


SLOAD 

SH3 

CXOFF SCALEC 6-5, RUST ROVE TO B-IA 

1607 

REF 

3 

LAST 

556 

30, 2A00 

C27A6 

c 



CXCFF 

BEFORE SUBT. 

1608 





3C,2A01 

50AA2 

c 


SR3 

SR3 


1609 





3Q,2A02 

77625 

c 


USU 



1610 





30,2A03 

A3030 

c 


BHtZ 

BON 


1611 

REF 

1 



30,2ACA 

60720 

1 



S22CFF«I 

BRANCH HERE IF CFF*I 

1612 

REF 

3 

LAST 

505 

30,2A05 

02706 

1 



OMEN F LG 

0>6X6W, 1>9X9W 

1613 

REF 

1 



3G,2AC6 

6C726 

1 



S22D»9 


1613 1 





3G,2A0l 

7762A 

1 


CALL 



16132 

REF 

12 

LAST 

572 

30,2A1Q 

56712 

c 



GKP2 PC 


161A 





30,2 A1 1 

7 761^ 

1 


SET 



1615 

REF 

A 

LAST 

588 

3Q,2A12 

C1A71 

1 



OPEiWFLAG 


1616 





30,2A13 

A301A 

c 


SET 

SET 


1617 

REF 

A 

LAST 

585 

30,2A1A 

02A66 

1 



owenflG 

»C Ch FIRST PASS THRU HERE FOR D-0,OR6 

1618 

REF 

1 



30,2A15 

C1G62 

1 



220SPFLG 

-1 TC DISPLAY DR.DV ON FIRST PASS 

1619 





30,2A16 

A301A 

c 


SET 

BON 


16^0 

REF 

A 

LAST 

552 

30,2A17 

OOA62 

1 



EP adflac 

»1 TC COMPUTE FISCHER RADIUS 

1621 

REF 

6 

LAST 

557 

3C,2A20 

0330? 

c 



know NFIG 


1622 

REF 

1 



30,2A21 

61070 

1 



S22E CX22 


1623 





30,2A22 

53575 

c 


VLOAO 

UNIT 

XIMT ALSO PITS ABVALIRCJ IN 36C 

162A 

REF 

5 

LAST 

572 

30,2A23 

C12C7 

c 



CSHPCS 


1625 

REF 

A 

LAST 

556 

30,2A2A 

02152 

c 


StCRE 

alPhaV 

A ~* A iT rRI“T 0 fTTETRE ' 

1626 





30,2A25 

A301A 

c 


Clear 

BOFF 

- - — , , . « _ ^ ^ - 
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1627 

REF 


L/Sl 

555 

30i2526 

C1663 

C 



LUNAFLAG 




1628 

REf 

5 

LAS! 

588 

30,2527 

C5353 

1 



CMCC^FLC 




1625 

i 




30.2530 

6Q533 

C 



S22C»I 




163C 





30.2531 

776 15 

1 


SE T 





1631 

REf 

6 

LAST 

59C 

30, 2532 

G1563 

1 



LUKAFLAG 




1632 





30,2533 

77625 

1 

S22C*I 

CALL 


ERA0P« RO PETERS 8-29 BOTH EAPTh/PCON 



1633 

REP 

1 



30,2535 

26533 

c 



SETP E 




163A 





30,2535 

77625 

1 


CALL 


CCMPLTE RL FRCP EQUATICN 2.5.10 



2625 

REF 

1 



30,2536 

^250 

c 



S22F 2510 

STORED IN X789,PPAC B-27,B-29 



1636 





30,2537 

705 15 

1 


BOFF 

VSR2 

SCALE RL 8-29 FOR BOTH EARTH/POON 



1637 

REF 

1C 

LAST 

59C 

30,2550 

C5353 

1 



CMOORflG 




1638 





30.2551 

60552 

c 



♦ 1 




1635 

REF 

1 



30,2552 

C2635 

c 


STORE 

S22RL 




1650 





30,2553 

72551 

c 


DOT 

SLl 




1651,. 

REF 

6 

LAST 

585 

30,2555 

C1235 

1 



UP 




1652 

REF 

1 



30,2555 

25037 

0 


STOVL 

S22D 

0« UP.RL e-29 



1653 

REF 

13 

LASl 

586 

30,2556 

15332 

1 



ZERGVECS 




1655 





30,2557 

51501 

1 


SETPD 

PUSH 




1655 





30,2550 

COOGl 

c 



OD 




1656 





30,2551 

65206 

c 


PUSH 

POOL 

SET 0-L80 * I &ACKRARDS 



1657 

REF 

5 

LAST 

556 

30,2552 

15330 

c 



H IDPFALF 

PO 18 



16571 





30,2553 

77702 

1 


SR 2 


B-3 



1658 





30,2555 

00005 

1 


STORE 

50 




1655 





30,2555 

coon 

1 


STORE 

80 




165C 





30,2556 

25015 

L 


STOVL 

120 




1651 

REF 

7 

LAST 

59 C 

30,2557 

C1235 

1 



UP 

e-1 



1652 

REF 

1 



30,2560 

25023 

0 


STOVL 

S223X1 




1653 

REF 

2 

LAST 

55C 

30,2561 

02635 

c 



S22RI 

B-29 



1655 





30,2562 

77625 

1 


CALL 


(LMMRL T) B-30 STORED IN S22UPRL THRU 



1655 

REF 

1 



30,2563 

613C3 

c 



S2231X13 

S22UPPL +170 



1656 





30,2565 

66370 

c 


AXT,1 

SSP 




1657 





30,2565 

C0022 

1 


DEC 

18 




1 d 5 G 

REF 

12 

LAST 

588 

30,2566 

00051 

c 



SI 




1655 





30,2567 

C0006 

1 


OEC 

6 




1660 





30,2570 

70573 

1 

S22NXTU 

VLOAQ* 

VSR2 

(UM)(RL T» E-32 



1661 

REF 

1 



30,2571 

03525 

1 



S22UPRL 




166 11 





30,2572 

77751 

t 


V/SC 





1662 

REF 

IP^ 

1 

LAST 

59C 

30,2573 

00037 

c 



S22C 

0 e-29 



1663 





30,2575 

4 5445 

c 


evsu 

STAUR 

SUBTRACT FRCP I 8-3 



1665 

REF 

2 

LAST 

59C 

30,2575 

70253 

1 


STORE 

S22UPRL *180,1 

U MATRIX B-3 



1665 





30,2576 

761CC 

1 


TlX.l 

AXT, 1 

PC a AFTBR TlX 



1666 

REF 

1 



30,2577 

6C57C 

I 



S22F XTU 




1667 





3C,2SQ0 

00044 

1 


OEC 

36 

SI STILL 6 FRCP ABOVE 



16c8 





30,2501 

65373 

1 

S22hXTwf 

VLCAD* 

HXV 




166 5 

REF 

20 

LAST 

585 

30,2502 

0255 5 

c 



Vi +360,1 

B-19 



1670 

REF 

3 

LAST 

59C 

30,2503 

03502 

0 



S22UPRL 

B-3 



1671 





3C,25C5 

77732 

1 


VSL3 





1672 

REF 

21 

LAST 

59C 

30,2505 

G6621 

1 


STORE 

^ +1550,1 

W( 1 + 181= Ukidl e-19 



1673 





30,2506 

7130C 

1 


TlX.l 

OLGAC 





167A REf 1 3df23C7 605C1 C S22N;<TV«I 
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1675 

REF 

1 



30,2510 

OC041 

1 



S22F HC 

8-20,0-30 

1676 





30,2511 

60414 

C 


BUFF 

Sf-2 

HAKE RHO 0-30 

16J1 

Rif 


L/ST 

XiL 

30*2512 

04 3^3 

J_ 



CHOONFLG 


1678 





30,2513 

6G514 

1 



♦ 1 


1679 





30,2514 

57101 

C 


NOHH 

XAD, 2 



PEF 

_S_ 

LIST 

?7C 

30.2515 

- -C005C 

J 



X2 


1661 

REF 

1C 

LIST 

59 1 

30,2516 

00047 

1 



X2 


1682 





30,2517 

^1316 

c 


OSQ 

OHP 


1683 

RCF 




30,2520 

2165C 

1 



SCTVAR 

B«18 

1664 





30,2521 

77742 

c 


SRI 


ACCCONTS FOR 1/2 IN NEXT FORMULA 

1685 

REF 

2 

LIST 

59 1 

30,2522 

00041 

1 


STORE 

S22RFC 

1/2(PH0 SOI (VIRSCTI 

1686 





20,2523 

77770 

1 


AXT ,1 



1687 





30,2524 

00022 

1 


OEC 

18 

SI STILL 6 FRCH ABOVE 

1668 





30,2525 

64373 

1 

S22NXKA 

VLUADO 

MXV 


1689 , 

RIL 


LIST 

S9C 

30.2526 

03524 

1 



S22UPHL >180,1 

B-3 

1690 

REF 

5 

LIST 

59 1 

30,2527 

C3502 

c 



S22UNRL 

8-3 

1691 





30,2530 

5376 1 

1 


VXSC 

VSP* 


1692 

REF 


LIST 

59 1 

30,2531 

00041 

1 



S22RFC 


1693 





30,2532 

5 7212 

1 



0 -120,2 

WITH VARRP SOILED e-28 

16 94 

REF 

1 



30,2533 

053CI 

c 


STORE 

S22ULT +180,1 

1/2(RF0 SO) (VIRSCT )( U) (0 T) 

1695 





30*2534 

77300 

1 


T U,l 

VLOAO 


1696 

REF 

1 



30,2535 

6C525 

c 



522N)iXA 


1697 

REF 

E 

LIST 

59C 

30,2536 

01235 

1 



UM 


1698 

REF 

2 

LIST 

59C 

30,2537 

34023 

1 


STCALL 

S223>1 

UP also in HPAC for S2231X13 SU8R 

1699 

REF 

2 

LIST 

59C 

30,2 540 

61303 

0 



S2231X13 

(LHMUH t) B-2 IN 522UFRL,P17D 

1700 





30,2541 

50545 

c 


DLOAD 

SR3 


1701 

REF 

2 

LIST 

86 

30,2542 

02241 

1 



tPACF 

RC B-29 

1702 





30,2543 

63471 

c 


OOV 

OSO 


1703 

REF 

m0 

LIST 

590 

30,2544 

CCC37 

c 



S220 

8-29 

1704 





30,2545 

77605 

1 


UMP 



1706 

REF 

1 



30,2546 

C201G 

1 



RPVAR 

*««*« PETERS SQ 

1706 

REF 

4 

LIST 

591 

30,2547 

00041 

1 


STORE 

S22F FC 

TEHP (VARRP } (RO/0 ) 

1707 





30,2550 

77770 

1 


AXT,l 



1708 





30,2551 

00022 

1 


0(:C 

18 

SI SllCrTTRCH above 

1709 





30,2552 

74373 

c 

S22NXXB 

VLOAO* 

VXSC 


1710 

REF 

6 

LIST 

591 

30,2553 

03524 

1 



S22UFPL +180.1 

(LH)(UM T) 0-2 

1711 

REF 

5 

LIST 

59 1 

30,2554 

00041 

1 



S22PHC 


1712 





30,2555 

776 53 

1 


VAD* 



1713 

REF 


LIST 

59 1 

30,2556 

01301 

1 



S22LIT +180,1 


1714 

REF 

3 

LIST 

59 1 

30,2557 

05301 

c 


STORE 

S22ULT +180,1 

SHALL e HA IF IX 

1715 





30,2560 

77775 

1 


VLOAO 



1716 

REF 

14 

LIST 

59C 

30,2561 

15332 

1 



ZEKC VECS 


1717 

REF 

22 

LIST 

59C 

30, 2562 

06643 

€ 


STORE 

M +1620,1 

CLEAR W6 

1718 





30,2563 

4C1GC 

1 


TIX,! 

BOV 


1719 

REF 

1 



30,2564 

60552 

c 



S22NXXP 


1720 





30,2565 

60566 

1 



♦ 1 


1721 





30,2 566 

5C 1^5 

1 


CLOAD 

BHN 


1722 

REF 

4 

LIST 

59 1 

30,2567 

01277 

1 



S22UIT +160 

E5 

1723 

REF 

1 



30,2570 

60607 

c 



S22V.76X “ 


1724 





30,2571 

53160 

( 


SORT 

bzr 
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1725 

RE f 

m 

LAST 

59 1 

30t2572 

6C6C7 

C 



S22N76X 



1726 

REF 

23 

LAST 

591 

30f 2573 

16625 

1 


STOOL 

R +1480 

W74« 

SC RCCT E5 

172T 

PEF 

_5 

LAST 

391 

3Q.2574 

C1275 

C 



S22ULT +140 

E4 


1728 





30,2975 

4CQ7 1 

C 


OOV 

BCV 



172S 

REF 

2A 

LAST 

592 

30,2576 

02625 

1 



M +1460 



1730 . 

REF 

L„ 



30.2977 

6C6C1 

c 



S22Fi72X 



1731 

REF 

2 t 

LAST 

59 2 

30,260C 

02623 

1 


STORE 

W +1460 

W73- 

e4/W74 

1732 





30,2601 

56345 

c 

S22Vt72X 

OLOAO 

OOV 



1733 

PEf 

6 . 

U5X__ 

592 

30,2602 

C1273 

c 



S22Un +120 

E3 


173A 

REF 

26 

LAST 

592 

30,2603 

02625 

1 



W +1460 



1735 





30,2604 

7760C 

1 


OOV 




1736 

REF 

3 

LAST 

592 

30,2605 

60607 

0 



S22R76X 



1737 

REF 

27 

LAST 

592 

3C,2606 

0262 1 

c 


STORE 

k ♦ 1 

W72- 

E4/ R7 4 

1738 





30,2607 

63545 

c 

S22N76X 

OLOAO 

osu 



1739 

REF 


LAST 

592 

30,261C 

02623 

1 



W +1460 

W73 


17A0 





30,2611 

50021 

1 


eosu 

BMN 



17^1 

REF 

7 

LAST 

592 

30,2612 

C1267 

c 



S22LLT +80 

E2 


17A2 

REF 

1 



30,2613 

60627 

1 



S22W78X 



17A3 





30, 2614 

53166 

c 


SORT 

ezE 



17AA 

REF 

2 

LAST 

592 

30,2615 

6062 7 

1 



S22V.76)( 



17A5 

REF 

29 

LAST 

592 

30,2616 

16631 

1 


STOOL 

W +1520 

H76» 

SQ ROOT (E2-W73 SCI 

17A6 

REF 

2C 

LAST 

592 

30,2617 

02621 

c 



W 4144C 

W72 


17A7 





30,2620 

44205 

c 


OMP 

bosu 



HAfi 

REF 

21 

LAST 

592 

30,2621 

02623 

1 



N +1460 

W73 


17A9 

REF 

e 

LAST 

592 

30,2622 

01265 

1 



S22ULT +60 

El 


1750 





30,2623 

40071 

c 


OOV 

BCV 



1751 

REF 

22 

LAST 

592 

30,2624 

02631 

1 



W +1520 

W76 


1752 

REF 

3 

LAST 

59 2 

30,2625 

60627 

1 



S22W7eX 



1753 

REF 

*3 Ik 

LAST 

592 

30,2626 

02627 

c 


STORE 

W +1500 

N75» 

(E1-M72W73 )/w76 

175A 





30,2627 

63545 

c 

S22R76X 

OLQAL 

DSO 



1755 

REF 

2A 

LAST 

592 

30,2630 

02627 

0 



W +150C 



1756 





30,2631 

63525 

c 


POOL 

DSQ 



1757 

REF 

35 

LAST 

592 

30,2632 

C2621 

c 



W +144L 

W 72 


1758 





30,2633 

77615 

0 


OAO 




1759 





30,2634 

50021 

1 


0OSU 

bHN 



1 76 C 

REF 

9 

LAST 

5T2 

30,2635 

01257 

c 



S22UUT 

FO 


1761 

REF 

1 



30,2636 

6064 i 

1 



S22SCER 



17t>2 





30,2637 

77766 

i 


SORT 




1763 

REF 

26 

LAST 

592 

30,2640 

02635 

c 


STORE 

H +1560 

N78* 

SC RT(E0-ki72 SQ-N75 SQ) 

176A 





30,2641 

74575 

c 

S22SCLM 

VLQAU 

VSRl 

scale 

HB METERS 0-19 

1765 

REF 

37 

LAST 

592 

30,2642 

02621 

c 



W ♦ 1 44C 



1 766 

REF 

2€ 

LAST 

592 

30,2643 

26621 

c 


StOVL 

R +1440 



1767 

REF 

39 

LAST 

592 

30,2644 

02627 

c 



W +1500 



17t e 





30,2645 

77762 

1 


VSR 1 




1769 

REF 

AO 

LAST 

592 

30,2646 

26627 

c 


STOVL 

N ♦15UC 



1770 

REF 

A1 

LAST 

592 

30,2647 

C2635 

c 



W +1560 



1771 





30,265C 

77762 

1 


VSRl 




1772 

REF 

A2 

LAST 

59 2 

30,2651 

02635 

c 


STORE 

k ♦ 1 56C 



1773 





30,2652 

176 24 

1 

S22SAVET 

CALL 




17 7A 

REF 

•m 

LAST 

589 

30,2653 

61322 

c 



GETTF 
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1775 

REE 

2 

LA57 

122 

30(2659 

C3672 

1 


STORE 

S22T PRIM 

SAVE PRESENT TIRE FUR PIOS 


1776 





30(2655 

77776 

1 

S22 I*N 

EXIT 


TEST I-N 


1777 

REF 

21 

LAST 

579 

30(2656 

C 53CI 

i 


TC 

PHA S CH^G 



1776 





30,2657 

09C22 

C 


OCT 

09C2 2 



1779 

BCf 

9 

LAST 

569 

30( 266C 

9 1796 

1 


CS 

8KK 



i7a^c „ 

R.tF 

9_ 

LAST 

555 

30,2661 

6 1797 

1 


AO 

6NN 



1761 





30(2662 

0 0006 

1 


EXTEND 




1782 

REF 

1 



30(2663 

6 3126 

1 


BZHF 

S22I 299X 

EXn TC FIGURE 2.9-9 


1783 

Jilt 


LAST 

_5l3X_ 

30,2669 

3 1796 

C 


CA 

6KK 

I -!♦ 1 


I7e<> 

REF 

71 

LAST 

589 

30(2665 

6 9 712 

1 


AO 

ONE 



1765 

REF 

6 

LAST 

573 

30(2666 

55'3CC 

1 


TS 

TFHPCRl 



17_8^ 

REF 

9 

LAST 

509 

30 f 2 £ 6 7 

3 i7SC 

1 


CA 

S22LCC 

ADD 7 TO LCC TC GET ADCR. OF NEXT HARK 


1767 

REF 

1 1 

LAST 

556 

30(2670 

6 9716 

c 


AO 

sevE^ 



1768 

REF 

7 

LAST 

593 

30(2671 

55'3Cl 

c 


TS 

TfcUPCPl +1 



1789 

BtF 

12 

LAST 

592 

30,2672 

C 53CI 

c 


TC 

PHASCHNG 



1790 





30,2673 

09 022 

c 


CCT 

0902 2 



1791 

REF 

e 

LAST 

593 

20,2679 

3 13C0 

c 


CA 

TEFPCRl 



1791 

REF 

6 

LAST 

592 

30,2675 

55' 796 

1 


TS 

8KK 



1793 

REF 

9 

LAST 

593 

30,2676 

3 13CI 

1 


CA 

TEFPCPl *l 



1799 

REF 

5 

LAST 

593 

30,2677 

55*750 

c 


TS 

S22LCC 



1795 

REF 

ICO 

LAST 

58E 

30,2700 

0 60C6 

1 


TC 

I NTPRET 



1796 





30(2701 

77629 

1 


CALL 


FOR ALL INTEGRATIONS OTHER THAN FIRST 


1797 

REF 

16 

LAST 

588 

30(2702 

2 737 1 

1 

S21 Mil 


INTSTALL 



1798 





30(2703 

77629 

1 


CALL 




1799 

REF 

2 

LAST 

568 

30(2709 

61326 

1 



S22FLGS 



18C0 





30,2705 

93019 

c 


BON 

CLEAR 



1601 

REF 

5 

LAST 

589 

30,2706 

C27C6 

1 



ONENFLG 



1802 

REF 

1 



30,2707 

60361 

c 



S22NXTIN 

RETURN ALWAYS EXCEPT OFFSET POINT HARK 1 


1803 

REF 

7 

LAST 

58 i 

30(2710 

C1676 

1 



Oi HOFLAG 



1609 





30,2711 

43 C i ^ 

c 


BOFF 

SET 



1805 

REF 

i; 

LAST 

589 

30(2712 

C1751 

c 



ORbRFLAG 



18C6 

REF 

2 

LAST 

593 

30(2713 

6G361 

c 



S22^XT1N 

OFFSET POINT HARK l,NO W INTEGRATION 


1607 

REF 

8 

LAST 

593 

30(2719 

01976 

c 



0 iMCFLAC 



1606 





30,2715 

7 7619 

1 


CLRGO 




1609 

REF 


LAST 

366 

30(2716 

01635 

c 



D6CR9FLG 



1810 

REF 

3 

LAST 

593 

30,2717 

60361 

c 



S22NXT1N 

OFFSET PCINT MARK 1, INTEGRATE H 6X6 


leii 





30(2720 

77629 

1 

S22CFF-1 

CALL 




1612 

REF 

3 

LASl 

592 

30,2721 

61322 

c 



GETT F 



1613 

REF 

9 

LAST 

556 

30(2722 

2767c 

c 


STOVL 

S22TCf F 

time SOB OFF 


1819 

REF 

9 

LAST 

59 I 

30,2723 

01235 

1 






1815 

REF 

1 



30(2729 

25215 

1 


stcall 

$22UCFF 

U SUfi OFF 


1816 

REF 

1 



30,2725 

60655 

1 



S22 TaN 

TEST I»N 


1817 





30,2726 

17775 

i 

S22C-9 

VLOAO 


0*9 PATH 


1616 

REF 

1 



30,2727 

C17C1 

c 



X789 



1619 





30,2730 

190C1 

c 


stool 

01 

CALL PIOS TVICE TO TRANSFCRR HL TC TIRE 


1820 

REF 

3 

LASl 

593 

30(2731 

03672 

1 



S22T PRfFi 

Tisue FI FftCH mhe t Prime 


1821 





30,2732 

C0CC7 

c 


STORE 

60 



1822 





30,2133 

95U5 

1 


slqao 

CALL 



1823 

REF 

3 

LAST 

588 

30,2739 

03079 

1 



S22ECPR 

D»£ARTH,NCN-ZERC^CQIi 


1829 

REF 

1 



30(2735 

55366 

1 

S2RtRP 


H-TC-KP 
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1825 





30*2736 

45006 

( 


POSH 

call 

R-TO-RP LEAVES PU5HL0C AT 0 



1826 

PEE 

4 

l/ST 

593 

30*2737 

61322 

C 



GET TF 




1027 





30. 2740 

C0007 

C 


STORE 

60 




1826 





30,2741 

45135 

1 


SLGAO 

CALL 




1829 

REE 

4 

LAST 

59 3 

30,2742 

036 74 

1 



S22ECRH 




ie3il 

REE 

2 

LAST 

556 

30,2743 

95341 

1 

S2RPTR 


RP-TC-R 




1631 

REE 

2 

LAST 

592 

30,2744 

01701 

c 

S22eCX32 

STORE 

X7e9 




1832 





30,2745 

40014 

c 


SET 

uov 




1633 

REE 

7 

LAST 

57 1 

30,2746 

02464 

c 



INCCPFLG 

FLAG" 1 



183A 





30,2747 

60750 

c 



♦ 1 

CLEAR CVERFLON 



1835 





30,2750 

77651 

0 


VSU 





1636 

REF 

6 

LAST 

589 

30,2751 

01207 

c 



CSHPCS 




1637 

REF 

7 

LAST 

57 1 

30,2752 

C3531 

c 


STORE 

RCLP 

RCL»RL-RC 



1838 





30,2753 

4 72 56 

c 


UNIT 

VXV 

USTAR-ONITtONIT (RCL)XOR) 



1839 

PEE 

10 

LAST 

592 

30*2754 

01235 

1 



UM 




1640 





30,2755 

4C056 

c 


ON IT 

BOV 




1841 

REF 

1 



30,2756 

60652 

c 



S22SAVET 

COMPLTATICN OVERFLOW , SAVE TF 



1842 

REF 

9 

LAST 

569 

30*275? 

01245 

c 


STORE 

USTAP 




1643 





30,2760 

43014 

c 

52280X12 

SET 

SET 




1844 

REF 

6 

LAST 

592 

30,2761 

C2466 

1 



DMENFLG 

-1 FCR 9X9 W 



1845 

REF 

1 1 

LAST 

576 

30*2762 

00467 

i 



VEHOPFLG 

•1 fCR CSM 



1846 





30,2763 

43345 

1 


ULOAO 

DAD 




1847 

REF 


LAST 

59 1 

30,2764 

2165C 

1 



SCTVAR 

e^ia 



1848 

REF 

1 



30,2765 

21652 

c 



IHOVAPR 

8418 



1849 

REF 

£ 

LAST 

57C 

30,2 766 

27526 

c 


STOVL 

VARIANCE 




185C 

REF 

e 

LAST 

594 

30,2767 

03531 

c 



RCLP 

e-29 OR 6-27 



1851 





30,2770 

60246 

1 


ABVAL 

NORN 




1852 

REF 

4 a 

LAST 

582 

30,2771 

0004 7 

1 



Xi 




1853 





30*2772 

41316 

c 


OSQ 

DHP 




1854 

REF 

9 

LAST 

594 

30,2773 

03526 

( 



VAF I ANCE 




1855 





30,2774 

56C7C 

c 


XADfl 

XAD, 1 




1656 

REF 

23 

LAST 

594 

30,2775 

00046 

c 



XI 

OCO0L6 NORN SHIFT SINCE RCLP 

WAS SQUARED 


1857 

KEF 

5 

LAST 

594 

30*2776 

03673 

0 



S22ECBR 

OCO0LE EARTH LR RCCN SHIFT, SAME REASON 


1858 





30,2777 

5367C 

c 


XAOtl 

SR» 




1859 

REF 

6 

LAST 

594 

3C,3CCC 

C3673 

c 



S22ECPP 




1860 





30,3001 

20601 

1 



0,1 

scale VARIANCE B-40 FOR BOTH 

EARTH, MOON 


1861 





30,3002 

77751 

1 


TLCAD 


CHANGE MODE TO TRIPLE ^ 



1862 

REF 

25E 

LAST 

583 

3C,3CC3 

0C155 

c 



HPAC 




1863 

REF 

10 

LAST 

5 9 4 

30,3004 

37526 

1 


STEAL L 

VARIANCE 

calc eO,6l,CELTAQ, Nfw OSTAR 



1 

REF 

2 

LAST 

569 

2C,3C05 

47047 

1 

S2B\(1HS 


eVECTCPS " 




1865 





30, 3006 

57575 

1 


VLCAd 

VCOR P 




1666 

REF 

14 

LAST 

572 

3C,3C07 

03502 

c 



bVEC TCP 




1867 

REF 

15 

LAST 

594 

30,3010 

375 16 

1 


STCALL 

BVECTCR ♦l20 

02 — BC 



1868 

REF 

2 

LAST 

57C 

30, 3011 

75290 

1 

S2INCP1 


INCCPPl 




1869 





30*3012 

776^4 

1 


CALL 





1870 

REF 

13 

LAST 

589 

30, 3C 1 3 

567 12 

c 



GPP2 PC “ 




1871 





30,3014 

43014 

0 


80FE 

CLEAR 




1672 

REF 


LAST 

589 

30,3015 

01342 

0 



22DSPFLC 

-1 DISPLAY DELTA R ,V -0 CC 1 

NOT 


1873 

REF 

1 



30,3016 

61047 

0 



“S22BrX42 




18 74 

PEF 

3 

LAST 

594 

30,3017 

01262 

c 



220SPFLG 
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187A1 





30, 3C20 

77624 

1 


CALL 



16742 

REF 

14 

LAST 

594 

30,3021 

56712 

C 



GF.P2 PC 


ia35 





30.3022 

. _11515 

1 


VLOAO 

AbVAL 


1876 

REF 

7 

LAST 

57C 

30. 3023 

0125 7 

c 



DELT AX 

DELTA R 

1877 





30,3024 

53750 

c 


LXA,1 

SR* 


-1876 

REF 

2_ 

L/ST 

594 

30,3025 

03673 

c 



S22eCPR 

SCALE DELTA H ALWAYS METERS B-29 

1879 





30.3026 

206CI 

1 



0,1 


laec 

REF 

9 

LAST 

57 2 

30,3027 

275C2 

c 


STOVL 

N49C ISP 


1881 

REF 

e_ 

LAST 

595 

3C. 3C30 

G1265 

1 



DELTAX +6 

DELTA V 

1882 





30,3031 

S3 646 

c 


ABVAL 

S F * 

delta V*METEPS/CSeC 9-7 ALWAYS 

1863 





30,3032 

2060 i 

1 



0,1 


18 84 

REF 

)G 

LAST 

595 

30,3033 

035C4 

c 


STORE 

N49DISF +2 


1883 





30, 3034 

77776 

1 


EXIT 



1886 

REF 

1 



30,3035 

3 3655 

1 


CAF 

V06N49EE 


1887 

REF 

142 

LAST 

588 

30,3036 

0 4555 

c 


TC 

BAF,KCALL 


1888 

REF 

9 

LAST 

555 

30,3037 

20763 

1 


CAOR 

GQFL ASHR 


lees 

REF 

26 

LAST 

559 

30,3040 

0 4106 

1 


TC 

GCTLPCCH 

V34E TERMINATE 

1890 





30,3041 

0 3046 

c 


TC 

+ 5 

INCGRPQRATE CHANGES 

1891 

REF 

1 



30,3042 

0 32 30 

c 


TC 

S22E XEX 

V32E RECYCLE 

1892 

REF 

2C 

LAST 

562 

30,3043 

3 4710 

c 


CAP 

BITS 


1893 

REF 

n 

LAST 

559 

30,3044 

C 5415 

1 


TC 

BLANKET 


1894 

REF 

7 5 

LAST 

573 

30,3045 

0 5112 

c 


TC 

ENOCFJOe 


1895 

REF 

ICl 

LAST 

593 

30,30^6 

C 60C6 

1 


TC 

I N T P R E T 


1696 





20,3047 

77624 

1 

S2280?(42 

CALL 



1897 

REF 

L 

LAST 

57 1 

3C,3C50 

75460 

1 



INC0RP2 


1698 





30,3051 

77624 

1 


CALL 


CSMPCS«RC 6-29 CR 8-27 

1899 

REF 

1 

LAST 

589 

30, 3052 

61273 

0 



S22CALRC 


1902 





2C,3C53 

77414 

G 

CRP INCP2 

eCFF 

EXIT 


1903 

REF 

8 

LAST 

5 q 4i 

30,3054 

02744 

1 



INtORFLG 


1904 

REF 

d. 

LAST 

594 

30,3055 

60652 

c 



S22SAVET 

SAVE TF AND TEST I«N 

1905 

REF 

-3 1 

LAST 

5 93 

30,3056 

0 5301 

c 


TC 

PHASChNG 


1906 





3C,3C57 

C4C22 

c 


OCT 

04C22 


1907 

REF 

1C2 

LAST 

595 

30,3060 

G 6006 

1 


TC 

INTPFET 


1908 





20,3061 

772 14 

c 


C L E A R 

VLOAC 


1909 

REF 

9 

LAST 

595 

30,3062 

0266 4 

1 



INCCRFLG 

FLAG^C 

1910 

REF 

3 

LAST 

594 

30,3063 

Cl 701 

c 



X7fa9 


1911 





30,3064 

77651 

c 


VSU 



1912 

REF 

7 

LAST 

594 

30,3065 

01207 

0 



CSNPCS 


1913 

REF 

9 

LAST 

594 

30,3066 

37531 

1 


STCALL 

RCLP 

RCL=RL-RC 

1914 

REF 

1 



30,3067 

60760 

c 



S22eCXl2 


1915 





30,3070 

£6370 

c 

52280X22 

AXT,l 

SSP 

CLEAR W6,M7,we (27 ELEMENTS 54 PECS) 

1916 





30,3071 

00066 

1 


oec 

54 


1917 

REF 

13 

LAST 

59C 

30,3072 

0005 1 

c 



SI 


1918 





30, 3073 

00006 

1 


DEC 

6 


1919 





20,3074 

77775 

1 


VLCAD 



1920 

REF 

15 

LAST 

591 

30,3075 

15332 

1 



Z6RCVECS 


1921 

REF 

43 

LAST 

592 

3G,3C76 

06643 

c 

CLRW676 

STCFE 

H +1620,1 


1922 





30,3077 

67300 

c 


TlX.l 

SlcaO 


1923 

REF 

1 



30,3100 

61076 

1 



CLPh678 


1924 

REF 

1 



30,3101 

02007 

I 



S22V»SIBL 
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1926 

REF 

^9 

LAST 

595 

3Ct3102 

0262 1 

C 


STORE 

W +199C 




1927 

REF 


LAST 

596 

30, 3103 

02631 

1 


STORE 

W +1520 




L92e 

REF 

^6 

LAST 

596 

30,3109 

02691 

c 


STORE 

w +1600 




1929 





30,3105 

9 3019 

c 


CLEAR 

BOFF 

SET LUNAFLAG, tine FOR 

LALQTORV 


1930 

REF 

7 

LAST 

59C 

30,3106 

01663 

c 



LUNA F LAG 

ERADFLAGtLAT, LONG, ALT 

SET PREVIOUSLY 


1931 

REF 

12 

LAST 

59 1 

30,3107 

C9393 

1 



CMOC^FLG 

CHECK SCALING QF ITERS 

♦ALT INPUT AND 


1932 

REF 

1 



30,3110 

61113 

c 



S22eX22A 

RL OLTPUT IN ALPHAV BOTH B-29 


1933 





30,3111 

77619 

1 


SET 





193A 

REF 

e 

LAST 

596 

30,3112 

C1963 

1 



LGNAFLAG 




1935 





30,3113 

77629 

1 

S22ex22A 

CALL 





1936 

REF 

c; 

LAST 

59A 

30,3119 

61322 

c 



GETTF 




1937 





30,3115 

77629 

1 


CALL 


COMPUTE RL 



1938 

REF 

2 

LAST 

526 

30, 3116 

26373 

1 



LALCTCPV 




1939 





30,3117 

93175 

c 


VLCAO 

BOFF 




1990 

REF 

fi 

LAST 

589 

30t312C 

02152 

c 



ALPH AV 

RL B-29 



1991 

REF 

13 

LAST 

596 

30,3121 

09393 

1 



CMQOhFLG 




1992 

REF 

1 



30,3122 

61129 

1 



S226X22B 




1993 





30,3123 

77752 

1 


VSL2 


scale RL 0-27 FCR NOCN 



1999 





30,3129 

77650 

1 

5220X223 

GOTO 





1995 

REF 

1 



30,3125 

60 799 

c 



S22BCX32 




1996 

REF 

IC2 

LAST 

595 

30,3126 

C 6006 

1 

S22F299X 

TC 

INTPRET 




1997 





30,3127 

90135 

1 

S22F299 

SLOAO 

BHI 2 

FIG 2.9-9 TEST 0FF*0 



199 0 

REF 

9 

LAST 

58S 

30,3130 

C2796 

c 



CXCF F 




1999 

REF 

1 



30,3131 

61160 

1 



5226 CX99 




1950 





30,3132 

77776 

1 


EXIT 





1951 

REF 

3<i 

LAST 

595 

30,3133 

C 530 1 

c 


TC 

OHASChNG 




1952 





30,3139 

09022 

c 


OCT 

09C22 




1953 

REF 

1C4 

LAST 

596 

30,3135 

0 6006 

1 


TC 

INTPRET 




1959 





30,3136 

77795 

1 


OLOAO 





1955 

REF 

1C 

LAST 

593 

30,3137 

C367C 

c 



S22 ICFF 




1956 

REF 

31 

LAST 

589 

30,3190 

39091 

c 


STCALL 

TDECl 

CALC PC AT OFFSET TIME 



1957 

REF 

9 

LAST 

52 1 

30,3191 

27022 

1 



CSHPREC 




1958 





30,3192 

77775 

1 


VLCAC 





1959 

REF 


LAST 

50 1 

30,3193 

00017 

1 



PATTI 

RC METERS 8-29 OR B-27 



1960 

REF 

£ 

LAST 

595 

30,3199 

25207 

c 


STCVL 

CSHPCS 




1961 

REF 

2 

LAST 

59 3 

30,3195 

01215 

c 



S22tCFE 




1962 

REF 

11 

LAST 

594 

30,3196 

25235 

1 


STCVL 

UN 

u»uoff 



1963 

REF 


LAST 

59 5 

30,3197 

C1701 

c 



X7e9 




1 96 A 





30,3150 

93096 

1 


ABVAL 

BCFF 




1965 

REF 


LAST 

596 

30,3151 

09393 

1 



CMOONFLG 




1966 





30, 3152 

61159 

c 



+ 2 




196 7 





30,3153 

17702 

1 


Sf^2 


scale moon PO b-29 FOR 

S22F2910 SU8R 


196 8 

REF 


LAST 

59 1 

yo,3 159 

3629 1 

c 


STCALL 

EPADF 




1969 

REF 

2 

LAST 

59C 

30,3155 

61290 

c 



S 22 F 29 10 




1970 





30,3156 

77650 

1 


GOTO 





1971 

REF 

1 



30,3157 

61163 

1 



S22bX99A 




1972 





30,3160 

77629 

1 

^2280X99 

CALL 





1973 

REF 

6 

LAST 

596 

30,3161 

61322 

0 



GETTF 




1979 

REF 

11 

LAST 

596 

30,3 162 

03670 

c 


STORE 

S22TCFF 

PRESENT TIME FOP LAT-LCNC SETUP 


1975 





30,3163 

77219 

0 

5220X999 

CTLEAR 

VLOAO 
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1976 

REF 

9 

LIST 

59E 

3Ct3 16^ 

C1663 

C 



LUNAFLAG 



1977 

REF 

5 

LAST 

59E 

30 1 3 165 

C17CI 

C 



X789 



ItTfl 





30.3166 

93019 

c 


BOFF 

SET 



1979 

REF 

15 

LAST 

59t 

30t3U7 

09393 

1 



CHCONFLG 



1980 

REF 

1 



30.3170 

61173 

C 



S22BX99B 



i 9 61 . 

JkJLl. 

-1<L- 

LAST 

597 

1C.3J71 

01963 

1 



LUNAFLAG 

SET • 1 FCfl LAT-LCNG 


1982 





30,3172 

77792 

C 


VSR 2 


SCALE RL MCCN B-29 FOR LAT-LONG 


1983 

REF 

t 

LAST 

596 

30,3173 

16152 

C 

$228X998 

STCiOL 

A L P F A V 

RL SCALED 8-29 FOR LAT-LONG 


198^ 

MF_ 

12 

LAST 

5 96 

30.317A 

0i670 

c 



S22TCFF 

EITHER PRESENT C« OFFSET TIME 


1985 





30,3175 

77629 

1 


CALL 




1986 

REF 

2 

LAST 

556 

30,3176 

26322 

C 



LAT-LCNG 

alt output ALNAYS 9-29 


l9ejJ 





30,3177 

77629 

1 


CALL 


DISPLAY LAT/LONG/ALT 


1990 

REF 

1 



30,3200 

61336 

C 



L LAS PC 



1991 





30,3201 

77776 

1 


EX IT 




15^92 

Ji±f^ 

-2 

J.iS-1 

556 

30.3202 

3 3656 

_1_ 


CAP 

V06Ne9e 



1993 

REF 

M3 

LAST 

595 

30,3203 

0 9555 

c 


TC 

BANKCALL 



19 9A 

REF 

19 

LAST 

556 

30,3209 

20629 

c 


CACR 

GOFL ASH 



1995 

REF 

1 



30.3205 

0 3233 

c 


TC 

S22GTF 

V39E TERMINATE 


1996 





30,3206 

0 3210 

1 


TC 

>2 

PROCEED SAVE LANDING SITE CCQRO 


1997 

REF 

1 



30,3207 

0 3229 

c 


TC 

S22. seix 

RECYCLE POINT A IN GSOP 


1998 

REF 

1C5 

LAST 

596 

30,3210 

0 6006 

1 


TC 

I NTPPET 



1999 





30,3211 

70790 

c 


LXC ,l 

OLGAC« 



2000 

REF 

6 

LAST 

592 

30,3212 

C2750 

1 



S22LCC 



.2001 





30,3213 

COCCI 

c 



0,1 



2002 





30,3219 

290C7 

c 


STQVL 

60 

6-70- LANDING SITE TIME FOR R-TO-RP 


2003 

REF 

6 

LAST 

597 

30,3215 

C17C1 

c 



X709 



200A 





30,3216 

codol 

c 


STORE 

OD 

0-50» LANCING SITE VEC FOR R-TC-RP 


2005 





30, 3217 

95135 

1 


SLOAb 

CALL 



20C6 

REF 

6 

LAST 

59C 

30,3220 

15330 

c 



HIOPHALF 

ANY NCN-reHC FCR MOON 


2007 

REF 

2 

LAST 

593 

30, 3221 

55366 

1 



R-TC-RP 

CONVERT RLS TC MOON-FIXED COORD 


2006 

REF 

6 

LAST 

556 

30, 3222 

02026 

1 


STORE 

klS 

LANDING SITE VECTOR 


2009 





30,3223 

77776 

1 


EXIT 




2010 

REF 

ICE 

LAST 

597 

30,3229 

C 60C6 

1 

S22.9aiX 

TC 

I NTPPET 



2011 





20,3225 

77629 

1 


CALL 




2012 

REF 

1 



30,3226 

61359 

1 



9DMTC6DN 



20121 





30,3227 

77776 

1 


6X IT 


GO TC POINT A IN CHAPTER 9 



20122 

REF 

U? 

LAST 

597 

30.3230 

C 60C6 

1 

S22EXEX TC 

INTPPET 

hITHCUT CCNVERTING M 

2013 





30,3231 

77650 

1 

GOTO 



2019 

REF 

3 

LAST 

587 

30,3232 

C37C3 

0 


S22R TNEX 



20191 

REF 

ice 

LAST 

597 

30,3233 

C 6006 

1 

S22GTP 

TC 

INTPPET 

20192 





30,3239 

77629 

1 


CALL 


20193 

REF 

2 

LAST 

597 

30,3235 

61359 

1 



9CWTC6CN 

20199 





30,3236 

77776 

1 


EXIT 


20195 

REF 

27 

LAST 

595 

30,3237 

C 91C6 

1 


TC 

UOTCFCCH 

2015 





30,3290 

77201 

1 

S22F2910 

SETPU 

VIGAC 

2016 





30,3291 

ododi 

C 



OD 

2017 

REF 

9 

LAST 

5 96 

30,3292 

01207 

c 



CSMPCS 

2018 





30,3293 

502S6 

c 


UNIT 

~dc7 

2C19 

REF 

12 

LAST 

596 

30,3299 

01235 

I 



UM 


CCNVIrPT M 0EFCOE TC GC70PC0H 


COMPUTE FOflPULA 2. <*.10 
AC B-2<J OPTh,B-27 HCCN 

UN I T ALSO SETS 36D-A&^1 
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2020 

2021 

2022 





30t3245 

57552 

1 


SLl 

DCCRF 

GSOP CHANGE 8/18/67 

- - — - ' — 





30t3246 

77606 

1 

C 


PUSH 

oso 


PC 20 0D«C0SA*-<U8.RCJ /ABVALCRC 1 l!-l 





30i3247 

44316 

eosu 


2023 

PEF 

1 



3Ct3250 

21654 

c 



DfcClE2 



202A 





30.3251 

4312 5 

c 


POOL 

BOFF 

PD 4C 2C-1-CCSA SQ»SINA 50 B-2 


2025 

REF 

4 

LAST 

596 

30.3252 

02241 

1 



EF ACR 

fiO ALWAYS e-29 FROM SETRE 


2026 

REF 

16 

LAST 

597 

30.3253 

C4343 

1 



CHCCf^FLG 



2027 





30.3254 

61256 

1 



♦ 2 



2026 





30.3255 

777 12 

c 


SL2 


scale RO B-27 FLR MOON 


2029 





30.3256 

56362 

0 


SRlK 

CUV 

(PO/RC) B-1 


2030 





30,3257 

C0045 

0 



360 



2031 





30,3260 

45316 

1 


OSQ 

USU 

PO 2C (PO/RC > SC - SINA SO B-2 


2032 





30,3261 

44366 

1 


SORT 

BOS J 

PC OC CGSA-SQPT ((RO/RC ISQ-SINA SQI B-1 


2033 





30,3262 

776C5 

1 


DMP 


DMP RESULT 6-20 HCQN.B-30 EARTH 


20 3A 





30,3263 

00045 

c 



360 

VXSC RESULT B-29 MOON, B-31 EARTH 


2035 

REF 

6 

LAST 

591 

30,3264 

00041 

1 


STORE 

S22F HC 

RHO FOR W IMT. OF UNKNOWN LMK 6-20,6-30 


2036 





30,3265 

77761 

1 


VXSC 




2037 

BEF 

12 

LAST 

597 

30,3266 

C1235 

1 






2038 





30,3267 

53352 

c 


VSL2 

VAO 

SCALE e-27 MCCN,B-29 EARTH AND ADC RC 


2039 

REF 

1C 

LAST 

597 

30,3270 

C1207 

G 



CSMPCS 



2GA0 

REF 

7 

LAST 

597 

30,3271 

017C1 

c 


STORE 

X78 9 



20A1 





30,3272 

77616 

0 


RVQ 


B-27 FOR EARTH CR 6-29 FOR MOON 


20A2 





30,3273 

77350 

1 

S22C ALRC 

LXA ,1 

VLOAC 

CCMPOTE PC B-29 08 0-27 


2QA3 

REF 

6 

LAST 

595 

3C, 3274 

03673 

0 



S22ECFP 

=0 FCP EARTH, -2 FCR MCCN 


2QAA 

REF 

2 

LAST 

572 

30,3275 

Cl 573 

1 



0EL7 ACSR 



20A5 





30, 3276 

53257 

1 


VSR^ 

VAO 



20A6 





30,3277 

206 10 

1 



7,1 



20A7 

REF 

2 

LAST 

572 

30,3300 

016C7 

1 



RCVC 



20A8 

REF 

1 1 

LAST 

59E 

30,3301 

012C7 

c 


STORE 

CSKPCS 



2 0A9 





30.3302 

77616 

c 


KVQ 




2050 

REF 

1 



30, 3303 

00031 

c 

S2231X13 

STORE 

S221 X3 

MILT 3X1 BY 1X3, STORE RESLLTING 3X3 IN 


2051 





30,3304 

77131 

1 


SSP 

AXT ,2 

S22UMRL- S22UMRI +170 


2052 

PEF 

7 

LAST 

526 

30,3305 

C0C52 

c 



S2 



2053 





30,3306 

CC0C2 

c 


DEC 

2 



2054 





30, 3307 

ooac6 

1 


dec 

6 



2055 





20,3310 

1l7t0 

1 


A X f , 1 




2056 





30,3311 

00022 

1 


DEC 

18 



2057 





30,3312 

73 7 75 

c 

S2231NXT 

VLOAO 

VXSC>» 



2058 

REF 

4 

LAST 

596 

30,3313 

00G31 

c 



S221X3 



2059 

REF 

3 

LAST 

59 1 

30,3314 

77746 

1 



S223X1 +6,2 



206C 

REF 

7 

LAST 

59 1 

30,3315 

C7524 

c 


STORE 

S22UPPL +180,1 



2061 





20,3316 

61110 

c 


INCR , 1 

T I X , 2 



2062 





30,3317 

77771 

c 


DEC 

-6 



2063 

REF 

1 



30. 3320 

61312 

c 



S223 IhXT 



2064 





30, 3321 

17616 

c 


RVO 




2065 





30,3322 

70740 

c 

GETTF 

LXC.l 

OLCAC+ 

SET MpAC» TF — — 


20 66 

REF 

7 

LIST 

597 

30,3323 

02750 

1 



S22LLC 



2067 





20,3324 

COCCI 

0 



0 f 1 



206B 





20,3325 

77616 

c 


RVQ 
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2069 

2070 

2071 

REF 

9 

. 

LAST 

LAST 

592 

592 

20t 3326 
30» 3227 
30i333C 

4301A 

CIA76 

OIA75 

C 

C 

c 

S22FLGS SET 

SET 

DIM( f LAG 
D60R9FLG 

INTEGRATION FLAGS 


^ ■ 

2072 





30t3231 

43C1A 

C 

SET 

SET 




2073 

REF 

9 

LAST 

57A 

30,3232 

01A7A 

1 


VI NT FLAG 




207A 

_J>LF_, 


LAST 

57A 

30,3333 

C1A72 

1 


STATEFLG 




20 75 





30, 333A 

A3 A 1 A 

1 

CLEAR 

R VQ 




2076 

REF 

9 

LAST 

57 4 

20,3235 

C1673 

1 


INTYPf LG 






R2C77 SltPCnihE TC HOUIFY ALT AhC STCflE LAI TC LAT + S IN LANCLAT TC LANDLAT+5 
R2U70 PFICP TC CISPLAY- 


2079 

2080 
^OJl _ 

REF 

RtL 

A 

•» 

LAST 

LAST 

272 

27! 

30.3336 

30.3337 
30, 33AO 

77 7A5 
OlllC 
16362 

1 llasrc 
c 

1 

oloao 

STOOL 

AL T 

LANOALT 

ALT , LANCALT HETEPS B-29 


2082 

REF 

5 

LAST 

274 

30,33Al 

01106 

1 


LONG 



2C83 





20,33A2 

77 742 

( 

SKI 




iOBA 

REF 

3 

LAST 

275 

3C#33A3 

02360 

G 

STORE 

LANOLCNG 



2085 





20,33AA 

7 76 1 6 

C 

RVO 





R2C86 SLEPCl11^E TC HUOIFV LANOALT AND STORE LANCALT TO LANDALT^^ Ih LAT TO 
ft2087 LAT45 AFTER LRK DATA LOADEC BY ASTRONAUT. 


2068 

2089 

REF 





77745 

C2362 

1 

1 

LLASRCA 

DLQAO 

LANUALT 

ALT , LANCALT 

METERS B-29 


A 

LAST 

599 

20,33A5 

30,3346 

-- — — ■ — 

2090 

REF 

5 

L A $ T 

599 

30,33A? 

15110 

C 


STOOL 

ALT 




2091 

REF 

A 

LAST 

599 

30,3350 

C2360 

C 



LANOLCNG 




2092 





30,3351 

77 752 

1 


SLl 





2093 

REF 

6 

LAST 

599 

30,3352 

01 1C6 

1 


STORE 

LONG 




209A 





30,3353 

77616 

c 


RVQ 





2095 





20, 3354 

A0220 

c 

90K1C6DK 

STQ 

SETPC 




2096 

REF 

1 



30,3355 

Cl 2 1 A 

1 



90V.XX 




2097 





20,3356 

COCOl 

c 



00 




2098 





30,3357 

A1575 

c 


VLOAO 

PUSH 

CLEAR nORKING 

AREA OF PUSHLIST 


2099 

REF 

4 

LAST 

5A3 

30,3360 

1S332 

1 



HI 6 ZEROS 

INCLUDING P 



2100 





30,3361 

41AC6 

( 


PUSH 

PUSH 

PC 18C 



2101 





30,3362 

77731 

1 


SSP 





2102 

REF 

1 



30,3363 

00017 

1 



9CK J 

J»29 USE 2^29 FOR OP NQROS 


2103 





36,336A 

C0C72 

1 


DEC 

58 




21UA 





20, 3365 

661 5C 

c 

9CW 1« J 

LXA,1 

SXA, 1 

SET 1-J 



2105 

REF 

d 

LAST 

599 

30,3366 

00016 

c 



90W J 




2106 

REF 

1 



20,3367 

00012 

1 



9UHI 




2107 





30,3370 

77624 

1 

9CH£PCAL 

CALL 





2108 

REF 

1 



20,3371 

616C6 

c 



PCNOCT 




2U9 





30,3372 

77 750 

c 


LXA,l 


P VARIES 0-?0 

INSTEAD OF 20-0 


2UC 

REF 

1 



30,3373 

QOOIC 

c 



90F P 




2111 

REF 

1 



20,337A 

C664 1 

1 


STORE 

EHATflIX +AOC,l 




2112 





20, 3375 

66110 

1 


INCR, 1 

SXA, 1 




2113 





30,3376 

0COO2 

c 


CEC 

2 




2ilA 

REF 


LAST 

599 

30,3377 

CCOlO 

c 



90V, F 




2115 





30,3400 

46135 

1 


SLOAO 

PHI 1 

TEST I-O 
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2116 

REF 

2 

L/Sl 

59< 

30f 3901 

00013 

C 



RDM I 




2117 

REF 

1 



30t3902 

61917 

1 



9GViTESTJ 




211fl 





10i^9Ji3. 

17 6 25 



OSU 


1*1-1 



2119 

REF 

2 

LIST 

555 

20,3909 

2U96 

c 



9DM 1 C 




2120 

REF 


L/ST 

60C 

30,3905 

00013 

c 


STORE 

9DWI 




2121 





30,3906 

96025 

\ 


CSU 

bHlZ 

TEST 1*26 



2122 

REF 

1 



30,3907 

21699 

1 



9DW26C 




2123 

REF 

1 



30,3910 

61913 

c 



90MSETI2 




212A 





30,3911 

7765C 

1 


GOTO 


NEXT E sue P 



2l2i 

REF 

1 



30,3912 

6137C 

1 



9DWEPCAL 




2126 





30,3913 

52131 

c 

4E)HSET12 

SSP 

GOTO 

1*2 



2127 

REF 

9 

L^Sl 

60C 

30,3919 

Q0C13 

c 



9DM I 




2128 





30,3915 

C0009 

c 


DEC 





2129 

REF 


L/ST 

60C 

30,3916 

61370 

1 



90WEPCAL 




2130 





20,3917 

96135 

1 

^CwTESTJ 

SLOAD 

BHI 2 

TEST J-0 



2131 

REF 


L^ST 

59S 

30,3920 

00017 

1 



9DWJ 




2132 

REF 

1 



30,3921 

61936 

1 



9DWF 1C6 




2133 





30,3922 

77625 

c 


OSU 





2139 

REF 

3 

L4ST 

60C 

30,3923 

21696 

c 



90Vil C 




2135 

REF 

9 

L/ST 

60C 

30,3929 

00017 

1 


STORE 

90MJ 

J*4- 1 



2136 





30,3925 

96025 

1 


OSU 

BHlZ 

TEST J-26 



2137 

REF 


L«ST 

60C 

30,3926 

21699 

1 



9DV.26C 




2136 

REF 

1 



30,3927 

61932 

0 



9DWSETJ2 




2139 





30,3930 

77650 

1 


GOTO 





2190 

REF 

1 



30,3931 

61365 

c 



90MI »J 




2191 





30,3932 

52131 

c 

<30WSETJ2 

SSP 

GOTO 

SET J*2 



2192 

REF 


L/Sl 

60C 

30,3933 

0GO17 

1 



9DM J 




2193 





30,3939 

GQ0C9 

c 


OEC 

9 




2199 

REF 

2 

LIST 

60 C 

30,3935 

61365 

c 



9DW 1 »J 




2195 





30,3936 

77629 

1 

9DViF IC6 

CALL 





21951 

REF 

15 

L4ST 

595 

30,3937 

56712 

0 



&FP2 PC 




21952 





30,3990 

77331 

c 


SSP 

VLOAC 

START OF FIGURE 2.9-6 



2196 

REF 

t 

L/ST 

60C 

30,3991 

00017 

1 



9CH J 

J*29 



2197 





30,3992 

00072 

1 


DEC 

58 




2196 

REF 


LAST 

59S 

30,3993 

15332 

1 



H16ZERCS 




2199 

REF 

3 

LAST 

599 

30,3999 

0001 1 

1 


STORE 

9DMP 

P f h f 1*0 



2150 





30,3995 

66370 

c 


AXT,1 

SSP 




2151 





30,3996 

CC159 

1 


DEC 

IDE 

clear ViU to M59 



2152 

REF 

1 A 

LAST 

595 

30,3997 

CC051 

c 



SI 




2153 





3 0 f 3 4 5 C 

C0Q06 

1 



6 




2159 

REF 

97 

LAST 

596 

30, 3951 

06555 

1 

CLEABN59 

STORE 

W '*•1060,1 




2155 





30, 3952 

77 700 

c 


T 1X,1 





2156 

REF 

1 



30,3953 

6191T 

i 



CLEAMM59 




2157 





30,3959 

66150 

c 

5CmI«JA 

LXAtl 

S X A f I 

I*J 



2156 

REF 

7 

LAST 

6CC 

30,3955 

00016 

c 



9DWJ 




2159 

REF 


LAST 

60C 

30,3956 

0QO12 

i 



ROW I 




2160 





30,3957 

77629 

1 


call 





2161 

REF 

2 

LAST 

599 

30,3960 

^ i 6 C 6 

c 



fiOWOCT 




2162 





30,3961 

93750 

1 


LX A , 1 

bOsu* 




2163 

REF 

9 

LAST 

60C 

30,3962 

CQOlO 

t 



ROUP 
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216^ 

REF 

2 

LAST 

599 

30,3463 

02641 

C 



EMATRIX +4QC,1 


2165 





30,3464 

66UG 

1 


INCR, 1 

SXA, 1 

-<p*n 

2166 





30.3465 

00002 

J2_ 



2 


2167 

REF 


LAST 

60C 

30,3466 

GCOlO 

c 



<»DWP 


2166 





30,3467 

34 1 4C 

c 


LXC, 1 

XSU, 1 

-(I*N) 

2165 

8 El 

6 

-LAU 

-JSlQJL- 

30t347C 

C0012 

1 



90W I 


2170 

REF 

1 



30,3471 

CC014 

1 



90rR 


2171 





20,3472 

71244 

c 


BPL 

OLOAC 

TEST hSQ LTE 0 

2172 

R1 F 

1 ^.. 



20.3473 

61477 

1 



9DMA AA 


2173 

REF 

6 

LAST 

6CC 

30,3474 

15332 

1 



MI6ZERCS 

R «0 

217^ 





20,3475 

7765C 

1 


GOTO 



i.1 7 5 . 

REF 

1 



30,3476 

61500 

c 



90WA AB 


2176 





30,3477 

77766 

c 

90WAAA 

SORT 


W« SQRT(RSC) 

2177 

REF 

48 

LAST 

60C 

30,3500 

064C 1 

1 

9 GM A A 6 

STORE 

H ,I 


2178 

REF 

1 



30,3501 

14QC1 

c 


STOOL 

HOF K V 


2179 

REF 

6 

LAST 

60C 

30,3502 

GOO 17 

1 



90WJ 

TEST J-0 

2160 





30,3503 

77630 

1 


BHlZ 



2181 

REF 

1 



30,3504 

61572 

0 



9DWEX1TX 

EXIT 

2182 





30,3505 

46135 

1 

TST2I-0 

SLCAO 

EHI 2 

TEST 1^0 

2183 

REF 

7 

LAST 

601 

30,3506 

00013 

c 



9r)Wl 


218A 

REF 

1 



30,3507 

61550 

c 



90WN-N+3 


2185 





30,3510 

77625 

c 


OStj 



2186 

REF 

4 

LAST 

60C 

30,3511 

21646 

c 



9DkI C 


2187 

REF 

8 

LAST 

60 1 

30,3512 

CC013 

c 


STORE 

9l)Wl 

l-I-l 

2188 





30,3513 

46025 

1 


OSU 

BHIZ 

TEST 1-26 

2189 

REF 

3 

LAST 

6QC 

30,3514 

21644 

1 



^ D h 2 t D 


2190 

REF 

1 



30,3515 

61520 

1 



QDW A AC 


2191 





30,3516 

7765C 

1 


GOTO 



2192 

REF 

1 



30,3517 

61523 

1 



9DViNEXEP 


2193 





30,3520 

77731 

1 

9DMAA0 

SSP 


1-2 

219A 

REF 

9 

LAST 

60 1 

30,3521 

00013 

c 



9DW1 


2195 





30,3522 

00004 

0 



4 


2196 





30,3523 

77624 

1 

9LM^E;lEP 

CALL 



2197 

REF 

2 

LAST 

60C 

30,3524 

61606 

c 



RCWCCT 


2198 





30, 3525 

43750 

1 


LXA,1 

BDSU* 

(eP-R0taI4fi0ViJ)/R 

2199 

REF 

6 

LAST 

60 i 

30,3526 

OCOlO 

c 



90^ P 


2200 

REF 


LAST 

60 1 

30,3527 

02641 

c 



EMATRIX *400,1 


2201 





30,3530 

62L71 

c 


oov 

INCR ,1 

P-P41 

2202 

REF 

2 

LAST 

60 1 

30,3521 

OOGCl 

c 



WCRKR 


2203 





30,3532 

CCCC2 

c 



2 


220^ 





30,3533 

7O130 

1 


SXA,l 

LXC ,1 


2205 

REF 

7 

LAST 

60 1 

30,3534 

OQOlO 

c 



9UMP 



2206 

REF 

10 

LAST 

60 1 

30,3535 

C0012 

1 


9DW1 


2207 





30,3536 

40060 

0 

x$u,i 

BOV 

- ( I + R \ 
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REF 
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REF 
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GOTO 
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REF 
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REF 
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1 
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STORE 
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30,3546 

7763C 
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GOTO 
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1 
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30,3550 
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1 
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REF 
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2220 





30,3553 

6 73 30 

c 


$XA ,1 
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REF 
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1 
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LAST 
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1 



90h J 
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30,3556 
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c 
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REF 
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LAST 

60 1 

30,3557 

21646 

c 
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REF 
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LAST 
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STORE 

9DK J 



2226 
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1 


DSU 
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TEST J-26 
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REF 

4 

LAST 

60 1 

30,3562 

21644 

1 
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2228 

REF 

1 



30,3563 

61566 

c 



SET J«2A 



2229 





30,3564 

T765C 

1 


GOTO 
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REF 
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30,3565 

61454 

c 
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2231 
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52131 

c 

SETJ«2A 

SSP 

COTC 
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REF 
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LAST 
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30,3567 
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1 
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2233 





30,3570 
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c 
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REF 

2 

LAST 
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30,3571 
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c 



9DWI *JA 
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30,3572 

7 7624 

1 
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CALL 
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REF 
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LAST 
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30,3573 

56712 

c 
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30,3574 
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c 
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SSP 

CLEAR W6,k7,we USED TENP FCR ENATRIX 
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30,3575 

00066 

1 


DEC 
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REF 
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LAST 
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c 
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2238 
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1 
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1 
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REF 
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REF 

5C 

LAST 

602 

30, 3602 

0 664 3 

c 
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STORE 
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REF 
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REF 
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LAST 
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1 
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c 
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SSP 
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REF 
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c 
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c 



♦ 1 



2249 
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REF 
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1 
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REF 
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LAST 
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c 
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30,3615 

41545 

c 


CLOAD 

PUSH 
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REF 
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LAST 
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1 
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REF 
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LAST 
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w. 1 
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REF 
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LAST 
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1 
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REF 
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-L_ 


SHU 

SPl 
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REF 

1 



20,3632 

61636 

C 



R0WCCT2 



226b 

REF 

3 

L4ST 

603 

30.3633 
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C 


STORE 

XTMP 1 



22^67 





20. 3634 

7 7650 

_L_ 


GOTO 
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REF 
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30,3635 

61617 

c 
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77745 

1 

RCV.CCT2 
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22?iL 
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77614 

1 

R0>*CCT3 
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REF 

6 
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01631 

1 
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REF 
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2275 
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M 
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2276 
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60 

P 
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3 
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I 
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N 


2279 
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226C 

REF 
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s 
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REF 
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REF 
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REF 
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2289 
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c 

90talC 
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2290 
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1 
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c 
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20EC 

1,0 E-6 B*18 
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30,3651 

C0253 

c 
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20EC 
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c 
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c 

V06N49E£ 
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2295 
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01531 

1 
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REF 
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REF 
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P2372 SlEPCUINE NAK6: V89CALL 

R2373 PCC NC: 0 GATe* 8 FEe 1568 

?A HLC e>: CIGITAL LEVEL GPCUP LOG SECTIOM P2''>-P25 


R2375 Fl^Cl ICAAL DESCRIf T ICM 


R237t CALLEC ev VERB 89 ENTER OCRING POO. PPIC 10 USED. CALCOLATkS AND 

R2377 CISPL/75 FINAL GINfiAL ANGLES TC POINT CSH ♦X AXIS Ck PREFERPED AXIS 

R 2 3 78._ ( L N 1 1 111 CCS55 CEG ■* CMT(X>SIN55 DEG) AT LM. 


R2379 1. KE> IN V 69 E CNLV IF I N PPCG 00. IF NCT IN POO. UPERATOR LPPOR ANl 

K23a ^ EXIT Pe3. CIHERWilE CCMiNUE. 

82381 2. IF IN PCO. CO INC STATES CHECK (RC2eClHl. IF INU ON AND ITS 

R21S2 CRiEMAIICh KNCntN TO CCC. CCNUNUE. 

R23a3 3. FLAIF CISPLAY \ CA N 06. R2 INDICATES NHICh SPACECR AFT AX I S IS TC 

R238A BE FQINTEC AT LM . INITIAL CHCICE IS PREFERRED AXIS. (R2»n. 

R2385 ASTFCFACT CAN CHANGE TC ( -tX 1 AXIS (R2 NCT« 1) BY V 22 E 2 E. CCNTINCE 
R2386 AFTER KEYING IN PRCCEEC. 


H2387 A. SET PPEFEPRED ATTITUDE FLAG ACCCROING TO OPTION CESIPED. SET FLAG 
R2388 FCP PFEFEPP6C AXIS. RESET FLAG fCR X AXIS. 


R23e9 5. CCPPENT TIME IS STORED AND R63CCMP IS CALLED 

. R 239Q RtSCCKF JOB; 

R239i CPCAIES CSM ANC LM STATE VECTORS LSING CONIC EQUATIONS 


R2392 CALCLLATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM. 

HZ 39 3 LESIFEC GIMEAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG 

fi239A APE STCRfcJ FOR LATER R6CCSM CALL. 


P2395 6. FLASH CISPLAY V 06 MB ANC AKAIT PESPCN5E. 

R2396 7. RECYCLE- RETURN TC STEP 5. 

R2397 TERMINATE- 6X11 P63 RCCTINE 

R2398 FfCCEEC- RESET 3AXISFLG AND CALL P60CSM FOR ATTITUDE MANELVER. 


R2399 CALLING SECOENCE: V 89 E 

R 2 9 0 0 SLEPOL T INES CALLECt CHKPOCH, P02B0TH. GCXDSPF, R63COMPy R60C SM 

R290I alarms 1. CPERA1CR ERROR IF NCT IN FOC 
R2^0^ _2. PRCGRAM ALARM IF IMC IS OFF 

H2A03 3. PPCGRAM ALARM IF IMU ORIENTATION IS UNKNOWN 


I 


i,APl AS S E J >eLl REVISION 231 


BY NASA 202:11I1-C31 


l:n ^UG. PANDQKA .072 P4CE 60b 


P2C-P25 


ISER'S PAGE NO. 57 


E5 S3 


P2<»04 EP^S^ELE IMT lAL 1 2AT ICN RECUIREC: NONE 




R.Z4fi5 CEEP15; CfTlCM. CPTICNlil. P R P T RK A T ( P PE F AIT FLAG > tP2 IT IME t 3AXISPLG 


II 







23f3136 

00000 

1 

OPIMIN 

20EC 

600C 
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23,3137 
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C 
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2^06 

BEf 

12 

LAST 
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6BANK» 

P21 T IRE 



2NC7 





39,3603 




BANK 
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2^oe 

BEf 

2 

LAST 
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SETLCC 

P20S9 
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39,3603 




BANK 




2^10 

REE 
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COUNT* 

St/R63 



2^11 

REF 

199 

LAST 

59 T 

39f 3603 
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C 

V69CALL 

TC 

bankcall 

IMU STATUS CHECK. RETURNS IF ORIENTATION 


2912 

REF 

-a 

LAST 

552 

39,3609 

1 7573 

C 


CAOR 

R02BCTH 

KNCNN. ALARRS IF NOT. 


2913 

REF 

19 

LAST 

56 2 

29,3605 

3 62 19 

C 


CAP 

THP EE 

ALLCid aSTRCNAUT TC SELECT CESIREO 


29U 

REF 

6 

LAST 

516 

39,3606 

55*131 

1 


TS 

OPTION! 

TRACKING ATTITUDE AXIS. 


2915 

REF 

12 

LAST 

592 

39,3607 

3 9712 

1 


CAP 

ONE 



2916 

REF 

7 

LAST 

606 

39, 3610 

55*132 

1 


TS 

QPTICM ♦! 



2917 

REF 

1 



39,3611 

3 3652 

c 


CAP 

VBC9N06 

V 09 N 06 


2916 

RF F 

195 

LAST 

606 

39, 3612 

C 9555 

c 


TC 

BANKCALL 



2^19 

REF 

2C 

LAST 

597 

39,3613 

20629 

c 


CAUR 

GOFL ASH 



2920 

REF 

26 

LAST 

509 

39,3619 

0 5923 

I 


TC 

ENDE)«T 

TERR INATE 


2921 





39,3615 

0 3617 

1 


TC 

♦ 2 

PROCEEC 


2922 





39,3616 

0 3611 

1 


7C 

-5 

DATA IN. CPTICNl • 1 FCR PREP AXIS 


A292a 











- 2 FCR X AXIS 


2929 

REF 

8 

LAST 

606 

3 ^ f 3 fi 1 7 

9 1132 

1 


CS 

CPTICM *1 

1 FCR PREF AXIS. 2 FOR X AXIS. 


292 5 

REF 

7 3 

LAST 

606 

39,3620 

6 9712 

1 


AD 

GNF 



2926 





39,3621 

0 00C6 

1 


EXTEND 




2927 

REF 

1 



39,3622 

1 3697 

c 


BZP 

SETP AP 



2926 

REF 

21 

LAST 

56 3 

39,3623 

0 5997 

c 

RSTPAF 

TC 

DOWN FLAG 

RESET PREF ATT FLAG FOR R63C0RP 


2929 

REF 

2 

LAST 

52 

39,3629 

00120 

1 


AORES 

PNGSCFLG 

TC 00 X AXIS. RESET BIT 10 FLAG 5 


2930 

REF 

1C9 

LAST 

59T 

29,3625 

0 60C6 

1 

ve^AECL 

TC 

IHTPPET 



2931 





39,3626 

93239 

c 


KTB 

DAD 



2932 

REF 

17 

LAST 

581 

39,3627 

955C5 

c 



LCADTIRE 

READ PRESENT TIRE 


29325 

REF 

1 



39,363C 

C7137 

c 



DPI R I N 

INTEGRATE TC 1 RIN FRCR NOW 


2933 

REP 

19 

LAST 

60 6 

39,3631 

36316 

c 


STCALL 

P21 T IRE 

SICrE time FOR CALL TO R63COHp. R63C0RP 


2939 

PEF 

1 



39, 3632 

11963 

c 



R63t CRF 

LEAVES DESIRED GIR ANGS IN THETAO,LOS IN 


2935 





39,3633 

7777b 

1 


EXIT 


PCINTVSR, AND SELECTED AXIS IN SCAXTS. 


2936 

REF 

1 



29,3639 

3 36 53 

1 


“Ta]s 

VbOCNle 

V 06 N 18 


2937 

REF 

196 

LAST 

606 

39,3635 

0 9555 

c 


TC 

bankcall 

NOUN 10 REFERT TO THF DESIRED GIWBAL 


2936 

ref 

2 1 

LAST 

606 

39,3636 

20629 

c 


CAOR 

COPLASH 



2939 

REF 

27 

LAST 

606 

39,3637 

0 5923 

i 


TC 

TncTTT 

teAhinaTe 


2990 





39,3690 

0 369 2 

1 


tc 

*2 

PROCEED 


2991 

PEF 

1 



39,3691 

0 3625 

c 


TC 

V89P ECL 

RECYCLE 


2992 

REF 

22 

LAST 

606 

39,3692 

0 5997 

c 


7C 

OOkNFLAG 

RESET 3 AXIS FLAG 


2993 

REF 

9 

LAST 

562 

39,3693 

CCl2‘i 

c 


AORES 

3AxI £f LG 

RESET eiT 6 FLAG 5 
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2AAA 

R£f 

H7 

LAST 

606 

3A,36AA 

(j A555 

C 


TC 

6ANKCALL 

PERFCRMS CSN MANEUVER TO 

ALIGN SELECTED 

2AA5 

REF 


LAST 

56 2 

3 A t 3 6 A 5 

560 G C 

1 


CAOP 

P60C SF 

SPACECRAFT AXIS TC LCS. 


24Afe 

R£F 

2e 

L/ST 

6i 0 6 

3A.36A6 

1 SA23 

JL. 


TCP 

ENDE XT 






























Ptf 

3C 

LAST 

SAJ 

3^^36A7 

0 5A35 

C 

StTPAF 

TC 

UPFL AG 

SET PPfcFEPREC AIT FLAG FOR R63C0MP 

2AA8 

REF 

3 

LAST 

606 

3A,3650 

00120 

1 


ADRES 

PNGSCFLG 

TO OC PREF AXIS. SET SIT 

10 FLAG 5. 

2^A9 

REF 

2 

LAST 

6C6 

3A.3651 

0 3625 

C 


TC 

V8SRECL 





2A50 





3At 3652 

C10C6 

c 

V604N06 

VN 

CAC6 



2A51 





3A. 3653 

01A22 

1 

Ve06Nl8 

VN 

0616 
















2^52 

REF 


LAST 

58 1 

3A(3A63 



R63CCRP 

EQUALS 

R63 
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P2^53 PFCGPO NAPE- P23 CISLUNAP P!CCCU«SE PAVIGATICN " 

P245A MCC NC 

P2^55 wet a>- TCP KNATT " 

K2^56 FINCTICNAL DESCKIFTION- CC HICCCUPSE NAVIGATICN BY INC CPPOF A 1 ICN CF STAR ‘ 

R2^57 /EAPTh ANC STAP/HCCN OPTICAL PBASUPtMEMS. __Z 

H2^5e CALLING SECLENCE- ASTRONAUT CPEPATEC 

R2A59 SLEFCLTINES CALL EC-P52 fP53fR57,R60, OPE ilAL INTEGRATION (INTEGRV) 

R2^60 INCCPPlt lN(CRP2fL ALCTGRVf LCNLPKLC, ANC CISPLAY INTERFACE POUT INLS. 

R 2 A E 1 MA P A L All PC C ES- VIA ROC 

R2Afc2 ALARNS- NCNE 

R2A63 AECPT PCCES- NCNE 

P2AeA ERASAEL E IM T I At 1 2 AT I CN RECUIREC- PAC-LCACEC ER ASA9LES tOReWF LAG RESET, 

R2^6A5 Rtf<RPLC*C IF IMU GFF AND REFSPPLG*! IF IHU ON 

P246A1 1NPL1! EY LSER RECUIREO- STAR NGH8ER * L ANCMAR K LA 1 1 LONG /2 1 AL T CR 1C NUMB* 

K2AtAl LP_ LANCRARK IS USECt NEAR QP FAR HORIZON IF HORIZON IS LSED, AND 

R2AtAS 6CCY U EE NARKED CMEARTF CR RCONI. SEE GSCP CHART A. 

R2Ac5 CL UL 1-lFCATEC CMC S 1 ATe_ V ECTCR . VECTCR FROM S/C TG HORIZON CR LANDMARK 

fl2*i651 I N FCINTAAS* PCINIAAS CAN BE LSED TC GENERATE THIS VECTOR APART FROM 


R2^E52 P23 IF LESIREC. 

R2Ae6 CEePl!-NC LSA8LE CEERIS IS GENERAIEC. RENCWFlG IS RESET FOR P2C IPQN 
R2A665 CCMFLETICN OF P2 3 * HUPTRECS AND ERASAELES USEC BY DISPLAYS ARE CEHRIS 
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2A6e 
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REF 
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31i 2021 
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BANK 

SElLdC 

BANK 

31 

RT23 



- 

2A7C 

REF 
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COUNT 

31/S23 




2A71 

REF 

!4 

LAST 
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65,1400 




EBANK« 





2A712 

REF 

^ 1 

« mm 

LAST 

606 

31,2021 

0 5447 

C 

P23 

TC 

OCKNFLAG 




2^71 A 

REF 

4 

LAST 

563 

31,2022 

00010 

c 


ACRES 

RNDV 2FLC 



- — - 

2A72 

REF 

1C 

LAST 

5 8E““ 

31,2C23 

C 526 1 

1 


TC 

2PHSCHNG 



. _ ^ — — - 

2A73 





31,2024 

00004 

G 


OCT 

00C04 

LEAVE 

GROUP 4 


2A7A 





31,2025 

C0012 

1 


OCT 

00012 

ENTER 

GROUP 2 


2A75 

REF 

1 



31,2026 

3 4760 

i 


CAP 

PP1C13 




2A76 

REE 

3 

LAST 
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31,2027 

55 '056 

1 


IS 

PHSPPDT2 




2A77 

REF 

lie 

LAST 

606 

31,2030 

0 6006 

1 


TC 

INTPRET 




2A7e 





31,2031 

43131 

c 


SSP 

CLt AP 




2A7S 

REF 


LAST 

55A 

31,2032 

C0302 

c 



HARK INCX 




2A80 





31,2033 

COOCl 

c 



1 




2A81 

REF 

2 

LAST 

55A 

31,2034 

C0666 

1 



TAPC2FLG 

TARGIT 

FLAG USEC ev R52 

AND R53 

2A82 





31,2035 

66214 

c 


CLEAR 

SSP 




2A63 

REF 

4 

LAST 

55A 

31,2C36 

CC665 

1 



tafgiflg 




2A8A 

REF 

3 

LAST 

20 1 

31,2C37 

00305 

1 



STAN INC 




2^85 





31,2C4C 

COGOO 

1 



0 




2A66 





3l,2C41 

43131 

c 


SSP 

CLEAR 




2A67 

REF 

i 

LAST 

20E 

31,2C42 

C0303 

1 



0EST1 




2Aee 





31,2043 

CCOOO 

1 



u 




24862 

REF 

1 



31,2044 

C3267 

1 



R57FL2G 

SET • 

DO NOT PEPEBFCRM 

R57 

24683 





31,2045 

774 14 

c 


CLEIP 

EXIT 




24884 

REF 

2 

LAST 

255 

31,2046 

04664 

1 



V94F LAG 

SET a 



24885 

REF 

111 

LAST 

60E 

31,2047 

C 6006 

1 

P23.0O 

TC 

INTPRET 
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31,2050 

95019 

c 


0ON 

CALL 


2990 

REF 

9 

L4ST 

579 

31,2051 

C1702 

c 



REFSRFLC 

SET NOW AS INPUT, NCRRALLV EXTERNAL CONT 


HIP 

L 



31.2052 

62060 

_c_ 



P23, C6 

WHEN AL IGNEG, PERFORM MEASUREMENT 

2992 

REF 

1 



31,2053 

76360 

c 



F 57 

00 OPTICS CALIBRATION IF !MU NOT ALIGNED 

2993 





31.2059 

77629 

1 


CALL 



29 iA 





31^2051 

31321 

c 



R53 


2995 





31,2056 

1765C 

1 


GOTO 



2996 

REF 

1 



31, 2C57 

62236 

1 



P23. 60 


2500 





31,2060 

77919 

c 

P23.05 

CLEAR 

txn 


2501 

REF 

1 



31,2061 

C9665 

0 



savecflc 

USED TC SAVE SPACE IN P23.65 

2502 

REF 

1 



31,2062 

3 30 50 

1 


CAF 

V05MC 

PECUEST RESPONSE AND DISPLAY MEASUREMENT 

2503 

REF 

ME 

L^Sl 

607 

31,2063 

0 9555 

c 


TC 

BANK CALL 

IDENTIFICATION- STAR,LMK,HCR IDENT. 

2 509 

REF 

22 

L4ST 

606 

31,2069 

20629 

c 


CAOR 

GOFLASH 


25C5 

REF 

ie 

L/ST 

591 

31,2065 

0 9106 

1 


TC 

GOTOFOCH 

TERMINATE 

2504 . 

REF 

L 



3 1 ff 2 Cl 66 

0 2070 

1 


TC 

P23. 15 


2507 





31,2067 

C 2062 

1 


TC 

-5 

redisplay 

2500 

REF 

19 

L^SI 

501 

31,2070 

3 1791 

c 

P23. 15 

CA 

lanorark 

IF C»2,LUNAFLAG*l . IF C* 1 , LUNAFL AC-0 

2509 





31,2071 

0 0006 

1 


EXTEND 



25iC 





31,2072 

1 2019 

1 


B2F 

♦2 


2511 





31,2073 

0 2075 

1 


TC 

♦ 2 


2512__. 

REF 

9 

LAST 

279 

31.2C79 

3 1792 

c 


CA 

HQRI 20N 

SET LUNAFLAG FflCM HOBIICN OR LANDMARK 

2513 

REF 

23 

LAST 

5 72 

31,2075 

7 9703 

c 


MASK 

BITS 


2519 





31,2C16 

C 0006 

1 


eXTENC 



2515 

REF 

1 



31,2077 

1 21C9 

1 


02F 

P23. 16 


2516 

REF 

112 

LAST 

608 

31,2100 

0 6006 

1 


TC 

I NTPPET 


251 7 





31,2101 

52C19 

c 


SET 

&CTO 


2510 

REF 

11 

LAST 

591 

31,21U2 

01963 

1 



LUNAFLAG 


2519 

REF 

1 



31,2103 

62101 

c 



P23. 17 


252t 

REF 

113 

LAST 

6 0S 

31,2 109 

0 60G6 

1 

P23.16 

TC 

►NTPRET 


2521 





31,2105 

776 19 

1 


clear 



2522 

REF 

12 

LAST 

609 

31,2106 

01663 

0 



LUNAFLAG 


2523 





31,2107 

91535 

1 

F23. 11 

SLGAO 

PUSH 


2523 1 

REF 

5 

LAST 

992 

31,2110 

00736 

c 



STARCCCE 


25232 





31,2111 

91335 

1 


SLCAO 

OMf 


25233 

REF 

1 



31,2 112 

23059 

c 



SPSI X 


25239 





31,2113 

66150 

c 


LXA,1 

SXAt 1 


25235 

REF 

259 

LAST 

599 

31,2119 

00155 

c 



MPAC 


2523d 

HEF 

7 

LAST 

60 6 

31,2115 

C0302 

c 



PEST 1 

BESTI - 6XSTAR NUMBER 

25231 





31,2116 

77629 

1 


CALL 



2523C 

REF 

1 



31,2117 

30000 

1 



LCWNERRY 

neeiJeo To r e tt 1 fve “ST inr vector fpcm li:!^ 

25239 

REF 

2 

LAST 

9 1 

31,2120 

02617 

c 


STORE 

STARS AV2 

STORE FOR fl53,P23, U5I IN P23I -STAP5AV2 

252395 





31,2121 

77776 

1 


EXIT 



2529 

REF 

2C 

LAST 

6C< 

31,2 122 

3 1751 

c 


cA 

LANDMARK 


2525 

REF 

1 



3 1, 2123 

7 3092 

1 


HASK 

OCTCCCTT 


2526 

REF 

2 

LAST 

99 

31,2 129 

5!* 753 

c 


TS 

lUCFLRK 

fCR B3I0E) LUNAFLAG ALREADY SET 

2527 

REF 

5 

LAST 

609 

31,2125 

3 1752 

c 


"CS 

HCRI 2Ch 


2528 





3 1,2 126 

C OOC6 

1 


EXTEND 



2529 

REF 

1 



31,2127 

1 2199 

c 


02F 

P23. 12 


2 530 

REF 

20 

LAST 

55 1 

31,2130 

7 97(i6 



HA^K 

BIT5 

mjiT.fJG RFFCR-TT N E A R 1 . D 92 * OR F HO RAT, FATT 

2531 





31,2131 

C 0006 

1 


EXTEND 
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2532 

2533 
253A 

REf 

REF 

1 

1 lA 

LAST 

605 

31t2132 

31.2133 

31.2134 

1 2137 

C 6006 
52014 

1 

1 

< 


BZF 

TC 

SET 

P23. 18 

1 NTPPET 
GOTO 

2535 

REf 

1 



31 

2135 

C0064 

C 



NOKF HCR 

2536 

REF 

1 



31 

2 136 

62142 

1 



P23. 19 

2531 

REF 

XLl 

LAST 

61C 

31 

2137 

0 60C6 

1 

P23.18 

TC 

INTPPET 

2538 





31 

2 140 

77614 

1 


CL EAR 


2535 

REF 

2 

LAST 

61C 

31 

2 14 1 

CC264 

1 



NCRFFCR 

2540 





31 

2 142 

77776 

1 

P23. 19 

EXIT 


2544 

REF 

1 



31 

2 143 

0 2156 

I 


TC 

P23. 3C 

2 545 

REf 


LAST 

605 

31 

2 144 

3 1753 

1 

P23. 12 

CA 

lOOFLPK 

2546 





31 

2145 

C 0006 

1 


EXTEND 


2 54 7 

REF 

1 



31 

2146 

1 2150 

0 


BZF 

P23.2C 

2548 

REF 


LAST 

61 C 

3 1 

2 147 

C 2156 

1 


TC 

P23. 3C 

2545 

RbF 

1 



31 

2150 

3 304 / 

1 

P23.20 

CAF 

V6N89 

2550 

REF 

IA9 

LAST 

605 

21 

2151 

C 4555 

c 


7C 

BANK CALL 

2551 

REf 

23 

LAST 

605 

31 

2 152 

20624 

c 


CAQP 

GCJFL flSH 

2552 

REf 

25 

LAST 

605 

31 

2 153 

C 4106 

1 


TC 

GOTGFCCH 

2553 

REF 

-3 

LAST 

61C 

31 

2 154 

C 2 156 

1 


TC 

P23. 30 

2554 

REf 

2 

LAST 

6 1 C 

3 1 

2 155 

0 2130 

1 


TC 

Pr3. 20 

2555 

REF 

116 

LAST 

6lC 

31 

2156 

C 6006 

1 

P23.30 

TC 

INTFRET 

2556 





31 

2157 

7 74 14 

c 


BON 

EXIT 

2557 

REF 

2 

LAST 

605 

31 

2 160 

C47Q5 

1 



SAVECFLG 

2558 

REF 

1 



31 

2 161 

62265 

1 



P23. 65 

2555 

REF 

1 



31 

2 162 

3 3053 

1 


CAP 

V50N25P 

256C 

REF 

1 !C 

LAST 

61C 

31 

2163 

0 4559 

c 


TC 

BANK CALL 

2561 

REF 

1 



31 

2 164 

20751 

c 


CACR 

CfjpEPf 1 

2562 

REF 

3C 

LAST 

61C 

31 

2165 

0 4106 

1 


TC 

GUTOPCCH 

2563 

REf 

2 

LAST 

206 

31 

2166 

0 2173 

c 


TC 

V94ENTER 

2564 

REF 

1 



31 

2 167 

0 2170 

c 


TC 

P23. 55- 

25c5 

REF 

117 

LAST 

6lC 

31 

2110 

C 60C6 

1 

P23.55 

TC 

iNtpret 

2566 





31 

2171 

77650 

1 


GOTO 


2567 

REf 

1 



31 

2172 

62224 

1 



P23, 96 

R2568 



VERB 

54 BEGINS 

HERE 






2569 

REf 

lie 

LAST 

61 C 

31 

2173 

0 60 06 

1 

V94EN lER 

TC 

1 N T P R E T 

257C 





31 

2174 

17634 

c 


RTB 


2571 

REf 

18 

LAS 1 

606 

31 

2175 

45503 

c 



LOADTIPE 

2572 

REf 

e 

LAST 

575 

31 

2176 

35225 

1 


stcali 

HARKTINE 

2573 

REf 

1 



31 

2177 

622 72 

1 



PCINTAXS 

2 5 74 





31 

2200 

33521 

i 


MXV 

UM T 

2575 

REf 

n 

LAST 

585 

31 

2 201 

Cl 736 

1 



REF SPPAT 

2 5 76 

REF 

A 

LAST 

584 

31 

2202 

2735 7 

c 


STOVL 

PCI N TVSM 

2577 

REf 

1 



31 

2203 

23C56 

c 



JCAX IS 

2578 

REF 

1 A 

LAST 

5 69 

31 

2204 

C335 i 

t 


STORE 

ScA> IS 

2579 





2 1 

2209 

77776 

1 


EX IT 


2560 

REF 

3 ^ 

LAST 

608 

31 

2206 

0 5447 

c 


TC 

OUNNFLAC 

2581 

REF 

5 

LAST 

606 

31 

2207 

00124 

c 


AORLb 

3AXI SFLG 

2584 

REf 

1 



3 1 

2210 

3 3063 

1 


CAF 

R 1 0 A t P S 

2585 

REF 

3 

LAST 

196 

31 

2211 

54 374 

c 


n 

T lkPPLSh 

2586 

REF 


LAST 

596 

31 

2212 

0 5301 

c 


TC 

PHA SCHNG 


IF ft2(DE> NONZEPQf LMK IS IDENTIFIED 


LiKOPARK NCT lOENTIFIEC 
LANOPARK IS IDENTIFIED 
RECOESl RESPONSE AND DISPLAY LPK DATA 
Rl*LAT ,P2*LCNG/2f R3-AL7 

terhinate 


STORE NEVi DATA AND REDISPLAY 


dCPERFI BLANKS CUT R2 ANO R3. 


PfiCCEED. ALTCCCNTROL CPC 
ENTER, manual CCNTROL 


READ CiQCk 
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P 


li 


^5^7 





31. 2213 

C0012 

1 


CCT 

OOC l 2 


2587 1 

REf 

in 

L/Sl 

61C 

31t2214 

0 4555 

C 

R60CALL 

TO 

bankcall 


^5 8.7 L 


4_ _ 

14ST 

60 7 

31*2215 

5600C 

1 


CADP 

»60C SM 


25873 

REE 

36 

tm 

61C 

3 1* 2216 

0 5301 

C 


7C 

PHASCHNG 


2567^ 





31.2217 

C4022 

c 


OCT 

0^02 2 


2588 

REF 

1 19 

L/S7 

61C 

31,2220 

C 60C6 

1 


tc 

INTPPLT 


25es 





31,2221 

77614 

1 


BQN 



25SC 

REF 

2 

Li»ST 

6CE 

31,2222 

C33C7 

c 



R57FLAt 


2591 

REF 

J. 



3 If 2223 

62226 

c 



P23. 57 

DC NCT REP6RFCRP P57 

2592 





31,2224 

77624 

1 

P23.56 

CALL 



2593 

REF 

2 

L/ST 

60 9 

3 1,2225 

76360 

c 



R57 


2594 





31,2226 

43014 

0 

P23.57 

SET 

SET 

* 

2595 

ref 

3 

L4ST 

6CIE 

31,2227 

C4464 

c 



V94F LAG 


2596 

REF 

3 

L3ST 

61 1 

31,2230 

C3C67 

c 



R57FLAG 


2597 





31. 2231 

T7624 

1 


CALL 



2598 

REF 

3 

L/ST 

554 

31,2232 

3CCC2 

c 



R52 


2608 





31,2233 

43014 

c 


CLEAR 

CLEAR 


26C9 

REF 

4 

L/Sl 

611 

31,2234 

C4664 

1 



V94 F LAG 


261C 

REF 

4 

L^ST 

6 1 1 

31,2235 

C3267 

1 



H57FLAG 


2611 





31,2236 

777 76 

1 

Pr3.60 

EX IT 



2612 





31,2237 

0 0004 

c 


iNHINT 



2613 

RE f 

1 ^ 

LAST 

56E 

31,2240 

3 1330 

c 


CA 

MAF K STAT 


2614 

REF 

6 

LAST 

41 1 

31,2241 

7 4747 

c 


MASK 

LCKIC 


2615 

REF 

5 

LAST 

589 

31,2242 

53'242 

c 


ts 

HAKKCATA 


26 16 





31,2243 

0 0006 

1 


EXTEND 



2617 

REF 

6 

LAST 

6 1 1 

3 1,2 2 44 

5 1242 

1 


INDEX 

MAPh CATA 


2616 





31,2245 

3 0001 

c 


OCA 

0 


2619 

REF 

9 

LAST 

6 IC 

31,2246 

53*225 

i 


OXCH 

MAF KT 

■ ■ " ■ — I ■ ■ . . — — 

2620 

REF 

7 

LAST 

6 1 1 

31,2247 

51*242 

1 


INDEX 

HARKCATA 


2621 





31,2250 

3 OOC5 

1 


CA 

5 


2622 

REF 

1 



31,2251 

•7M54 

c 


XCH 

TRUN iCN 


2623 





31,2252 

0 0003 

1 


KtL INT 



2624 

REF 

1 



31,2253 

3 3C51 

c 


CAF 

VC5N11 


2e25 

REF 

152 

LAST 

61 1 

31,2254 

0 4555 

c 


TC 

BANKCALL 


2626 

REF 

24 

LAST 

6lC 

31,2255 

20624 

c 


CACR 

GCiFLASH 


2627 

REF 

31 

LAST 

61C 

31,2256 

C 4106 

1 


TC 

OCTC FCCH 

TERMINATE 

2628 

REF 

i 



31,2257 

0 2261 

c 


TC 

P23.65 

STcRE CTT4 — ^ 

2629 





31,2260 

0 2253 

1 


TC 

-5 

redisplay 

2630 

REF 

120 

LAST 

611 

31,2261 

C 6006 

1 

P 23 • 6 5 

TC 

INTPRET 


2631 





31,2262 

77414 

c 


SET 

EXIT 


2632 

REF 

3 

LAST 

61C 

31,2263 

0446 5 

1 



SAVECFLG 


2633 

REF 

d 

LAST 

609 

31,2264 

0 2070 

1 


TC 

P23.15 


2639 





31,2265 

450 14 

t 

P23.85 

Clear 

CaLl 


2640 

REF 

e 

LAST 

58£ 

31,2266 

02676 

\ 



RENDkFLG 


2641 

REF 

2 

LAST 

61C 

31,2267 

62272 

1 



POINTAXS 


2642 





31,2270 

7765C 

1 


GOTO 



2643 

REF 

1 



31,2271 

62364 

1 



R23. 55 


r 2644 

ne 

EEC IN 

CALCULAT ICNS 

HERE 







K2645 

PCIM/XIS SLfiRCUT IhE 
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31,2272 

67220 

c 

POINTAXS 

STQ 

SLCiAC 
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26^7 

PEF 

5 

L^ST 

574 

31f 2273 

C115C 

1 



PGINTEX 


26^e 

REF 

2 1 

L3ST 

6 C 9 

3 1, 2274 

02 752 

C 



LANDP/RK 

IF L/NCPARKaQ HCRIZGN IS CESIRED. 

26<iai 





3I<2 2?_5 

67230 1 


BHIZ 

SLLAC 

DC NCT PICK UP IMK VALUES FROM TABLE 

2t>^82 

REF 

1 



31,2276 

623C7 

1 



R23. C5 

CR CISPLAV IN HCHIZQS CASE 

26^83 

REF 

4 

L/JS7 

61C 

31,2277 

02754 

c 



1 OOF LPK 







21f23CO 

4503C 

c 


OHIZ 

CALL 


2c50 

ref 

1 



31,2301 

62305 

c 



R23.C 


itbl 

REF 

1 



31,2302 

63C64 

c 



LUKL PKLU 

« 

MM , 





31,2303 

7765C 

1 


GOTO 



?653 

REF 

2 

L<ST 

612 

31,2304 

623C7 

1 



K23.05 


2654 





31,2305 

77624 

1 

R23.0 

CALL 


HOST BE OGNF 2NC TIME, TO ALLGN CHANGES 

J655 

REF 

2 

L/ST 

556 

31, 2306 

61345 

1 



LI ASFLA 


2656 





21,2307 

71214 

C 

R23.a5 

DON 

OLCAC 


Zt51 

Ref 

7 

L3ST 

50 3 

31,2310 

01711 

1 



CRtNf LAO 


M3 6 

REF 

1 



31,2311 

62315 

1 



H23. 1 


26562 

REF 

1 



31,2312 

03001 

c 



KMli PCS 


26564 





31,2212 

34QCI 

1 


STCALl 

U 


265S 

R_g.F 

2 

L3ST 

56 9 

31,2214 

56 544 

1 



IM T ULH 

INITIALIZE W-PATRIX FIRST PASS IN P23 

266C 





3 1 , 2 3 1 5 

7 76 24 

1 

R23. 1 

gall 



266L 

REF 

6 

L^ST 

57 1 

31,2316 

5 6 3 4 3 

c 



Sf T 1 ATT 

SETtF FOR CSM INTEGRATION 

^ t? t2 





31,2317 

43014 

c 


ijljf 

SET 


26 1 3 

REF 

6 

LIST 

612 

31 ,2320 

01751 

c 



OHfcW f LAG 


2654 

REF 

1 



31,2321 

62323 

1 



F 2 3 . 2 


2 6 6 5 

REF 

1C 

L/ST 

599 

3 1, 232.^ 

C1476 

c 



OIF'O FLAG 


2 6t6i 





3 1, 2323 

45014 

c 

R23.2 

SET 

CALL 


2667 

B Ef 

S 

L/ST 

6 12 

21,2324 

0147 1 

1 



URL h F LAC 


2666 

KEF 

9 

L/ST 

5 9 9 

31,2325 

27113 

1 



INTtGRV 

INTEGRATE CSM STATE VEC. TC MARKTIME 

266S 





31,2326 

777 76 

1 


EX IT 



257C 

REF 

•7 

L/ST 

611 

31,2327 

0 5301 

c 


TC 

PH/ SCHNG 


2671 





31,2330 

04022 

0 


cct 

0402 2 


2672 

REF 

121 

L/ST 

611 

31,2331 

0 6006 

1 


fc 

INTPRET 


2573 





31,2332 

77624 

1 


CALL 



2674 

REF 

1 



31,2333 

62767 

c 



R EOT .1 

PICKCP CSM STATE VECTOR FROM PERM 

2675 





21,2334 

772 14 

C 


BOFF 

VLCAC 


2676 

REF 

1 



31,2335 

CC3 4 5 

c 



ZHt / SORE 

IN SPHERE Cf influence CF PRIMARY 800Y 

26 7 7 

REF 

I 



31,2336 
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NXPCS9EL 

5087 

REF 

6 

LAST 

622 

40,3706 

16323 

1 


STOOL 

WHVE L 

5066 

REF 

6 

LAST 

622 

4C, 3707 

02321 

c 



WOPCS 

5089 
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c 


SORT 


5090 

REF 

7 

LAST 

622 

40,3711 

C2321 

c 


STORE 

HWPC S 
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40,3712 

5200C 

c 
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GOTO 
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40,3713 
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REF 

1 



40,3714 
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REF 
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REF 
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REF 

7 

LAST 

622 

40,3720 

02323 

1 


SrCRE 
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S X A f 1 
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REF 

9 
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00051 

c 



S2 

5100 

REF 

i2 

LAST 

555 

40,3723 

CCC52 

c 



QPPE T 

51ol 





40,3724 

77776 

1 


EXIT 


5102 

REF 

39 

LAST 

576 

40,3725 

0 45l4 

c 



POST JIKP 

5103 

REF 

2 

LAST 

256 

40,3726 

27406 

c 


CADR 

INTV.AKE 

5104 

REF 

1 1 

LAST 

494 

E4, 1720 



KWPffS 

s 

RANGE 

5105 

REF 

7 

LAST 

495 

£4,1722 



KKVEL 

« 

RRAT E 

5106 

REF 

12 

LAST 
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F4, 1724 



KWOPT 

8 

RThC TA 


f 
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0001 





32t2Cl? 




BANK 

32 



QQC2 

REF 

i 



35j2CCy 




SETLGC 

P3CS1 



COCJ 





35,3544 




BANK 




OQL^ 

Rif 

_ e 

L/ST. 

5_53_. 





69ANK* 

-f HGA 


- 

0005 

REF 

1 







COUNT 

35/P34 


- 

0006 





35,3544 

77420 

1 

C ISPMGA 

STQ 

EXIT 

USEC TN P30 

- 

0007 

RLF. 


LAST 


35,3545 

C2370 

i 



POEX IT 



Qcoe 

REF 

2 

LAST 

471 

35,3546 

0 3564 

c 


TC 

CCMVICC 


- 

000<7 

REF 

2 

LAST 

471 

35,3S47 

3 3132 

1 

0ISP45 

CAF 

V16N45 



0010 

REF 

135 

LAST 

62 1 

35,3550 

C 4555 

c 


TC 

BANKCALL 



OCll 

REF 

11 

LAST 

613 

35,3551 

20763 

1 


CAOh 

COFL ASHP 



0012 

REF 


last 

615 

35,3552 

C 4106 

1 


TC 

GCTOPCLH 



3013 

REF 

X 



35,3553 

C 3560 

I 


TC 

END4 5 



001^ 

REF 

1 



35,3354 

C 3547 

1 


TC 

OISF45 



0015 

REF 

3S 

LAST 

615 

35,3555 

0 5301 

c 

P30PHSI 

TC 

PHASCHNC 



0016 





35,3556 

00014 

1 


OCT 

14 



0017 

REF 

77 

LAST 

613 

35,3557 

0 5112 

c 


TCR 

ENucF jce 



OOIB 

REF 

126 

LAST 

62 1 

35,3560 

C 6 0 C 

1 

END4 5 

TC 

INT PPET 



ddis 





33,3561 

S2014 

c 


CLEAR 

GCTC 



0020 

REF 

1 



35,3562 

03664 

c 



TIMRFLAG 



0021 

REF 

3 

LAST 

624 

35,3563 

02370 

1 



PGf X IT 



0022 





35,3564 

0 0006 

1 

COMPTCO 

EXTEND 


USED TC COMPUTE TTOGO 


30 221 

REF 

1 



35,3565 

23*066 

c 


OXCH 

PHSP ROTe 

GROUP 6 TEMPCRARY USED ,, BEWARE •• 


00222 

REF 

32 

LAST 

62 1 

35,3366 

0 5435 

c 


TC 

UPFLAG 

SET TIRRFLAG 


00223 

ref 

2 

LAST 

624 

35,3567 

00155 

c 


ACRES 

T IHR FLAG 

BIT 11 flag 7 


00224 

REF 

123 

LAST 

564 

35,3570 

3 4714 

1 


CAF 

2EFC 



00225 

REF 

1 



35,3571 

55*145 

1 


TS 

NVWC RDl 



0022 6 





35,3572 

C 0CC4 

c 


INHINT 
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REF 
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LAST 
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35,3573 

3 47 12 

1 


CaF 

ONE 
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REF 
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LAST 
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35,3574 

C 5140 

1 


TC 

WAITLIST 



0022 S 

REF 

27 

LAST 
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EBANK« 
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0023 

REF 


LAST 

212 

35,3575 

03174 

c 


2CA0R 

CLOKTASl^ 



0023 





35,3576 

50067 

0 
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REF 

11 

LAST 
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35,3577 
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1 


TC 

2PHSCHNd 



Q0<.32 





35,3600 

40036 

c 


QC T 

40C3 6 

t>,3SPC7 FOR CLORTASK 


00233 





35,3601 

05024 

1 


OCT 

05024 

Croup 4 tCMIKOE^ hTTTE 


00234 





35,3602 
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c 


dCT 

1300C 



00233 

REF 

2 

LAST 
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35,3603 
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TC 
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R0025 FlfC71CN/L CtSCRIfTlCN 

Ra026 ♦^C(£)^^R^4L CELTA-V 14R0ET7IFG PRCCPAP) 

RJiLZ l ACCEPT* ASTRONAUT INPUTS CP TIG.OElVdy) AND COMPUTES, FtR CISPtAY, 

F0C2e AFCCEE |PtR IGee»CELV(HAC) fPGA ASSCCIATED WITH OESIREC MANEUVER 


P21( GEREPAl LAFBEF7 AIRPCINT CUICANCF) 

k0u291 A CFCLNC RULE FOR P3l IS THE ANGLE BETWEEN THE TARGET VECTCF AND 
PCG294 FCSITICN VEC1CP AT T IG IS NCT 1C5-1S5 CEGPEES APART 
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RCa385 CLTFLl FCR PCWEREC FLIGHT 
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R0038E CELVSIN X 
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CQ39 RIP 

_ 1 
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35/P 3C 
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Rt F 

1 



35, j604 
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TC 
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C039C3 

PEF 

1 
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C 3655 
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TC 
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C039C5 

REF 
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LAST 
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0 5447 

C 

TC 

DOWKFIAG 

RESET LPOATFLO 




0Q39C7 

REF 

13 

LAST 
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ACRES 
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127 

LAST 

624 
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TC 

InTPPET 





003911 





35,3611 
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CALL 
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REF 
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EXIT 






003919 

REF 
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REF 
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REF 
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LAST 
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REF 
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LAST 
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35,3625 
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I N T F R E T 
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35,3626 

77624 
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CALI 



003937 

REF 

1 



35,3627 

63154 

1 



S31. 1 


003939 





35,3630 

77776 

1 
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QC39R3 

REF 
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LAST 

62 5 

35,3631 

0 3655 

1 


TC 

CNTNLP3G 


0039R5 

REF 
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LAST 

62 5 

35,3632 

0 3665 
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TC 

PAP APBC 


0039A7 

REF 
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LAST 

626 

35,3633 

0 544 7 
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TC 

DGKNFLAG 


0C39A9 

REF 

A 

LAST 

62 6 

35,3634 

C0C45 

0 


ACRES 

XDFL VFLG 

BIT 9 FLAG 2 

003951 

REF 

1 1; 

LAST 

626 

35,3635 

1 41C6 

c 


TCP 

CCTOFCCh 














00396 

REF 

152 

LAST 

474 

35,3636 

56 002 

c 

P30/P31 

XCH 

W 


flC397 

REF 

1 



35, 3637 

55*664 

c 


TS 

P3L/31RT 


0040 

REF 

34 

LAST 

62 5 

3b f 36^0 

0 5435 

c 


TC 

UPF L AG 


004C5 

REF 

15 

LAST 

626 

35,3641 

00027 

1 


ACRES 

UPDATFLG 

SET UPDATFLG BIT 7 FLAG 1 

0041 

REF 

-3 C 

LAST 

626 

35,3642 

0 5435 

c 


TC 

UPF LAC 


00415 

REF 

C 

LAST 

57< 

35, 3643 

00031 

c 


ACRES 

TRACKFLG 

SET TRACKFLG BIT 5 FLAG 1 

Q042 

REF 

1 



35,3644 

3 3722 

c 


CAP 

VC6N33 

T CF IGN 

>JU43 

REF 

156 

LAST 

62^ 

35,3645 

C 4555 

c 


TC 

0ANKCALL 


0044 

REF 

12 

LAST 

624 

35,3646 

2C763 

1 


CAOR 

GCF L ASHP 


0045 

REF 

36 

LAST 

626 

35,3647 

1 4106 

c 


TCP 

GCTOPCCH 


00467 

REF 

2 

LAST 

626 

35,365C 

C 166^ 

1 


TC 

P30/3l»^T 


0047 

REF 


LAST 

626 

35,3651 

1 3642 

c 


TCP 

P30/P31 +4 


dc-te 

REF 

AC 

LAST 

024 

35,3652 

C 53CI 

c 


TC 

PHASCHNG 


0049 





35,3653 

COO 14 

i 


OC T 

OOC 14 


0050 

REF 

76 

LAST 

624 

35,3654 

C 5112 

c 


TC 

ENLOFJCB 



005C 1 

REF 

1*3 

LAST 

626 

35,3655 

56 CC2 

C 

CNTNUP30 

XCH 

0 

0050 2 

REF 

1 



35,3656 

55 *127 

c 


TS 

P30/PET 

0051 

REF 

2 

LAST 

47C 

35,3657 

3 3131 

1 


CAP 

V 06 K £ 1 

0052 

REF 

157 

LAST 

626 
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0 4555 

c 


TC 

BANK CALL 
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REF 

2 S 

LAST 
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35,3661 

20624 
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GCPLASH 
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REF 
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LAST 

626 
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REF 
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LAST 

62 6 

35,3663 

0 1127 

1 


TC 

P30 /PET 

0U56 

REF 
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62 6 
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REF 
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LAST 

626 

35,3665 
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PAPAN30 

XCH 
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00675 

REF 


LAST 

626 

35 , 3666 

95*664 
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TS 

P3C/31RT 

0068 

REF 

1 



35,3667 

2 3723 

1 


CAF 

V06N42 

006 S 

REF 

i5e 

LAST 

626 

35,3670 

C 4555 

( 


TC 

BANKCALL 

0070 

REF 

26 

LAST 

o2 6 

35, j67 1 

2C624 

G 


CaOh 

CuFL ASH 


00 71 REF 3£ LAS1 62£ 35,3672 0 41C6 1 TC GCTDFCtH GN TERPIhATICK COTOPOCH ~ _= 
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fi 
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QC73 

REF 

3 

LIST 

621 

25i3674 

1 3667 

1 


TCF 

PARAF-3C ^2 




00 ?A 

REF 

H 

LAST 

552 

35,3675 

3 4676 

1 

REF TEST 

CAF 

BIT13 




0075 

REF 



576 

35.3676 

- 7 0077 

_0_ 


HASK 

STATE +3 

REF5NFLAG 



0076 





35,3617 

0 00C6 

1 


EXTEND 





0077 

REF 

1 



35. 37C0 

1 3710 

c 


8ZF 

NCTSF.T 

REFSPFLAG »0 , THEN BRANCH 

TO NOTSET 

0078 

REF 

129 

LIST 

626 

35.3701 

0 6006 

\ 


TC 

INTPRET 




0C79 





35, 3702 

41575 

0 


VLQAO 

PUSH 




0080 

REF 

6 

LIST 

51 £ 

35,3703 

03646 

c 



DEL VS IN 




QOeL^ 





35,3704 

77624 

1 


CALL 





0082 

REF 

•a 

LIST 

483 

35,3705 

10660 

0 



GET + I»GA 




0084 





35, 3706 

7765C 

1 


GOTO 





0085 

REF 

1 



35,3707 

73714 

1 



FLASENGA 




0066 





35,3710 

0 0006 

1 

NOTSET 

EXTEND 





U087 

REF 

1 



35, 37 1 1 

4 3721 

1 


DCS 

MARSCP 




0088 

_R£F- 

9 

LIST 

624 

35,3712 

53*626 

0 


DXCH 

+ MG A 

♦HGA, ♦HCA+1 CONTAINS (-000011 


0089 

REF 

1 ’C 

LIST 

627 

35,3713 

0 6006 

1 


TC 

INTPRET 




C09C 





35, 3714 

77624 

1 

FLASt-HGA 

CALL 





0091 

REF 

1 



35,3715 

73544 

c 



b ISP PGA 




0092 





35,3716 

77 776 

1 


EXIT 





00935 

REF 


LIST 

626 

35, 3717 

0 1664 

1 


TC 

P30/31PT 




CCS7 





33, 3720 

COOOO 

1 

HAKSCF 

OCT 

OUGOG 

(OOOOOl ( 16440 ) - (4-OOQOl) 



0090 





35, 3721 

35 ICO 

c 


OCT 

351CC 




A0C99 











( .01 1 DEGREES (N THE LGN 

ORDER 

REGISTE 

ClOO 





35,3722 

01441 

1 

V06IS33 

VN 

0633 




J 1 0 4^ 





35,3723 

C1452 

c 

V06N42 

VN 

0642 




CiC3 





35,3724 

04043 

1 

V16N3S 

VN 

1635 




0104 





35,3725 

C1455 

1 

V06N45 

VN 

0645 
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H_aiu.e Fl NCnCRAL OESCRIPTICK 

PQ1C9 BASEC ON STCPEO 1APGET PARARETERStR CP IGN 1 T JON ( PT I C ) « V OF 


Hul 10 
*• U 1 1 1 

1CM1 ICN (V1IG) tTIPE 
A4CCEE ALTITLCE ANC 

OF IGMT ICN(TIG) i 
CELTA-V RECUIREC 

CELV (LV », COMPUTE PERIGEE ALTITUDE 

IN PEF. COORDS. (DELVSIN ) 


— 

R0112 

CALL IFC 

SECUENLE 






P0113 

L 


CALL 






ROil^ 

L4 1 

S3C 

.1 





K0115 

NCR PAL 

E>n MCCE 






RUlU 

AT 

L42 OP CALLING SEQUENCE (GQTC 

L42 ) 




PQl W 

SLERCL1INE! CALlEC 






RClie 



TFISPREC 






P0119 



PER lAPG 






RUi20 

AL APR 

CR 

AECRT EXP 

MLOES 





PQ121 



NCNE 





RQi22 

EPASAELE 

1MTIALI2ATICN PEGUiPEC 





RQ123 



T IG 

TIME OF IGMT ION 

DP 

b26CS 



P012A 



C EL VSLV 

SPECIFIED CELTA-V 

IN LCCAL VERT. 




R0125 




CCCBOS. CF ACTIVE 

VEMCLE AT 




R012e 



TIME CF IGFPION 

VCT. 

t4?M/CS 



PU 12? 

QLTPL 1 








H0128 



RTIC 

PQSfTICN AT TIG 

VCT. 

e + 29M 



PG129 



V TIG 

velccity at tic 

VCT . 

B+7M 



POUO 



FAPC 

APOGEE ALT. 

DP 

b-» 29M 



P0131 



HFER 

PER IGEE ALT. 

OP 

b4-2SM 



R3132 



DELVS IN 

OELVSLV IN REF 

CCCRDS VCT. 

b + lM/CS 



P0i33 



VCO ISP 

MAG. CF CELVSIN 

OP 

b+Im/cs 



R0136 

CEEP IS 

C1EPF TEPP. EHASABLE 





R0137 


CPRET iHPAC 






RO130 


FUSPLIST 





^ 

0139 

REF 

1 


31t2C00 

SETLOC 

P3CS lA 


— - - — 

Cl AO 




31f 3102 

BANK 



— _ _ — _ — — ^ . — — 

OlAl 

REF 

L_ 



COUNT 

35/S3CS 


— _ - — ^ - — — - - - - . 

01A2 




31t3102 11220 

1 530.1 STQ 

OLCAC 


— — „ - - . 

01A3 

REF 

A 

LAST 5A6 

31t31C3 C3657 

C 

UTEMP 



OlAA 

REF 26 

LAST 62A 

31»3)0A C3413 

1 

T IC 

T IMF 

IGMTICN Scaled aT 2<*2RitS 

OiA5 

REF 2 

2 

LAST 596 

31#3105 3<»0Al 

C STCALL 

TOE C 1 



0U6 

REF 

5 

LAST 506 

ait3106 27022 

1 

THlSPRfcC 

ENCKE 

ROUTINE FCR 

01A7 




31,3101 67179 

C VLOAO 

S X A , 2 



LIAE 

R fc f It 

LAST 5aA 

31,3110 C00C7 

C 

VATT 



ciAes 

REF 11 

LAST 526 

31,3111 037A6 

1 

1 

1 

1 



01A9 

R FF 

2 

LAST I2C 

31, 3112 276A0 

c stovl 

VTIG 
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01i>0 

BEf 

2C 

LAST 

584 

31.3113 

COOCl 

C 


RATT 


C151 

REf 


LAST 

12C 

31f 3114 

03632 

C 

STORE 

RTIC 


015.2. 

REF 

25 

List 

545 

31.3115 

C3540 

C 

STORE 

RACT3 


0153 





31.3116 

53435 

C 

VXV 

UNIT 


015^ 

REF 


LAST 

626 

31,3117 

C364C 

C 


VTIG 


Ulb5 

REF 

9 

LAST 

^6 ^ 

31.3120 

366 17 

1 

STCALL 

UNF.H 


0156 

RbF 

3 

LAST 

467 

31, 3121 

12667 

C 


LCHAT 


0157 





31,3122 

61375 

1 

VLOAO 

VXP 


0158 

REF 


LAST 

17C 

31,3123 

034C5 

C 


DLLVSLV 


015S 





31,3124 

COOOl 

C 


0 


C16Q 





31,3125 

66172 

C 

VSLl 

SXA, 1 


0_L4l 

REF 

9 

LAST 

543 

31.3126 

03745 

1 


RTXl 


0162 

REF 

1 

LAST 

621 

31,3127 

C3646 

C 

STORE 

DELVSIN 


0163 





31,3130 

77646 

c 

ABVAL 



016A 

REF 

4 

LAST 

274 

31*3131 

2 7654 

c 

STCVL 

VCDI SP 

HAG CELV 

0165 

REF 

4 

LAST 

629 

31,3132 

036 32 

c 


RTIG 


0166 





31,3133 

53315 

c 

POVL 

VAO 


0167 

REF 

6 

LAST 

629 

31,3134 

03646 

c 


DEL VSIN 


0166 

REF 

4 

LAST 

629 

31,3135 

C3640 

c 


VTIG 


0169 





31, 3 136 

77624 

1 

CALL 

PERI APCl 


017C 

REF 

3 

LAST 

518 

31,3137 

45312 

c 



0171 





31,3140 

77624 

I 

CALL 



0172 

REF 

3 

LAST 

51 e 

31,3141 

45422 

1 


SHIFTPl 


01725 





31,3142 

17624 

1 

CALL 



0 1726 

REF 

1 

LAST 

51 1 

31,3143 

46754 

c 


WAXChF 


0173 

REF 

2 

LAST 

272 

31,3144 

16366 

c 

STOOL 

HPE R 

PERIGEE ALT 6+29 

0174 





31,3145 

C0005 

1 


40 


0175 





31,3146 

17624 

1 

CALL 



0176 

REF 

4 

LAST 

629 

3 1,3 147 

43422 

1 


SHIFTRl 


01765 





31,3150 

17624 

1 

CALL 



01766 

BEF 

4 

LAST 

629 

31,3151 

46754 

c 


M A X C F H 


0177 

REF 

4 

LAST 

272 

31,3152 

36364 

c 

STCALL 

HAPC 

APOGEE ALT B+29 

0178 

REF 

5 

LAST 

626 

31,3153 

C3657 

c 


QTE R F 
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PO 1 ei S31.1 fPCCP^P DEKPIPTIQN 280EC6 7 _____ 

R0ie2 HCC,1 67 S^ZELCIN 

S3 1 .1 CCHPLTES DEt.V Ih REF AhC LV CCCPCStWA G CF DEL V t INTF^ £ P T TIH£, 

KOie^i afccee ^nc perigee alt fcr recuirec haneuveb 


P0185 CAlLI^G SEtUEMCE 

PG186 L CALL 

«aA€7 L Jj S31. 1 


RQiee 

NCPPU E>11 HOLE 







*<Jld9 



AT L +2 OF 

CALLING SECUENCEiGCTC L>2) 




RQ190 

SiePCnihES CALLEC 







P0191 



ACA IN 







PQi92 



PER lAFGl 







RC193 



SUFTRl 







R019^ 



y IDGIP 







RL195 

^C alaph 

CP ABCRT PCCES 






R019t 

IRFll 









R0197 



DELLT4 

CP 

428 





RQl9e 



T 1C 

DP +28 





RC1961 



R 1ARG 

VCT 






KQi982 

OLIPLI 








Buisea 



CELVLVC 

VCT 

47 





RC198A 



VCOISP 

OP 

47 





PC19e5 



UPC 

CP 

429 





RQ1966 



HPEP 

CP 

429 





801967 



7PASS4 

DP 

428 





Roi9ee 

CEEPl 


- CTEPP 







0200 




1 

1 

tAll 

1 

U) 

71220 

1 S31.1 

STQ 

OLCAD 


0201 

REf 

6 

LAS1 629 

31#3155 

C3657 

C 


OTEPF 


0202 

REF 

29 

LAST 62£ 

3 1 f 3 156 

03413 

1 


TIG 


C203 

REF 

2 3 

LAST 626 

31f 3157 

34041 

C 

STCALL 

TUELl 


0204 

REF 

1 


31t3160 

61663 

c 


AGAIN 

RETURNS RTX2,PTX1 ,PAtT,VATT,vr PRIG'S 

0205 




31*3161 

63375 

c 

VLQAO 

PDVL 

0ELUEET3 

0206 

REF 

c 

LAST 629 

31*3162 

03632 

0 


RTIG 


0207 

REF 

12 

LAST 545 

31t 3163 

0 3612 

1 


VI PR INE 


0208 




31*3164 

77624 

1 

CALL 



0209 

REF 

4 

LAST 629 

31*3165 

453 12 

c 


PEPI APCl 


0210 




31,3166 

77624 

1 

on 



0211 

REF 

% 

LAST 629 

31*3167 

45422 

1 


SHIFTRI 


02115 




31,3170 

77624 

1 

Call 



02116 

REF 

5 

LAST 629 

21,3171 

46 754 

1 

stcdl 

mAxCpk 


0212 

REF 

1 

LAS1 629 

31,3172 

16366 

c 

RPEh 

629 

0213 




31,3173 

00005 

1 


40 


0214 




31,3174 

77624 

1 

CALL 



0215 

REF 

6 

LAST 63C 

31,3175 

45422 

1 


SHIFTRI 


02155 




31,3176 

77624 

I 

“XALL 



C2156 

REF 

£ 

LAST 63C 

31,3177 

ibliM 

c 


HAXChK 


0216 

REP 

5 

LAST 629 

31,3200 

2b3t*t 

1 

StOvl 

HAPC 

B29 
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J2L7 

am 

_c2ia_ 

Rfcf 

15 

LAST 

593 

ill 3201 

31.3202 

31.3203 

0369 6 
CCCOl 
9SC19 

C 

C 

_C 

STORE 

StT 

L/ELVEET3 

0 

CALL 




0219 

REf 

6 

LAST 

592 

31,3209 

CU72 

C 


AVFLAC- 




0220 

Rtf 

1 



31,3205 

10653 

c 


HIDG IP 

GET 

C6LVLVC B7 FORDISPLAV 


Q2iLl 





31.3206 

17696 

c 

ABVAL 





0222 

REF 

C 

LAST 

629 

31,3207 

17639 

c 

STOOL 

VGOI £P 

e<7 

FOR DISPLAY 


0223 

REF 

e 

LAST 

593 

31,3210 

03923 

1 


DtLL T9 




0229 





31.32U 

77615 

c 

OAO 





0225 

REF 

3C 

LAST 

63C 

31,3212 

03913 

1 


T 10 




0226 

REF 

e 

LAST 

96 ? 

31,3213 

37636 

c 

STCALL 

TPASS9 

FOR 

S90. 1 


0227 _ 

REF 

7 

LAST 

63C 

31,3219 

03657 

c 


OTERP 







H 



n 




T 


i 


l:n AIG. 2Atl*5^8 PANQOBfl .072 P4GE 632 


GLPi ASSIKBLE PE\flSlQK 


u 


USER'S PAGE NC. 


9 


E7 S3 




r ^ % i r ^ 1 










P0327 

SLEFCUINE NAME: 

CELPSFL 





(CCNT INUAT ICN OF V 92 IN CSM IF Pll ACTI 



R0329 

TR/NSFERPEC CORPLETELV FRCR SLNDISK, P30S REV 

33. 9 SEPT 

t7. 





RJ3i30 

MCC NC: 0 

MOD 

BY: 

ZELDIN 

DATE : 






R0331 

MCC NCJ 1 

MCQ 

BY : 

PR BAIRNSFATHER 

CATE: 

1 1 

APR 67 




Ra332 

r*cc NCI 2 

MCO 

BY : 

RR BAIRNSFATHER 

OAT E: 

12 

MAY 67 

ACO UR.RT CALC WHEN BELOW 300K FT 



Pa33A 

MCC NC: 2.1 

MCO 

BY : 

RR BAIRNSFATHER 

DATE: 

5 JULY 67 

FIX ERROR IN MCC. 2. 



R0336 

MCC NC: 3 

MOD 

BY : 

RR BAIRNSFATHER 

DATE: 

12 

JUL 67 

CHANGE SIGN OF CISPLAYED ERROR. 



R0337I 

MCC A 

MOO 

BY 

S.ZELOIK 

DATE 

3 APRIL 68 

CHANGE EOUATICNS FOR L/0*.1B WHICH PEPLA 



Ru330 

FLNCT ICN : 

CALCULATE 

(FOR OISPLAY CN CALL I AN 

APFRCXIMATE 

MEASURE UF IN-PLANE SPLASH COWN 



R0340 


ERROR. IF 

THE free-fall 

TRANSFER ANGLE 

TC 30CK FT 

ABOVE PAO RADIUS IS POSITIVE: 



I 


R03^2 

R93^^ 


SPLASH ERRCft- -RAhCE TC TARGET * FREE-FALL TRANSFER ANGLE ♦ ESTIRATEO ENTRY ANGLE. 
THE TARGET LOCATICR AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER 


R03A6 




ANGLE IS 

NEGATIVE : 

SPLASH 

ERROR* 

-RANGE TC TARGET 





R03A7 

R0368 

CALL I 



THE PRESENT TARGET 

LOCATION 

IS USED. 



NC 

SECUENCE 

CALLEC AFTER SR3C. 

1 IF IN CSM AND 

IF PU CPERATINC 

tUNDEP CONTROL 

Cf V92) 


KC349 

SLEPQL11NES CALLEC: 

VGAHCALCt 

TFF/TRIG, 

LALCTCRV 

• 






RC350 

EXIT 



PETUPN DIRECTLY 

1C 

V 82 FROG. AT SPLRET 





R0351 

ERASABLE 

IMTIALWATiCN LEFT 

BY SR3C. 

1 ANC V82GON1 






R0352 

CLT PL 1 ! 

RSP-RREC 

RANGE IN PEVCLUTICNS 




OSKY DISPLAY IN 

N. MI. 



R0356 

CEEFI 

< 1 

CFRET , PCLC . ..PCL7 . 

PCLIO 























R03S61 



THETA (1 ) 











P0355 




























0356 




32f2017 




BANK 

32 





0357 

REF 

1 


32»2CQ0 




SETLOC 

DELF SPLl 





0358 




32f 2017 




BANK 






0359 

REF 

1 






COUNTY 

$$/P3C 

PRCGPAMSi P30 EXTERNAL DELTA V 
















036C 




32.2C17 

coon 

1 

OELRSPL 

STCRE 

80 





0361 




32f 2020 

45244 

1 


fiPL 

osu 





0362 

REF 

1 


32, 2C21 

64063 

c 



CANT DC 

GCNE PAST 3C0K 

FT ALT 



U363 

REF 

1 


32,2022 

16326 

1 



IBITCP 





C366 




32,2C23 

45000 

c 


BOV 

CALL 





0365 

REF 

2 

LAST 632 

32, 2C24 

64063 

c 



CANT CC 

PGSMAX INDICATES NO BOOK 

FT SOLUTION. 


0366 

REF 

1 


32, 2025 

5505C 

1 



VCAMCALC 

4gamma(rev) in 

FM A C f V 3 00 

MAGt 6-7 )*iPDL 0 


0367 




32,2026 

450C6 

c 


PUSH 

CALL 





0368 

REF 

1 


32,2027 

56573 

c 



TFF/TR IG 





0369 




32,2030 

77624 

1 


CALL 






037C 

REF 

1 


32,2031 

64C71 

c 



TugFkUST “ 





0371 




32, 2032 

65525 

c 


POOL 

ACOS 

T ENTRY PEL 6 




0372 

REF 

1 


32, 2033 

COO 1 7 

1 



COELF/2 





0373 




32,2C36 

77615 

C 


OAC 






0376 




32,2C35 

C0005 

1 



4 





0375 

REF 

2 

LAST 86 

32,2036 

263 50 

0 

CETAHG 

STOVL 

TH6TA( n 





0376 

REF 

7 

LAST 432 

32,2C3? 

03401 

1 



LAT » SFL) 





0377 

REF 

9 

LJST 62C 

32,2040 

151C4 

c 


STOOL 

LAT 





0378 

REF 

1C 

LAST 602 

32,2041 

15332 

1 



H 16 zeros 





03 79 

REF 

6 

LAST 599 

32,2042 

15110 

c 


STOOL 

ALT 

ALT»0 = LAT *4 




0381 




32, 2043 

43225 

( 


dsu 

DAD 






I 


Q 


n 


R 


II 


II 
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0382 





_ 32 *294 4 

ccou 

1 



8D 


0363 

RIF 


t3ST 

49E 

32t2C45 

C12C5 

1 



PIPT IRF 


Q3_a^ ■ 





3^*iL(346■ 

45014 

C 


CLEAR 

CALI 


0385 

REF 

t 

L3S7 

612 

32t2C4l 

C0662 

C 



ERAOFLAG 


0386 

REF 

4 

LAST 

612 

32t 2C50 

26373 

1 



LAL07CFV 

R RECOV. IN ALPHAV AND MPAC 













038? 





3 2 *1_C 5 1 

63256 

C 


UNIT 

PDVL 


0388 

REF 

14 

LAST 

51 1 

32#2Q52 

C2327 

C 



RONE 


iL3b8L_ 





32*2053 

50256 

C 


UNIT 

DOT 


0389 





32,2054 

65552 

c 


SLl 

ARCCCS 


0390 





32, 2055 

77621 

1 


BOSU 


ERROR » THETA EST - THETA TARG 

AQ39L 










NEGATIVE 

NUMBER SIGNIFIES THAT WILL FALL SHORT, 

AQ392 










POSITIVE 

NUMBER SIGNIFIES THAT WILL OVERSHOOT. 

0393 

REF 


LAST 

632 

32,2056 

C2350 

1 



THETA(l) 


0394 

REF 

-a 

m 

LAST 

273 

32,2057 

36356 

1 

OELRDGNE 

STCALL 

RSP-PPEC 

OOWNRANGE RECOVERY RANGE ERROR /360 

0394 1 

REF 

1 



32,2060 

274C4 

1 



I NTWAKEO 


C3942 





32,2061 

17624 

1 


CALL 



0395 

REF 

1 



32,2062 

46653 

c 



SPLRFT 


0396 





32,2063 

65345 

c 

CANTOC 

CLGAD 

POOL 

initialize erase TO OOT TARGET AND UR 

A0397 











FOR RANGE ANGIE. 

0398 

REF 

7 

LAST 

591 

32,2064 

15330 

c 



HIDPHALF 

TO POL 0 FCR CEN IN ODV. 

0399 

REF 

1 1 

LAST 

632 

32,2065 

15332 

1 



HI6ZERCS 


C4CG 





32,2066 

77606 

i 


PUSH 


ZERO TO POL 2 FCR PHI ENTRY 

04CI 





32,2067 

34011 

c 


STCALL 

80 


0402 

REF 

1 



32,2070 

64036 

c 



GET ARC 

GO SET RSP-RREC -0 


















32.2C71 

77775 

1 

AUGEKUGL 

VLCAO 



0406 

REF 

1 



32,2072 

24245 

1 



XICCN -2 


0407 

REF 

2 t 

LAST 

619 

32,2073 

14C45 

c 


STCDL 

XI -2 


0408 





32,2074 

00001 

c 



0 


04 09 





32,2075 

500 2 5 

c 


osu 

0MN 


Ohio 

REF 

1 



32, 2076 

24237 

1 



V(21 K1 


0411 

REF 




32,2077 

64124 

1 



LOOPSET 


0412 





32,2100 

65060 

1 


XSU, 1 

XCHX ,2 


0413 

REF 

19 

LAST 

622 

32,2101 

C0050 

1 



SI 


0414 

REF 

26 

LAST 

632 

32,2102 

00046 

c 



Xi 


0415 





32,2103 

45324 

c 


XCHX,2 

DSU 


0416 

REF 

2C 

LAST 

632 

32, 2104 

CC05C 

1 



SI 


0417 

REF 

1 



32,2105 

24225 

1 



V (3K 1 


0418 





32,2106 

65C40 

c 


bHN 

XCHX ,2 


0419 

REF 

2 

LAST 

633 

32,2107 

64124 

1 



lcOpSeT 


042C 

REF 

4 1 

LAST 

633 

32«211C 

0C05C 

i 



SI 


0421 





32,2111 

50025 

c 


CSU 

BMN 


0422 

REF 

1 



32,2112 

24235 

c 



V {4K 1 


G4i:3 

REF 

3 

LAST 

632 

32,2113 

64 124 

1 



LOOP SET 


0424 





32,2114 

65124 

t 


XCHX,2 

XCHX ,2 


0425 

REF 

22 

LAST 

633 

32,2il5 

CCOlC 

1 



SI 


0426 

REF 

21 

last 

633 

32,2116 

00046 

c 



xl 

' • ; 

0427 





32,2117 

SMTT 

c 


OSU 

BHN 


0428 

REF 

1 



32,2 120 

24221 

c 



V(40C) 



> * 
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0*29 

ref 

* 

LAST 

63 3 

32,2121 

6*12* 

1 



LCOPSFT 


0*30 





32,2 122 

7773C 

C 


SXA,l 



0*31 

REF 

23 LAST 

633 

32,2123 

CCC5C 

1 



SI 


0*32 





32,212* 

5211C 

C 

LGQPSET 

INCR, 1 

GOTO 


U*33 





32,2125 

COCCI 

C 


DEC 

1 


0*3* 

REF 

1 



32 1 2 1 26 

6*131 

C 



K1K2 LCCP 


0*35 





32,2127 

77730 

c 

K2CALC 

SXAfi 



C*36 

REF 

2* 

LAST 

63* 

32,2 130 

C005Q 

1 



SI 


0*37 





32. 2131 

**7*5 

1 

K1K2LC0P 

OLOAO 

osu* 


0*38 





32,2132 

CCOCl 

c 



0 


0*39 

REF 

1 



32,2 133 

2*23* 

1 



V(32K» 41, 1 


0**0 





32, 2 13* 

*26C3 

1 


DMP* 

OAL* 


0**1 

REF 

1 



32,2 135 

2*2 20 

1 



YKIK 2 4l , 1 


0**2 

REF 

1 



32,2136 

2*20* 

1 



CK 1K2 +1,1 


0**3 





22,2137 

60125 

1 


POOL 

TIX, 1 


0*** 





32,21*0 

00UQ3 

1 



2 


0**5 

REF 

1 



32,21*1 

6*127 

1 



K2CALC 


0**6 





32, 21*2 

5522$ 

1 


DSU 

BDOV 


0**61 





32,21*3 

500CC 

1 


BOV 

6MN 


0**6 2 

REF 

1 



32,21** 

6*163 

1 



MAXPH 


0**63 

REF 

2 

LAST 

63* 

32,21*5 

6*163 

1 



MAXPH 


0**7 





32* 21*6 

*5325 

1 

PHI CALC 

POOL 

usu 

PHI ENTRY PCL *C 

0**8 





32,21*7 

CQOOl 

c 



0 


0**9 

REF 

1 



32,2150 

2*2*5 

1 



V(26K» 


0*50 





32,2151 

712** 

c 


BPL 

OLUAC 


0*51 

REF 

1 



32,2152 

6*160 

1 



TGR26 


0*52 

REF 

1 



32,2153 

2*2*1 

c 



TLESS26 


0*53 





32,215* 

77671 

1 


DOV 



0*5* 





32,2155 

CCOCl 

c 



0 


0*55 





32,2156 

*3*05 

1 

TENT 

CMP 

RVQ 


045t 





32,2157 

00005 

1 



*0 


0*57 





32, 2160 

521*5 

c 

TGR26 

OLQAD 

GOTL 


0*58 

REF 

1 



32,2 161 

2*2*3 

1 



TGR26CCN 


0*59 

REF 

1 



32,2 162 

6*156 

1 



TENT 



0^.5S1 ___ 32t2l63 ^1A5 C HAJtPHl 

0<»59i REF I _32f2l6^ 2^16? 1 

Q^!}93 REF 1 32t2l65 EA1^6 C 

0A59A 32t2166 02755 1 HAXPHlC 

0A59A 32t2l67 CllO? 1 

OAeO RJ^F^ 2 EAST 632 TC 63A; 105 105* 


DLCAD GOTO 

MAXPFIC 
PHIC Alt 

2Mc .09259298 2000 NN ^tifl 


COUNT* $S/P3C 


AC^61 aELOH 

A0<t62 <<<< table is indexed. KEEP IN ORDER >>> 


0<t63 32,2170 00013 C 20eC 7.073CA526 E-A 550C 

C<it3 22,2171 22652 (J 

04fcA 32,2 172 OOOC5 1 2MC 3.086*19-/$ F-A ?*U0 
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4.21 • TIGBLNK (P40THP CS > 


REHCVE RESICUE 


SET NEW TIG FCR 06 40 


FCR LCNCCALL CP TIG-30< Oft -351 


VU GO FINISN 

PBOCEFD 

RECYCLE 

vWnait eni EPS heui^ a 


WITT^TOTTA lC^ 05“V I A' A^ETTEXTr 


GAP : 



Cf flGC PftCGftAM 


NASA 


l:n AGG. 2A«196fl PANDORA .072 PACE AAO 


PAG-PA7 


1257 

PEP 

c 

LIST 

63 8 

2Af2 170 

01730 

1 


CACR 

DELAY JCB 

XZ3fi 

AEF 

2 ^ 

LIST 

637 

24t2l71 



P40PrNCB 

TCR 

SETMlNCe 

125S 





24,2172 

C 0003 

1 


REL INT 


12EQ 

REF 

*2 

L/ST 

63S 

24,2173 

C SiCl 

C 

T IGNCbi 

TC 

PHASCHNG 

I2fcil2 





24.2174 

0^024 

_L_ 


OCT 

05C24 

1260A 





24,2175 

20000 

C 


OCT 

2000C 

126C£ 

PEP 

1 



24,2176 

3 2350 

c 


CAF 

VltN 85fi 

1261 

REP 

lAt 

LIST 

63 S 

24,2177 

C 4555 

c 


TC 

BANKCALL 

1262 

REF 

2 

LIST 

63S 

24,2200 

20610 

1 


CAOP 

REP LASH 

1263 

REF 

3 

LIST 

63S 

24,2201 

1 2204 

1 


TCF 

P0ST41 

126A 

REP 

A 

LIST 

64 C 

24,2202 

1 2204 

1 


TCF 

P0ST41 

1265 

REF 

1 



24,2203 

1 2173 

1 


TCF 

T IGNCN 

UiL? 





24,2 2-C4 

0 00 C 6 

1 

POSThI 

EXTENG 


1268 

REF 

1 



24,2205 

2 24C7 

c 


OCA 

SEP V C AOP 

l2eG 

REF 

c 

LIST 

63S 

24,2206 

53*223 

1 


OXCH 

AVPGtX IT 

1271 

REF 

.3.S 

LIST 

626 

24,2207 

1 41Ce 

c 


TCF 

GCTLFCCH 


USER'S PAGE NO 


E6 S3 


TYPE C GROUP A BELCW FOR NOUN 95 


PPIG 20 


FINISH PAO/PAl 

VG3 PROCEED WITH REST OF THE CLEAN-UP 
V32 NOT GSCP RESPONSE BUT REDISPLAY N85 


1212 





24.2210 

00056 

1 

RINCe 

EEC 

4 6 


1273 





24,2211 

00707 

1 

HIXC8 

DEC 

45S 


12732 

REF 

17 

LIST 

63S 

£6, 1466 




EBANK s 

DAPDITPi 


1274 





24,2212 

0 0004 

C 

-1 

INHINT 



1275 

REF 

U 

LIST 

58 1 

24,2213 

3 0032 

C 

SETRiNCe 

CA 

COUX 

RCLTINE FCP SETTING 

1276 

REF 

4 

LIST 

167 

24,2214 

55*572 

1 


TS 

THE 1 ACX 

THE RIMMUR 0EAC9AND 

127? 





24,2215 

C CQ06 

1 


EXTEND 


IN 4LTCPILCT 

1278 

REF 

5 

LIST 

56 1 

24,2216 

3 0034 

c 


OCA 

COUY 


1274 

REF 

2 

LIST 

106 

24,2217 

53*574 

1 


OXCH 

THET lOY 


1280 

REF 

1 



24,2220 

3 22 10 

c 


CA 

HINU8 

should be called UNDER 

1281 

REF 

2 

LIST 

101 

24,2221 

35*655 

1 


TS 

ADC 

[NTEPRUPT INHIBITED 

1282 

REF 

26 

LIST 

58 1 

24,2222 

4 4707 

1 


CS 

&IT4 

E0ANK * 66 

1283 

REF 

16 

LIST 

64C 

24,2223 

7 1466 

c 


HASK 

DAPDITPl 


1264 

REF 

19 

LIST 

64 C 

24,2224 

35*466 

c 


TS 

OAPDITP 1 


1265 

REF 

155 

LIST 

626 

24,2225 

0 OOC2 

c 


TC 

Q 


12852 

REF 

2C 

LIST 

64C 

E6, 1466 




EBANK* 

OAPDITPl 


1286 





24,2226 

0 0CC4 

0 

-1 

INHIKT 



1287 

REF 

1 



24,2227 

3 22 11 

1 

SETRAXOB 

CA 

MAXD8 

RCUTINE FCR SETTING 

1286 

REF 

3 

LIST 

64C 

24,2230 

55'655 

1 


TS 

AOb 

THE RIXIHUM DEADBAND IN 

1289 

REP 

21 

LIST 

64C 

24,2231 

4 1466 

c 


CS 

LAPCITPl 


1290 

REP 

27 

LIST 

64C 

24,2232 

7 4707 

1 


HASK 

BITA 

shcull be called under 

1291 

REP 

4 i 

LIST 

64 C 

24,2233 

27*466 

c 


ADS 

DapD iTRl 

INTEPRim' INHtS ITEO 

1292 

REF 

156 

LIST 

64C 

24,2234 

0 0002 

c 


TC 

Q 

EBANK ■ 66 


_GAPi 


RE\tlSlQN 227 Cf AGC PPCGRAM COLCSSOS BY NASA 20^llll-C31 


1:17 AUG. 24fl969 PANOOBA .072 PAGE 6A1 


L p iiC-PA7 USER»S PAGE NO. 5 66 S3 

pTF9 3 pTccP/P CESCPIPTlCh ♦♦PAIC SM* 


135A 

1355 

REF 

REF 

23 

LAST. 

6AC 

E6t 1966 




eBANK= 

OAFD ATPl 



1 






COUNT 

2A/P91 















1356 

REF 

fC 

L ; ST 

637 

5A,2235 

0 5935 

0 

P91 C SR 

TC 

UPFL AG 



1357 

REF 


LAST 

637 

2A«2236 

00023 

C 


AORES 

ENG2FLAG 

SET FOR RCS 















1358 

ref 

135 

LAST 

63 9 

2At2237 

0 6006 

1 


TC 

INTPRET 



1359 





2A, 22A0 

7 7 795 

i 


□ LOAD 




1360 

REF 

H 

LAST 

o3 8 

2A. 22A1 

15332 

1 



H16Z6PCS 

FCR ?A1 CSTEEh *0 


1361 

REF 

A 

LAST 

63 7 

2At22A2 

03703 

c 


STORE 

CSTE ER 
















1362 





2A,22A3 

93195 

c 


OLCAO 

6CN 



1363 

REF 

1 



2 A f 2 2 A A 

10337 

1 



FfiCS2 

2jeT THRUST FCR SAO.l 


136A 

REF 

1 



29«22A9 

CC7C0 

c 



NJET SFIG 



1365 

REF 

1 



2A«22A6 

50015 

c 



P90S/F 

NJETS » 1 2-jeT 


1366 





2A,22A7 

52015 

1 


OAO 

GDTC 

NJETS * 0 A-JET 


1367 

REF 

2 

LAST 

64 1 

2 4 f 2 250 

10337 

1 



FPCS2 



1366 

REF 

2 

LAST 

6A 1 

2At2251 

50C15 

c 



PaOS/F 
















1369 

REF 

11 

LAST 

5 09 

2Af 2252 

9 1011 

1 

P91/P90 

CS 

MODREG 



1370 

REF 

78 

LAST 

638 

2A,2253 

7 9712 

c 


MASK 

ONE 

PAIEXITS AT call LDC ♦! 


1371 





2A,225A 

C C0C6 

1 


EXTEND 




1372 





2A,225S 

1 2257 

1 


ezF 

♦ 2 

PAl 


13 73 

REF 

157 

LAST 

6AC 

2A.2256 

29 002 

c 


INCP 

Q 

PAO EXITS AT CALL LOC *2 


137A 

REF 

15 6 

LAST 

6A 1 

2A,2257 

0 0002 

c 


TC 

Q 
















1375 

REF 

A 

LAST 

A28 

2Af 2260 

3 9675 

1 

TTG/0 

CAF 

PR 1D2C 

TASK (A. A PROTECTS fN PAD 


1376 

REF 

18 

LAST 

57 3 

2A,2261 

0 5027 

1 


TC 

NOV AC 



1377 

REF 

2A 

LAST 

6A 1 

E6t 1966 




EBANK* 

DAPDATRl 



1378 

REF 

d 

LAST 

6AC 

2A,2262 

02173 

c 


2CA0R 

TIGNCR 



1378 





29,2263 

50066 

1 



















1379 

REF 


LAST 

63 7 

29,2269 

0 5A9? 

c 

P90CLK 

TC 

DOWN FLAG 



1360 

REF 

A 

LAST 

637 

2A,2265 

00155 

c 


AORES 

T INF FLAG 
















1382 

REF 

26 

LAST 

529 

2A,2266 

1 5213 

c 


TCP 

TASKCVER 
















1383 

REF 

1 



29,2267 

3 2397 

0 

PAl /DSP 

CAF 

V06N856 

SET UP FCR NQNFLASH V 06 NOS 

BY CLCCKJCB 

138A 

REF 

3 

LAST 

638 

29,2270 

55*195 

1 


TS 

liVNCPCl 
















1365 

REF 

136 

LAST 

6A ] 

29,2271 

C 6006 

1 


fC 

INTPPFT 



1360 





29,2272 

77629 

1 


CALL 


CCNPU7E 


1387 

REF 

1 



29,2273 

50319 

i 



PA0CNVe5 

VCTTG IR' 'CTRL CCCRD5 


1388 





29,2279 

77776 

1 


EXIT 




1389 





29,2275 

0 0006 

1 


EXTEND 


DC CCKTftCL COCRC CALCULATION 

AFTER AVEC 

1390 

REF 

2 

LAST 

639 

29,2276 

3 2911 

1 


OCA 

ACADN65 



1391 

REF 

t 

LAST 

6AC 

29,2277 

53*223 

1 


OXCH 

AV£G6XTT“ 






gap: 


NASA 2021111-031 


Itn ALG. 2A.1<?6B PANOQPA .07? PAGE 6A2 


P^C-P^l 


USER'S PACE NO, 


6 


E6 S3 


A IM22 


13S2 

1393 

13 9A 

REF 

12 

LAST 

63E 

29.2300 

29.2301 

29. 2302 

0 5261 
9C036 
00239 

1 

C 

1 


IC 

OCT 

OCT 

iPHSCFNG 

9 003 6 

239 

6.3-CLCKTASK( lOOCS » 

9.23»P90S/SV( PR 1012 > 

1395 

REF 

1 



29,2303 

1 21C6 

c 


ICF 

P90S/RS 

— 

139^ 

REF 

A 

LAST 

69C 

29,2309 

3 2350 

Q 

P91H60SP 

CAP 

vuNese 

ENTER PROP P91 SIDE CP TIGAVEG 

1397 

REF 

9 

LAST 

69 1 

29,2305 

55*19* 

i 


TS 

NVWUPCl 

REDISPLAY NONPLASUNG 

1398 

REF 

3 

LAST 

639 

29,2306 

3 2392 

c 


CAP 

SEC29.<36 *l 


1399 

REF 

29 

LAST 

63t 

29,2307 

0 519C 

1 


TC 

UAM LIST 


1900 

REF 

25 

LAST 

69 1 

E6t 1966 




EBANKs 

OAPCATRl 


19C1 

REF 

A 

LAST 

201 

29,2310 

0226C 

1 


2CA0R 

TToyc 


1901 





29,2311 

50066 

1 





19C2 

REF 

22 

LAST 

61 • 

29,2312 

9 9710 

1 


CS 

&iT3 

9.9 » TTG/0(2936CS), PRECHECK ( -OC 5 I 

1903 

REF 

1 



29,2313 

1 2513 

c 


TCP 

TTGPHS 


1909 





29,2319 

9C22C 

c 

p90CNve5 

STQ 

SETPC 


1905 

REF 

1 



29,2315 

C373C 

c 



QTENPl 


1906 





29,2316 

OGOOl 

c 



0 


1907 





29,2317 

91575 

c 


VLOAD 

PUSH 


1908 

REF 

1 



29,2320 

03 721 

0 



VGPR £V 

EQUALS VCTIG (TAP.GETTIKG INPUT) 

1909 





29,2321 

37629 

1 


CALL 



1910 

REF 

1 



29,2322 

95926 

0 



S9l, I 


1911 

REF 

6 

LAST 

275 

29 ,2323 

37665 

c 


STCALL 

VGBCCV 


1912 

REF 

2 

LAST 

t>92 

29,2329 

C3 730 

c 



&TEPF1 

■ 

19122 

KEF 

26 

LAST 

692 

E6, 1966 




EdANK* 

OAPDATPl 


1913 

REF 

127 

LAST 

69 1 

29,2325 

0 6006 

1 

CALCNdS 

TC 

INTPPET 


1919 





29,2326 

77629 

1 


CALL 



1915 

REF 

1 



29,2327 

5102G 

1 



UPDA7EVG 

NEK VC, S9a.d(«RAY6E S90.9) 

1916 





29,2330 

77629 

1 


CALL 



1917 

REF 

4m 

LAST 

69 1 

29,233 1 

50319 

1 



P9C( AV85 

CCNPLTE VCeCDY 

1918 





29,2332 

77 776 

1 


EX IT 



1919 

REF 

1 



29,2333 

0 3131 

1 


TC 

SEP V 


1920 





29,2339 

02217 

1 

F E N G 

20EC 

9.1188599 8-7 

SPS IHRUSI (20500LbS), SC. AT B+7 NEWT/E9 

1920 





29,2335 

C665C 

1 





1921 





29,2336 

CCCli 

c 

FRCS2 

2 DEC 

.067937837 6-7 

RCS ULLAGE tl99.6C0Sl0 LdS), SC. AT 

1921 





29,2337 

06112 

c 






H 




e + 7 NE»iTCNS/E*A 


B 


1923 

29,2390 

C9700 

1 

SEC29.96 

DEC 

2996 

1929 

29,2391 

OOOOO 

1 

SE029.96 

20EC 

2996 

1929 

29,2392 

G5669 

0 




1925 

29,2393 

C3910 

1 

18SEC 

DEC 

1800 

1926 

29,2399 

00209 

1 

P90CKLS2 

OCT 

2 09 

1927 

29,2395 

^THTO 

1 

40CST5 — 

UTT 

3773C 

1926 REF 9 LAST 377 

9377 



0CT12 

m 

TEN 

1S2<? 

29,2396 

C9123 

c 

Vl6e3 

VN 

1683 

1930 

29,2397 

CL523 

1 

VC6N85B 

Tn 

0685 

1931 

29,2350 

09125 

0 

V16K85B 

VN 

1685 

1932 

29,2351 

C195C 

1 

V06N9C 

VN 

069 0 

1933 

29,2352 

29020 

r 

P90CK^9 

TO 

29020 

1939 

29,2 353 

C9Q5C 

c 

V16K90 


169C 


0 1 T S 14, r27”'A p 1. 1 NU S' WffB 


« 




Itl? ALG. 2A,19ft8 PANDORA ,072 PtGE 6A3 




237 CF AGC PRCGPAW CQLCSSUS BY NASA 2Q2U11-C31 


L P40-P<7 


USER’S PAGE NO. 7 E6 S3 


1^35 

1^36 

I’tJ I _ 

1^36 

1^139 

1415 

14392 

14392 

l'i4£l_- 

A1441 
1445 
144 6_ 

1447 

1448 
i449_ 
1450 
1450 
14M 
14 52 


24.2354 CCC27 I 

24.2355 C0053 1 

24^2356 00035 1 

REF 27 LAST &42 £6,1466 

REF 4 LAST 254 24,2357 C3132 1 

24.226U 12C6L 1 

24.2361 C1120 0. 

24.2362 25456 1' 

24.2363 -ctroze c 

REF 4C LAST 63E 24,2364 3 4712 I 

R EP 1 24,2365 I 2066 1 

REF 2 LAST 63E 24,2366 3 3000 1 

REF 25 LAST 642 24,2367 0 5140 1 

RIF 39 LAST 63S £7,1412 


REF 

•*1 

€ 

LAST 

20E 

24,2370 

C25C4 

1 





24,2371 

50067 

C 

REF 

12 ! 

LAST 

638 

24,2372 

3 47 14 

1 

REF 

5 

LAST 

b^2 

24,2373 

55*145 

1 


0CT27/24 OCT 
0CT53 OCT 

0CT35 OCT 

E8ANK* 

T5ICL24 2CADR 


MCOThl 2UEt 
3M00T UEC 


1ST, TRIP CAP 
TCP 

TIGBLRK CAP 

TC 

EBANK* 

2CADR 

CAP 

TS 


27 

5? 

35 

OAPL ATRl 
T5I0tCC 


.269391932 B-3 63.0 LB/SEC, SC. AT 0+3 KG/CS (•POOTLCI 

66.6 17579 6 6-16 3S6C PASS LCSS (63.8 LBS/SECJ, SC. AT 

B^16 KG/SEC 

Bill SET LP FOR CIP0 CRIVE TEST AND TRIP (*11 

TRIMCNLV +1 

5SEC CALL TICAVEC IN FIVE SEC AT TfG-3C 

WAI T 1 1ST 
T IC 

TICAVEG 

ZERC disable here. NCT IN P4O0LNKP 

NVWCPCl 


1453 

_Rft 

4 

LAST 

559 

24,2374 

3 4 761 

0 


CAP 

PRIC 14 

14 54 

REF 

19 

LAST 

64 1 

24,2375 

0 5027 

1 


TC 

NCVAC 

1455 

REF 

4C 

LAST 

6^3 

67,1412 




EBANK* 

T IG 

1456 

REF 

1 



24,2376 

02143 

c 


2CA0R 

P40BLNKR 

1456 

REF 

1 



24,2377 

50C67 

c 




1457 

REF 

3 

LAST 

219 

24,2400 

4 4362 

c 


CS 

CiCT37 

1458 

REF 

2 

LAST 

42 i 

24,2401 

d 4114 

1 

P40 rsK 

TC 

NFWPHASE 

1459 





24,2402 

C0004 

0 


OCT 

4 

1460 

REF 

27 

LAST 

64 ] 

24,2403 

0 52 13 

1 


TC 

TASKCVEP 

14cl 

REF 

* 1 

LAST 

64 3 

E7, 1412 




E8ANK > 

T IG 

1462 

REF 

1 



24,24U4 

02440 

c 

ACACN83 

2CA0R 

CALCReS 

1462 

REF 

1 



24,2405 

50067 

c 




1463 

REF 

*2 

LAST 

64 3 

E7, 1412 




E&ANK« 

TIG 

1464 

REF 

2 

last 

529 

24,2406 

03136 

c 

SLRVCADR 

2CA0R 

SERV EAll 

1464 





24,2407 

76067 

1 




1465 

REF 

28 

LAST 

643 

£6,1466 




EBANK » 

DAPDATRl 

1466 

REF 

1 



24,2410 

02325 

1 

ACACN65 

2C AOR 

CALCRe5 

1466 

REF 

1 



24,2411 

50066 

1 





PONT PRQTECT-R ES TARTS BLANK OSKY 
4.37 • TI6AVEG (500CS1 
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PlMtl FKCF/A CEKPIFTUN ^♦P^TCSN^A 


16C8 


REF 


1 


COUNT 2A/P^7 


151C 
1511 
1512_ 
1513 
15 1^ 

1515 

1516 

1517 
I5ie__ 
151S 
151S 

152C 

1521 

1522 

15222 

1523 
i52A 

1525 

1526 


PLf 

REF 

REF 

PEf 


53 

U7 

5 

138 


L AST 6^3 


LAST 

LAST 


6 <i C 
637 
6^2 


E7,i412 
2A,2<^12 
2^f2^l3 


ebank» tig 


REF I 
REF 211 


LAST 63S 


REF 12 
REF 2E 
REF 


LAST 

LAST 

LAST 


63S 
6A3 
6 A A 


RkF 


LAST 20 s 


2A,2'il5 

2A,2A16 

2A,2A17 

24,2A20 

2Af 2A21 

E7.1A12 

2A,2A22 

2A,2A23 


0 A555 C 
17573 C 
0 6006 1 


PA7CSR 


TC 

CADR 

TC 


BANKCALL 
R02BC7H 
INTPPf T 


7762A 1 
2757C C 
3C 155 C 


CALRB 


CAE 


MtDTCAV2 
HPAC +1 


55*672 1 
0 51AC 1 


TS 

TC 

EBANK 


PACTHP 
WAITLIST 
T 10 


02A27 1 
5CC67 C 


2CADK TIGOR 


REF <3 LAST 6AC 
REF El last 63S 


2A,2A2A 

2A,2A25 

2A,2A26 


0 53C1 C 
A057A C 

1 5112 1 


TC 

OCT 

TCP 


PHASCWNG 
4057A 
ENOLf JCB 


REF 13 LAST 6AA 


E 7 1 1 6 7 2 
2A,2A27 


0 0006 1 TIGQN 


£BANK« PACTRP 
EXTEND 


REF 

REF 

REF 


1 

7 

1C 


LAST 

LAST 


6A 1 
58 1 


2At 2A3L 
2A,2A31 


3 2AC5 1 
53*223 1 
3 A371 C 


OC A 

UXCH 

CAP 


ACADNCB 

AVEGEXIT 

PP1C3C 


15333 

15336 


2Af2AAl 77601 C 

COOOl C 


SETPO 


153A 

1535 

1536 

REF 

REF 

1 

1 



29,2493 

29,2999 

29,2495 

533T5 

C3665 

C3933 

T 

1 

C 

VLOAD 

VAD 

delvctl 

DELVFEF 

1537 

REF 

1 



29,2996 

03960 

t 

StOftE 

0V97tEMP 

1536 






95006 

c 

PUSH 

Call 

1539 

REF 

2 

LAST 

69 2 

29, 2450 

95926 

c 


S9l . l 

1590 

REF 

£ 

LAST 

275 

24,2451 

37675 

1 

STCALL 

DfcLV iPU 

1591 

REF 

2 

LAST 

52 9 

29,2452 

70936 

1 


$ 1 1 . 1 

15^2 





29,2453 

7 77 76 

1 

EXIT 


1593 

REF 


LAST 

699 

29,2459 

0 5301 

c 

Tc 

phasChnct 

1599 





29,2955 

10035 

c 

OCT 

10035 


IPt STATUS CHECK 


DELTA TIME TG RPEREAO (LESS THAN 1000 


CSi WITH A TPAGREE, INT.INIT.) 


TIGON IS PECUIREO TO MATHCHTAT AND AVEC 


A, A . 57 « T IGCN (PAOTMP CS» 


FCRCe 2EflClNG OF Nej fiEFORE SFRVICEP 


1527 
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LAST 

65C 

24,2703 

54 076 

1 

TS 

PLAGFPC? 





1745 

REF 

1 



24,2704 

C 3311 

1 

TCR 

E6SE TTER 





1 746 

REF 

31 

LAST 

64 £ 

e6, 1466 



EbANK» 

OAPCATFl 





17462 

REF 

126 

LAST 

64 9 

24,2705 

3 4714 

1 

CAP 

2EPC 

SET LP V97VCNTR 

IN 

CASE 

ENGINOFF (MASS- 

17463 

REF 

2 

LAST 

209 

24,2706 

5 5 * 444 

c 

TS 

V97VCNTP 

SACK) ARf-lVES 

BEFORE TVCDAPON 


17^7 Rtf 1 2^,2707 1 2576 C TCP PREPIVC 


1753 

17532 

REF 

REF 

1C 

2 

LAST 

LAST 

65C 
65 C 

E7,1427 

24,2710 

0 3311 

1 

ENG INCFF 

EBANK*^ 

TCR 

TGO 

teSLTTEft 

E7 FCRCEO BY 3.15SPOT VARIABLE CELTA-T 
TASK, 3.15 PHASE (TGO+l CSI GET E6 

17533 

Rt F 

32 

LAST 

65C 

E6,1466 




E0 ANK* 

DAPDATRl 


1754 

REF 

4 

LAST 

272 

24,2711 

31 ^ ^ 7 A 

1 


CAE 

CSMHASS 


1755 

REF 

3 

LAST 

193 

24,2712 

55*662 

C 


TS 

massthp 

CCPYCVCLE FCR MASSBACK 

1756 

HtF 

16 

LAST 

65C 

24,2713 

0 5261 

1 


TC 

2PhS(:FNG 


1757 





24,2714 

000 0 3 

1 


OCT 

OOOC 3 

KILL GROUP 3 PflCTECTION OF ENGINOFF, CC 

1750 





24,2715 

40634 

1 


OCT 

*fC 63 A 

A, 4.63 • OCSFSCFF (-OCS) 

1759 

REF 

2 

LAST 

193 

24,2716 

0 2741 

J 

DOSPSOFf 

TCP 

Tf^CFF 

SHUTDOWN SPS, MArS U'POATtS, TTCT 

1760 

REF 

1 



24,2717 

4 2354 

c 


CS 

0CT2 7/24 

(OCTAL 27) 


cap; 


AiSEteU£ SEStlSlOh 2 37 CF ACC PRCGPA^< CCLCSSUS 9Y NASA 202im-C31 


I;I7 AUG. 2A»19<:B PANOOBA «C72 PAGE 651 


1. 


PA C * P A 7 


LSEft'S PAGE NC. 15 C6 S3 


1761 

1762 


R£F 


EAST 6AS 


2A,2720 0 AHA 1 

2A,2721 OOOCA C 


TC 

OCT 


NfwPHASE 

A 


A, 27 a DGTVCRLS (250 CS» 


1763 
I 7tA 


REF 


LAST 6A5 


2Af2722 0 5156 C 

2A,2723 00372 1 


TC 

DEC 


F IXaELAV 
2 50 


2,5 SECOND LEL4V FOR 5PS TAILOFF 


1765 


HEF 


LAST 198 2A,272A 0 2227 1 CCTVCBCS TCP 


1767 


REF 26 LAST 538 
ref" 2 LAST 192 


2At2725 C A633 0 


TC 


St TNAXLB 


1 BNKCALL 


WIDE CEAO0ANO FCR CUTOFF TRANSIENT 


SET UP RC5 DAP (KILLS TVCDAPSi SETS T5 


24,2726 A201C C 


17672 REF 2? LAST 651 24,2727 0 4633 C 


CADR 


TC 


PCSCAPLN 


IbNKCALL 


BITSf V>AI7S 0.6SEC FLR TVCEXEC DIE! 


UPDATE WEIGHT/G ANO PASS-PROPERTIES FOR 


17673 REF 


iJ6a MJL 


1769 
1 77 Q 

1771 

1772 

1773 
17 74 

1774 

1775 


1776 

1783 


1790 
I /9l 


1792 
A1793 
A 1794 


1795 

1796 


10C6 


1807 

1808 


2 LAST 247 24,2730 


13176 C 


2 LAST 192 24.2131 Q 3005 1 


CADP. 


TCR 


MASSPPCP 


TVC2AF 


PCS CAP STARTUP IN 0,6 SECONDS 


WIPE CUT TVC> TURN GPP CLCKTASK 


REF 

47 

LAST 

648 

24, 2732 

0 53C1 

C 

rc 

phaschng 


PCSTBURN (NOVAC, 





24,2723 

00354 

C 

CCT 

00354 

A, 4.35 = 

REF 

2 

LAST 

178 

24*2734 

3 4603 

0 

CAF 

PR 1012 

SET UP PQSTPURN V16N40 JOB 

REF 

2 1 

LAST 

64 4 

24,2735 

0 5027 

1 

TC 

NOV AC 



REF 


LAST 

65C 

E6, 1466 



EBANK== 

OAPOATRl 

( SETMAXOB 

IN PCST41) 

REF 

3 

LAST 

63 S 

24,2736 

02155 

1 

2CA0K 

POSTeUPN 







24,2137 

5C066 

r 





REF 

22 

LAST 

649 

24,2740 

1 5213 

c 

TCF 

TASKCVER 




REF 24 LAST 651 E6,1466 


0 0006 1 SPSOFF 


EBaNK* capo ATPl 
EXTEND 


ESTABLISF SPSOFF TEVENT 


1784 

REF 

2 1 

LAST 

65 C 

24,2142 

3 C025 

C 

OCA 

TIME2 


1765 

REF 

Cl 

LAST 

648 

24,2743 

53*337 

C 

OXCH 

TEVFNT 


17 86 

REF 

24 

LAST 

648 

24,2 144 

4 4704 

1 

CS 

e IT? 

RESET ENGCNFLG 


1787 

REF 

12 

LAST 

64 8 

24*2745 

7 Cl Cl 

C 

MASK 

1768 

REf 

13 

LAST 

65 1 

24,2 746 

54 ICl 

0 

TS 

1709 

REF 

28 

LAST 

65C 

24,2747 

4 4676 

C 

CS 


F LAGRRC5 


FLA&RRC5 
6 IT I 3 


(RESTARTS RILL SHUT DOWN SPS NOWl 
SHUT CCWN SPS ENGINE 


24,2750 0 0006 1 


EXTEND 


REF 


22 


LAST 648 24,2151 03 011 1 


NANO 


OSALNCUT 


REF 


3 LAST 65C 24,2752 31*444 1 NASSBACK CAE 


V97VCNTR 


REF 


1 


24.2753 

24.2754 


C 00C6 1 
7 2361 C 


EXTEND 


1797 

REF 

148 

LAST 

64 9 

24,2155 

22 

000 

1 

1798 





24,2 156 

G 

0006 

1 

1799 

REF 

9 

LAST 

509 

24,2757 

7 

4734 

1 

1600 

REF 

4 

LAST 

65C 

24, 2760 

6 

1662 

1 


HP 

LXCH 


HDOTFl 

A 


RESTCRE PART OF PRE-CECREHENTED MASS 
V97VCNTR « VCNTR UNLESS V97 IS 
ACTIVE, CNLV V97VCNTR IS THEN RIGHT 
VCNTR COUNTS 1 / 2 -~SEC 0 ND S“ IN tvC “EX EC 
NCOT, SC<AT 0+3 KC/CS 


EXTEND 
MP 

AO Mass TNP 


I SEC 


18C1 REF 


LAST 65C 24,2761 55*474 C 


IT 


REF 22 LAST 64S 24,2762 3 4674 C BESlTRIM CAP 

REF 9 


CSMMASS 


BITl 5 


DEC ICO 

CORRECTION IS ACCURATE TO 5 CS OF FLOR 
0,44 kc 0.4 aiTS) 

CHECK FOR SWITCHOVER, SELECT BEST TRIMS 


LAST 572 


24,2763 
24,2 164 


7 0105 1 
0 0006 1 


MASK FLAGVPOS 

extend 


FCR next UNITWlWTTrcKI TToTJ 


GAP ; . ASSE MBLE REVlSlCN 23? CF AQC PRCGRAM CQICSSOS BY NASA 2U2UU-C31 IM? AUC, 24,1968 P ANOQBfl .072 PAGE 652 

L PAG-P^? USER’S PAGE NO. 16 E6 S3 


1609 

1810 

REF 

REF 

1 

UC 

LAST 

65C 

29,2765 
29,2 766 

1 27<7 

0 0002 

1 

0 


BZF 

TC 

DBARTRIM 

Q 

PPE-SWITCHOVER 
PCST-SWITCHCVER , 

SC LEAVE TRIMS AS ARE 



16105 

REF 

2 

LAST 

101 

29,2767 

31'621 

C 

OBAKTRIH 

CAE 

OELPfcAR 

UPDATE TRIHS hlTH 

DELP ,VBAR 



1611 

REF 

12 

LAST 

273 

29,2770 

55'925 

1 


TS 

PACTCFF 





1612 

REF 

2 

LAST 

101 

29,2771 

31*623 

1 


CAE 

OELVEAP 





1613 

REF 


LAST 

273 

29,2772 

55*926 

1 


TS 

YACTCFF 





leu 

REF 

lU 

LAST 

652 

29,2773 

0 0002 

C 


TC 

0 





1615 

REF 

1 6 

LAST 

65 1 

£6,1966 




EBANK- 

OAPOATRl 





1616 

REF 

1 



29,2779 

C2121 

c 

STEERAOS 

2CflOR 

STEEPING 





1816 

REF 

i 



29,2775 

50066 

1 








1617 





29,2776 

37703 

1 

.6SEC15 

QCT 

37703 





1618 





29,2777 

COOOO 

1 

5SECDP 

OEC 

0 

MAKE CP 5SEC 




leis 





29,3000 

00769 

1 

5sec 

oec 

500 





16195 





29,3001 

02202 

c 

GCT02202 

OCT 

02202 

BITS 2,8, U FOR CHANNEL 12 TVC/OPTICS 



1820 

REF 

36 

LAST 

652 

E6 , 1966 




EBANKe 

OAPOATRl 





1621 

REF 

1 



29,3CC2 

C2032 

1 

TVCCN2C 

2C ADP 

TVCDAPCN 





1821 

REF 

1 



29,3003 

36066 

1 







- - 

1822 





29,3CC9 

0 C0C9 

c 

- 1 

CNh INT 





— 

1623 

HEF 

1 



29,3005 

9 3001 

1 

TVCiAP 

CS 

OCT 02202 

DISABLE TVC AND OPT EPR CNTRS, REENGAGE 



1629 





29,3006 

0 C0C6 

1 


EXTEND 


OPTICS DAC 




1825 

REF 

26 

LAST 

537 

29,3CC7 

0 3 012 

1 


WANO 

CHAN12 





1626 

REF 

^2 

LAST 

699 

29,3010 

9 9712 

c 


CS 

OITi 

ENABLE T9RUPT OPTICS MCN I TOK. , . .PERM I T 



1627 

REF 

23 

LAST 

44 ^ 

29,3011 

55*303 

1 


TS 

OPTI NO 

OPTICS-ZERO 

BUT NCT CPTICS-DPiVE 



18271 

REF 

129 

LAST 

65C 

29,3012 

3 9719 

1 


CAP 

ZERO 

CLEAR NVwCflCl IN 

CASE CLOCKJCB WAITING 



18272 

REF 

9 

LAST 

69 8 

29,3013 

55*195 

1 


TS 

NVWCRCL 





1826 

REF 

19 

LAST 

699 

29,3019 

4 4 700 

c 


CS 

BITI 1 

CLEAR TIMRFLAG TC 

STOP LLCKTASK 



1629 

REF 

5 

LAST 

698 

29,3015 

7 0103 

1 


HASK 

FLADNPD7 





1830 

REF 

6 

LAST 

652 

29,3016 

59 103 

1 


TS 

FLAGRPC7 





1831 

REF 

U2 

LAST 

652 

29,3017 

C 0002 

c 


TC 

Q 





1832 

_REF 

3 7 

LAST 

65 2 

E6, 1966 




£BANK> 

OAPC ATPl 





1833 





29,3020 

93020 

1 

UPDATEVG 

STQ 

BON 





1639 

REF 


LAST 

69 2 

29,3021 

03730 

0 



QTt P FI 





1835 

REF 

6 

LAST 

631 

29,3022 

013C7 

1 



XOE L VFLC 





1836 

REF 

1 



29, 3023 

51097 

c 



dALL9C.8 





1837 





29,3029 

5013 5 

c 


SLOAD 

b WN 





1838 

REF 

3 

LAST 

637 

29,3025 

03397 

1 



NBPC YCLS 





1639 

REF 

1 



29,3026 

51053 

0 



SETUP. 9 





189C 





29,3027 

53375 

c 


VLCAO 

VAD 





1691 

REF 

2 

LAST 

L09 

29,3C3C 

03351 

c 



DELVStP 





1692 

REF 

1 

LAST 

699 

29,3031 

03933 

c 



DEL VREF 





1893 

REF 

1 



29,3032 

03357 

c 


STORE 

DELVSUPF 





1899 





29,3023 

777 76 

1 


E)(IT 






1895 

REF 

79 

LAST 

69 1 

29,3039 

3 9712 

1 


CA 

ONE 





1696 

REF 

9 

LAST 

652 

29,3035 

6 1796 

( 


TD 

NBRC Yds 





189 7 

REF 

2 

LAST 

109 

29, 3036 

55*797 

0 


TS 

nbpcyclp 








C4P 



CF AGC PRCGPAM 



NASA 202I111-C31 l:17 AliG. 24.1968 PAN OCRA 


.072 PAGE 693 


L PAC-P^7 


USER’S PAGE ND. 11 66 S3 


le^e 

REF 

^8 

LAST 

6 5 1 

24,iC37 

C 5301 

C 


TC 

PHASCHNG 

TYPE B RESTART BELON AND 5.3 REREACACCS 


ieA9 





24,3040 

10035 

C 


OCT 

10035 


- - - — — 

le^c 

REF 


LAST 

652 

24f3C41 

3 1747 

1 


CA 

NbRC VCLP 



1851 

REF 


LAST 

652 

24,3C42 

55*746 

1 


TS 

NSPC YCLS 



1852 

RIF 

iU 

LAST 

64 9 

24.3043 

0 6006 

1 


TC 

INTPPET 



1853 





24.3C44 

77775 

1 


VLOAO 




185^ 

REF 

2 

LAST 

652 

24,3045 

C3357 

0 



DELY SLHP 



18 

Rif 

2 LIST 

6_12 ___ 

24t3C46 

03351 

c 


STORE 

DELVSUP 
















1856 





24,3041 

77624 

1 

CALL40.8 

CALL 




_ 1857 

REF 

L 



24,3050 

34130 

1 



S4G. 8 



1856 





24,3051 

77650 

1 


GOTO 




1859 

REF 

A 

LAST 

652 

24,3052 

03730 

c 



OTEPPl 



1860 





24,3053 

67214 

1 

SFTUP.9 

BON 

SLOAC 



1661 

REF 

1 



24,3054 

C1310 

1 



F IRSTFLC 



1862 

REF 

1 



24,3055 

5 1 Q 7 C 

1 



SURE LY.9 



1863 

REF 


LAST 

653 

24,3056 

C3350 

1 



NBPC VCLP 




186A _ 2A,3C57 7A3C1 0 NORM VXSC (KORP HANDLES 26RC PRCP6RLV> 

1065 _ REF 2 8 LAST' 633 24,3C6C 000^7 1 XI 


1866 

1867 

1 6o 6 

REF 

2 

LAST 

12 1 

24,3061 

03705 

53257 

20563 

C 

1 

C 


BCiT 





24.3062 

24.3063 

VSR* 

VAO 

0 -14C,1 


1869 

REF 

1 



24,3064 

03646 

C 


VGTEPP 


1870 





24,3065 

77651 

C 

VSU 



1871 

REF 

4 

LAST 

653 

24,3066 

03351 

C 


OELVSIP 


18 72 

REF 

2 

LAST 

642 

24,3067 

C3721 

C 

STORE 

VGPR EV 


1873 





24,3070 

77 7 76 

1 

SURELY. 9 EXIT 



1874 

REF 

6 

LAST 

256 

24,3071 

3 4676 

1 

CAF 

PFICiO 


18 75 

REF 

23 

LAST 

64 7 

24,3072 

0 5042 

1 

TC 

f INDVAC 


1876 

REF 

38 

LAST 

652 

E6, 1466 



EBANK<^ 

OAPDATPl 


1877 

REF 

1 



24, 3073 

02257 

C 

2CADR 

S40.9 


1077 

REF 

1 



24,3074 

34066 

c 




1876 

REF 

17 

LAST 

65 0 

24,3075 

0 526 1 

1 

tc 

2PHSChNC 


1079 





24, 3076 

00051 

c 

OC T 

0005 1 

A, 1.5 - flECC40.9, PflIC 10 

1860 





24,3077 

10O35 

i 

OCT 

10035 


1881 

REF 

H2 

LAST 

653 

24,3100 

0 60C6 

1 

TC 

INTPPET 


1862 





24,3101 

77775 

1 

VLQAD 



1683 

REF 

9 

LAST 

534 

24,3102 

01171 

1 


RN 

ACTIVE VEHICLE RAOITJT VEdDTI AT TI 

1864 

REF 

11 

LAST 

543 

24,3103 

27510 

c 

T STCVL 

R t N I T 


1885 

ref 

9 

LAST 

534 

24,31C4 

01177 

1 


VN 

ACTIVE VEHICLE VELOCITY VECTOR AT Tl 

1886 

REF 

10 

LAST 

543 

24, 3105 

17516 

c 

STCDL 

VINI T 


1887 

REF 

6 

LAST 

633 

24,3106 

01205 

1 


PIP TINE 


1888 

REF 

2 

LAST 

US 

24,3 107 

03474 

c 

srcPE 

TNI T 


1889 





24,3110 

77621 

1 

BUSU 



1890 

REF 

9 

LAST 

63 1 

24,3111 

03656 

1 


TPASS4 


1891 

REF 

9 

LAST 

63 1 

24,3112 

27423 

1 

SfOVL 

DELLT4 


1692 

REF 

U 

LAST 

64 5 

24,3113 

15332 

1 


Hl62ERt S 


1093 

REF 

II 

LAST 

653 

24,3114 

17351 

c 

STOOL 

delvsup 



fiFvt^inN 


2u 211 1 L 
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189^ 

Rtf 

17 

LAST 

653 

29t31lS 

15332 

i 



HI62F.RCS 



1895 

PEE 

6 

LAST 

653 

29t 3116 

C3397 

1 


STORE 

NBBCTCLS 



1896 





29.3117 

77650 

1 


GOTO 




1897 

REE 

2 

LAST 

652 

29,31^0 

51097 

0 



CALL9C.6 



1896 

REE 

39 

LAST 

653 

E 6 t 1466 




EBANK* 

DAPD ATRl 



1899 

REF 

l^l 

LAST 

653 

29.3121 

C 60C6 

1 

STEER ING 

TC 

INTPBET 



1900 





29.3122 

77629 

1 


CALL 




1901 

REF 

2 

LAST 

69 2 

29,3123 

5102C 

1 



UPDATEVG 



1902 





29,3129 

77776 

1 


EXIT 




1903 

REF 

23 

LAST 

65C 

29,3125 

3 97C2 

c 


CAE 

61 T9 

CHECH IHPULSp 


190^ 

REE 

U 

LAST 

65C 

29,3126 

7 0076 

1 


HASK 

ELA0ViBD2 



1905 

REE 

l<9 

LAST 

65 1 

29.3127 

1C 000 

c 


CCS 

A 



1906 





29,3130 

1 3133 

1 


TCP 

♦ 3 

pbe-ignite, request ENC-OFF, 

OR PCST-CFF 

1907 

REE 


LAST 

696 

29,3131 

0 9579 

c 

SEP VXT 

TC 

POST JLNP 



1908 

RtF 

3 

LAST 

6^3 

29,3132 

77136 

c 


CAOB 

SEEVEXIT 



1909 

BEE 

27 

LAST 

651 

29, 3133 

3 9676 

1 


CAF 

B1T13 

CHECH ENGINE-CN/-CFF 


1910 





29,3139 

0 C0C6 

1 


EXTEND 




1911 

REF 

2A 

LAST 

65 1 

29,3135 

C2 Oil 

c 


RAND 

OSALPCUT 



1912 





29,3136 

C 0dC6 

1 


EXTEND 




1913 

REF 

3 

LAST 

69 5 

29,3137 

1 3131 

0 


BZF 

SEBVXT 

FNGINE-OFF, SC PRE-IGNITE OH 

POST-OFF 

1919 

REE 

3 

LAST 

65C 

29,3190 

0 3306 

1 


TCP 

E7StTTEB 



1916 

REF 

« 'a 

LAST 

65C 

E7,1912 




EBANK> 

T 10 



1917 





29,3191 

C C009 

c 


INHiNT 




1918 





29.3192 

0 OOC6 

1 


EXTEND 




1919 

REF 

59 

LAST 

659 

29,3193 

3 1913 

0 


OCA 

T IG 



1920 

REF 

266 

LAST 

69 9 

29,3 199 

52 155 

1 


CXCH 

NPAC 



1921 





29.3195 

0 Q0C6 

1 


EXTEND 




1922 

REE 

22 

LAST 

651 

29,3196 

9 0025 

1 


DCS 

T IHE2 



1923 

REF 

269 

LAST 

659 

29,3197 

2C 155 

1 


DAS 

PPAC 



192^ 

REE 

1 



29,3150 

0 7229 

1 


TCP 

DPAGPEE 



1925 

REF 

2K 

LAST 

659 

29,3151 

3C 155 

c 


CAE 

MPAC ■»! 

(LESS than 6 (OR 9) SECONDS 

TC GO! 

1926 

REE 

ISC 

LAST 

659 

29,3152 

10 000 

c 


CCS 

A 

PROTECT AGAINST NEG/ZRG W.L. 

CALL 

1927 





29.3153 

1 3156 

1 


TCF 

♦ 3 



1928 





29,3159 

1 3156 

1 


TCF 

^•2 



1929 

BEE 

13C 

LAST 

652 

29,3155 

3 9719 

1 


CAE 

ZEEC 



1930 

REE 

6C 

LAST 

652 

29,3156 

6 9712 

1 


AO 

ONE 



1931 

REE 

66 

LAST 

69 9 

29,3157 

56 OCl 

c 


XCH 

L 



1932 

KEF 

131 

LAST 

659 

29,3160 

3 9719 

1 


CA 

2CP0 



1933 

REE 

11 

LAST 

65C 

29,3 161 

53*930 

c 


DXCH 

TOO 



1939 

REE 

12 

LAST 

659 

29,3 162 

3 1930 

1 


CA 

TGC *l 



1935 

REF 

3C 

LAST 

65C 

29,3163 

0 519C 

1 


TC 

NAl T lIST 



1936 

REE 

13 

LAST 

659 

E7,1927 




E6ANK» 

TOO 



1937 

REF 

1 

LAST 

65C 

29,3169 

C2710 

ir~ 


2CADB 

ENOINCFE 



1937 





29,3165 

50067 

c 





— 

1936 

BEE 

16 

LAST 

653 

29,3 U6 

0 5261 

1 


TC 

2PHSCHKG 


. .NOTE GROUP 

1939 





29,3167 

90153 

1 


OCT 

40153 
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13714 

1 




2318 

REF 

J 



30,2000 



SEtLOC 

P40S3 


2319 





30,3657 



8ANK 














212jQ„ 

BEF 

1 






COUNT 

24/S4C.1 













2321 





30,3657 

C40Q0 

c 

EP4(45)H 2DEC 

.125 


2321 





30,3660 

COOOO 

1 




2322 





30,3661 

CQ7C7 

1 

EP4 ( IQIH 20EC 

.027777777 


2322 





30,3662 

03434 

1 




2323 





30,3663 

45020 

1 

AGAIN STQ 

CALL 


2324 

REF 


L4ST 

653 

30,3664 

C3730 

0 


QTtHFl 


2325 

REF 

k 

L/ST 

62E 

30,3663 

27022 

1 


THI SPFEC 


2326 





30,3666 

66134 

1 

SXA,2 

SXAfl 


2327 

REF 

12 

L/ST 

62E 

20,3667 

C3746 

] 


RTX2 


2326 

REF 

1C 

L/ST 

62 9 

30,3670 

03745 

1 


RTXl 


2329 





20,3671 

77775 

1 

VLCAO 



2330 

REF 

21 

L/ST 

629 

30, 3672 

OOOCl 

c 


P ATT 


2331 

BEF 

8 

L/ST 

663 

20,3673 

C3632 

c 

STORE 

RT IG 


2332 

REF 

12 

L/ST 

66 2 

20,3674 

27570 

c 

STCVL 

P INiT 


2333 

REF 

17 

L/ST 

62E 

30,3675 

C0CC7 

c 


VATT 


2334 

REF 

6 

L/ST 

66 2 

30,3676 

03640 

c 

STORE 

VTIG 


2335 

REF 

12 

L/ST 

66 3 

30,3677 

C35 76 

c 

STORE 

VINI T 


2336 





30,3700 

672CI 

c 

SETPO 

SLCAC 


2337 





30,3701 

OOOOl 

0 


0 


2338 

REF 

18 

L/ST 

654 

30,3702 

15332 

1 


ERCTS 


2339 





30,3703 

43125 

0 

POOL 

BON 


2340 

REF 

1 



30,3704 

21660 

1 


£ ( ^5 IH 


2341 

REF 

4 

L/ST 

626 

30,3705 

03705 

c 


NCR HSR 


2342 





30,3706 

61711 

1 


+ 3 


2343 





30,3707 

77745 

1 

oload~ 



2344 

REF 

1 



30,3710 

21662 

c 


EP4{ 1C)H 

- 

2345 





30,3lll 

45006 

c 

PUSH 

CALL 


2346 

REF 

3 

L/ST 

54 3 

30, 3712 

22000 

1 


1 NI TVEL 
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23A7 





30»3713 

52001 

1 


SfcTPD 

GOTO 


23se 





30t371A 

COCCI 

0 



0 


23A9 

FEf 

6 

LiSl_ 

665 

3C.3715 

C3730 

c 



OTEPPl 


2350 





30,3716 

A5175 

c 

CALCOT 

VLQAD 

CAL L 


2351 

REF 

9 

L<ST 

66S 

30,3717 

Ca632 

c 



RTIG 


2352 

_R1F 

.._ 2 . 

LAST 

526 

30,3720 

77260 

c 



CALCGPAV 

GCELTAT IN PPAC AT 2(^7)N/CS 

2353 





30,3721 

70372 

c 


VSLl 

V/SC 


235A 

REF 

1 



30,3722 

21761 

1 



200C 5 

G AT 2(-5) P/CS.CS 

2355 





30,3723 

52315 

1 


PDVL 

vsu 


2356 

REF 

lA 

LAST 

b6 4 

30,372A 

03612 

1 



V IPP 1>E 


2357 

REF 

e 

LAST 

66A 

30,3725 

C3713 

1 



UT 


2358 





30,3726 

523AI 

c 


V/SC 

VSU 


2359 

REF 

2 

LAST 

66 6 

30,3727 

21761 

1 



2 00C S 


236C 





30, 3730 

7256 1 

c 


VXSC 

VSL2 


2361 

BEF 

5 

LAST 

6A 1 

30,3731 

C37C3 

c 



CSTEER 


2362 





30,3732 

2A015 

c 


STQVL 

UD 

B.C scaled AT 2(-5) POL 120 

2363 

REF 

11 

LAST 

66 5 

30,3733 

03721 

( 



VCT IG 


236A 





30,373A 

AiA56 

c 


UNIT 

PUSF' 

UG POL 0 SCALED AT 2l*l) 

2365 





30,3735 

7A2A1 

c 


DOT 

VXSl 


2.366 





30,3736 

CC015 

c 



L2U 


23e7 





30,3737 

COOOl 

0 



0 


23t6 





30, 37A0 

51352 

1 


VSL2 

6VSU 


2369 





3C,37A1 

CCC15 

c 



120 


2370 





30, 37A2 

1^015 

c 


SI OOL 

12C 

Q POL 12C scaled AT 2(-5) 

2371 

HFF 

A 

LAST 

66A 

30,37A3 

C3 727 

c 





2372 





30,37AA 

56261 

1 


SRK 

DDV 


2 3 73 





3C,37a5 

216CS 

1 





237A 

REF 

3 

LAST 

663 

30,37A6 

03C76 

c 



wEIGFT/G 


2375 





30,37A7 

63316 

c 


OSQ 

PDVL 

F/MA5S SQUAPEC PCL 6 AT 2 (-10 IM/ ( CS-CS » 

2376 





30,3750 

0QO15 

c 



1 20 


2377 





30,3751 

7 7636 

1 


VSC 



2376 





30,3752 

15A21 

1 


BDSU 

SORT 


23 79 





30,3753 

7656 1 

1 


vxsc 

VSLl 


2360 





30, 375A 

53455 

c 


VAD 

UNIT 


2381 





30,3755 

CCC15 

c 



120 


2382 

REF 

9 

LAST 

66 6 

30,3756 

3771 3 

c 


STCALL 

UT 


2363 

REF 

10 

LAST 

66A 

30,3757 

C3657 

c 



CTEP F 


23 6A 





30,3760 

C14A0 

c 

200C S 

2DEC 

200 E-12 


2 38A 





30,3761 

CQOOO 

1 
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ft 


H 


D 


P23e3 PFCC’P/E CESCPIPTICN S^0.2i3 CA1E l5fNCVt66 

P^aeo NCC NC 2 LC(t SECTICN PA0-P47 

R23ee FtFCnCAiiL CESCRIfTICE ^ 

R 23 es CCMPUTfc GIPEAL APGLES if THHISTING OCCURRED WITH PRESENT IHU 

fi239.C CflENTATlCN. WINGS LEVEL SP AC ECHAF 7 .h£ACS UP 

R23SI CCMPUTE > AXIS OF ENGINE EELL 

R2292 CCMPUTE PPEFERKEC IMl CP I EN T A 1 ION ( X SCREF ) 

P2393 FCP THIS CALCULAT lON^ASSUME X AXIS OF SC ALONG UT IMTIALLVf 

P239<i Y5C-UM T (XXR ) tZSC-UMT (XX (XXP M ANC ROTATE ENGINE BELL AICNC LT 

R2395 NEW SC AXES WILL BE APPROX. WINGS IEVEL AND NEW SC AXES IN REF. 

R239E CCCPCS. WILL BE PREFERRED IMU CPIENTATICN. ' 

R23S7 CCMPUTE CESIRED TWRUST DIRECT ICN IN SM COORDS. 

P2398 CALLING SECUENCE 

R23S9 L CALL 

R2<^00 L«1 SAC.2t3 

R2A01 NCPNAl EXIT MQCE 

H2402 AT L42 OF CALLING SEQUENCE (GOTC 1^21 

R2^03 SLePCLTlNES CALLEC 

R2^C4 CALCGA < 

R2^C 5 ALAPP CF AEOPT HQCES . 


P2A06 

R2A07 

R24O0 

EPA SAELt 

NCNE 

IMTIALI iATICN REGUIPEC 

PACTOFF TOTAL PITCH TRIP ANGLE SP 

AT 

1.0795111 REV. 





F2<i09 

R2A1C 

P2^11 


Y AC TOFF 

U1 

R1IC 

TOTAL YAW TRIP ANGLE SP 

CES IPEO TFRUST C IPECT ICN 
PQSITICN AT TIME CF IGNITION 

AT 

1.0795111 REV. 

VECT ,E2M/ (CS.CS) 

VfCT. e29M 





R2^I2 


ENC2FLAG 

CN-PCS CFF-SPS 







R2<il3 

OLTPL 1 









R2Al^ 


SCAXIS 

UNIT VECT. ALIGNEC WITH ENG BELL 

IN SC CCOR 61 






P2<»15 * XSCPEF UNIT VECTCRS ALIGNED WITH PREFERRED IMU 01 

R2<»lt VSCREF 

R 2^ 1 7 ZSCREF 

P2^ie GIMEAL ANGLES IN ThETAC 

R2<il9 PCINTVSM UNIT VEGT ALCNG CESIREC THRUST DIRECT ICN IN SP 01 


P2^20 

CEERI 

t 









H2^21 

R2422 

2^23 



PLSHL 1ST iCPRETtPPAC 
CTEMP TEPP. ERASABLE 

24,3514 



BANK 

24 


2A24 

REF 

2 

LAST 

637 

24,2C00 



SETLOC 

P 4C S 


2^25 





24,3*14 



BANK 



2^26 

REF 

1 






COUNT* 

>»/S40.2 


2427 





24,3514 

64375 

I 

S40.2,3 VLCAD 

MXV 


2426 

REF 

1C 

LAST 

666 

24,3515 

C3713 

1 


UT 


2429 

PEF 

IE 

LAST 

61C 

24,3516 

01736 

1 


REF SPPAT 


243C 





24,3517 

44172 

c 

vslI 

STO 


2431 

REF 

11 

LAST 

66 6 

24, 3520 

0365 7 

C 


QTtPP 


2432 

REF 

5 

LAST 

61C 

24,3521 

C3357 

c 

STORl 

POINTVSP 

thrust in SP AT 2 

24 33 





24,3522 

430G 1 

i 

SETPO 

BON 


2434 





24,3523 

OOOCi 

c 


D 



MAT i 





y r am. rju 



CT CLAJIB 

1 A i l-UJk 


' • U f < 



I u a 

L 

P4C- 

P47 
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E6 S3 



2435 

REE 

3 

L^5T 

64 1 

24,3524 

C07C4 

1 


ENC2FLAG 






2436 

REF 

1 



24, 3525 

51635 

C 


S40. 2,3B 











24,3526 

77745 

1 

OLOAO 







2436 

REF 

19 

L^ST 

665 

24,3527 

15332 

1 


HI62 ERLS 






243S 





24,3530 

672C6 

1 

PUSH 

SLOAC 

ZERO POL 0 





244Q 

REE 

2 

LAST 

652 

24,3531 

C3027 

1 


YACTCFF 






2441 





24,3532 

72405 

C 

OHP 

SLI 






2442 

REF 

1 



24,3533 

11674 

1 


TPIHSCAL 






2443 





24,3534 

41415 

1 

DAO 

PUSH 






2444 

REF 

1 



24, 3535 

1 1676 

c 


YBI AS 






2445 





24,3536 

65346 

c 

CUS 

POOL 

COSIY ♦yO> POL 2 





2446 





24,3537 

41556 

1 

SIN 

PUSH 

SIMV ♦Y0> POL 4 





244 7 





24,3540 

77735 

c 

SLCAD 







2446 

REF 

13 

LAST 

652 

24,3541 

03026 

c 


PACTCFF 






2449 





29,3542 

72405 

c 

OHP 

SLI 






2450 

REE 

2 

LAST 

66 6 

24,3543 

11674 

1 


TRIHSCAL 






2451 





24,3544 

41415 

1 

OAU 

PUSH 






2452 

REF 

1 



24,3545 

11700 

c 


PBIA S 






2453 





29,3546 

65346 

c 

cns 

POOL 

CCSIP ♦POJ POL 6 





2454 





24,3547 

91556 

1 

SIN 

PUSH 

SIN(P «POI POL 80 





2455 

REF 

1 



24,3550 

19323 

0 

STUDL 

ZSCREF 

S IN(P4P01 





2456 





24, 3551 

0000 7 

c 


6 






2457 





24, 3552 

72405 

c 

OHP 

SLI 






2456 





24,3553 

00005 

1 


4 






2459 





24,3554 

65216 

1 

OCOHP 

POOL 

-SINIV+YOlCCSiP^PCI POL 

10 




2460 





24,3555 

C0007 

c 


6 






2461 





24,3556 

724C5 

c 

OHP 

SLi 






2462 





24,3557 

C00Q3 

1 


2 






2463 





24,3560 

77666 

1 

VD£F 






------- — 

2464 

REF 

1 



24,3561 

14307 

c 

STOOL 

XSCP FF 

PD POINTER AT 6 NEW SC 

X AXIS SCALED 

AT 

2465 

KEF 

2 

LAST 

668 

24, 3562 

00323 

c 


ZSCREF 






2466 





24,3563 

72405 

c 

OMF 

SLI 






2467 





24,3564 

COOC5 

1 


4 






2460 





24, 3565 

41325 

c 

POOL 

OHP 






2469 

REF 

3 

LAST 

66E 

24), 3566 

00323 

c 


ZSCR EF 






2470 





24,3567 

00003 

i 


2 






2471 





24,3570 

51552 

1 

SLi 

OCOHP 






24 72 





24,3571 

77666 

1 

V06F 







2473 

REF 

4 

LAST 

06 E 

24,3572 

14323 

c 

STOOL 

ZSCREF 

PO POINTER AT 4 NEH SCZ 

AXIS 

SCALED 

AT 

2 

24 74 





24,3573 

77666 

1 

VDtF 







2475 

REF 

1 



24,3574 

143 15 

c 

STOOL 

YSCF EF 

PC PGIHTER ATC NEta SC Y 

AXIS 

SCALED 

AT 

2 

24 76 

REF 

5 

LAST 

66 6 

24,3575 

00323 

c 


ZSCREF 







2<i77 
2478 
24 7^ 
2480 


REf 

REE 


2 L4S7 66E 
2 L/ST 66C 


24.3576 

24.3577 
24,3600 


65325 C 
00315 C 
C03C7 C 


POOL 


POOL 

yscref 

X5CR EF 


24,3601 


77666 1 


WOtF 
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2^61 

REF 

15 

LAST 

61C 

24t36C2 

27351 

C 


STOVL 

SCAX IS 

ENGINE BELL SCALED AT 2 

2^82 

REF 

11 

LAST 

6 6 7 

24,3603 

03713 

53515 

1 



UT 


1A8 3 





24.3604 

C 


POVL 

UNIT 


2A8A 

REF 

1C 

LAST 

6 66 

24, 3605 

C3632 

c 



PTIG 


2^85 





24,3606 

57435 

1 


VXV 

VCOHP 


. _2466 





24,3607 

0000 1 

c 



0 


2^87 





24,3610 

414 56 

c 


UNIT 

PUSH 


2^88 





24,3611 

7 7624 

1 


CALL 



2 8 S 

REF 

_J_ 



24.3612 

516 54 

1 



TSTF XLT 


2AS0 





24,3613 

57435 

1 


VXV 

VCOPP 


2491 





24,3614 

COOOl 

c 



0 


2492 





24,3615 

63372 

1 


VSLl 

POVL 

2 RF/SC IN POL 120 

2493 

REF 

3 

LAST 

ob £ 

24,3616 

00307 

c 



XSCP EF 


2494 





24,3617 

765C5 

c 


VXH 

VSLl 


1495_ 





24.3620 

OOQCl 

c 



0 


2496 

REF 

4 

LAST 

66S 

24.3621 

24307 

c 


STOVL 

XSCR EF 

X OF PRtF IPU,X OF SC IN REF COOB, AT 2 

2497 

REF 

3 

LAST 

66E 

24,3622 

00319 

c 



YSCP EF 


2498 





24, 3623 

T65C5 

c 


VXR 

VSLl 


2499 





24, 3624 

COCCI 

c 



0 


25U0 

REF 

4 

LAST 

669 

24, 3625 

24315 

c 


STOVL 

YSCR EF 

Y OF PREF.IPUrV OF SC IN REF CCOR. AT 2 

2501 

REF 

6 

LAST 

66 C 

24,3626 

00323 

c 



ZSCF EF 


25C2 





24,3627 

76505 

c 


VXM 

VSLl 


25C3 





24,3630 

GOOCl 

c 



0 


2504 

REF 

7 

LAST 

669 

24,3631 

00323 

0 


STORE 

ZSCR EF 

Z OF PREF, 1MU,Z OF SC IN REF CCOR. AT 2 

2 505 





24, 3632 

52001 

1 


SETPD 

Gdtf 


25C6 





24,3633 

GOGGl 

0 



0 


2507 

REF 

12 

LAST 

66T 

24,3634 

C3657 

c 



QTEH F 


2508 





24,3635 

77775 

1 

S40.2,3e 

VLOAO 



2509 

REF 

6 

LAST 

585 

24,3636 

15330 

c 



UNITX 


2510 

REF 

16 

LAST 

669 

24,3637 

27351 

t 


STOVL 

SCAX IS 


2511 

REF 

12 

LAST 

66 9 

24,3640 

03713 

1 



UT 


2512 

REF 

5 

LAST 

669 

24,3641 

003C7 

c 


STORE 

XSCF EF 


2513 





24,3642 

93435 

c 


VXV 

UNI T 


2 514 

REF 

11 

LAST 

669 

24,3643 

03632 

0 



RTIC 


2515 





24,3644 

340C7 

1 


STCALL 

60 


2516 

REF 

m 

1 

LAST 

66 S 

24,3645 

51694 

1 



TSTP >LT 


2 517 

REF 

5 

LAST 

669 

24, 3646 

0031^ 

0 


STORE 

YSCR EF 


2518 





24,3647 

97435 

1 


VXV 

VCON P 


2519 

REF 

t 

LAST 

669 

24,3650 

00307 

c 



XSCP EF 


2520 





24,3651 

777T2 

c 


VSLl 



2531 

REF 

8 

LAST 

669 

24, 3652 

34323 

I 


STCALL 

ZSCREF 

2 NB Axis IN REF CCOR 

2532 

REF 

12 

LAST 

66 9 

24,3653 

03657 

c 



QTkHP 


2533 





24,3654 

46145 

c 

TSTRXLT 

OLOAO 

BHI Z 


2 534 





24,3655 

00045 

c 



360 


2535 

REF 

1 



24,3656 

5166 1 

I 



B AD me R 


2536 





24,3657 

435T5 

1 


VLGAD 

"RVS 


2537 





24,366C 

0000? 

c 



60 


2538 





24,3661 

53575 

c 

TO^VCTOft 

VLOAO 

UNIT 


2539 

REF 

12 

LAST 

669 

24,3662 

03632 

c 



RTIG 


2540 





24,3663 

93515 

c 


PtJVL 

UNI T 
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2541 

2542 
254i 

REF 

7 

LASt 

665 

24f 3664 

24.3665 

24.3666 

03640 

53322 

53435 

C 

1 

C 


VSP3 

VXV 

VTIG 

VAU 

UNI T 





2544 

REF 

13 

LAST 

66 S 

24,3667 

C3713 

1 



UT 





2545 





24,3670 

77676 

C 


VCOMP 






2546 





24.3671 

CCQC7 

C 


STORE 

60 





2547 





24,3672 

77616 

C 


RVO 






2546 





24,3673 

21215 

1 

TRI RSCAL 

2DEC 

i.07S751ll B-1 





2546 





24,3674 

12215 

1 








254S 





24,3675 

CC053 

1 

YBI AS 

2 DEC 

♦.00263888689 

YAH 

NECH 

BIAS 

(40.95 OEG, THRUST ON) 

254S 





24, 3676 

07423 

C 








2550 





24, 3677 

77636 

1 

PBIAS 

20EC 

-.00597222222 

PITCH 

RECH 

BIAS 

(-2.15 DEG, THRUST ON) 

2550 





24,3700 

44653 

1 








A2551 











REFERENCE , 

TRH 

68.6520.3.3-40 27FEB,I96e 

R2552 

PRCGR/F 

CE SCRl FT ICN 

S41.1 CATE eOEC66 








R2 5 53 

HCC 1 

^C1 

LCG 

SECTION F40-P47 










R2554 

MCC 

El 2ELCIN 












H2555 

FUFCnCNAL CE5CRIPTICN 










R2556 



CCMPOTE VELOCITY TO BE GAINEC 

initially 

IN REF 

COORCS. 





P2557 



TC CCNTBCL 

CCCROS. 










R2558 

CALL IFG 

SECULNCE 











H255S 


L 

CALL 












R2560 


l-»l 


S41. 

1 










fi256l 

NCRPAL E)(n HOCE 











P2562 



AT L 

■»2 CF 

CALLING SEGIENCE 









R2563 

SLEFCLllNES CALLEE: 











R2564 



CALCSRSC 











R2565 



CCUTR IG 











R25t6 

ALAFR CR 

AEGRT 

HGCES 











R2567 



NCNE 












R256e 

ERA SAUC 

IMT lAL 1 2AT ICN PEGOIREC 









R256S 



VC IN 

REF. 

CCORC. POL L PCINTEP AT L+5 

.S4L. I 

WILL RETURN WITH 





R25 70 



FCINTER AT 

L (L RUST 

BE LESS 

THAN CR - 

rc 140) 






R2571 

OL IPl 1 













R2572 



RFAC 

CONTAINS VG IN CCNTRCL 

CCCRCS 

VECT. fe7R/CS 





R2573 

CEER 1! 1 













R2574 


CIERP 

T ERF 

' ERASABLE 










R2575 


CPPET 












2576 

REF 

1 







COUNT 

22/S41.1 





2577 

REF 

1 



22,2000 




setloc 

P40S5 




_ _ _ . _ __ _ _ 

2576 





22,3426 




BANK 






2579 





22, 3426 

45020 

1 

S41.1 

STQ 

CALL 




, — . ^ . _ _ _ — _ 

2580 

REF 

14 

LAST 

66S 

22, 3427 

03657 

C 



OTENP 





2561 

REF 

ft 

LAST 

583 

22,3A30 

47432 

I 



CDUTUG 





2582 





22,3431 

77775 

1 


VLOAD 






2563 





22,3432 

45121 

1 



CALL 





2584 

REF 

IS 

LAST 

66 7 

22,3433 

01736 

1 



REFSRRAT 





2585 

REF 

3 

LAST 

583 

22,3434 

47577 

1 



«SHNe« 






— ixflje # 

L 



f LiX ft II.M r4^.L 

.toWAH 1.1 

1 I ■ 1 

aiUi DT ^u< 

e;.!.!.!*- vai 

I « I f 

AUu« rftnHJUn*4 •Uf« rflUC Ofi 

P^C-P^7 
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2566 



22.3^35 

74321 

1 

HXV 

vxsc 



2567 

R6F 2 

L0S1 403 

22t 3436 

05004 

< 


gUACRCT 



2566 

REf I 


22i3^3? 

05443 



TfchB^Kl4 

VG 

IN CCNTfiCL CCORO IN APAC SCALED AT 

25e<; 



22t3440 

52072 

c 

VSL5 

GCTC 

VG 

IN CONTRCL CCCRDS. IN HPAC AT 2I+7I 

2590 

REF 15 

L4ST 67C 

22.3441 

C3657 

c 


GTE HF 



2591 



22.3442 

2400C 

1 

TEN6NK14 20EC 

10. e-4 



2591 



22,3443 

coooo 

1 
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P2592 
R2593 
K2594 
F2595 
R25952 
R2596 
R2bS7 
B259e 
P2599 
R26CC 
R26C1 
P2602_ 

R2603 PETEfiS/CS AT * 7 . 

P260A CSTEEP - A SCALAR CF THE STEERING LAWf SC.AT P+i, US6C FCR 

R26g5 SPS AIMFCINT STEERING HANEUVERS 

P2fcC6 ICLEFAR- A FLAG TC INHIBIT IICLEI THE THRUST-FAIL KCUTINE 

R26C7 STEERSW - A SHITCH TC PRECLUCE NEEDLESS CONDUCT GF STEERING 

R26C8 REFSHHATt CAPCATRlt PIPTIHE 

R26C9 EREPFPACf ETCECAV, KPPIPECT FCR TVC 

R261A OLTPLT TTCGO - TIME REPAIMNG FCF ENGINE 0UPN IN CS AT +26 

R2615 CM EGA C - CP VECTOR RATE CCMMANC» SC.AT L/(2TVCCTt REVS/SEC 

K26152 VG, VGPREV, VGOISP, TGQ. TIGt SCALED AS NOTED IN CCDING 

P261S3 STEERSkt IMPULSMi NVMCROl 

R2615A REPFRACt CNTRi VCNTPt VCNTRTMP FCR TVC IRAQ INTERFACING! 

R2616 CEERIi CM£GA>Ct+l 

h2t!l7 SLEFCniNES USED - ♦SMFfiA i ALARM 


NAFE SNO.e - CROSS prgclct steeping 

FUACTICK (11 UPCATES THE VELCC I TY- lO-fiE-GA INED VECTOR. 

(21 GENERATES ANGULAR PAT E STEERING CO MM ANDS FOR AUTOPILOT. 
(31 establishes engine CUT-CFF signals at appropriate TIMES. 
(A1 INITIATES THRLST-FAU HCUTINE, RNO 

C A L L I N G SEC CALL SAC. 8 

INFLT VGFREV - LAST VALUE OF THE VELCC I T Y-TO-8E -C AI NE C VECTOR 

PRICP TC UPDATING IN METERS/CS AT +7. 

CELVREF - change IN VEHICLE VELOCITY SINCE LAST MEASuMEMENT 

^IN METEPS/CS AT 47. 

fiOT - EFFECT CF RATE CF CHANGE CF REQUIRED VELOCITY AND 

GRAVITY CURING CT UPON VELCC I TY-TO-bE- G A INED IN 


2610 

REF 

2 

LAST 

66 3 

i6»2C00 




setloc 

P40S 1 




2619 





16,2130 




BANK 





2620 

REF 

!C 

LAST 

66 1 

E6, 1466 




EBANK* 

DAPD ATRl 




2621 

REF 

1 







COUNT 

16/ S40.R 




2622 





16.2130 

440C1 

C 

S4o.e 

SETPO 

STQ 




2b23 





16,2131 

00001 

C 

SPBITI 


OOU 




262N 

REF 

U 

LAST 

67 1 

16,2132 

C3657 

c 



UTt MP 




2625 





16,2 133 

51375 

1 


VLOAO 

evsu 

CCNSTRtCT CELVC, 

SC.AT B47 M/CS 


2626 

PEF 

3 

LAST 

e.52 

16,213N 

03433 

c 



OELVREF 




2627 

REF 


LAST 

663 

16,2 135 

C37C5 

c 



POT 




2628 





16,2136 

77655 

1 


VAO 





2629 

REF 

3 

LAST 

653 

16,2 127 

C3721 

c 



VGFREV 




2630 

REF 


LAST 

12 1 

16,2140 

C3460 

c 


STORE 

VG 

VELOCITY- TO-BE- GAINED, 

SC.AT B47 M/CS 


2631 





16 ,2 lAl 

77646 

c 


ABVAL 





2632 

REF 

7 

LAST 

63 E 

16,2142 

03654 

c 


STORE 

VUU 1 SH 

FCR CISPLAY PURPOSES 



2633 





16,2 143 

77776 

1 


EXIT 





26iN 

REF 

5E 

LAST 

66 ] 

16,2144 

C 5 301 

c 


fT 

PHASCHNG 




2635 





16,2145 

10035 

c 


OCT 

1 GO! 5 

TYPE 6 RESTART 8ELCU 

AND 5.3 REFEACAC 


2636 

ref 

l<£ 

LAST 

657 

16,2 146 

0 6006 

1 


TC 

INTPPET 




2637 





16,2147 

17775 

1 


VLOAO 






uAR: 
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R 


I 




2638 

2639 
2b%C 

PEf 

REE 

4 

4 

L4ST 

L^ST 

672 

672 

16.2150 

16.2151 
16.2152 

C346G 

03721 

17214 

C 

C 


STOPf 

60FF 

VC 

VOPH EV 

VLOAC 


26A1 

REf 

2 

LIST 

66C 

16,2153 

C1344 

C 



stlersm 

SKIP TGC INC CRCSS-PRODUCT 

26N2 

REF 

17 

LIST 

672 

16,2154 

03657 

c 



QTE MP 


JL6N3 

FEt 

A 

- M. - 

LIST . 

672 

16,2155 

C3433 

c 



DFLVREF 


269^ 





16,2156 

41446 

1 


ABVAL 

PUSH 

CHECK FOR LCTHRUST 

2645 





16,2157 

41333 

1 


SLOAD 

OMP 


26^51 

.Ri_F_ 

_L 



16 1 2 1 6 0 

01354 

1 



DV1HRESH 

SC. AT 8-2 M/CS 

26454 

REF 

1 



16,2161 

36011 

1 



DPEi“9 


26456 





16,2162 

17621 

1 


BOSU 



2646 





16,2163 

7 744 0 

1 


BMN 

EXIT 


2647 

REF 

1 



16,2164 

40C21 

c 



lothplst 


2 64 8 

REF 

51 

LIST 

672 

16,2165 

3 1*466 

1 


CAE 

DAPOITPl 

enable TVCCAP CG TRACKING 

2649_ 

«i± 

iS 

LIST 

-582 

16.2166 

7 4675 

c 


MASK 

B1T14 


265C 

REF 

153 

LIST 

659 

16,2167 

1C 000 

c 


CCS 

A 


2651 

REF 

46 

LIST 

66 1 

16,2170 

3 4712 

1 


CAF 

BITI 


.26 5 2 

REF 


LIST 

673 

16,2171 

5C OCO 

1 


INDEX 

A 

LM-OFF, LM-CN VALUE 

2653 

REF 

1 



16,2172 

31*423 

c 


CAE 

EREPFPAC 


2654 

REF 

2 

LIST 

102 

16,2173 

55*652 

c 


TS 

REPFRIC 


2o55 

REF 

146 

LIST 

672 

1 6 , 2 1 74 

C 6006 

1 


TC 

1 NTPPET 


2656 





16,2175 

51375 

1 

TGCLALC 

VLOAO 

bVSli 

GET CELVG 

2657 

FiF 



LIST 

672 

16,2176 

03433 

c 



OELVREF 


2658 

REF 

5 

LIST 

672 

16,2177 

C37C5 

c 



eoT 


2659 





16,2200 

77656 

1 


UNIT 



2660 





16,2201 

41441 

c 


COT 

PUSH 

(000) 

26tl 

REF 

5 

LIST 

673 

16,2202 

C3460 

c 



VG 


2662 





16,2203 

56244 

c 


BPL 

DDV 

ANGLE SHOULC EE GREATER THAN PI/2 

2663 

REF 

1 



16,2204 

40013 

1 



1 NCRSVC 

blSPLAV ALARM IF NOT 

2664 

REF 

1 



16,2205 

360C5 

1 



2 VEXHLST 


2665 





16,2206 

41215 

1 


DAO 

DMP 

(OCT PROOLCT UP FROM 000) 

2666 

REF 

1 



16, 2207 

11451 

1 



LOOPPALF 


2667 





16, 2210 

70 501 

1 


NORM 

SRI 


2666 

REF 

29 

LIST 

652 

16,2211 

00047 

1 



Xi 


2669 





16,2212 

6C325 

c 


PDDL 

NORM 


2670 





16, 2213 

00045 

c 



360 

(MAC OELVG) 

2671 

REF 

11 

LIST 

591 

16,2214 

CC05C 

1 



X2 


2672 





16,2215 

17665 

1 


aoov 



2673 





16, 2216 

93664 

c 


XSU,2 

St* 


2674 

REF 

ac 

LIST 

672 

16,2217 

CCC46 

c 



XI 


2675 





16,2220 

576C7 

1 



0 -9C,2 


26 76 





16, 2221 

414C5 

c 


OMP 

PUSH 

(000) 

2677 

REF 

1 



16,2222 

36003 

1 



-FCURCT 


2676 


- T~g^ 



16,2223 

54335 

< 


SLOAD 

SK 

■■ 

2679 

REF 

1 



16,2224 

03016 

c 



ETDECAV 

” eTfiECI'v 5 C.it 04T4X5 

26E0 





16,2225 

20617 

c 



140 

- 

2681 





16,2226 

45421 

1 


BOSU 

STAOR 


2662 

REF 

15 

LIST 

662 

16,2227 

7434 7 

1 


STORE 

TGO 

“ tlME TC GC IFT CS. AT 

2663 





16,2230 

17615 

c 


OaO 


— 


H 


P 
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2664 

REP 

7 

LIST 

653 

16,2231 

C1205 

1 



PlPl IRE 




2685 

REF 

64 

LIST 

664 

16, 2232 

17413 

1 


STOOL 

TK 




2686 

REF 

16 

J.1S1_ 

673 

16.2233 

03430 

C 



TOO 




2667 





16,2234 

50025 

C 


OSU 

BMN 




^666 

REF 

1 



16,2235 

360C7 

c 



FOUR SEC 




26fiS 

RIF 

1 



16.2236 

4C0CC 

c 



S4C.81 

















26S0 





16,2237 

74375 

c 

XPRCCtCT 

VLOAQ 

VX5C 




26S1 

R£f 

6 

LIST 

673 

16 • 2 240 

C37C5 

< 



BOT 




26S2 

REF 

6 

CAST 

666 

16, 2241 

C37C3 

c 



CSTEER 




26S2 





16,2242 

52352 

1 


VSL2 

VSU 




2694 

RIF 

6 

LIST 

673 

16.2243 

03433 

c 



DEL VPEF 




2665 





16.2244 

63256 

c 


UNIT 

PDVL 




2696 

REF 

6 

LAST 

672 

16,2245 

C3460 

c 



VG 




2667 





16.2246 

47256 

c 


UNIT 

VXV 




2668 





16.2247 

45121 

1 


MXV 

CALL 




2666 

REF 

2C 

LIST 

67C 

16,2250 

01736 

1 



REF SPRAT 

(REFSRRAT/2 1 



2700 

REF 

4 

LAST 

67C 

16.2251 

47577 

\ 



♦SMNP* 




2701 





16,2252 

77761 

1 


VXSC 





2702 

REF 

2 

LIST 

102 

16,2253 

03245 

1 



KPR I REOT 

(KPRIREOT SCIAT 

PI/8 RAO) 


J703„ 

REF 

5 

LAST 

LOG 

16.2254 

C3126 

1 

Gf*EGACLC 

STORE 

ONEGAC 




ZIC^ 





16.2255 

7765C 

1 


GOTO 





2705 

REF 

18 

LAST 

672 

16,2256 

C3657 

c 



OTERP 


















2706 

REF 

1 



17,2000 




SETLOC 

DAPS 7 




2707 





17.2COO 




BANK 





2708 

REF 

JL 







COUNT 

17/S4C.e 


















2706 





17,2CC0 

coooo 

1 

ThQCT 

20 EC 

200. C 8-23 

2 SEC 



2706 





17.2C01 

C0310 

c 







2710 





17,2CC2 

77715 

1 

-FOUPCT 

20EC 

-800 8-13 

-4(200CS>, SC. AT £»*18CS (-4 FOR SCALING) 


2710 





17,2003 

77777 

c 







2711 





17.2C04 

176C2 

c 

2Vfc XHUST 

20EC 

63.020792 8-7 

2110338.0564 FPS). SC. AT 0+7 R/CS 


2711 





17,2005 

25124 

1 







2712 





17,2CC6 

coocc 

1 

FCUflSEC 

20EC 

400. C 6-2 9 

4 SEC 



2712 





17,2CC7 

CC62C 

G 







2713 





17,2010 

00040 

c 

OPB-9 

20EC 

1 e-s 




2713 





17,2011 

oooou 

1 







2714 

REF 

1 



2 0,2 COG 




Setloc 

DAPS6 




2715 





2C, 20CO 




BANK 





2716 

REF 

1 







COUNT 

20/540.8 















TOC LESS than 4 

SECONDS 


2717 





2C,2G00 

772 14 

c 

540.81 

SET 

vloac 


2718 

REF 

3 

LIST 

65 4 

2C,2001 

01066 

c 



I NPULSN 

FOR ENGINE-OFF 

CALL 


2716 

REF 

2C 

LIST 

66 E 

2C,2C02 

15332 

1 

rateZro 


Hit ZEROS 

TVC Tr ATTITUC6 

NOLO 


2720 

REF 

6 

LAST 

674 

20,2003 

03126 

1 

STORE 

CHEGAC 


2721 





20,2004 

77776 

1 


EXIT 





2722 

Rrp^ 

15 

LAST 

64 S 

20,2005 

3 4672 

c 


CAF 

POSR AX 

INHlBn SK ITCHOVER/TVC 86 TRACKING 


2723 

REF 

3 

LIST 

66 1 

20,2006 

55*447 

c 


TS 

Cntp 





GAP 
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272A 

BEF 

147 

LAST 

67 2 

2Ct2CJC7 

_C 60C6 

J 


TC 

INTPPET 


2725 






. . ilQJ.4 

C 


CLEAR 

GOTC 


2126 ^ 

REP 





. C126A 

C 



STEEPS^ 

RESTARTS CK 

2727 

BEf 

19 

LAST 

674 

.2(U1QA2 

_e3657 

C 



OTEMP 


2726 





2Qi 2013 

77776 

J_ 

INCRSVG 

tX IT 


ALARP INCICATING THAT THRUST IS POINTING 

2729 

JiM_ 

26 

LAST 

S.4S - 


0 3537 

c 


TC 

ALARP 

IN WRONG CIPECTICN. 

2730 





20(2015 

01407 

c 


CC T 

014 0 7 


2731 

BEF 

146 

LAST 

675 

20,2016 

0 6006 

1 


TC 

INTPPET 


2732 





20t2017 

7765C 

1 


GOTO 



2733 

BEF 

2C 

LAST 

675 

20, 2C2C 

0363? 

c 



GTE PP 



273A 





20.2021 

77214 

je_ 

LCTHHUST faON 

VLOAC 

THRUST FAILURE (LC-CR-NOI INDICATED 

2735 

REF 

3 

LAST 

66 1 

20,2022 

00711 

c 


IDLE FAIL 

SET BY V97P. ALLOWS 1 BYPASS IN CASE OF 

2736 

REF 

i 1 

LAST 

675 

20,2023 

0365? 

c 


OTEPP 

LKFAVGPABLE S40.8 SYNCH 

Xli2_ 

Eli_ 

21 

LAST 

674 

20.2024 

15332 

_L_ 


hl62ERLS 

START OF ENGINE-FAIL ( R40 » OPERATIONS 

2730 

REF 

7 

LAST 

674 

20.2C25 

03 126 

1 

STORE 

ONEGAC 

PLT TVC IN ATTITUDE HOLD 

2739 





20.2026 

77776 

1 

EXIT 














2740 

REF 

132 

LAST 

66 C 

20,2027 

4 4714 

c 

CS 

ZERO 


2 741 

REF 

3 

LAST 

66C 

20,2030 

55*653 

1 

TS 

VCNTP 

KILL CSMMASS UPDATING 

„274l2_ 

REI 

2_ 

LAST 

102 

20.2C31 

53*663 

1 

TS 

VCNTPTPP 

(TVCEXEC LOCK PEQUIRES THIS TOOI 

2743 

REF 

2 

LAST 

672 

20, 2C32 

55*652 

c 

IS 

REPFPAC 

KILL TVCDAP CC TR IH TRACKING 

2 744 

REF 

19 

LAST 

66 2 

20,2033 

55* 14 5 

1 

TS 

NVWaPDl 

SET UP ENGINE-FAIL V97FLASH (CLOCKJGB} 












2 745 

REF 

H9 

L AS T 

67 5 

20,2034 

C 6006 

1 

TC 

INTPPET 


2 746 





20, 2035 

52014 

c 

CLEAR 

GOTC 

INHIBIT STEERING AND TGO CALC (MANUAL 

21^1 

REF 

4 

LAST 

675 

20,2036 

C1264 

c 


STEfcPSW 

SHUTCCWN IF NOT SET UP AGAINI 

2 74 8 

REF 

22 

LAST 

675 

20,2037 

03657 

c 


UTEP P 

RESTARTS OK 


lap : ^SSiABl£ 
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B 


V 




P^C-P47 
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P27A9 
R2750 
fi275X 
P2752 
R2753 
P27iA 
R2755 
P2756 
R2757 
P275e 
R2759 
R276Q 
P27tl 
R2762 
R 2 7 fc 3_ 
R276A 
R2765 
R2 ?6t 
R2767 
R276e 
P27t9 
R277a 
R2771 
R2772 
R2773 
B277A 
«2 775 


N4P E 

FIPC 1 ICh 


SAC*9 - VTCGAIN (AlHPOIM P4NEUVEPS ONLYJ 

(U GERER4TES REQUIPEO VELOCITY 4AC VELOC I T Y-TC- E 6-GA I NE 0 

USE OLPIKG AiPPCiNT H/INEUVERS 


<2» UFCAtES TPP B VECTCP WHICH IS USEC IN THE FINAL 
CALCUUTICN OF EXTR APOLAT ING THE VtLOCI TY-TC-eP-GAlNEC 

vix^iNCVAC as new job, 

INF L 1 


B 


PN IT 
VNIT 
VRPREV 


NCHT 1 C 

GiLkl^ 

IN IT 
GCT/2 


- ACTIVE VEHICLE RACIUS VECTOR IN NETERS AT +29. 

* ACTIVE VEHICLE VELOCITY VECTOR IN HETEPS/C5 AT +7 

- LAST CCRPUTED VELOCnY REQUIRED VECTCP IN 

RETERS/CS AT 47. 

- TINE CP IGN, LSEC IN TARGETTING ROUT INESl42t*'« 

- transfer tire FPCR PIPTIME TC TARGET»428” 




- TIRE CF RMT 4NC VMT IN CS AT *2b 

HALF CF VELCCITY GAINEC IN DELTA T TIRE OLE TC 

ACCERERATICN CF GRAVITY IN METERS/CS AT +7. 




CELVREF 


IN 


NCRRSW 


- CHANGE IN VELCCITY DURING LAST 2 SFC 
METERS/CS AT +7. 

SET-CENTRAL ANGLE BETWEEN RTARC AND RTIO IS BETUEEN 



CLIP! 1 


165 TO 195 DEGREES 

RESET-CENTRAL ANGLE CLTSICE CCNE DESCPIfaED ABOVE 
VGTEMP - VELCCITY TC BE GAINEC VECTOR IN METEPS/CS AT +7. 







COGA 


GOeL/2 


- INPUl CF initial GLESS FCR LAMBERT FRCN SAC.l 0 
OR PPEVICUS PASS THRU S-^0.9 

-OELATENESS TERM IN AVG GRAV CALC-GC b L^F SQ/RU 





i 


r<* 


/■ 




VRPKEV 
B D T 

SLEFClllNES USED - 


- VELCCITY REGUIREC VECFCR IN RETEFS/Cb AT ♦?. 

- 8 VECTCR IN RETEPS/CS AT 47. 

IMT VEL 


I 


2776 

2777 

REF 

3 

LAST 

672 

16*2000 

16,2257 



SETLOC 

BANK 

P 4 1 S 1 

2778 

REF 

7 

LAST 

65 A 

£6,1746 



FB ANK « 

NBRCYCLS 

zn^ 

REF 

1 






COUNT 

16/S4C.9 

278C 

REP 

I!C 

LAST 

67! 

16,2257 

C 6006 

1 

S40-9 TC 

INTPPET 

2761 





16,2260 

712C1 

1 

SFTPD 

OLOAC 

2782 





16,2261 

CCCC 1 

C 


OOD 

2 783 

REF 

2 

LAST 

663 

16*2262 

11453 

c 


L06ZEPCS 

2 7 84 





16,2263 

77725 

1 

PDOt 


^ /85 

REF 

1 



16,2264 

344C1 

c 


EP4( 45 K 

2786 





16,2265 

71214 

0 

BON 

OLCIAC 

t 787 

REF 


LAST 

66 5 

16,2266 

037C5 

c 


NCRR Sw 

.788 





16,2267 

34271 

1 


42 

2789 

REF 

1 



16,227C 

3A4C3 

1 


EP4^ ICR 

Zl9b 





16,2271 

77606 

1 

PUSH 


2793 





16,2272 

45014 

c 

CLEAR 

CALL 

2 7 94 

REF 

2 

LAST 

4 7 S 

16,2273 

0U6?5 

c 


GUESSW 

2795 

REF 

1 



16, 2274 

22CC2 

0 


HAVE6UES 

-^79 51 





16,2275 

77776 

1 

Ex IT 


Zl^tl 

REF 

•s 

LAST 

672 

16,2276 

0 53CI 

t 

rz — “ 

PHASCFNG 

27953 





16,2277 

05021 

1 

OCT 

05021 


♦ 


B 


SAVE TIHF“ffY 
Cf PRIORITY NEXT* JOB PHLCW 




N 


UAP ; iSSE>gL£ fi£VlSm>L2J7 CF PRCGRAM 


NASA 202111 1-C31 


1:1? AUG» 2A«iqfce PANCQPf .072 PAGE 677 


I? 


P 




P^C-P4? 


USER’S PAGE NO. Al 


E& S3 



2795A 





16,2300 

ICGCO 

C 


CCT 

1 0000 



2 7955 

PIF 

IS 1 

LAST 

bit 

16,2301 

0 60C6 

1 


TC 

INTPFET 



2796 _ 





16.2302 

77614 


ENOLAHB 

BON 




2797 

REf 

3 

LAST 

663 

16,2303 

C1310 

1 



F IRSTFLC 



2798 

REF 

1 



16,2309 

34322 

C 



FIRSTTNE 



2799 





16.2305 

52375 

1 


VLCAD 

VSU 



2800 

REF 

15 

LAST 

666 

16,2206 

C3612 

1 



VIRR TRF 



2801 

REF 

A 

t 

LAST 

119 

16,2207 

C3466 

c 



VRPREV 



2J02. _ 





16,23 IQ 

95325 

1 


POOL 

DSU 



2603 

REF 


LAST 

65 3 

16,2211 

C34 79 

c 



TNI T 



28CA 

REF 

2 

LAST 

119 

16,2312 

03476 

1 



TM T PREV 



28C5 





16.2213 

55261 

_J_ 


SL 

6CDV 



2806 





16,2314 

2C222 

1 



1 7C 



2807 

REF 

1 



16,2215 

34375 

1 



200C Shi 



2808 . . 





16,2316 

7776 1 

1 


VXSC 




2809 





16,2317 

76451 

c 


VSU 

VSLl 



281C 

REF 

m 

d 

LAST 

76 

16,2320 

C12C7 

c 



GDT/2 



2811 

REF 

7 

LAST 

674 

16,2321 

C37C5 

c 


STORE 

BOT 



2812 





16,2322 

575 35 

c 

F IRSTTRE 

SLOAD 

OCOHP 



2813 

REF 

1 2 

LAST 

665 

16,2323 

C3747 

c 



RTX2 



28131 





16,2329 

77690 

c 


BHN 




281A 

REF 

1 



16,2325 

39392 

c 



MOGNCASE 



2815 





16,2326 

53575 

c 


VLOAD 

UNIT 



2816 

REF 

10 

LAST 

652 

16,2227 

G1171 

1 



RN 



28 1 7 





16,2330 

95395 

1 


OLOAO 

DSU 



2818 

REF 

e 

LAST 

679 

16,2331 

C12C5 

1 



PIPT IRE 



2819 

REF 

3 

LAST 

63 7 

16,2232 

C3450 

c 



Nth r IG 



262C 





16,2233 

S62C5 

c 


OHP 

DOV 



2821 

REF 

1 



16,2339 

34377 

c 



EAF ThRU 



2822 





16,2335 

C004J 

c 



340 



2823 





16,2236 

S3361 

c 


VXSC 

VAC 



282A 

REF 

2 

LAST 

76 

16,2237 

C12 IS 

c 



G0&L/2 



2825 

REF 

2 

LAST 

652 

16,2290 

03696 

c 



VOTE RP 

NOTE NO TEST IS RACE TO SUBTRACT 

GOBL 

2620 

REF 

3 

LAST 

67 7 

16,2341 

036A 6 

c 


STORE 

VCTERP 

INSIDE 165-195 CEGPEE CONe ARE A. 


2827 





16,2392 

77776 

1 

ROONCASE 

EXIT 




2826 

REF 

ec 

LAST 

676 

16,2293 

0 5301 

c 


TO 

PHASCHNG 



2829 





16,2394 

09C21 

c 


OCT 

0402 1 

Cl jCb bElch 


2630 

R t F _ 

1S2 

LAST 

677 

16,2345 

0 o006 

1 

C0PY90.9 

TC 

I NTPRET 



2 831 





16,2396 

77795 

1 


OLOAO 




2632 

REF 

4 

LAST 

677 

16,2397 

C34 79 

c 



TNIT 



2833 

REF 

3 

LAST 

67 7 

16,2250 

2 74 76 

1 


STOVL 

TNI TFREV 



2634 

REF 

18 

LAST 

677 

16,2251 

~Ql6l2 

1 



VIPR IRE 



2835 

REF 

3 

LAST 

677 

16,2352 

C3466 

c 


STORE 

VRPR, EV 



2836 





16,2353 

77414 

c 


clear 

EXIT 



2837 

REF 

4 

LAST 

677 

16,2354 

C1270 

c 



FIRSTFLG 



2838 

REF 

81 

LAST 

65 9 

16,2355 

4 4712 

£ 

-2 

cs 

ONE 

PE0040.9 (RESTART) ENTRY TO END 

S40.9 

2839 

REF 

8 

LAST 

676 

16,2 3~56 

55' 796 

1 


TS 

NBRCYCLS 



2 840 

REF 

El 

LAST 

677 

16,2357 

C 5301 

c 

ENUS90.9 


PHASChNC 



2891 





16,236C 

COQCl 

c 


OCT 

0000 1 




I 


4 

I 


R 


I 


I 


P 


GAP 1 ilSSt»ELi REVISICN 217 CF AGC 


BY NASA 2Q2U11-C31 


1:1? ALG. 2Atl9ta P^NOOR4 .07^ PAGE 678 


PAG-P^l 


USeK*S PAGE NO. A2 


66 S3 


2642 


REF ee LAS1 661 16f2361 1 SIU 1 


TCP 


ENOLF jCe 


16411 



[ACT 

677 

16,2362 

C 6006 

1 

ftEDC40.9 IC 

INTPPET 

S40.9 RESTARTS CORE HERE TO GRACEFULLY 

28422 





16,2363 

77775 

1 

VLOAD 


TERMINATE S40.9 SO THAT IT CAN BE 

28423 

REF 

Q 

(.AST 

61 1 

16,2364 

11453 

C 


LC6Z ERCS 

SET UP HITF LATEST R,V,T NEXT PASS 

28424 

REF 

6 

LAST 

653 

16.2365 

17351 

C 

STCDL 

DELVSLiM 

(TYPE C PHASE POINTS •04021* WILL 

28425 

REF 

4 

L/ST 

678 

16,2366 

11453 

c 


LC6ZERCS 

FCRCE NCPRAL S40.9 T ERR I NAT ICNS , 

2 642 6 

REF 

9 

LAST 

677 

16,2367 

27347 

1 

STOVL 

NBPCYCLS 

RATHER THAN LOSE TIME OF BRAND MEM 

284262 

REF 

€ 

LAST 

673 

16.2370 

03721 

c 


VGPREV 

PASS -- QUICK OLD DATA BETTER THAN 

284264 

REF 

4 

LAST 

677 

16,2371 

C3646 

c 

STORE 

VOTE 8P 

NONE) NOW CAN GO THRL SETUP. 9 

28427 





16,2372 

77 770 

1 

EXIT 


WITHOUT CISTURBING VGPREV 

2642E 

REF 

1 



16,2373 

1 2355 

i 

TCF 

EN0S4C.9 -2 

STORE OfO CCVEREO N8RCYCLS,P — FIX UP S 


2643 
2641 

2644 
2844 
2 84_5 
2 845 
2 646 
2846 


16.2374 C1440 C 200CS HI 206L 200 B-12 

16.2 275 COOOO 1 

16.2376 55i40 C EAR7HKU 20EC* -3.986032 610 B-36< 

16.2377 61710 C 

16.2400 C40C0 C EP4145)1 2DEC .125 

16.2401 COOOO 1 

16.2402 CC7C7 1 EP41101L 20EC .027777777 

16.2403 03434 1 



.OAPJ 


RPVlSlCh 237 CP AGC PRCGRAM CQLCSSUS QY NASA 2021111-031 


1:17 &UQ^ 24,1968 PANOOPA .072 PAGE 679 


L P4C-P47 


USER'S PAGE NO. 43 P6 S3 


82857 

R2858 


R2e59 

82660 

P28A1 

82662 

R2E63 

82864 


R2865 

2866 

28t7 


P2e47 

NAME 

S4C.13 - TIMEBUPN 




K2646 

FLFCT ICN 

(11 DETERMINE nHEIHER A GIVEN CCMflINATICN CF VELCCITY-TC- 




BE-GAINEC ANC ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT 



82850 


TC ALIGN STEERING AT TFE VEHICLE CURING THE fcUFN, ANC 




K2851 


(21 TFE MAGNITUDE CF RESULTING BURN TIME - IF IT IS SHORT - 






ANC THE ASSaciATEC TIME CF THE ENGINE-QFF SIGNAL. 




R2853 

calling 

UG VIA FINOVAC AS NEW JLB. 




P2854 

INFL T 

VGTIG - VELOCITY TC BE GAINEC VECTCR (METERS/C.S . ) AT +7 




B2155 


WEIGHT/G - MASS CF VEHICLE IN HGM AT TIG 




R2856 


F - ENGINE thrust IN M.NEVTCNS AT +7 





RCCT 


BATE CF CECREASE CF VEHICLE HASS DURING ENGINE BURN 
IN KILCCRAHS/CENT ISECCNO AT +3. THIS SCAL ING MAY 


CL TPL 1 


PECUIRE MCCIFICATICN FCR SATURN BURNS, 
IMPULSE - ZEBC FCP STEERING 

- ONE FCP ATTITUCE HOLD 


TGC - TIME TC BURN IN CENTISECUNCS AT +14 
UE CLAMITY M.N£^*TCN SHALL GE USED TC EXPRESS WEIGHT IN TERMS OF 
( K UCGPAN^METER J/ (CENT I S ECCNCVCEM I S ECCNO I 


(1) H.NEVTDN » (IGQCO) NEWTCNS 
REF 
REF 


n 


LAST 674 E7,1427 


6BANK= TOO 
COUNT l6/4C.n 


2866 

REF 

1!4 

LAST 

ti 7 fi 

16,2404 

C 60 C 6 

1 

540.13 

TC 

INTPRET 



2869 





16, 2405 

43001 

1 


SETPD 

SET 



2870 





16,2406 

COOOl 

C 



oou 



2871 

REF 

4 

LAST 

6 74 

16,2407 

0 1 066 

C 



I MPULSH 

assume no steering UNTIL FOUND OTHERWISE 

2872 





16,2410 

51575 

1 


VLUAO 

ABVA L 



2873 

REF 

12 

LAST 

66 6 

16,2411 

03721 

c 



VGT I C 

VELCCITY TC BE CAINEO AT +7 


2874 





16,2412 

77776 

1 


EXIT 




2675 

REF 

^ c 

LAST 

65 ] 

16,2413 

3 4704 

c 


CAF 

BIT? 

TEST +X TRANSLATICN 


2876 





16, 2414 

0 0006 

1 


EXTEND 




2877 

REF 

4 

LAST 

58 1 

16,2415 

06 C31 

c 


RXQR 

CHANS 1 



2678 

REF 

36 

LAST 

67S 

16 f 2 4 1 6 

7 4704 

1 


MASK 

BIT7 



2E7S 





16,2417 

C Q0C6 

1 


EXTEND 




2880 

REF 

1 



16,2420 

1 2502 

c 


8ZF 

NUT ACCLL 



2881 

REF 

155 

LAST 

679 

16,2421 

0 60C6 

1 


tc 

1 NTPRET 



2382 





16,2422 

56325 

c 


POOL 

DDV 

000 = MAG CF VGTIG AT +7 


2883 

REF 

1 



16,2423 

36027 

1 



S40. 135 

CCMPENSaTIGN for 2 JET ULLAGE AT 

+ 24 

2684 

REF 

4 

LAST 

666 

16,2424 

Q3C76 

c 



WEIGFT/G 

MASS IN KGMS at +16 


2685 





16,2425 

72414 

c 


“BON 

SLl 

DCUBL^ CORRECTlCN IF FOUR JXT3 


2886 

REF 

2 

LAST 

64 1 

16,2426 

C07C0 

c 



NJETSFLC 



2687 

REF 

1 



16,2427 

34430 

1 



S40. 130 



2688 





U,243C 

77621 

1 

S40. 130 

BOSU 




2889 





16, 2431 

56325 

c 


POOL 

DC V 

OJD * mag CF VGTIG CORRECTED FOR 

ULLAGE 

2890 

REF 

1 



lo,2432 

36013 

c 



KIVA L 

M.NETwCN-CS at +24 


2891 

REF 

c; 

LAST 

679 

16,2433 

C3C76 

c 



WEIGFT/G 



2892 





16,2434 

50021 

1 


“WSU 

BHN 



2693 





16,2435 

CCGCl 

c 



OOD 



2 894 

REF 

1 



16,2436 

34461 

( 



S40. 131 

TgC less Than 1CCT3 


2895 





16,2437 

41325 

c 


POOL 

□ HP 

02D = TEMPI AT +7 


• 

— “ r™ 













(LOB 


ASS EMBLE REVISION 237 


CF AGC PMCGRAM 



NASA 2021111-031 


l:n ALG. 24.1968 PANgOPA .072 PAGE 6B0 


L USER'S PAGE NC. AA E7 53 


2896 

BEF 

1 



16, 2 AAO 

36031 

C 



MOOT LC 

MCQT, SC. AT B+3 KG/CS 

2900 

REF 

1 



16t2AAl 

36023 

C 



3. 5 SEC 

350 CS AT ♦lA 






16,2AA2 

65221 

C 


BOSU 

POOL 


2902 

REF 

6 

LAST 

o 7 5 

16,2AA3^ 

C3076 

C 



WEIGI-T/G 


2903 

REF 

5 

LAST 

666 

16 , 2 AAA 

C3727 

C 



F 

F AT +7 

290A 





16,2AA5 

60AC5 

C 


OMR 

SR2 


2905 

REF 

1 



16, 2AA6 

36025 

c 



5SECCND 

500 CS AT ♦lA 

2906 





16,2A^7 

81A71 

c 


COV 

PUSH 

OAC = TEMP2 

2907 





16.2A50 

51021 

c 


BOSU 

BPL 


2908 





16,2851 

CC0C3 

1 



020 


2909 

REF 

1 



16,2A52 

3AA75 

c 



SAO. 133 

TOO GREATER THAN 600 CS 

2910 





16,2853 

553A5 

c 


CLOAO 

QOOV 


2911 





16,2858 

83205 

1 


OMP 

DAD 


2912 

REF 

2 

LAST 

68C 

16,2855 

36025 

c 



5SECCNC 

500 CS AT ♦lA 

2913 

REF 

L_ 



16,2856 

3602 1 

1 



1SEC20 

100 CS AT 4lA 

291A 





16,2857 

7765C 

1 


GOTO 



2915 

REF 

1 



16,2860 

34466 

1 



SAO. 132 

• 

2916 





16,2861 

813A5 

c 

SAO. 13L 

QUOAD 

DHP 

TGO LESS THAN ICO CS 

2917 

REF 

7 

LAST 

6dC 

16,2862 

C3076 

c 



NEIGHT/G 


2918 





16,2863 

562 15 

1 


OAO 

DDV 


2919 

REF 

1 



16,2A6A 

360 15 

c 



K2VA L 

H.NENTCN-CS AT 42A 

2920 

REF 

1 



16,2865 

36017 

1 



K3VAL 

M.NERTCNS AT +10 

2921 





16,2866 

77776 

1 

SA0.1i2 

EXIT 



2922 

REF 

Ifi 

LAST 

679 

E7, IA27 




EBANK::^ 

TOO 


2923 

REF 

7 

LAST 

3A5 

16,2867 

0 7226 

c 


TO 

TPACPEE 


292A 

REF 

211 

LAST 

65A 

16,2870 

3 C15A 

i 


CA 

MPAC 


2925 

REF 

6? 

LAST 

65A 

16,2871 

56 OCl 

c 


XCH 

L 


2926 

REF 

13A 

LAST 

67 5 

16,2872 

3 A71A 

i 


CA 

ZERO 

' 

2927 

REF 

19 

LAST 

66C 

16,2873 

53*A3C 

c 


CXCh 

T (jCj 

TGC IN CS AT ♦ZE 

2926 

REf 

1 



16,2878 

C 2A77 

i 


TC 

SAO. 13A 


2929 





16,2875 

77AIA 

c 

SAO. 133 

CLEAR 

EXIT 

-ILL STEER vehicle 

2930 

REF 

c; 

LAST 

679 

16,2876 

01266 

1 



1 MPULSW 


2931 

REF 

62 

LAST 

677 

16,2877 

0 53CI 

c 

SAO. 13A 

TC 

PHASCHNG 

KILL GROUP 3 

2932 





16,2500 

00003 

1 


OCT 

3 














2933 

REF 

6 9 

LAST 

676 

16,2501 

1 5112 

1 


TCF 

ENODF JCe 



293A REf lit LAST 675 16,2502 C 6006 1 NCTACCUL TC INTPPET 

2935 16,2503 77650 I GOTO 

2936 REF 2 LAST 67S 16, 250A 3AA31 C SAC. lit *\ OC NCT CCNPfcNSATE FOR 7 SEC CF ULLAGE 

2937 REF 2 LAST bfA 17,2000 ScTtUC CAPSl 

2 93 8 1 7, 2 C 12 BANK " 


29 39 R EF 1 COUNT I7/AC.13 


29AC 

29A0 

29A1 

29A1 


17.2012 CCOOi C KiVAL ?OEC 88A. 52687 3-23 19885 L8-SEC, SC. AT 8<>23 ^EWT CN-S EC/E *2 

17.2013 27221 C 

17,2C1A COOOQ 1 K2VAL HjEC 293. 137805 6-23 659C LB-SEC, ErTFT B*23 NE».T CN-S tC/ fc ♦ Z 

17,2015 222AA C 


CAJ>i ASS£>e LE RtVlSICh 23? Cf ACC JRCGi^AH CQLLSSUS fcY NASA 2021111- C31 lU? AIG, 2^,1966 PANDCPA .072 P4GE 661 


L F4C-P41 USER'S PAGE NC. A5 fc7 S3 f 


2S^2 

17.2016 

C0570 

C 

K3VAL 

2UEC 

11.7 166666 

e-9 

2647! LBS, SC.Al 8+9 NEmCNS/E^4 


29A2 

29^3 

17,2017 

17.2C2C 

33235 

CC144 

C 

_c. 

ii£ C2C 

20EC 

100, C e-l4 


100. 0 CS AT «14 


29A3 

17,2021 

COOOQ 

1 







29AA 

17,2C22 

C1274 

1 

3. 5SEC 

2DEC 

350. t P-13 


350,0 CS AT *13 


29^A 

17,2023 

COOCC 

1 







2SA5 

17,2024 

0076 4 

1 

5SECONO 

2DEC 

500. C e-l4 


500 CS AT 414 


29A5 

17,2025 

COOCO 

1 







2946 

17,2026 

COOOU 

1 

S40. 135 

2UEC 

69. 6005163 

0-23 

IMPULSE PROP 7.96 SECS OP 2-JET FIRING 


2946 

17,2027 

04263 

1 







A2946C2 








7.96( l99.6»C0Sa0 ) LB-SEC, SC. AT 


A2946C3 








0423 6EV(TCA-SEC/E42 (7 SEC ULLAGE 


A2946C4 








TC GO, PLUS 0.96 SEC F«OH PIPTIPE) 


29462 

17,2C3C 

C1120 

c 

HCCTLO 

20EC 

.269391932 

6-3 

63.8 L8/S£C, SC .AT B43 KG/CS (-PDOTHIJ 


.25^62 

17,2031 

25456 

1 








I 



GAP; ASS EI»eL E REVISlQh 23? Uf AGC PKCGBAW CQLCSSGS QY NASA 202UI1-C31 1:17 AUG, 2A,W68 PANDORA .072 P*GE 662 

L P^C-P47 GSLH'S PAGfc NO, A6 E7 S3 


P29A7 N^I'E 5^0.6 GlPBAL OP IV6 TEST ANO/CP CIPBAL TRIP 

R29Ae HCC NC 5 OATt 9 PAHChf 1967 

P2949 H CC fi\ £Mi:L . - LQG S EC T ION . PAQ-P47 

R2950 FlPCllCNAL 0ESCRIP71CN 

f<2951 CIPEAl DRIVE T E S T . . . ,0 t + 2 f -2 f C DEGREE ENGINE CCHWANDS, AT 2 SECCND 

P2952 UTERVALSi FIRST IN PITCH# ThEN IN YAW, ASTRONAUT VERIFICATICN 

R2953 Cf GIPBAI PCTION Ch CPI 

R295A GIPEAL T« IM AFTER A A SECOND CELAV, ENGINE COMMANDED 1C 

R 2 9 S 5 _P R £r CLMPL7EC TRIP PCSITION. ASTRCNAUT VERIFICATICN CN CPI , 

R2956 FREA0,6..,.RES1AR1 ENTRY TC RE-DC S<»C.6. ONLY IF PCS IS CN - IF TVC 

P2957 IS NCT CN - PRIPAPILY TC GET ACTUATORS TRIMMED FOR IGNITICN. 

R2958 EYPASS A SEC DELAY. SPEED IS CRITICAL NEAR IGNITICN, 

R2959 IF TVC IS CN (TVCOAPCN CP LATER! THEN REOOTVC WILL TAKE CAPE 

R296U CF RESTARTING ACTUATCRS. 

R2961 calling SECUE NCE, , 

R2962 VAlTLlSTf KiTh 2CADP FCP SA0.6 (CP PREA0.6), hITH EBANK* CNTR 

R29fc3 NCFPAL EXIT MCCE - FIXCELAY, 7ASKQVEP 

R29cA SLEPCLTINES CALLED.. .. 

P2965 CUiPUl (INTERNAL) 

R2966 FIXCELAY 

R2967 ALAFM CP ABORT EXIT PCOES - NCNE 

R29ed EPASEAELE INITIALIZATION REQUIRED 

R2969 CNTP * ♦Of NCPPALLY SET BY TFL PAG CALL AT TST.TPIM 

R2970 PRKPTPP., .POSITIVE FCR GtPEAL DRIVE TEST AN D GIMBAL TRIP (BCTH) 

R2971 NEGATIVE FCR GIPBAL TRIP ONLY 

R2972 fAClCfF, YACICFF SC. AT 85. Al AflCSEC/felt (V^BN^tB P,V7RIP» 

R 2 9 73 . .SC CONT .. SkITCH AT ..CPC.. (A/P CONTROL SwlfCH AT ..GNC..1 

R2S7<i ACIIVI SPS CIMBAL MUTCR FCmR(S)f PITCH, YAV 

R2975 OLIPLI 

R2976 T VC YAV , TVCPITCP (BITS RELEASED) 

R2977 IVC ENABLE AND CPT ICS ERROR CCLNTER ENABLE 

R2976 DEERIS 

R2979 _ JlP_FflAC, CNTR 

R29BC 


2981 

2982 
2963 _ 

REP 

2 

LAST 

674 

17,2C32 

2C,2CC0 

20,2C40 



BANK 

SETLCC 

BANK 

17 

UAPS6 


- 

-- 

29 84 

REF 

4 

LAST 

674 

E6, 1447 



EBANKs 

CNTR 

- 

_ 

- - 

2985 

REF 

1 






COUNT 

2C/S4C.6 




2986 

REF 

21 

LAST 

65 C 

20,2040 

30 102 

1 PRE40.6 

CAE 

FLACKRC6 

restar f 

ENTRY TC $40. 6, CHECK 75 

HITS. 

2987 

REF 

1C 

LAST 

64 S 

2C,2041 

1 4105 

C 

mask 

OCT60C0O 




2988 





20, 2Q42 

0 C0C6 

1 

Extend 





2989 

REF 

36 

LAST 

662 

20,2043 

6 52 13 

1 

B2MF 

TASK OVER 

NCT flCS 

(BITS NOT 01) , CCNT DO 

540.6 

2990 

REF 

A9 

LAST 

67 3 

20,2C44 

4 4 712 

C 

CS 

BITl 

PCS, SC 

DC S40,6, CtMtP f M ORLY 


2991 

REP 

1 

LAST 

63E 

20,2C45 

5! *445 

1 

TS 

MRKRIMF 







n 
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2Y92 

REF 

5 0 

LAST 

682 

2Qx2CA6 

3 A712 

1 

CAF 

an 1 


FOR REVISED SA0.6 TIRING FOR RESTARTS... 


2993 

REF 

5 

LAST 

682 

20,2CA7 

55* AA7 

C 

TS 

CNTR 


TO INDICATE A RESTART ENTRY (CNTR IS 


A299A ^ 











NORPALLV ♦€, BY SA0.6) 















299AJ 

RUl 

6 LAST 

683 

E6. 1AA7 


— 

ebank* 

CNTR 




2995 

REF 

125 

LAST 

680 

20,2050 

A A71A 

C SA0.6 

cs 

ZERO 


INHIBIT OPTICS ACTIVITY 


2996 

REF 

<A 

LAST 

652 

2Ct2C51 

55*303 

1 

TS 

OPTING 

















2997 

REF 

27 

LAST 

6AA 

20,2052 

A A711 

c 

CS 

PIT2 


DISENABLE CPTICS ERROR COUNTERS (ZERO, 


2998 





20,2053 

0 0006 

1 

EXTEND 



AND INHIBIT PULSE TKANSHISSICN - 


2.595 

REl 

21 

LAST 

652 

2C,2C5A 

03 012 

1 

HAND 

CHAN 12 


NCRMAL STATEl 


3000 

REF 

1 



20,2055 

3 21A2 

1 

CAF 

OCT022C0 


TVC ENABLE ISPS SERVC APPS SEE DAC 


.3001 





^Qx^C56 

C 0006 

1 

EXTEND 



VQLTAGeSI AND DISENGAGE DPTICSZOAC 


3002 

REF 

28 

L AS T 

683 

20,2057 

C5 012 

1 

wOR 

CHAN12 

















3QGJ3 

REP 

L_ 

LIST 

66 2 

20,2060 

0 5156 

c 

TC 

F IXOELAY 


60MS PROCEDURAL DELAY (AOPS WINIPURI FCR 


300A 





20,2061 

00006 

1 

DEC 



RELAY LATCHING 

-- — — 

lo ai . 

REF 28 

LJST 

683 

20i2C62 

3 A711 

1 

CAF 

BIT2 


ENABLE CPTICS ERROR CCUMEBS 

— - - 

3006 





20,2063 

0 0006 

1 

EXTEND 





3007 

REF 

2S 

LAST 

68 3 

2G,2C6A 

05 012 

1 

MUR 

CHAN12 





3 U 0 a REF ? L4ST 603 20f2C65 0 5156 C TC FIXDELaY 2QMS PROCEDURAL DELAY (AMS WINIHUW) FOR 

30CS 20,2066 00002 C DEC 2 RELAY LATCHKG 


3010 REF 1 L/ST 683 20,2067 11*AA7 0 RS7H7ST CCS CNTR CHECK FCR RESTART ENTRY tPRE40.6) 

3011 REF 1 20,2070 I 2130 0 TCP &IHTFIN ^2 RESTART ENT BY . . . • BYP A S S A SECOND DELAY 

A3 012 TST,TR IH SETS CN NCR HAL ENTRY 

3013 REF A last ^2 20,2071 31<aA5 C CAE MRFFthP CHECK FOR TEST/TRIH CP TRIP ONLY 

3Q 1A REF 6 LAST 683 20,207 2 55’AA7 C TS CNTR NRKRTMP SAVES CNTR FCR RESTARTS 

3015 20 ,2073 C 0006 1 EXTEND 

3016 REF 2 LAST 683 20,2C7A 6 2126 0 bZHF GIHTPIP (TRIP CNLY) 


3017 

3C18 

REF 

REF 

136 

9 

LAST 

LAST 

663 

682 

20.2075 

20.2076 

9 ^7U 
55 ' AA 7 

C 

C 

GCTSETUP 

CS 

TS 

ZEkU 

CNTR 

GINBAL DRIVE TEST SETUP, FOR PITCH 










3019 

REF 

1 



20,2077 

3 2IAA 

1 

GIPCTEST 

CAF 

+2ACTCEG 

GIPBAL DRIVE TEST, 1ST INCREMENT 


3020 

REF 

1 



20,2100 

0 2113 

C 


TC 

OUTPUT 

(LEAVES GIHBAL AT *2 DEGI 


3021 

REP 

1 



20,2101 

3 2193 

c 


CAF 

-9ACTCEG 

INCRENEKT (LEAVES GIHBAL AT -2 J 


3022 

REP 

2 

LAST 

683 

20,2102 

0 2113 

c 


TC 

OUTPUT 



3023 

REF 

m 

t 

LAST 

683 

20,2103 

3 2199 

1 


CAF 

♦2ACTCEG 

3RD INCREMENT (LEAVES GIMBAL AT -01 


302A 

REF 

3 

LAST 

663 

20,2 ICA 

Q 2113 

t 


tc 

OUTPUT 
















3025 

REF 

10 

LAST 

683 

20,2105 

9 1997 

c 


CS 

CNTP 

CHECK FCR CCMPLETION OF YAM TEST 


3026 

REF 

155 

LAST 

67 3 

20,2106 

10 OC(i 

c 


CCS 

A 



3027 

REF 

3 

LAST 

683 

20,2107 

1 2126 

1 


TCF 

GIHTRIH 

CCPPLETED , CU TC GIM^AL TmM ROUTINE^ 


3028 

REF 

5 1 

LAST 

683 

20,2 1 10 

9 9712 

c 

■ 

CS 

B ITl 

SET UP yak test 

- 


/>1St»£LE 



-C3l 


1:1? AIL* 24.1968 PANOORfl .072 PAGE 684 


P^C-P^? 


USER'S PAGE NO. A8 


66 S3 




30ZS 

3030 

REF 

1 1 

LAST 

663 

20«21U 

55*667 

C 

TS 

LNTR 


REF 

1 



20t2U2 

1 2077 

1 

TCF 

G I HO TEST 

FOR YAW TEST 




















3031 





20. 2 113 

0 0006 

1 OUTPUT 

EXTEND 


OUTPUT THE INCREMENT ... .SAVE Q 

3032 

REF 

6 

LAST 

362 

20.2116 

23*166 

( 

QXCK 

TEHPR6C 


- - - JtJt _ 











3033 

REF 

12 

LAST 

6 66 

20.2115 

51*667 

1 

INDEX 

CNTF 


3036 

REF 

1 



20.2U6 

56 056 

1 

TS 

TVCP ITCH 












* 

3035 

REF 

13 

L/ST 

6 06 

20.2117 

51*667 

1 

INDEX 

CNTR 

»■ 

3036 

Plf 

21 

LAST 

656 

20.2120 

3 67CC 

1 

CAF 

BITl 1 


3037 





20.2121 

C 0006 

1 

EXTEND 



3036 

REF 

6 

LAST 

18 5 

20,2122 

05 016 

1 

UOR 

CHAN 16 













303S 

REF 

K 

LAST 

683 

20^2123 

0 5156 

C 

TC 

fixcelay 

WAIT 2SEC, ViHiLE ASTRONAUT VERIFIES 

3060 





20.2126 

CC310 

0 

DEC 

200 

GINBAL MCTION ON GPI 

3 06 1_ 

REF 

5 

LAST 

686 

20.2125 

0 1166 

c 

TC 

TEHPP60 





3l062 

REF 

11 LAST 

686 

20.2126 

0 5156 

C 

GIHTRIH 

TC 

F 1 XDELAY 

WAIT 6 SECONDS eEFORE GIMBAL TRIM 


3063 





20.2127 

C0620 

0 


DEC 

60C 
















_3Q66 

3065 

REF 

137 

LAST 

683 

20.2130 

6 6716 

C 

*2 

CS 

ZEPC 

PICK UP TRTN VALUES ANC OUTPUT THEM 


REF 

16 

LAST 

668 

20,2131 

6 1625 

C 


AD 

PACTCFF 

(AVOID ♦01 ENTRY POINT FROM RSTRTST 


3066 

REF 


LAST 

686 

20,2132 

*6 056 

1 


TS 

TVCP ITCH 

CN A RESTART, TO AVOID 6SEC DELAY 


3067 

REF 

136 

LAST 

68 A 

20.2133 

6 6716 

C 


CS 

ZERO 



3068 

REF 

6 

LAST 

66 € 

20.2136 

6 1626 

c 


AO 

YACTCFF 



3C6<3 

REF 

1 



20, 2135 

56 053 

c 


TS 

TVCYAP 
















3050 

REF 


LAST 

166 

20,2i36 

3 6755 

1 


CAF 

PRl 06 

RELEASE THE COUNTERS, BITS 11,12 


3C5 I 





20, 2137 

C 0006 

1 


EXTEND 




3052 

REF 

7 

LAST 

686 

20.2160 

OS 016 

1 


HOR 

CHAN16 
















3053 

REF 

2S 

LAST 

682 

20,2161 

1 5213 

c 

EN0S6Q.6 

Tcr 

TASKLVER 





























30535 





20,2162 

02200 

1 

UCTQ2200 

acT 

022 O U 

ens 8,11 FCP CHANNEL I2 TVC/0PTIC5 


3056 





20.2163 

77526 

c 

-6ACTCEG 

DEC 

- 169 

-6 OEG, SC.AT E5.61 AflCSEC/BIT (-16901 


3055 





20,2166 

CC126 

0 

♦2ACTCeG 

DEC 

♦ 86 

+2 DEC, SC.AT 05.61 ARCSEC/BIT (♦84D» 



Ky0 56 ^ 

305B 

CALLEC BY 

REF 1 

..C0N0UN66 

.. (VERB 

681, CP 

Cl 

PECTLY 

BY ..FRESHDAP.. (PCS CAP) VIA iBNKCALL 






— 



COUNT 

20/S61.2 

















305S 

REF 

52 

LAST 

673 

20, 2 165 

3 1666 

1 

S61.2 

CA 

DAPO ATRl 




3060 

REF 

A ^ 

i d 

L AST 

66 S 

20. 2166 

7 6216 

1 


MASK 

THREE 




3061 

REF 

1 !6 

LAST 

683 

20,2167 

6 0000 

1 


AD 

A 




3062 

REF 

6 

LAST 

607 

20, 2150 

55*130 

C 


TS 

RATl INCX 







H 







Q&ei _ /i<i^ ttaLl fig^ISlOK 237 Lf ACC PRCGRAH C 


NASA 2021ill-C31 


l!n ALG. 2Atl968 PANDORA .072 PAGE 665 


P^C-P^7 _ USER'S PACE NC. A<3 E6 S3 


jQfe3 

3C 64 
3QAiiL 

REF 

IL£f 

$ *3 

1 1 

LAST 

LAST 

664 

644 

IQ t 21^1 
2Qt^ 152 
20.2153 

C 0004 
31 '466 

7 4371 

C 

1 

I 

INH (NT 

CAE DAPCATRl 

MASK PRICSC 

IS LEM ATTACHED (8ITS 

«101 

14, 13 CF DAPDATRl 

3066 

REF 

1 



20, 2154 

6 7705 

1 

AO 

-BIT 14 

(CCT57777) 



3067 





20, 2155 

Q 0006 

1 

FXTLNC 




1Q6£ 

PJLJL 

l_ 



20,2156 

1 2i<3 

c 

azF 

TCGE THER 

YES 



3069 

REF 

29 

LAST 

663 

20,2157 

4 4 711 

c 

cs 

HIT2 

SC, INSET FLAG 


- - 

i0J.Q_ 

Pit 

il_ 

L AST 

662 

2C,216C 

7 01C3 


MASK 

FLAGMPC7 




3C71 

REF 

19 

LAST 

6B5 

20*2161 

54 1C3 

1 

TS 

FLAGliPC7 



— 

3(172 _ 





^0^216 2 

1 2166 

c 

TCF 

^^4 




3073 

REF 

15 

LAST 

685 

20,2163 

4 0103 

1 tcgether cs 

FLAGMPt? 

ATTACHED, SET FLAG FOR 

INTEGRATICN 

3G74 

REF 

20 

LAST 

685 

20,2164 

7 471 1 

0 

MASK 

bIT2 




3C75 

REF 

16 

LAST 

685 

20,2 165 

26 1C3 

1 

AOS 

FLAGMPC7 



- — — 

JO 7 6 





20,2166 

0 0003 

1 

REL INT 



— 

3C7? 

REF 

59 

LAST 

685 

20,2167 

3 1466 

1 

CA 

DAPCATRl 



- - - 

30 76 

. ,Rl.f , 

._Li 

IASlT 

64C 

2C.217Q 

7 47C7 

1 

MASK 

B IT*i 




3079 





20, 2171 

C 0 0 C 6 

i 

EXTEND 




3080 





20,2172 

6 2174 

1 

BZMF 

♦ 2 

DEC 4e MEANS KAPRON DB 



-3.0_8 1 

REF 

1 



20,2173 

3 22 74 

1 

CA 

0EC4C9 




3082 

Pt F 

1 



20,2174 

6 2275 

c 

AD 

0EC46 

CEC 955 MEANS NICE DB 



3083 

REF 

9 

LAST 

64 C 

20,2 175 

55'655 

1 

TS 

ADR 



- — “ 

30 84 

REF 

e • 

•* ^ 

LAST 

685 

20,2176 

3 1466 

1 

CA 

DAPU ATRl 




30E5 

REF 

37 

LAST 

67 9 

20,2177 

7 4704 

1 

MASK 

eiT7 

QUAD BC 



3086 





20,2200 

C C006 

1 

EXTEND 




3087 





20,2201 

6 2203 

1 

eZMF 

♦ 2 




3086 

REF 

€2 

LAST 

67 7 

20,2202 

3 4712 

1 

CA 

CNF 




3089 

REF 

2 

LAST 

106 

20,2203 

55'631 

c 

TS 

XTKANS 




3090 

REF 

56 

LAST 

685 

20, 2204 

3 1466 

1 

CA 

OAPDATkl 




3091 

REF 

28 

LAST 

416 

20,2205 

7 47CI 

1 

MASK 

BITIC 

QUAD AC 



3092 





20,2206 

0 0006 

1 

EXTEND 




3093 





20,2207 

6 22 11 

1 

BZMF 

♦ 2 




3094 

REF 

E3 

LAST 

685 

20,2210 

4 4712 

c 

CS 

ONE 




,3 095 

REF 

3 

LAST 

685 

20,2211 

27*631 

c 

AOS 

XTk AMS 




3096 





2C,2212 

C 0004 

c 

INHINT 



-r— 

3097 





20,2213 

0 0006 

1 

EXTEND 




3098 





20,2214 

1 2221 

c 

BZF 

^ b 

CLEAR NJETSELG 14 JETS 

7 OR Nd 

'JfTTT 

3099 

REF 

15 

LAST 

582 

20,2215 

4 0075 

1 

CS 

ft agwRDI 

SET KJETSFLG (2 JETS 

, AC OR 

BO CUAOSl 

3100 

REF 

3 3 

LAST 

65 1 

20,2216 

7 4674 

1 

MASK 

eiTi 5 

NJETSFLC - 1 FOR 2 JET 

ULLAGE 

(AC CR BCl 

3lCl 

REF 

16 

LAST 

685 

20,2217 

26 075 

1 

AOS 

FLAChRCl 




3102 





20,2220 

1 2224 

0 

TCF 

♦4 




3103 

REF 

39 

LAST 

685 

2(3,2221 

4 4674 

1 

CS 

8ITI 5 

NJE7SFLG • 0 FOP 4 JET 

(OR 0 

JETl ULLAGE 

3104 

REF 

17 

LAST 

665 

20,2222 

'7 00 75 

1 

maSk 





3105 

REF 

18 

LAST 

685 

20,2223 

54 CIS 

1 

TS 

FLAGMPCl 
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3106 





20,2225 

0 

CC03 

1 

RLL INT 


3107 

PEF 

2 

LAST 

27 2 

20,^225 

3 

1567 

C 

CA 

0APDATP2 

3106 

BEE 

3C LAST 

66 2 

20t 2 226 

7 

56 76 

c 

MASK 

e ITl 3 

31C9 





20,2227 

C 

C0C6 

1 

EXTEND 


3110 





20,2230 

6 

2232 

c 

BZHF 

+ 2 

3111 





20,2231 

1 

2233 

c 

TCF 

♦ 2 

3112 

REF 

E5 

LAST 

685 

20,2232 

5 

5712 

c 

CS 

UNE 

3113 





20,2233 

5 

OCOO 

c 

COM 


311A 

REF 

< 

LAST 

106 

20,2235 

55 

*630 

1 

TS 

ACLREC 

3115 

REF 

3 

LAST 

686 

20,2235 

3 

1567 

c 

CA 

LAP0ATR2 

3116 

REF 

25_ 

LAST 

685 

20,2236 

7 

570 1 

1 

MASK 

e iTi c 

3117 

REF 

1!7 

LAST 

685 

20,2237 

1C 

OCO 

c 

CCS 

A 

3118 





20,2250 

1 

2255 

c 

TCF 


3115 

RiF 

E! 

LAST 

686 

20,2251 

3 

5712 

1 

CA 

ONE 

3120 

REF 

2 

LAST 

106 

20,2252 

55 

*626 

c 

TS 

P ACFAIL 

3121 

REF 

1 



20,2253 

1 

2255 

1 

TCF 

BDFA IL 

3122 

REF 

125 

LAST 

685 

20,2255 

3 

5715 

1 

CA 

ZEPC 

3123 

REF 

3 

LAST 

686 

20,2255 

55 

*626 

c 

TS 

M ACFAIL 

312<i 

REF 

4 

LAST 

686 

20,2256 

3 

1h67 

c 

CA 

DAPCATR2 

3125 

REF 

25 

LAST 

685 

20,2257 

7 

5707 

1 

MASK 

B IT5 

3126 

REF 

i;e 

LAST 

686 

20,2250 

1C 

GOO 

c 

CCS 

A 

3127 

REF 

2 

LAST 

686 

20,2251 

1 

2255 

1 

tcTf 

BDFA IL 

3128 

REF 

EE 

LAST 

686 

20,2252 

5 

5712 

c 

CS 

ONE 

3125 

REF 

5 

LAST 

686 

20,2253 

55 

*626 

c 

TS 

P ACFAIL 

313C 

REF 

k 

LAST 

686 

20,2255 

3 

1567 

C eCFAIL 

CA 

OAPD ATP2 

3131 

REF 


LAST 

665 

20,2255 

7 

57C5 

1 

MASK 

6 IT7 

3132 

REF 

155 

LAST 

686 

20,2256 

10 

COO 

c 

CCS 

A 

3133 





20,2257 

1 

2263 

c 

TCF 

♦ A 

3l3<i 

REF 

E7 

LAST 

686 

20,2260 

3 

5712 

1 

CA 

ONE 

3135 

REF 

2 

LAST 

106 

20,2261 

55 

•627 

1 

TS 

KBOFA IL 

3136 

REF 

1«5 

LAST 

65S 

20,2262 

0 

0002 

c 

TC 

Q 

3137 

REF 

15C 

LAST 

686 

20,2263 

3 

5715 

\ 

CA 

2ERC 

3138 

REF 

3 

LAST 

686 

20,2265 

55 

*627 

1 

TS 

RBDFAIL 

3135 

REF 

6 

LAST 

686 

20,2265 

3 

1567 

c 

CA 

OAFO ATR2 

3U0 

REf 

52 

LAST 

683 

20,2266 

7 

5712 

c 

MASK 

61T1 

3151 

REF 

UC 

LAST 

686 

20,2267 

1C 

CCO 

c 

CCS 

A 

3152 

REF 

166 

LAST 

686 

20,2270 

0 

0002 

c 

TC 

(i 

3153 

REF 

E8 

LAST 

666 

20,2271 

5 

5712 

c 

CS 

ONE 

3155 

REF 

5 

LAST 

686 

20,2272 

55 

*627 

1 

ts 

RfiOF AIL 

3155 

REF 

167 

LAST 

686 

20,2273 

C 

00C2 

c 

TC 

0 


HINUS FOR A-C>PLUS FOB B-D 


fl3156 

3157 

CAPFU EMFY 

VIA K 

POST JIMP 
52,3521 

AS 

JOB FPCM 

•.STABLISH.. IVERt 56) 

BANK 52 


3158 

315<5 

REf 2 LAST 

256 

52,2CC0 

52,3521 



SETLCC EXTVES 

BANK 


3150 

3151 

REF it LAST 

662 

52.352 1 

52.3522 

5 

C 

57C2 1 
0006 1 

CAPFIG CS BITS 

EXTEND 

tlRN CfF sfve TAkFOVTIT 




-UJLK A - 


C-L._L CJ 




\^r M V, riltJ 

Lu nnn 


J h I ill 

4 kV 

L 1. A ^ i, 


L 

P^C 

-P47 









USER*S PAGE NO. 51 E6 54 











3152 

REF 

ic 

L/Sl 

683 


C3 012 

1 


h A WO 

CHAM2 


315 3 

REF 

57 

LAST 

685 

42,3524 

31*466 

1 


CAE 

DAPD ATRl 

DETERNINE VEHICLE CONFIGURATION 

^13^ _ 





42.3525 

C 0006 

1 


EXTEND 



3155 

REF 

23 

LAST 

642 

42, 3526 

7 4710 

1 


Mp 

B1 T3 

RIGHT SHIFT 4 OCTAL DIGITS 

315e 

REF 

2,3.. 

J.AST 

684 

42,3527 

7 6214 

1 


HASK 

THREE 

( IN CASE BIT 15 IS USED! 

3157 

REF 

UX 

LAST 

68 6 

42,3530 

■50 QOQ 

_L_ 


INDEX 

A 


315ti 





42,3531 

1 3532 

1 


TCF 

♦ 1 

eRANCH BASED CN CCNFIG.... 













315S 

HEf 

1_ 



42. 3532 

1 3544 

G 


TCP 

NOOA PiiP 

CP ..ACTIVATE NOOAP 

316C 

REF 

1 



42,3533 

1 3537 

1 


TCF 

RCSCAPLP 

CSH. ,ACT IVATE RCSOAP 

3iel 

REF 

2 

LAST 

687 

42,3534 

1 3537 

1 


TCF 

RCSCAFOP 

CSH/LEH. .ACT IVATE RCSOAP 

_ 3U2 

REF 

42 

LAST 

6 54 

42,3935 

0 ^5 lA 

C 


TC 

POST JUHP 


3U3 

REF 

1 



42,3536 

67210 

C 


CAOR 

SATSTKCN 


31cA 





42,3537 

0 0004 

c 

RCSOAPUP 

INHINT 


CALL TC ACTIVATE RCSOAP, AND PETUPN 

3JjJl5_ 

REF 


LAST 

661 

42.3540 

0 4633 

c 


TCP 

ItiNKCALL 


31t6 

REF 


LAST 

66 1 

42,3541 

4201G 

c 


CAOR 

RCSOAPCN 


3167 





42, 3542 

0 0003 

1 


REL1N7 



3ue . 


1 



42.3943 

1 3561 

1 


TCF 

ENOF iC 

CAPE IN VIA V46, GO OUT VIA CCPIN 

3169 





42.3544 

0 0006 

i 

hOUAPLP 

EXTEND 


T5 IDLE FOR NOOAP lOONT WORRY ABOUT T) 

3170 

REF 

1 



42,3545 

3 3564 

c 


OCA 

T5I0LCAP 


3171 

REF U 

LAST 

649 

42.3546 

53*3U 

c 


CXCH 

T5LDC 


3172 

REF 

44 

LAST 

66 1 

42,3547 

0 544 7 

c 


TC 

OQV«NFLAG 

RESET T5-U5AGE FLAGS FCR NODAP 

31725 

REF 

1 



42,3550 

00132 

1 


AQPES 

DAPB ITl 

BIT 15 FLAG 6-0 

3173 

REF 

45 

LAST 

687 

42,3551 

0 5447 

c 


TC 

DOHNFLAG 


31732 

REF 

i 



42,3952 

C0133 

c 


ACRES 

DAPB 172 

BIT 14 FLAG 6-0 

3173^ 





42,3953 

G 0004 

c 


INHINT 



31735 

REF 

31 

LAST 

687 

42,3554 

0 4633 

c 


TC 

I BNKCALL 

ZERO JET CHANNELS IN 14 PS AND THEN 

3173G 

REF 

2 

LAST 

537 

42,3555 

42616 

c 


CAOR 

ZEFD JET 

LEAVE THE T6 CLCCK DISABLED. 

31736 





42,3556 

0 0003 

1 


REL INT 



317^ 

REF 

•3 

LAST 

686 

42,3557 

3 47 12 

1 


CAP 

eiTi 

KILL KALCPANU JCB 

3175 

REF 

6 

LAST 

5 84 

42,3560 

55*332 

c 


TS 

HOLOFLAC 


3176 

REF 

43 

LAST 

68 7 

42,3561 

0 4574 

c 

ENDFIG 

TC 

POST jLPP 

CAPE IN VIA V46, GO GUT VIA GOPIN 

3177 

REF 

4fl 

LAST 

537 

42,3562 

66125 

1 


CAOR 

GE'PI K 


3178 

REF 

15 

LAST 

684 

E6, 1425 




EB ANK » 

PACTCFF 


3179 

REF 

iR 

LAST 

643 

42,3563 

03132 

1 

T51CLCAP 

2CA0R 

T5IDLCC 


3179 





42,3564 

12106 

c 

















3iec 





17,2032 




BANK 

17 


3181 

REF 

3 

LAST 

682 

20,2000 




SETLCC 

0APS6 


3182 





20,2274 




BANK 



3183 



— 


20,2274 

C0631 

c 

CEC409 

DEC 

409 



3 iGA 


20.2275 C0056 1 CEC46 


DEC 


^6 


>3165 

3 166 

CALLFi: 6Y 

..CONOUN47.. (VERB 

461, CR 

DIRECTLY BY 

..FRESHDAP.. (RCS CAPI 

- - - 






REF 1 

20,2276 

31*4?U 

C S40.14 

CAE IXX RCS 6NTRV 

3187 


20,2277 

C 00C6 

1 

ExtEND 


3168 

REF 1 

20,230d 

7 2323 

C 

PP CONTCNE 

- 


GAP I A SS gMLt ftPVlSlOK 227 CF AGC P_ACCJAW CQLCSSOS BY NASA 2Q£ini“C_3l 


I:l7 AUG* 2Atl96e PANDQBA .072 PAGE 666 


P4C-P4 1 


USER'S PAGE NO. 52 


E6 S4 


318S 

REF 

2 

LAST 

106 

20*2301 

55*623 

0 


TS 

J/H 








319C- 

REF 

i 



20.2302 




CA 

I AVG 








3191 





20i23C3 

0 0006 

1 


EXTEND 









3192 

REF 

2 

LAST 

667 

20*2304 

7 2323 

C 


HP 

CCNTLM 








3i93_ 

a£F_. 

_2 

LAST 

106 

2QiZ30S 

55*624 

1 


TS 

J/Hl 








3194 

REF 

id 

LAST 

106 

20*2306 

55*625 

c 


TS 

J/H2 








3195 





20,2307 

C 0006 

1 


EXTENO 









3196 

REF 

1 



20*2310 

3 2325 

1 


CCA 

CCNTTwC 








319? 





20,2311 

0 0006 

1 


EXTEND 









3196 

REF 

2 

LAST 

687 

20,2312 

11*470 

1 


OV 

1 XX 








3199 

REF 

2 

LAST 

106 

20*2313 

5**620 

c 


TS 

KHJ 








3200 





20*2314 

0 0006 

1 


EXTEND 









3201 

REF 

2 

LAST 

666 

20,2315 

2 2325 

1 


CCA 

CCNT TVC 








3202 





2C,23I6 

0 0006 

1 


EXTEND 









3203 

REF 

2 

LAST 

686 

20,2317 

11*471 

c 


CV 

1 AVG 








3204 

REF 

2 

LAST 

106 

20,2320 

55*621 

1 


TS 

KMJl 








3205 

REF 

0 * 

1 

LAST 

106 

20*2321 

55*622 

1 


TS 

KHJ2 








3206 

Rtf 

1 6 € „ 

LAST 

686 

20.2322 

0 0002 

c 


TC 

Q 








3207 





20*2323 

» 

25137 

0 

CONTONE 

DEC 

.662034 

2PI/M 







3206 





20*2324 

C0C23 

c 

CCNTThC 

20 EC 

.00116 








3206 





20, 2325 

12522 

1 











3209 

REF 

1 







COUNT 

24/T VNG 








3210 





31,3215 




BANK 

31 








3211 

REF 

1 

LAST 

661 

24,2000 




StTLOC 

P40S 








3212 





24,3701 




BANK 









3213 





24,3701 

37405 

1 

PCS-2. 5 

OCT 

37405 








3214 

REF 

56 

LAST 

687 

E 6 1 X 4 6 6 




EBANK> 

OAPOATRl 








3215 

REF 

1 



24, 3702 

C2000 

c 

RCSC ACR 

2CADR 

RCSUP 








3215 

REF 

1 



24,3703 

42106 

c 











3216 





24,3704 

37 704 

c 

6S6CT5 

OCT 

37704 








3216 

REF 

1 


— 





COUNT 

TTTHnnjp 








3219 





20,2326 




BANK 

20 








3220 

REF 

1 



21,2000 




SfcTLCC 

DAPS 2 

- 







3221 





21,2000 




BANK 









3222 

REF 

6 

LAST 

575 

21,2000 

22 016 

c 

RCSLP 

LXCH 

BANKRUPT 








3223 





21,2001 

0 0006 

1 


EXTEND 









3224 

HEF 

6 

LAST 

576 

2 1,2002 

22 012 

1 


CXCH 

qRup 1 









GAPl />SSEMLE REmfilQN 231 CF AGC PRCGPi>M CCLQSSUS BY NASA 2Q21111“C31 ItU AIG^ 2^il96e PANDORA .072 PAGE 68*9 


L P^C-F^7 , ... ISER*S PAGE NC. 53 E6 S4 


3225 

REf 

6 

LAST 

687 

_21i2C03 

Cl 2010 

1 


TCP 

kCSDAFCN 

ACTIVATE PCS CAP 













. 3226 

REF 

27 

LAST 

53E 

21.2C04 

i 5222 

1 


TJLF 

RESUHE 














3227 

REF 

59 

LAS 1 

686 

E6«1966 




E8ANK= 

OAPOATPl 


_^22e 

REf 

2 

LAST 

199 

Z1.2CC5 

02106 

_L_ 

HCSACCR 

2CAQR 

PCSA TT 


3228 





21f 2C06 

92106 

C 





























322S 





2lf2007__ 

377C9 

C 

C.6S6CT5 

OCT 

37709 














A32aC 











RCSCAPON ENTRY MUST BE UNGER INT-INHIBIT 

3231 

REF 

1 



21t201O 

3 2007 

1 

RCSCAPON 

CAE 

0.6SECT5 

0.6 SEC ALLCWS T VCEXEC/ROLLCAP TO DIF 

3232 

REF 

7 

LAST 

69 9 

2 1 > 20 1 1 

59 030 

C 

♦ 1 

TS 

TIMES 

ENTRY FROM RGCTCPCQ 



REF 

L_ 



21.2C12 

5;'965 

C 


TS 

T5PHASE 

WILL CAUSE FRESFOAP I+ll 


323<» 

REF 

|C) 

LAST 

537 

21f 2013 

9 1501 

C 


CS 

RCSF LAGS 

SET BIT3 TO REINITIALIZE FCAI ERROR 

3235 

REF 


LAST 

687 

2 1»2019 

7 9710 

1 


HASK 

BIT3 

CISPLAY, IN CASE SC CCNT SWITCH 

3236 

REF 

11 

LAST 

669 

21t2015 

27*501 

C 


AOS 

RCSF LAGS 

IN SCS NCT GNC (GUIDEMODE PRIMARYT 













3211 





21,2016 

0 CQC6 

1 


EXTEND 



3238 

REF 

i 



2 1, 2017 

3 2006 

c 


OCA 

RCSACCP 

(RCSATT) 

3239 

REF 

11 

LAST 

607 

21,2020 

53*313 

c 


DXCH 

T5L0C 














32<fG 

REF 

11 

LAST 

682 

21,2021 

9 9105 

c 


CS 

OCT6CCC0 

SET BITS 15,19 TC 01 TC INDICATE 

32A1 

REF 

22 

LAST 

662 

21,2022 

7 01C2 

0 


HASK 

FLAGhPC6 

T5 TAKECV6B BY RCSDAP 

32<i2 

REF 

4C 

LAST 

673 

21,2023 

6 9675 

1 


AO 

BITi9 


32A3 

REF 

23 

LAST 

689 

21,2029 

59 1C2 

c 


TS 

FLAGkRC6 

KILLS TVCEXEC AND ROLLOAP STARTS 













32<iA 

REF 

169 

LAST 

666 

21.2025 

0 0002 

c 


TC 

g 

RETURN TC CALLER (TVCOAPOF OR RCSDAPUPJ 



Q 




gap: A<:<i;F»BLg RgVlSlQA 237 CF ACr PflCGHAM COLOSSUS SY NASA ^02I1IA-C ^1 1 ML MQ . L-ljlg PANQCJRA .J372 PAGE 

I USEK^S PAGE HO# I EO 


ROOCl PfCGfi<^ ^A^E- PRCG52 CATE- NCV 30f 1966 

«0U03 PCC NC- 2 l-CG SECTION- P51-P53 

Roaos MCClFlCAJ lCh BY- LCfeSKE ASSEMBIV- SONOISK REV 30 

P0007 FCECTJCN4L OfcSCRIPTlCN- 


PQOOe 4HCNS THE Il'C U ONE CF THREE CPIEMA7ICNS SELECTED EY THE ASTRDNAUl. THE PRESENT IPG ORIENTATION IS KNCViN 

ROQIO ANC IS STORED IN REFSHMAT. THE THREE PCSSIBLE ORIENTATIONS HiY 8E_ 


ROOll <A» PPEFERREC CRIENTATICN 

h 0 0 1 2 Ah CFTIKLH CPIENTATICN FOR A PREYICUSLY CALCULATED HANLEVEP. THIS ORIENTATICN REST BE CALCULATED AND 

ROOi^ ' STCREC EY A PREVIOUSLY SELECTED PRCGRAH, 

PQQ15 (El hCMhAL CPIENTATICN 

R0016 A « UN IT ( Y X 2 ) 

ROOiJ -SH -$H 


MQ018 \ *• UN IT (V X R ) 

RCQ19 _ -SR - 

RQ020 I - UNIT (-P ) 

R0021 -SR - 


R0022 RFERE, 

R002 3 R a THE GECCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT 

R0025 ’ 


Ru 026 V « THE IhERTlAl VELCCITY VECTOR ^T T IRE TIALIGNI SELECTED EY THE ISTROhALT 

R002a 

HCC2S (C) REFSRRAT CPIEhTATICh 


R0030 THIS SELECT ICN CGRRECTS THE PRESENT IRU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROR THAT TO WHICH IT 

KgQ32 WAS LAS T AL ICNED ONLY DUE TC GYRO CRIFTCI.E, NEITHER GIRFAL LOCK NOR INU POWER INTERRUPTICN HAS OCCURED 

kQ03^ since THE last ALIGNRENTI. 

KQ035 AFTER A IRU CRIENTATICN HAS BEEN SELECTED ROUTINE S52.2 IS OPER ATED TO CQRPUTE THE G IRBAL ANG LES US ING THE 

k do 37 N E R 0 P I E h T A T I C N AND THE PRESENT VEHICLE ATTITUDE. CAL52A THEN tSES THESt ANGLES* StCRE"C“I N TFET4T » ♦ l» *2 t TO 

P0039 CCARSE ALICN THE IRL. THE STAR SELECTICN POLTINEi RS6, IS THEN OPERATED. IF 2 STARS APE NCT AVAILABLE AN ALARM 

FCOAl IS FL/SHEC TC NOTIFY THE ASTkCNAUT. A1 IHIS PCINT TH£ ASTKCNAUT WILL NANUEVEP THE VEHICIE AND SELE CT 2 STARS 
R0Ct43 EITHER RANLALLV CP AU TCHAT I CALL Y , AFTEP 2 STARS hAVE BEEN SELECTEC ThI IW T5 FINE ALTGNEO'TTSING RT3DTrNE F51. IF 
R0045 THE PENCEZVOtS NAVIGATION PROCESS IS CPERAT ING( INDICATED 6Y PNCVZFLGI P20 TS OISPLAVEC. CTHfcRWiSE POD IS 
ROD A 7 REGLESTEC. 


HOGNB CALLIRG SEGUENCE- 


R00<*9 


THE PROGRAM IS CALLED BY THE ASTRONAUT 67 OSKY ENTRY 


AGC PRCGPA_H_ CQLC^SUS BY NASA 2U2lin-C3l 


1;17 AUG. 24,l<j6a PANOOPA .07? PAGE 6S1 



iSEfi'S PAGE NC, 2 FO SA 


ftCtSO SLEFCnUsES CAtLEC 


RCGil 1. FLACCCWh ?. S52.2 13. ^Ew>*QDEX 

R0052 2. PC2E0TH 0. CAL53A lA. PPICLARM 

R0053 3. CCPERFA . FLAClF 

pa05^ A. PAIFCVE IQ. R96 

RCC55 5 . CCfLASF U. R51 

Ra056 6. S92.3 12. GCPERF3 


KCC5? NCFFAL E X 11 RCCES- 

RfliJiS EXnS 1C EFDOFJCe 

fiOOSS ALAf^ CP 4E0RT EXIT PCOES- 


KCC60 NCNE 


PC062 UE FCLLCWING RAY BE FLAbFEC ON TFE CSKV 

R0Q63 „ Li IRl CRIEMATION CCCE 

R006A 2. ALARR CCCE 215 -PREFERREC IRQ ORIENTATION NOT SPLCIFIEO 

ROObS 3. TIRE OF NEXT IGMTICN 

R&QbBi A. CIRBAL ANGLES 

R0067 S. ALARR CCCE A05 -ThC STARS NCT AVAlCABLE 

RC066 6. FLEASE PERFCRM FOO 

P0C65 TFb RCCE DISPCAY RAY BE ChAKGEC TC 2C 



R0070 EFASAELE IM T I AL I 2A T 1 CK RECUIREC- 


R0071 PfPATFLC SFOULC EE SET IF A PREFERRED ORIENTATICN NAS BEEN CCRPITEO.IF IT HAS BEEN CCRPUTEO IT IS STORED IN 

P0Q73 XSRC tTSRC, 2SHC. 

R007A RRCVIFLG INDICATIS NNETNEP THE HENCEZVOUS NAVIGATION PROCESS IS OPERATING. 


H 


RQ076 CEEPIS- 


PQ077 

0070 

007S 

REF 

VC PK 

3 

AREA 

LAST 

2oe 

15.2C0Q 
33, 3773 



PSA 

BANK 

PFOG52 

33 

cceo 

REF 

1 



15,2000 




SETLCC 

P5CS 

0081 





15,2000 




Bank 


0062 

REF 

A 

LAST 

AAE 

3C,2C00 




SBANK* 

LOVSLPER 

0083 

REF 

7 

LAST 

AAA 

£5,1773 




Eba'nk* 

SAC 

008A 

REF 

1 







COUNT 

15/P52 

0085 

REF 

A 3 

LAST 

68C 

15,200C 

0 53G1 

C 

PRCG52 

tc 

PHASCHNG 

C086 





15, 2C01 

0025A 

1 


OCT 

UCi5 4 

0007 

BEF 


LAST 

687 

15, 2CC2 

0 5AA7 

C 


*Tr“ 

dcwnEiag 

00875 

REF 

17 

LAST 

636 

15,2003 

C0027 

1 


AORFS 

UPDA TFLd 



BIT 7 flag 1 
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0068 

REF 

A1 

LAST 

69 1 

15»2CC4 

C 5447 

c 


TC 

OOMNFL AG 


00665 

REF 

7 

last 

636 

15,2C05 

0003 1 

c 


ACRES 

TFACKFLG 

BIT 5 FLAG 1 

0069 

REF 

112 

LAST 

65E 

15.2006 

0 45 5 5 

c 


TC 

8ANKCALL 


0090 

REF 

6 

LAST 

644 

15f2CC7 

1757 3 

c 


CAOP 

RG2BCTH 

IMU STATUS CHECK 

0091 

REF 

3C 

LAST 

666 

15,2010 

3 4707 

c 


CAF 

6174 


0092 

REF 

37 

LAST 

621 

1S.2C11 

7 0076 

1 


MASK 

STATE +2 

IS PFRATFLG Sf T (PREFERREO CRIENTATIOM 

0093 

REF 

162 

LAST 

687 

15,2012 

10 OCO 

c 


CCS 

A 


Q09A 

REF 

1 



15,2C13 

0 2016 

1 


TC 

P52A 

YES 

0095 

REF 

21 

LAST 

685 

15,2014 

3 4711 

1 


CAF 

6172 

NG 

0096 

REF 

2 

LAST 

692 

15,2C15 

0 2017 

c 


TC 

P52A ♦! 


0097 

REF 

5A 

LAST 

681 

15,2016 

3 4712 

1 

P52A 

CAF 

61T1 


uC9e 

REF 

6 LAST 

54! 

15,2017 

55' 132 

1 


TS 

OPTl CN2 


0099 

REF 

55 

LAST 

692 

15,2020 

3 4712 

1 

P52e 

CAF 

BIT! 


0100 

REF 

1 lA 

LAST 

692 

15,2021 

0 4555 

c 


TC 

BANKCALL 

FLASH QPTICM CODE ANC CPIENTATIGN CODE 

CIOI 

REP 

1 



15,2022 

21041 

1 


CADR 

GGPEfiF4R 


0102 

REF 

42 

LAST 

645 

15,2023 

0 41C6 

1 


7C 

GCTOFCCH 


0103 





15,2024 

0 2031 

1 


TC 

♦ 5 


OlOA 

REF 

1 



15,2025 

0 2020 

1 


TC 

P52B 

NEn COCE - NEW CRIENTATIQN CGOE INPUT 

0105 

REF 

6A 

LAST 

691 

15,2026 

0 5301 

c 


TC 

PHASCHNG 


0106 





15,2C27 

00014 

1 


CCT 

00014 


0107 

REF 

SC 

LAST 

6ec 

15,2030 

0 5112 

i 


TC 

ENOC FJCB 


0108 

REF 

9 

LAST 

692 

15,2031 

3 1132 

0 


CA 

OPTI CN2 


0109 

REF 

24 

LAST 

681 

15,2032 

7 6214 

1 


MASK 

THREE 


QUO 

REF 

163 

LAST 

692 

15,2033 

5C OCO 

1 


INDEX 

A 


0111 





15,2034 

0 2035 

c 


TC 

4 1 


0112 

REF 

1 



15,2035 

0 2041 

c 


TC 

P52T 

L .S . 

0113 

REF 

1 



15,2036 

0 2110 

c 


TC 

P52J 

PREF 

OllA 

REF 

2 

LAST 

692 

15,2037 

0 2041 

c 


TC 

P52T 

NOM 

ull5 

REF 

1 



15,2040 

1 2120 

1 


7CF 

P52C 

REF 

0116 





15,2041 

0 0006 

1 

P52T 

EXTEND 



0117 

REF 

13 

L AS T 

645 

15,2042 

3 4714 

1 


OCA 

NEGO 


0118 

REF 

22 

LAST 

516 

15,2043 

53'C46 

c 


OXCM 

OSPT EMI 


0119 

REF 

1 



15,2044 

3 2185 

1 


CAF 

V06N34 


0120 

REF 

115 

LAST 

692 

15,2045 

0 4535 

c 


TC 

BANKCALL 


0121 

REF 

26 

LAST 

6 4 5 

15,2046 

20624 

c 


CADR 

GCFL ASH 


0122 

REF 

43 

LAST 

692 

15,2047 

0 4106 

1 


TC 

GDTCPCCH 


0123 





15,2050 

0 2052 

1 


TC 

♦ 2 


012A 





15,2051 

d 2044 

c 


TC 

-5 


0125 





15,2052 

0 00 C6 

1 


EXTEND 



0126 

REF 

4 1 

LAST 

692 

15,2053 

3 1046 

1 


OCA 

OSPT EmI 


0127 





15,2054 

C 0006 

1 


EXTEND 



0126 





15,2055 

1 2057 

c 


82 F 

♦ 2 


0129 





15,2056 

1 2062 

c 


TC<= 



0130 





15,2057 

0 0006 

1 


EXTEND 



0131 

KEF 

2A 

LAST 

656 

i5,2C6C 

3 0025 

0 


“ OC“A 

T IME 2 


0132 

REF 

3A 

LAST 

692 

15,2061 

52'046 

c 


OXCH 

OSPT EMl 


0133 

REF 

1C 

LAST 

692 

15,2062 

3 1132 

c 


CA 

OPTl CN2 


013A 

REF 

12 

LAST 

692 

15,2063 

7 471 1 

c 


Mask 

0IT2 


0135 

REF 

UA 

LAST 

692 

15,2064 

IC OCO 

c 


CCS 

A 
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Q13t 





15.2C65 

1 ^073 

0 


TCF 


NCK 

0137 

REF 

157 

LAST 

6 8C 

l5t2C66 

0 6006 

1 


TC 

I NTPPET 

LS 

0X3J1 





15«2C67 

77629 



CALL 



0139 

R E F 

1 



15*2070 

39306 

c 



P52LS 


01^0 
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004(37 1 
0 2037 1 
3 4705 i R52H 


ACRES 

7C~“ 

Qcr 

TX 

CAF 


TRUNFLAG 

ALARH 


R52JA 

B I T6 


VES, LEH 
NC 


IS TERHIFLG SET 


NC 


VES 


LEH 


TPACKFLG 


UPDATFLG 


PPFTRKAT » 1 

hake up fcr LCST TIHE 


CLEAR TRUNFLAG 
BlT 4 ElaG 0 
SET 401 ALAPH 


TS R53FLAG SET 
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0367 

0 386 
0369 

REF 

REF 

REF 

96 

ni 

L9S7 

L/iST 

Li5J 

697 

69? 

697 

19t2132 
19,2 133 
19,2139 

7 C079 
1C OGO 

0 2065 

C 

C 

C 


MASK 

CCS 

TC 

STAT E 

A 

R52F 

YES 


0 390 





19,2135 

C C0C9 

c 


INHIN7 


NC 


0391 

REF 

1 



19, 2136 

3 7661 

1 


CAP 

PR1029 



0392 

RtF 


LAS! 

662 

19,2137 

0 5092 

1 


TC 

F INDVAC 



0393 

REF 

9 

LASl 

697 

E5, 1773 




EBANKs 

SAC 



C3SA 

REF 

1 



19,2190 

C2199 

1 


2CA0P 

R53 jce 



Q39A 

REF 

1 



19,2191 

30065 

1 






0395 





19,2192 

C C0C3 

1 


REL INT 




0396 

REF 

9 

LAST 

69E 

19,2193 

1 2065 

1 


TCF 

P-52F 



0397 

REF 

iti 

LAST 

697 

19,2199 

Q 60C6 

1 

R53JCB 

TC 

INTPPET 



0398 





19,2195 

77629 

1 


call 




C399 

REF 

2 

LAST 

609 

19,2196 

31327 

c 



R53 



g^oc 





19,2197 

77776 

1 

ENDPLAC 

EXIT 


INTERPRETER RETLRN TO £NOOFJOB(n22 USESI 


0901 

REF 

sT 

LAST 

69 2 

19,2150 

0 5112 

c 


TC 

ENDCFJCB 



0902 





19,2151 

C1539 

1 

V06N<i2 

VN 

00692 



C9C3 





19,2152 

01531 

1 

VC6N8SA 

VN 

0689 



0909 





19,2153 

10969 

c 

SHAA I S 

20EC 

.5376361291 

B“1 


G9C9 





19,2 159 

129 70 

1 







C9C5 





Hi 2155 

COOCO 

1 


2DEC 

0 




0905 





19,2156 

€0000 

1 







0906 





19,2157 

15373 

1 


20EC 

.0431766920 B-1 




0906 





19,2160 

11559 

C 







0907 

REF 

33 

LAST 

697 

19,2161 

3 9701 

C 

R52L 

CAF 

eiTit 

IS THIS A 

LEM 


0906 

REF 

9 7 

LAST 

696 

19,2162 

7 0075 

1 


MASK 

STATE +1 




0909 

REF 

172 

LAST 

698 

19,2 163 

10 000 

c 


CCS 

A 




0910 

REF 

2 

LAST 

696 

19,2 169 

0 2129 

1 


TC 

R52J 

YES 



Q911 

REF 

1 



19,2165 

3 2179 

i 


CAF 

0CT4C4 




0912 

REF 

IE ‘ 

LASl 

697 

19,2 166 

0 9555 

c 


TC 

BANK CALL 




0913 

REF 

1 



19,2167 

21671 

1 


CAOR 

PR ILLAPM 




0919 

REF 

2 

LAST 

225 

19,2170 

1 2176 

1 


TCF 

TERM52 

TERMINATE 



0915 

REF 

c; 

LAST 

6 98 

19,2171 

1 2065 

1 


TCF 

R52F 

PROCEED 



0916 

REF 

6 

LAST 

698 

19,2 172 

1 2065 

1 


TCF 

k52F 

NC PRCVlStON FOR NEW DATA 


0917 

REF 

92 

LAST 

698 

19,2 173 

1 5112 

1 


TCF 

ENOOFJCb 




0916 





19,2179 

C04 C4t 

1 

CCT909 

OCT 





09165 





19,2175 

CC269 

1 

i.6S8C 

DEC 

let 



— — - - - - ■ 

0919 

REF 


LAST 

225 

19,2176 

0 5925 

1 

TEKR32 

TC 

cleafprk 



- - - 













SySTEH 


0921 

REF 

1(6 

LAST 

696 

19,2177 

0 9555 

c 


TC 

BANKCALL 

KILL hark 


0922 

REF 

6 

LAST 

588 

19,2200 

16C63 

c 


CAOR 

HKPE LEAS 




0923 

REF 

HI 

LAST 

6 S 6 

19,2201 

3 97 19 

1 


CAF 

ZtRC 



- - — — . ' ' 

0929 

REF 


LAST 

235 

14, 2202 

55*323 

c 


TS 

(jPTCACR 




0925 

REF 

187 

LAST 

698 

14,2203 

0 9655 

c 


TC 

BANKCALL 

CLEAR CUT 

EXTENCEO VERBS 

- 7 — _ ^ -—7 — 7 ^—— 7 -- - -7 









AGC PHCGRAM 



NASA 20211I1-C31 


1 1 n AUG. 2At nta 


PANDORA .072 PAGE 69<7 


L 


PS1-P53 


USER'S PAGt NO. 10 


E5 S3 


0^26 

QhZX 

REF 

3 LAST 

56 1 

14,2204 

2 C 4 6 4 

C 

CADR 

KLEEhEX 


- 

REF 

49 LAST 








695 

14i2205 

C 4106 

1 

TC 

GCTOPCCH 

NCK GC TC PCO 












Q*t26 




14 f 2206 

43020 

1 AOVQRB 

STQ 

SET 

SETS CP AOVANCEC ORBIT TRACKING 



REF 

^ LAST 

697 

14,ii.g? 

C2576 

J 


SAVQR52 



CA30 

REF 

2 LAST 

69i 

14,2210 

C4C65 

C 


ADVTRK 



0^31 




14,2211 

43C14 

c 

SET 

SET 



0_^ 3 2 „ 

REF 

1? LAST 

69<i 

14,2212 

C1463 

1 


LUNAFLAG 



0A33 

REF 

e LAST 

694 

14,2213 

0046 2 

1 


EF AOFLAG 



QA3A 




14,2214 

77650 

1 

GOTO 




CA35 

REF 

1 


14,2215 

3C005 

1 


R52VRe 




I 


GAELt ASSi^LL. 


231 CF AGC PPCGPAH CCICSSUS BY NASA 2021111-C31 


lil? AUG. 2<^« 1966 PANDCP4 *072 P/>CE 700 


P*l-P'3 


LSEP 'S PAGE KC. 11 


£5 S3 


II 


I 


R 


P0^3t 

Hfiht -S5C <LIAS UCSAR 




RQ^37 

h/iRE- LCCSiH 





FL^C^IC^ -IG CCMPL7E CUA7ITIGS LISTEC EElCrt .USEO IN THE 




R0^3^ 

IMU ALICRPENT PRCGB4NS 




RQ4A0 

CEFINEJ 




RO^AI 

PAn»fOSIlICR VECTOR CF CP RPT FPIPARY ECCY 




R0^^2 

VAT T«\eLCCIT Y VECTOR CF CM WPT FPIMARY fiCOY 




P04A3 

PE »PACILS CF EARTH 




RU4A4 

PM «FACILS CF MCON 




H0^A5 

ECLIPCL* fCLE CF ECLIPTIC SCALEC GY TANGENTIAL VELOCITY OF EARTH 




0U^^6 

V»RT TC SUN OVEP THE VELCCITY OF LIGHT 




RC<i<i7 

PEM -FOSniOF CF MOCF MPT EARTF 




ROA^e 

PES »PGSITIOR CF SUN NRT EARTH 




R0^A9 

C » VELCCITY CF LIGHT 




RO^SO 





BC^Sl 





P0^52 

EARTH IS PRIMARY MCON IS PRIMARY 




R0A53 

-* — 




dQ^b** 

VEARTH=-UPATTJ VEARTH*-! IREM+RATTJ 




R0*t55 





RCASe 

^ - 




P0457 

VMOCN* l(PEM-RATT) VMOON — KRATTI 




RO^se 





RC459 

- - 




R0^6C 

VSUN s l(RES) VSUN -URES-PEM 




R0461 





RQ^62 

-1 




RCA63 

CEARTH*CCS(SIN tHE/RATTHSJ CEARTH*CCS 5 




PO^tA 





fiC^65 

-1 




R0<i6e 

CMCCN= CCS 5 CMOCN»CCS(SIN CRM/RATT)*5) 




R0A67 





RO^ee 





R0^69 

CSUN = CCS 15 CSUN » COS 15 




RG4 70 





BQ471 





P0^72 

VEL/C • VSUN X ECLIPOL ♦ VATT/C 




RC473 





RC-«i7^ 





R0475 





R0976 

CALL - CICAC CALL 




R0477 

DESIRED TIME 




R0<78 

LCCSAM 




R0479 

INFU S - MFAC = T IME 




RCA6C 





RCA81 

CL T PUTS- VEARTF, VMCGh iVSUNtCEARTHtCMCCN ♦C'SUN,VEL/C 




R0AB2 





R0Ae3 

SLEPCniNE!- LSPdS fCSMXCN IC 




ROABA 





ROAfiS 

CEEPIi - VAC AREA, SEE SUBPCuT INES 





I 


» 


S 


IS 


R 


I. 


CAP : ASSEhgL E ePV^SIG^ 237 CP AGC PKCGRAM 


l:l? 41G. 2<iiiq68 PANOOPA ,072 P4GE 701 



NASA 



L P51-P:3 


LSE‘^'5 page NC. 12 E5 S3 


PO^ B6 
QMbl 

PEf 

2 

L/ST 

695 

lAf 2000 

IA.2U6 




SETLCC 

BANK 

P50S1 

- 



CABS 

REF 

1 




- 



COUNT* 

»S/S5C 




OASC 

REF 

1 



1A,2216 



LCCSAM 

a 

S50 




OASl 





lAf 22 16 

T762C 

C 

S50 

STQ 





QA92^ 

R£F_. 

. 1_ 

Ui-l 

695 

lA,22i7 

CC30C 

1 



UFA J 




0AS3 

REF 

7 

EAST 

695 

1A,2220 

366C7 

C 


S rCALL 

TSIGl-T 




CASA 

REF 

1 



1A,2221 

5A11C 

C 



LSPOS 




jOASS 

_R_iF 

L 

.ilSJ 

92 

1A.2222 

26752 

C 


STOVL 

VMCCN 




0AS6 





1A,2223 

CC0C3 

1 



20 




0A97 

REF 

2 

LAST 

92 

1A,222A 

1 6 7 A A 

1 


STOOL 

VSON 




CAse 

REF 


LAS! 

701 

1A.2225 

C26C7 

1 



T SIGHT 




0A99 

REF 

39 

LAST 

695 

1A»2226 

3AQA 1 

C 


STCALL 

TOEC 1 




0500 

REF 

i; 

LAST 

584 

1A,2227 

27CA5 

C 



CSFCCMC 




0501 





lAt2230 

61131 

C 


SSP 

TlX ,2 




0502 

REF 

10 

LAST 

622 

1A,2231 

CCC52 

C 



S2 




0503 





1A,2232 

COOCO 

1 



0 




050A 

REF 

1 



1A,2233 

30256 

C 



MOOHCNTR 




0505 





1A,223A 

52375 

1 

EARTCNTR 

VLOAO 

VSU 




0506 

REF 


LAST 

70 1 

1A,2235 

C2752 

C 



VNLCN 




0507 

REF 

43 

LAST 

695 

lAt2236 

COOCl 

C 



RATT 




0508 





1A,2237 

17656 

1 


UNIT 





0509 

REF 

A 

LAST 

70 1 

1A,22A0 

26752 

C 


STOVL 

V HOC N 




05 1 0 

REF 

2 A 

LAST 

701 

1A,22A1 

OCCOl 

C 



RATT 




Q5U 





1A,22A2 

5 7A56 

I 


UNIT 

VCOMP 




0512 

REF 

3 

LAST 

92 

1A,22A3 

16736 

1 


STOOL 

VEAR Th 




0513 

REF 

i 



lAf 22AA 

32162 

c 



RSUPE 




051A 





1A,22A5 

7762A 

1 


CALL 





0515 

REF 

1 



1A,22A6 

303 16 

c 



OCCLS 




0516 

REF 

1 



1A,22A7 

1AQ17 

1 


STOOL 

C6ARTR 




0517 

REF 

1 



1A,225C 

322CC 

1 



CSSS 




0518 

REF 

1 



U,2251 

2A023 

c 


StOVL 

CHOC A 




C519 

REF 

1 

LAST 

70 1 

IA»2252 

C27AA 

1 



VSON 




0520 





1A,2253 

17656 

1 


UNIT 





C521 

REF 

A 

LAST 

701 

1A,225A 

367AA 

c 


STCALL 

VSUN 




0522 

REF 

1 



1A,2255 

303C3 

1 



ENOSAF 




0523 





1A»2256 

AC575 

1 

mooncnth 

vlCao 

VSP8 




052A 

REF 

5 

LAST 

70 1 

IA,22S7 

C27S2 

( 



VHCCR 




0525 





14,2260 

51362 

1 


VSRl 

BVSl 




0526 

REF 

5 

LAST 

70 1 

1A,2261 

C27 AA 

1 



VSUK 




0527 





1A,2262 

77656 

1 


UNIT 





0526 

REF 

6 

LAST 

70 1 

1A,2263 

2e7AA 

1 


STOVL 

VSUN 




0529 

REF 

6 

LAST 

701 

IA,226A 

02752 

c 



vMoor 




0530 





1A,2265 

53A55 

c 


VAC 

UNIT 




0531 

REF 

1 5 

LAST 

701 

1A,2266 

COOCl 

c 



kaTT 




0532 





1A,2267 

176 7 6 

0 


VCONP 





0533 

REF 

A 

LAST 

70 1 

1A,2270 

26736 

1 


STOVL 

VEAR TH 
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C534 REF 2t U57 701 l^f2271 00001 C RATT 

0535 1<*,2272 574S6 1 UNIT VCCMP 

0536 REF 7 - Li>5_T IQJ 14,2273 16752 C STODL VMCCh 

0537 REF 1 14i2274| 32 160 1 RSUBR 


0538 14.227 5 7 7624 1 CALL 

Q53S Rif 2 LAST 701 1A,2276 30316 ( OCLCS 


0 540 

REF 

2 

LAST 

70 1 

14,2277 

14Q23 

C 


STOOL 

CMOCN 



0541 

REF 

2 

LAST 

70 1 

14,2300 

322CC 

1 



CSSS 



C542 

REF 

2 

LAST 

70 1 

14.2301 

24017 

1 


STOVL 

GEAR TH 



054 3 

REF 

7 

LAST 

70 1 

14,2302 

02744 

1 



VSUN 



0544 





14,2303 

77635 

1 

ENOSAO' 

VXV 




0545 

REF 

1 



14,2304 

32170 

0 



ECLI PCL 



C546 

REF 

2 

LAST 

114 

14,2305 

27474 

0 


STCVL 

VEL/C 



05^7 

REF 

15 

LAST 

69 5 

14,2306 

COOC? 

C 



VATT 



0540 





14,2307 

53361 

c 


VXSC 

VAO 



C549 

REF 

1 



14, 2310 

32166 

1 



1/C 



0550 

REF 

3 

LAST 

702 

14, 2311 

03474 

c 



VEL/C 



Q551 

R£F 

4 

LAST 

70 2 

14,2312 

17474 

c 


STOOL 

VEL/C 



0552 

REF 

1 



14,2313 

32202 

c 



CSSUN 



0553 

REF 

1 



14,2314 

34021 

c 


STCALL 

CSUN 



0554 

REF 

5 

LAST 

70 1 

14,2315 

C0300 

1 



QHAJ 



0555 





14,2316 

7C47 1 

1 

QCCCS 

OOV 

SRI 



0556 





14, 2317 

CC045 

0 



360 



0557 





14,2320 

43336 

c 


AS IN 

DAO 



0556 

REF 

1 



14,2321 

32164 

0 



5DFGREES 



0559 





14,2322 

70546 

1 


COS 

SPl 



0560 





14,2223 

77616 

c 


PVQ 




0561 

REF 

2 

LAST 

69 1 

15,2000 




setlcc 

P50S 



0562 





15,2157 




BANK 




0563 





15,2157 

C0065 

1 

RSUEN 

2DEC 

1738C90 6-29 

PCGN RADIUS U FETERS 

0563 





15, 2160 

01265 

1 






0564 





15,2161 

C0302 

c 

R SU e E“ 

2UEC 

6378166 8-29 



0564 





15,2162 

24533 

1 






0565 





15,2163 

C0343 

0 

5DEGREES 

20EC 

.013868889 

SCALED IN 

REVS 

0565 





15,2164 

21616 

0 






0566 





15,2165 

CQCOO 

1 

1/C 

2DtC 

.000C42699 B-1 

♦ 


0566 





15,4^166 

13143 

c 






0567 





15,2167 

COOCO 

1 

ECL IPCL 

20EC 

0 



0567 





15,2170 

CCOOO 

1 






056ti 





15,2171 

17777 

c 


2DEC 

-.OCC07896 B-i 

♦ 


C568 





15,2172 

53231 

1 






0569 





15,2173 

CCOCl 

0 


20EC 

.00018209 B-1 


♦ FOR USE BY CSW ONLY 

0569 





15,2174 

17570 

c 






0570 





15,2175 

CCOCl 

0 

TSlCHTl 

20EC 

2400 C 



0570 





15,2176 

16 700 

i 






0571 





0016 



CkARTh 


140 



0 5 72 





0C20 



CSUN 

* 

TW 



0573 





0022 



CMOCN 

a 

10C 



0 5 74 





15, 2177 

07760 

1 

CSS5 

2DEC 

.249C475 

TOCS 51/4 


0574 





15,2200 

14473 

1 
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0575 


C756A 

\ CSSIN 

20EC 

.2Ai^e 

CCS 15 

0575 

15t22Ci2 

150^2 

c 





703 


$ 


i 






I 


R 


GAP : ASS^>eLE RgVlSlQh 221 CF AGC PfiCGPAM 


NASA £Q21LU’^31. 


lil? AOG« 2Atl968 PANOORA .072 PAGE 7CA 


L P51-P:3 


USER'S PAGE NO. 15 E5 S3 


PPCCB/^ ^A^£ - PICAPAB CATE CEC 20 66 

MCC I ____ LOG SECTION P51-P53 

ASSePElY SUNDISK R£V<tO 

BY KEA VINCENT 


F^.^CT ICN 

THi FPCCBAN RE/C THE IFU-CCLS ANC CCPPUIES THg VEHiCLt CRIENTATICN 
WITH RESPECT TC INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAXI 
m T F P E_S P_E Q JT C REFERENCE INERTIAL. E/CH STAR IN THE CATALOG IS TESTEC 
TC CETERNINE IF IT IS CCCLLTEC BY EITHER THE EARTH, SUN OR MOCN. IF A 
STAR IS FCT OCCULTEC THEN IT IS PAIREC hlTH ALL STAR CF LOWER INDEX. 

THE P /_! RED STAR IS TESTED FOR CCCUITATICN. PAIRS OF STARS TEAT PASS 

THE CCCLLTAT ICN TESTS ARE TESTEC FCP GCCD SEPARATION. A PAIR CF STARS 
HAVE CCCC SEPARATICN IF THE ANGLE EETREEN THEM IS LESS THAN tADfcGREES 
ANC HCPE THAN AOCEGREES. THCSE PAIRS CF STA R S WITH GOOD SEPARATION 
APE THEN TESTEC TC SEE IF THEY LIE IN CLRRENT FIELD OF VIEW. (WITHIN 
32CECREES CF SAX). THE PAIR WITH NAXINUN SEPARATICN IS CHUSFN FROM 
THCSE WITH G CCC S EPARAT ICN ,ANC IN F IELD OF VIEW. 

R059A 

RC595 CALLIFC SECUENCE 


R0596 L __T_C BANHCALL 

RC597 L-*l C/CR PICAPAR 

R0598 L42 ERROR RETURN - NC STARS IN FIELD OF VIEW 

PC599 L43 NCPMAl PETLRN 

PC600 


RC601 LUPC1 

R 0 6 C 2 8 £J T I jB E ST J -SINGIE PR EC , I N T EC E RS , ST A R NUMBERS TIMES 6 

R0e03 VFLAG - FLAG BIT SET IMPLIES NC STARS IN FIELD OF VIEW 
RC6CN 

RC605 IN ni/H2ATICN 

RU606 DA CALL TC LGCSAN MIST BE MACE 

R0607 2 IVEAPTF - -LMTIP) WHERE R HAS BEEN LPCATtC TOG APPROXIMATE TIME OF 

KOoO e SIGHTINGS. 


PC609 

RG610 

ROAll 

C E E P 1 S 
WCRK AREA 








RQ612 

)( I \ f Z ^ B 








R0613 

SINCCL iCCSCCU 







R06D 

SIAPAC - 

STAR 

*5 






C613 

REf 1 






COUNT 

14/p ICAP 

Q616> 

REF 3 

LAST 

701 

o 

o 

o 



SETLOC 

P50S1 

C617 




D,232N 



BANK 


0618 

REF 3 

LAST 

562 

1A,2324 

0 ^6C<t 

1 

PICAPAR TC 

MAKECADR 

C619 

REF 3 

LAST 

552 

1A,2325 

55't77 

C 

TS 

QMiN 

Q62C 

REF ue 

LAST 

69 8 

1^,2326 

0 60C6 

1 

TC 

INTPRET 

0621 




1^,2327 

7762A 

I 

CALL 


0622 

REF 6 

LAST 

67 C 

1 , 2 3 30 


1 


CDUtRiG' 

0623 




1A,2331 

77624 

i 

Call 


062^ 

REf 1 



1A,2332 

24567 

1 


CALC SMSC 


PC576 
R0577 
RQ571 
RQ579 
RQ58C 
R0581 
R0 582 
R05e3 
B05E4 
R0585 
R0586 

Rose? 

Rosee 

H0589 

RQ590 

R0591 

R0592 

RU593 


II 



P 
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0625 


0620 


C627 


0629 

REF 

0629 

REF 

JQ63C 

REF 

0631 

REF 

0632 


063 3 

IIF 

0634 

REF 

0635 


0636 


0637 

REF 

0638 


ati? . 


0640 

REF 

0641 

REF 

Sit^. _ 


0643 

REF 

0644 


0645 

Ri^ 

06A6 


0647 


0648 

REF 

0649 

REF 

0650 


0651 

REF 

0652 

REF 

0653 


0654 

REF 

0655 

REF 

0656 

REF 

0657 


06 56 

REF 

0659 

REF 

0660 


06 b 1 

REF 

0662 

REF 

0663 


0664 

REF 

0665 

REF 

C66b 

REF 

0667 


€668 

REF 

066 9 

REF 

06 70 


0671 

REF 

0672 

REF 

06 73 


Cb 74 

REF 


I 

1 

-fi L^ST 609 
A L4ST <i22 

_1 __ 

A LAST 


1 


21 LAST 674 
1 


25 LAST 634 
11 LAST 701 


1 

1 

2 LAST 62C 
1 

_1 LAST 281 
1 

21 LAST 673 


1 

2 LAST 70! 


3 LAST 705 
2 LAST 705 


S LAST 705 
1 

4 last 705 

5 LAST 705 
1 


2 LAST 705 
I 


3 LAST 705 


14.2333 

14.2334 


14.2336 

14.2337 
14.2340 
14,234 1 
14,2342 
14,2243 

14.2344 

14.2345 

14.2346 

14.2347 
14,2250 

14.2351 

14.2352 

14.2353 

14.2354 

14.2355 

14.2356 

14.2357 

14.2360 

14.2361 

14.2362 

14.2363 

14.2364 

14.2365 

14.2366 

14.2367 

14.2370 

14.2371 

14.2372 

14.2373 

14.2374 

14.2375 

14.2376 

14.2377 

14.2400 

1 4.2401 

14.2402 

14.2403 

14.2404 

14.2405 

14.2406 

14. 2407 

14.2410 

14.2411 

14.2412 

14.2413 

14.2414 


77601 C 
COOCl C 
■11214 C 
C1465 1 
11453 C 
243C3 1 
02714 1 
63361 C 
30502 C 

C2730 1 
74370 C 
00344 1 

3C504 C 
77655 1 
S35C5 1 

C1736 I 
C276C 1 
66331 C 


CCCSI C 
€0006 1 
C0C52 C 


00006 

1 


S2I00 

1 

PIC 1 

3C364 

C 


2C513 

C 


45173 

C 

P IC2 

31751 

C 



3C457 1 
73014 C 

C1710 C 

20361 C 
CC046 C 
52104 C 9 
30376 C 
30361 C 
45173 0 PrC4 

46026 1 
30457 1 
76614 C 

€1710 C 
30373 € 

31751 C 
45237 € 

46026 1 
305^06 I 
43240 C 
30373 C 
30510 C 

7?6<,4 1 
30373 C 


SfcTPO 

0 

SFT DLCAC 

VFLAG 

OPZtPC 

sto vl best I 

XNP 

VXSC POVL 
S1N33 

ZNb 

AXT,1 VXSC 

2260 

CbS3 3 

VAC 

VXM UNIT 

PEFSPPAT 
STORE SAX 
SSP SSF 

SI 

6 

S2 

6 

TIX,l GOTC 

PIC2 
P It ENC 
VLOAC* CALL 

CATLCG,! 

OCCLLT 

BON LXA,2 

CULTFLAG 

PlCl 

XI 

TIX,2 COTL 

PICA 
PICl 
VLOAO* CALL 

CATLCC,2 
OCCULT 
BON VLOAC* 

CULTFLAG 

PiC3 

CATLCG, I 

dots DTU 

CATLCG, 2 
CSS66 

3NN DAO 

PIC3 

CSS664C 

Wi 

PI C3 


VFLAG " 1 


XI « 37 X 6 ^6 


SAX • SHAFT AXIS 
Sl-S2»6 


MAJOR STAR 


SEPERATIGN LESS THAN 66 D EG. 


SEPERATION POPE THAN 40 DEG. 
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0675 

0676 

0677 

Rtf 

REP 

6 

2_ 

L^ST 

LiSJ 

705 

7QS 

19.2915 

19.2916 

19.2917 

50373 

31751 

_IiL76Q_ 

C 

C 

X- 


VLOAD* 

OCT 

CATLCC,! 

SAX 

06 7 8 





19,2920 

50025 

c 


osu 

BHN MAJOR STAB IN CCNF 

0679 

Rtf 

1 



19,2921 

30512 

1 



CSS33 

06 60 

REF 

2 

IAS 7 

705 

_L9t^922 

3036 1 

(L_ 



PICl 

0681 





19,2923 

30373 

0 


VLGAD* 

OCT 

0682 

REF 

7 

LAST 

706 

19,2929 

96026 

1 



CATLCG,2 

06 6 3 

REF 

3 

_kAlI_ 

706 

19,2925 

C276Q 

; 



SAX 

066^ 





19, 2926 

51025 

1 


OSU 

ftPL 

0685 

REF 

2 

LAST 

706 

19,2927 

30512 

1 



CSS33 

0666 

REF 

1 



19,2930 

20933 

c 



STF ATCY 

C667 





19, 2931 

77650 

i 


GOTO 


0686 

REF 

9 

LAST 

705 

19,2932 

30373 

c 



P IC3 

0689 





19,2933 

77619 

1 

STRATGY 

8CNCLP 


069C 

REF 

2 

LAST 

705 

19, 2939 

0160 5 

c 



VFLAG 

0691 

Rtf 

1 



19,2935 

30952 

1 



NEV»P AR 

0692 





19,2936 

6 5120 

1 


XCHXtl 

XC HX ,2 

0693 

REF 

9 

L/ST 

705 

19,2937 

C0302 

c 



BEST 1 

C69A 

REF 

2 

LAST 

69 

19,2990 

C03C3 

1 



BEST J 

0695 





19,2991 

97773 

1 

STRAT 

VLCA09 

DOT* 

0696 

REF 

6 

LAST 

706 

19,2992 

21751 

c 



CATLCC,! 

0697 

REF 

9 

LAST 

706 

19,2993 

96026 

1 



CATLCC, 2 

0698 





19,2999 

93006 

€ 


PUSH 

BCFl NV 

0699 

REF 

3 

LAST 

706 

19,2995 

01595 

1 



vflac 

0700 

REF 

1 



19,2996 

3 6 

c 



STRA7 -3 

Q7tl 





19,2997 

95395 

1 


OLGAO 

OSU 

C7C2 





19,2950 

77699 

1 


BPL 


0703 

REF 

11 

LAST 

70“6 

19,2951 

30373 

c 



P IL 3 

C7 09 





19,2952 

67130 

1 

NFkiPAR 

SXA,l 

SXA ,2 

0 705 

REF 

1C 

LAST 

706 

19,2953 

CC3C2 

c 



BIST 1 

0706 

REF 

3 

LAST 

706 

19,2959 

00303 

1 



BEST J 

07C7 





19,2955 

7765C 

1 


GOTO 


0708 

REF 

6 

LAST 

706 

19,2956 

30373 

c 



P1C3 

Q709 





19,2957 

51321 

0 

CCCILT 

HXV 

B VSU 

0710 

REF 

1 



19,2960 

02736 

1 



cultpix 

0711 

REF 

1 



19,2961 

CG017 

1 



CSS 

0712 





19,2962 

77659 

c 


OZE 


0713 

REF 

1 



19,2963 

20976 

1 



Cult EC 

0719 





19,2969 

75290 

c 


BHN 

S IGN 

0715 

REF 

2 

LAST 

706 

19,2965 

20976 

1 



CULTEC 

0716 

REF 

272 

LAST 

68C 

19,2966 

GC160 

c 



MPAC *3 

0717 





19,2967 

75290 

c 


BMN 

S IGN 

0716 

REF 

3 

LAST 

706 

19,2970 

309 76 

1 



CULTEC 

0719 

REF 

273 

LAST 

706 

19,2971 

00162 

1 



MPAC +5 

0720 





19,2972 

93C9C 

1 


6MN 

CLRGC 

0721 

REF 

9 

LAST 

706 

19,2973 

30976 

1 



cult EC 

0722 

REF 

t 

LAST 

705 

19,2979 

C16 3C 

c 



CULTFLAC 

0723 

REF 

13 

LAST 

622 

19,2975 

ccti2 

( 




0729 





19,2976 

776 19 

1 

Cut T El 

S fc T GO 

- 
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0725 

REF 

7 

LAS.7 

70 e 

1A,2^77 

C1930 

\ 



CULT FLAG 


0726 

REF 

H 

L^ST 

706 

19,2500 

00052 

C 



QPRET 


_QI21 

PLif 

1_ 

LAST 

702 

OCU 



css 

a 

CEARTF 


C728 





19,2501 

21150 

C 

SIN3i 

2DEC 

.5376301291 


0720 





19.2502 

2515? 

C 





0729 





19.2503 

32766 

1 

CCS33 

2DEC 

.8931756^20 


0729 





19,2509 

22713 

1 





C730 





19,2505 

C1736 

1 

CSS66 

2DEC 

.060980972 

(CCS76 )/9 

0730 





19.2906 

35137 

1 





0731 





19,2501 

730C3 

c 

CSS6690 

206C 

-.15602587 

(CCS76 - CC53CI/9 

0731 





19,2510 

65903 

c 





_ .0312. 





19,25 1 1 

C6233 

c 

CSS33 

2060 

. 1^7002688 

CCSiW2{ 76) )/A 

0732 





19.2512 

26112 

1 





C733 





19,2513 

77919 

c 

PICEND 

0OFF 

EXIT 


073^ 

REF 

A 

LAST 

70t 

19,2519 

C1795 

c 



VFLAG 


0735 

REF 

1 



19,2515 

20517 

1 



P ICOT 


C736 

REF 

1 



19,2516 

0 2521 

c 


TC 

PICBXT 


0737 





19,2517 

77776 

1 

P ICCXt 

EXIT 



0738 

REF 

A 

LAST 

70A 

19,2520 

25'777 

1 


INCH 

QNIK 


0739 

REF 

c 

LAST 

707 

19,2521 

3 1777 

1 

picexT 

CA 

UHI N 


07AO 

REF 

3 

LAST 

<^11 

19,2522 

C 956 1 

1 


7C 

ShCALL 


A07<il 








VI 


120 






R 


0 

0 


Q 



y 



I 

JL_.. . 




it 




Pa 
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P07^2 

NAPE 

-FSl 

FINE 

align 







P07<t3 

FINCT iCN 

-TC ALIGN the 

STABLE 

PEPBEP 

IC 

PEFSNHAT 



RD744 

CALLING SEC- CALL R51 






R07A5 

IK FIT- 8ESTI .eESTOlPAlR CF STAR NO ) 





KOT^fc 

Cl T PC T- 

GYPC TCPqiE PULSES 






RG7V7 

SLEFOCTIKES- P 

‘2fF5^iB55(SXTK8tKBSAt 

AX ISGEN 



C748 

REF 

1 







COUNT 

147r51 

w7<i9 





14.2523 

77776 

1 

R51 

EXIT 


C75C 

REF 

U 

LAST 

o92 

14.2524 

3 4712 

1 


CAP 

fclTl 

0751 

REF 

A 

LAST 

606 

14,2525 

54 3C4 

1 


TS 

STAR INC 

0752 

REF 

C. 

LAST 

608 

14,2526 

54 3C1 

1 


TS 

MARK INCX 

0753 

REF 

U9 

LAST 

704 

14,2527 

0 60C6 

1 

R51.2 

TC 

INTPPET 

C75-I 





14,2530 

43014 

C 

R5l .3 

CLEAR 

CLEAR 

U755 

REF 

3 

LIST 

606 

14,2531 

GC666 

1 



TAFC2FLG 

0756 

REF 

6 

LAST 

696 

14,2532 

C0665 

1 



TaRC IFLC 

0757 





14,2533 

77776 

1 


EX IT 


0758 

REF 

65 

LAST 

692 

14,2534 

0 53CI 

c 


TC 

PHASCHKG 

o759 





14,2535 

C5024 

1 


OCT 

05024 

0760 





14,2536 

13000 

c 


OCT 

I 3C0C 

Q761 

REF 


LAST 

708 

14,2537 

5C 3C4 

c 


INDEX 

STAR IKC 

0762 

REF 

11 

LAST 

706 

14,2540 

3 0302 

c 


CA 

BEST I 

0763 





14,2541 

0 C0C6 

1 


EXTEND 


C76<i 

REF 

1 



14,2542 

7 2706 

c 


MR 

1/6TF 

0765 

REF 

6 

LAST 

609 

14,2543 

54 735 

1 


TS 

STAPCCCE 

0766 

REF 

1 



14,2544 

3 2705 

1 


Caf 

V01N70 

6 767 

REF 

1E8 

LAST 

698 

14,2545 

0 4555 

c 


TC 

bANKCALL 

0768 

REF 

15 

LAST 

658 

14,2546 

20763 

1 


CAOR 

GCF L AShR 

0769 

REF 

50 

LAST 

699 

14,2547 

0 4106 

1 


TC 

GCTCPCCH 

0770 





14,2550 

0 2555 

c 


TC 

♦ 5 

0771 





14,2551 

0 2544 

c 


TC 

-5 

0772 

REF 

2A 

LAST 

646 

14,2552 

3 6211 

c 


CAF 

SIX 

0773 

REF 

13 

LAST 

615 

14,2553 

C 54 15 

1 


TC 

BLANKET 

G77A 

REF 

S3 

LAST 

698 

14,2554 

1 5112 

1 


TCF 

ENCCFjCe 

0775 

REF 

IK 

LAST 

706 

14,2555 

C 60 C 6 

1 


TC 

1 NTRRf T 

0776 





14,2556 

45034 

1 


RTB 

CALL 

0777 

REF 

2C 

LAST 

693 

14,2557 

45505 

c 



LOAD TIME 

0770 

REF 

1 



14,2560 

32363 

c 



PLANET 

0779 





14,2561 

72131 

1 


SSP 

LXA, 1 

0700 

REF 

26 

LAST 

705 

14,2562 

C0031 

c 



SI 

0761 





14,2563 

COOOO 

1 



0 

0702 

REF 

6 

LAST 

7oa 

14,2564 

C03C4 

c 



STAR INC 

0 703 





14,2565 

TTTCO 

“T 


TIX.I 


C78A 

REF 

1 



14,5566 

3057 1 

1 



P51ST 

0765 

REF 

3 

LAST 

609 

14,256? 

36617 

1 


STCALL 

star SAV2 

0706 

REF 

2 

LAST 

708 

14,2570 

30572 

i 



P51ST +l 

0707 

REF 

2 

LAST 

9C 

14,2571 

02611 

c 

RSiST 

U T 0 F F 

star SAVl 

U788 





14,2572 

17776 

1 


exit 


0769 

REF 

12 

LAST 

66 1 

14,2573 

4 1011 

1 


cs 

MCOREC 

0790 

REF 

1 



14,2574 

6 2 704 

c 


AO 

0CT6 t 
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C791 





14,2575 

0 0006 

1 


EXTEND 




C792 

RBF 

1 



14,2576 

1 2677 

1 


82F 

R51B 

YES 


QJ9i 

HtF 

iU 

L^ST 706 

Ht25 77 

C 6006 

1 


TC 

INTPPET 



079A 





I4,26CG 

77624 

1 


CALL 




0795 

KEF 

4 

L4S1 

611 

14,26C 1 

300C2 

0 



a52 

AGP talLL ''AKE CALLS TO SIGHTING 


0796 





14,2602 

77624 

1 

R51A 

CALL 


CCRPUTE LCS IN 5H FROH MARK OATA 


C797 

REF 

1 



14,2603 

31273 

c 



SXTSR 



C798 

REF 

4 

LiST 

7oe 

14,2604 

C2617 

0 


STORE 

STAP SAV2 



C799 





14,2605 

77776 

1 


EXIT 




080C 

PEF 

189 

LiSl 

706 

14,2606 

0 4555 

c 


TC 

6AKKCALL 



0801 

REF 

7 

Ly>ST 

696 

14,2607 

16063 

0 


CACR 

NKPELEAS 



0602 

REF 

172 

L4S7 

709 

14,2610 

0 6006 

1 


TC 

INTPPET 


5 . 

0603 





14,2611 

45145 

c 


OLQAO 

CALL 


& 

0604 

REF 

9 

LIST 

70 1 

14,2612 

C26C7 

1 



TSIGPT 



08 05 

REF 

2 

L/ST 

708 

14,2613 

32363 

c 



PLANET 



06C6 





14,2614 

77776 

1 


EXIT 




0607 

REF 

7 

L^ST 

706 

14,2615 

U 3C4 

1 


CCS 

STAR IRC 



0806 

REF 

1 



14,2616 

0 2664 

1 


TC 

R51 .4 



0609 

REF 

173 

L/ST 

70 9 

14,2617 

0 6006 

1 


TC 

INTPRET 



0810 





14, 2620 

53521 

1 


RXV 

UM T 



0811 

REF 

22 

l/ST 

705 

14,2621 

C1736 

1 



REPSRPAT 


m 

0812 

REF 

3 

LAST 

44 I 

14,2622 

02736 

1 


STORE 

STAR AD 


H 

0813 





14,2623 

777 76 

1 


EXIT 




0814 

REF 

it 

L4ST 

70 6 

14,2 624 

0 5301 

0 


TC 

PHASCHNG 



0815 





14, 2625 

C5024 

1 


OCT 

05024 

RESTART this GROUP 4 JOB 


0816 





14,2626 

13000 

0 


OCT 

13C0C 

WITH PRIORITY 13 


0817 

RtF 

174 

L4S1 

709 

14,2627 

0 60C6 

1 


TC 

INTPRET 



0818 





14,2630 

77775 

1 


VLOAO 




0619 

REF 

5 

L4ST 

709 

14,2631 

C2617 

c 



STAR SAV2 



0820 





14,2632 

24007 

0 


STOVL 

6D 



0821 

REF 

3 

L/ST 

70 8 

14,2633 

026 11 

c 



StAR SAVl 



0622 





14,2634 

24015 

c 


STOVL 

120 



0823 

REF 

2 

L^ST 

90 

14,2635 

C26C1 

1 



PLANVEC 



0824 

REF 

6 

LIST 

709 

14,2636 

36744 

c 


STCALL 

STARAO *6 



0825 

REF 

1 



14,2637 

30707 

1 



R54 

STAR OATA TEST 


0626 





14,2640 

4 50 1 4 

c 


BOPF 

CALL 


ft 

0827 

REF 

1 



14,2641 

00354 

c 



PPEEPLAG 



0828 

REF 

1 



14,2642 

30650 

1 



R51K 



0829 

REF 

2 

LIST 

44 2 

14,2643 

47334 

c 



AXI SGEN 



0630 





14,2644 

77624 

1 


call 




0631 

REF 

1 



1 4 f ^ i ^ 5 

32203 

1 



R55 

GYRC TORQUE 


0632 





14,2 646 

776 1m 

1 


CLEAR 




0633 

REF 


LIST 

637 

14,2647 

01273 

c 



PPRATFLC 



0634 





1 4 f 2 ( ^ 0 

77776 

1 

R5LK 

EXIT 




0635 

REF 

2 

LIST 

154 

14,2651 

3 5660 

1 


CAP 

(JCT14 



0836 

REF 

19C 

LIST 

70 9 

14,2652 

0 4555 

0 


TC 

8ANKCALL 



0837 

REF 

4 

LIST 

693 

14,2653 

207S1 

c 


CAOR 

GCFERP 1 



0836 

REF 

51 

LIST 

706 

14,2654 

0 4106 

1 


TC 

GCTC’PCCH 



0839 





14,2655 

0 2657 

1 


fC 

♦ 2 

~TJ3 


0840 





14,2656 

C 2661 

1 


TC 

♦ 3 
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REF 

REF 

REF 

HI 

LAST 
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' 4 5 55 

C 

- = — 

TC 

bAKiKCALL 



- 



LAST 

694 

14,2660 


32120 

C 

CAOR 

P52C 


- 

ITS 

LAST 

709 

14.2661 

0 

6006 

1 

TC 

INTPPET 



C844 





14,2662 


1765C 

1 


GOTO 






084S 

REF 

1 



14,2663 


32143 

c 



LNDP50S 





0846 

RiF 

nt 

LAST 

7K 

14.2664 

0 

6006 

1 

R51 .4 

TC 

I hTPPET 





0047 





14,2665 


53521 

1 


MXV 

UNIT 





0646 

REF 

23 

LAST 

709 

14,2666 


€1736 

1 



REFSPPAT 





0849 

REF 


LAST 

709 

14.2667 


26601 

1 


STOVL 

PLAN VEC 





0850 

REF 

t 

L /5T 

709 

14,2670 


C2617 

c 



STAR SAV2 





0851 

REF 

4 

LAST 

709 

14.2671 


02611 

c 


STORE 

STAR SAVl 





_ O05J2 





14t26?2 


17731 

1 


SSP 






0853 

REF 

£ 

LAST 

709 

14,2673 


C03C5 

1 



STAP INC 





0654 





14,2674 


COOOO 

1 



0 





0855 





14,2£75 


1765C 

1 


GO TO 






0856 

REF 

1 



14,2676 


30530 

1 



R51.3 





0657 

REF 

117 

LAST 

71C 

14,2677 

G 

i 6006 

1 

R5ie 

TC 

INTPRET 





0658 





14.2100 


77624 

1 


CALI 






0859 

REF 

1 



14,2101 


32252 

0 



R56 





0860 





14,2702 


1765C 

1 


GOTO 






C861 

REF 

1 



14,2103 


306C2 

c 



R51A 





0662 





14,2104 


CC066 

1 

GCT66 

CCT 

00066 





0863 





14,2105 


C0306 

1 i 

V01N70 

VN 

0170 





0864 





14,2106 


C5253 

1 c 

1/6TH 

OEC 

,1666667 
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peats NAPE-FSS C^PC TCFUE 

H0866 F^.^C7 KN-CCMPUTE A^C SEND GYP C PUL SES 

kQ Itl CALL IFC SEC- C/LL PS5 I 

RQ868 (Nfll- XiYiZCC- REFSPPAT tiHT PRESEN T STABLE PE WBER 
RC869 CLTFLT- GYFC PLUSES 


R0a7C _ S LEPCniKES- CALCCTA .GCFLASHiGCCSPRt IPUP IKEt IPUPULSE .GCPERF 1 


08705 

REF 


LAST 

702 

15(2QG0 




SETLCC 

P50S 

C871 





15t2203 




BANK 


C8715 

REF 

1 







COUNT* 

$S/P 55 

0872 





15*2203 

77620 

C 

P55 

STQ 


0673 

REF 

6 

LAST 

707 

15,2204 

C2777 

1 



QPl N 

087A 





15.2205 

77624 

1 


CALL 


0875 

REF 


LAST 

532 

15,2206 

47140 

1 



CACCGTA 

0876 





15,2207 

77 776 

1 

PULSEN 

EXIT 


C877 

REF 

1 



15.2210 

3 2234 

C 

R53.1 

CAF 

V06N93 

0878 

REF 

1S2 

LAST 

7 10 

15,2211 

0 4555 

c 


TC 

BANKCALL 

0879 

REF 

32 

LAST 

695 

15* 2212 

20624 

c 


CAOR 

GQFL ASH 

0880 

REF 

52 

LAST 

70S 

15.2213 

0 4106 

1 


TC 

GCTOFCCH 

0881 

REF 

1 



15,2214 

0 2216 

c 


TC 

ft55. 2 

0682 

REF 

1 



15,2215 

0 2231 

0 


TC 

R55R ET 

0883 

REF 

C7 

LAST 

709 

15.2216 

C 5301 

c 

R55,2 

TC 

PHASCHNG 

uaeA 





15,2217 

C0314 

1 


OCT 

00314 

0865 

REF 

1 



15,2220 

3 2235 

1 


CA 

R55CCP 

0886 

REF 

IS3 

LAST 

711 

15,2221 

0 4555 

c 


TC 

BANHCALL 

0887 

REF 


LAST 

43 7 

15,2222 

17125 

I 


CADR 

IMUPLLSE 

0868 

PEF 

IS^ 

LAST 

711 

15,2223 

0 4555 

c 


TC 

BANNCALL 

0689 

REF 

£ 

LAST 

437 

15,2229 

17516 

c 


CADR 

IMbSTALL 

0090 

REF 

1 



15, 2225 

0 56^6 

c 


TC 

CURTAINS 

0891 

REF 

88 

LAST 

711 

15,2226 

0 5301 

c 


TC 

PHASCHNG 

0892 





15,2227 

C5024 

i 


OCT 

05C24 

0093 





15,2230 

13C00 

c 


OCT 

1 3C0C 

C89A 

REF 

ne 

LAST 

71C 

15,2231 

0 6CC6 

1 

ftSSRET 

TC 

INTPPET 

0895 





15,2232 

77650 

1 


GOTO 


0896 

REF 

7 

LAST 

711 

15,2233 

C2777 

1 



CHIN 

0897 





15, 2234 

01535 

c 

V06N93 

VN 

0693 

0698 

REF 

16 

LAST 

533 

15,2235 

C2757 

c 

R55CDR 

fcCADR 

CGC 

0899 

REF 

1 



14,2707 



P 64 

* 

CHKSCATA 

P0900 

RCLT1^£ 

NAPE- 

CHKSCATA 





DATE- JAN 9, 1967 

R0902 

HCC 

NC- 

C 







LCG SECTIUN- P61-P53 

R090A 

wee IF ICAT ICN 

BY- iChSKE 





AS5EPBLY- 


RC90t _ FLFC11CRAL OESCRlPflCK - CHECKS THE VALlCitY OF A PAIR UF STAR SlGHtlNGS. hhEN A PA I R OF STAR 

P0908 BT TFE ASTFQKALT THIS ROUTINE OPERATES AKC CHECKS THE OBSfcRVEC SlGHTIhGS AGA IN5t“Tn!REG STAR VECTORS IN THE 

R0910 CCPFL1EP TC INSURE A FROPEP SIGFTING WAS PACE# ThE FOLLOWING CCWPLTATlCNS ARE PERFORMED. 


JIAR 


* 

t- 


P51-P51 


B0912 

Ra913 

RC91A 

R0915 

RQ9L6 


CSl » CBSERVEC STAR I VECTOR 
0S2 = CBSERVEC StAR 2 VECTOR 

551 - STCREO STAR I VECTCR 

552 • STORED STAR 2 VECiCR 

Ai- ARCCCSICSl - GSZI 


NASA 2C2ini-C31 


ilA£t 


/iSjiPK PLf REVISICN 221 CF AGC PHLGPAM 



L P51-PS3 ^ 

R 09 17^ ^ " A 2 = ARCCCSCSSl - SS2> 

p 0 9 1 0 /> a A 8 S 1 2 ( A I - A 2 M 
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PQ919 Th£ A^CULAF JLilFFEBENCt IS DISPUAVEO PC B ASTR ONAUT ACCEPTENCE 
F0920 EXn FCCE 1. FPEEKAC SET IMPLIES ASIPCNAUT HANTS TC PROCEED 

BU921 y. FREEfLAC RESET IMPLIES ASTRONAUT WANTS TO RECYCLE E»ANCE ) 

P.C923 CLTfLl " 1*VERB 6tNCUF 3- DISPLAYS ANGULAR CIPFEREN CE BETWEE N 2 SET S CP STARS « 
R0925 2. STAR ViCT QPS FR OM STAR CATALCG APE LEFT IN 6D ANC 12D. 


BC926 EPASA6LE INJT lAliiAT JCN RECWIPEC - 

P0927 l.MABK VECTOPS APE STCRED IN STAPAC ANC STAHAD 


KQ92e_ 2. CATALOG VECTORS APE STCREC IN 60 ANQ 120. 


RC929 

CEEBIS - 











09295 

REP 

4 

LAST 

709 

1 ^ f 2 0 Q C 




SETLCC 

P5C SI 



0930 





19,2707 




SANK 




C9305 

PEP 








COUNT* 

SS/R50 



0931 





19,2707 

9 30 20 

1 

CHKSCATA 

STO 

SET 



0932 

REF 

e 

LAST 

711 

19,2710 

02777 

1 



QHIN 



0933 

REP 

2 

LAST 

709 

19,2111 

CQ079 

1 



FPEEPLAG 



093A 





19,2712 

77760 

C 

CHKSAB 

AXC,1 


SET XI TO STORE EPHEMERIS 

DATA 

0935 

REF 

7 

LAST 

70S 

19,2713 

02735 

1 



STAF AO 



P0936 













0937 





19,2719 

97773 

1 

CHKSb 

VLOAD* 

DOT* 

CAL. angle theta 


0930 





19,2715 

OCCCl 

c 



0,1 



0939 





19,2714 

C0CC7 

c 



6 f 1 



09^0 





19,2717 

45552 

c 


SLl 

ACGS 



0991 

REF 

1 



19,2720 

00025 

c 


STORE 

THETA 



0992 





19,2721 

93019 

c 


BOFF 

INVERT 

BRANCH TC CHKSO IF THIS IS 

2N0 PASS 

0993 

REF 

3 

LAST 

712 

19 , 2 722 

0C359 

c 



free FLAG 



C999 

REP 

1 



19,2723 

30733 

c 



CHKSL 



0995 

REF 

9 

LAST 

712 

19,2729 

00179 

c 



FPEEPLAG 

CLEAR FREEFLAC 


0996 





19,2725 

71360 

1 


AXC,1 

OLOAC 

SET XI TC MARK ANGLES 


0997 





19,2724 

C00C6 

1 



60 



0998 

REF 

2 

LAST 

712 

19,2727 

C0C25 

c 



tHE T A 



C999 





19,2730 

00023 

c 


STORE 

IbD 



0950 





19,2731 

77650 

1 


GOTO 




0951 

REP 

1 



19,2732 

30719 

c 



CHKSL 

RETURN TO CAL. 2NC ANGLE 


0952 





19,2733 

95395 

1 

CHKSO 

OLOAC 

OSU 



0953 

REP 

3 

LAST 

712 

19,2739 

C0C25 

c 



thet 



0959 





19,2735 

C0023 

c 



180 

CCMPUTE PCS DfFT 


0955 





19, 2734 

97096 

c 


ABS 

RtB 



0956 

REF 

3 

LAST 

99 3 

19,2737 

9559 1 

c 



SGNACREE 



0957 

REF 

1 



19,2 79C 

01096 

1 


STORE 

NCRMTEMl 



0956 





19,2791 

77919 

c 


SET 

EXIT 



0959 

REP 

c, 

> 

LAST 

712 

19,2792 

00079 

1 



FREEFLAG 



09599 

REF 

192 

LAST 

698 

19,2793 

3 9719 

1 


CAP 

ZERO 



09595 

REF 

195 

LAST 

71 1 

19,2799 

0 9535 

c 


TC 

bakkcall 



09596 

REF 

5 

LAST 

639 

19,2795 

20607 

1 


CaOR 

cleancsp 




OSfeC REF I lAt2?<.6 3 2742 C CAP Vb6N5 
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0961 

REf 

1S6 

LAST 

712 


14t2747 

0 4555 

C 


TC 

PARK CALL 


0962 

Q963 

REF 

REF 

■3 *3 

LAST 

71 1 


14,2750 

20624 

C 


CADR 

G( FLASH 




711 


14tZ|51 

1 4iC6 

< 


TLF 

GCiTCPCCH 


0964 

REF 

1 




14,2752 

0 2757 

c 


TC 

CHKSCA 

PRQCEEC 

0965 

REF 

179 

LAST 

711 


14,2753 

C 6006 

1 


TC 

INTPRET 


G966 






14,2754 

52G14 

0 


clear 

GCTC 


0967 

REF 

e 

LAST 

712 


14,2755 

002 74 

0 



FPEEFLAG 


0966 

REF 

9 

LAST 

712 


14,2756 

C2777 

1 



QMi N 


0969 

REF 

lEO 

LAST 

713 


14,2757 

C 6006 

1 

CHKSCA 

TC 

INTPRET 


0970 






14,2760 

77650 

1 


GOTO 



0971 

REF 

10 

LAST 

713 


14,2761 

C2777 

1 



QMIN 


0972 






14,2762 

01405 

1 

VB6N5 

VN 

605 


RC973 

NAPE 

- CH!3A 










R0974 

NAPE 

- CAL53A 










RQ975 

FLPCT ICN 

- COARSE ALIGN THE IPUt IF 1 

NECESSARY . 




R0976 

CALL IPG 

SECUENCE - 

CALL CAL53A 






R0977 

IhFlT - 

PRESENT CINBAL ANCLES ~ CCUX tCCLY* COUZ 




R0978 


CESIREC G iPeAL ANGLES 

“ THETAC, 

♦ 1 f ♦ 2 




RQ979 

on PI T - 

TFE IPU CCCRCINATES ARE STOREC 

IN REFSHHAT 



R098C] 

SLEFCETINES LSED - 

1. 

, IHUCCARS 

2.IHLSTALL 3.CLRTAINS 



0981 

REF 

Z 

LAST 

712 TC 

7131 

4 4 ' 

94* 


COUNT 

14/R 5C 















0982 






14,2763 

4502C 

1 

CAL53A 

sro 

CALL 


0983 






14,2764 

CG03S 

1 



29D 


09 84 

REF 

2 

LAST 

693 


14,2765 

22256 

C 



S52.2 

HAKE FINAL CCHP OF GIMBAL ANGLES 

0985 






14,2766 

66234 

1 


RTB 

SSP 


0986 

REF 

1 




14,2167 

32236 

1 



RdCOLS 

PEAC ecus 

0987 

REF 

27 

LAST 

708 


14,2770 

0CC51 

0 



Si 


0988 






14,2171 

GOOCl 

0 



1 


0969 






14,2772 

40370 

1 


AXT,1 

SETPD 


0990 






14,2773 

00003 

1 



3 


0991 






14,2774 

G00C5 

1 



4 


0992 






14,2775 

70543 

1 

CALCOP 

DLOAO* SRI 


0993 

REF 

It 

LAST 

58 5 


14,2176 

C1161 

C 



THETAC *30,1 


0994 






14,2777 

7C523 

1 


POOL* 

SPl 


0995 






14,3000 

C0005 

1 



4,1 


0996 






14,3001 

51425 

C 


OSU 

A6S 


0997 






14,3002 

452C6 

1 


PUSH 

OSLi 


C996 

REF 

1 




14,3003 

3106O 

c 



OECR EEI 


0999 






14,3004 

11240 

i 


BHN 

OLOAC 


1000 

REF 

1 




14,3005 

31034 

I 



C ALQCPl 


1001 






14, 3006 

5i02T 

i 


dSu 

8PL 


1002 

REF 

1 




T4,3CC7 

31061 

1 



CEG3i9 


1003 

REF 

2 

LAST 

712 


14,3C10 

31034 

i 



CALOCPI 


1004 






14,3011 

77776 

1 

ccarfine 

EXIT 



1005 

REF 

197 

LAST 

713 


14,3012 

0 4555 

0 


TC 

bankTall 


1006 

REF 

4 

LAST 

419 


14,3013 

16602 

1 


CAOR 

IHUCCARS 

PERFCRH COAPSE ALIGNMENT 

1007 

REF 

196 

LAST 

713 


14,3014 

0 4555 

c 


TC 

BANK CALL 


1006 

REF 

9 

LAST 

711 


14,3015 

17516 

-jr- 


CAOR 

ihustall 

REQUEST HCGE SHltCH 

1009 

REF 

2 

LAST 

711 


14,3016 

Q 5646 

c 


Tt 

CUR T A INS 



gap: 


L 
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1010 

REF ISS 

LAST 

713 

19,3C17 

0 9555 

( 


TC 

bankcall 



1011 

REF 1 



19,3020 

17012 

1 


CACR 

IMUF IN20 



1012 

HFF XCSi 

LAST 

719 

19t3G21 

Q 9555 

c 


TC 

BANKCALL 



1013 

REF K 

LAST 

713 

19,3022 

17516 

c 


CADR 

IMUSTALL 



101^ 

REF 3 

LAST 

71 3 

19,3023 

0 5696 

c 


TC 

CURTAINS 

TEST FOR malfunction 


1015 

Rlf_llX__ 

UlT 

71J 

19,3029 

C 60C6 

_L 


TC 

INTP PET 



1016 




19,3025 

77239 

1 


RTB 

VLOAC 



1017 

REF 1 



19,3026 

31270 

c 



SETl/PDT 



1018 

RtF 3 

LAST 

97E 

19,3027 

11953 

c 



ZEFOVEC 



1019 

REF le 

LAST 

925 

19,3030 

C1972 

1 


STORE 

CCCNP 



1020 




19,3031 

52019 

c 


SET 

GOTC 



1021 

REF 1 



19,3032 

C1C60 

c 



DPIFTFLG 



1022 

REF 1 



19,3033 

31036 

c 



F INECNLY 



1023 




19,3039 

777CC 

c 

CALOOPl 

T(X,1 




102 V 

REF 1 



19,2035 

30775 

1 



CALC CP 



1C25 




19,3036 

75160 

1 

FINEONLY 

AXC ,1 

AXC ,2 



1026 

REF 31 

LAST 

528 

19,3037 

C267 1 

c 



XSH 



102 7 

REF 29 

.LAST 

7U 

19,3C9C 

01735 




REFSMMAT 



1028 




19,3091 

77629 

1 


CALL 




1029 

REF 1 



19,3092 

31095 

1 



MATMCVE 



1030 




19,3093 

7765C 

1 


GOTU 




1C31 




19,3099 

00035 

1 



29D 



1032 




19,3095 

77773 

1 

MATMCVE 

VLCAD’" 


TRANSFER MATRIX 


1033 




19,3096 

00001 

c 



0,1 



103A 




19,3097 

ICOO 1 

1 


STORE 

0,2 



1035 




19,3050 

77773 

1 


VLCAO* 




1036 




19,3051 

C00C7 

0 



6D f 1 



1037 




19,3052 

100C7 

1 


STQPt 

6 D f 2 



1038 




19,3053 

77773 

1 


VLOAD* 




1039 




19,3059 

0QC15 

c 



120,1 



lOAO 




19, 3055 

10015 

1 


STORE 

120,2 



lOAl 




19,3056 

77616 

c 


RVC 




10A2 




19,3057 

C0056 

1 

CEGREEl 

DEC 

96 



10A3 




19,3060 

37722 

1 

0EG35S 

DEC 

16338 



1099 

REF 9 

LAST 

71 1 

15,2000 




SETLOC 

P50S 



1095 




15,2236 




BANK 




1096 




15,2236 

0 CCC9 

0 

RCCCUS 

INHINT 


READ ecus 


1097 

REF 16 

LAST 

65£ 

15,2237 

3 0032 

c 


CA 

CDUX 



1098 

REF 12 

LAST 

569 

15,2290 

5C 120 

1 


INDEX 

F IXLCC 



1099 




15,2291 

59 OCl 

1 


TS 

1 



1050 

REF 7 

LAST 

65E 

15,2292 

3 0033 

1 


CA 

COUY 



1051 

REF 13 

LAST 

719 

15,2293 

50 120 

1 


INDEX 

F IXLCC 



1052 




15,2299 

59 0C2 

1 


TS 

2 



1053 

REF 1C 

LAST 

658 

15,2295 

3 0039 

c 


CA 

CDU2 



1059 

REF 19 

LAST 

719 

15,2296 

50 120 

1 


INDEX 

F IXLCC 



1055 




15,2297 

59 CC3 

c 


TS 

3 



1056 




15,2250 

C 0003 

i 


RELINT 




1057 

REF 5 

LAST 

53 5 

15,2251 

C 6030 

1 


rc 

DAN2 IC 



R 10 58 

NAM - CIRE 










K1U59 

f IFC7 ICN 

- GET ERMINE 

ANC COMPUTE THE 

CESIREC GIMttAL ANCLES TC BE USED 

FOR COARSE ALIGNMENT. 
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SLEPCllINEJ ISED - l.CDUTPIG 2.CALCS PSC 3.CALCGA 


1065 

REF 

2 

L^ST 

694 

16t2000 



SETLCC 

P50S2 


X C 66 





16.2567 



BANK 



1067 

REF 

1 






COUNT 

14/ INFLT 











1068 





16.2567 

41345 

C CALCSPSC 

OLCAD 

OP'P 


1Q6S 

REF 

1 



l6f257C 

C073? 

1 


SINCCUV 


1070 

REF 

2 

LASl 

53 3 

16,2571 

00 747 

C 


CGSCCU2 


1071 





16.2572 

77676 

0 

DCORP 



1072 





16,2573 

70525 

1 

POOL 

SRI 


1073 

REF 

m 

d 

L^ST 

533 

16,2574 

C0741 

0 


S INCCUZ 


107^ 





16.2575 

41325 

0 

POOL 

DMP 


1075 

REF 

1 



16,2576 

C0745 

1 


CCSCCUY 


1076 

REF 


LAST 

715 

16,2577 

00747 

c 


cost CLZ 


1077 





16,26CC 

76466 

1 

VDEF 

VSLl 


1078 

REF 


LAST 

70“ 

16,26Ll 

02 714 

1 

STORE 

XN& 


107R 





16,2602 

41345 

c 

DLQAO 

D«P 


1080 

REF 

2 

LAST 

533 

1 6 f 2 6 G 3 

00743 

1 


SINCCtX 


1081 

REF 

3 

LAST 

715 

16,2604 

CC741 

c 


SINCCLZ 


1082 





16,2605 

77752 

1 

SLl 



IC83 





16.2606 

00033 

1 

STORE 

260 


1084 





16,260? 

77605 

1 

OMP 



1065 

REF 

2 

LAST 

715 

16,2610 

00737 

1 


SINCCUY 


1086 





16,2611 

41325 

c 

POOL 

DNP 


1087 

REF 

2 

LAST 

533 

16,2612 

00751 

1 


ccsccux 


1088 

REF 

2 

LAST 

715 

16,2613 

0C745 

1 


COSCCUY 


IC8S 





16.2614 

77625 

c 

OSU 



1090 





16.2615 

413 2 5 

c 

POOL 

ORP 


1091 

REF 

4 

LAST 

715 

16,2616 

00743 

1 


SINCCLX 


1092 

REF 

4 

LAST 

715 

16.2617 

00747 

c 


COSC CUZ 


1093 





16,2620 

77676 

c 

DCOHP 



1094 





16,2621 

41325 

c 

POOL 

OMP 


1095 

REF 

4 

LAST 

715 

16,2622 

00751 

1 


CCSCCLX 


1096 

REF 

3 

LAST 

715 

16,2623 

C0737 

1 


S INt COY 


1097 





16,2624 

4132 5 

c 

POOL 

DMP 


1098 

REF 

3 

LAST 

715 

16,2625 

CC745 

1 


CCSCCLY 


1099 





16,2626 

00033 

1 


260 


HOC 





16,2627 

*5415 

1 

OAC 

VDEF 


1101 





16,2630 

77772 

0 

VSLl 



1102 

REF 

K 

LASl 

70 5 

16,2631 

C2730 

1 

STORE 

ZNB 


1103 





16,2632 

16435 

1 

VXV 

VSLl 


1104 

REF 

6 

LAST 

715 

16,2633 

02714 

1 


XNB 


1105 

REF 

4 

LAST 

415 

16,2634 

02722 

1 

"TTqre 

TFJ5 


1106 





16,2635 

776 16 

c 

RVO 



P1107 

NAPE 

- 

F5l - 

IPU CRIENTATION 

CETERRlKAt ICN 




RilC8 

HCC . 

NC . 

2 21 

CEC £6 






— _ =-tX)G SECTION - P'Sl-PSB 

RlllO 

HCC 

S’! 

5TLFLALGSGN 
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R1112 Pl^CTIC^H OeSCRIMlCN 

JtiiI3 fPTPRAINPS THE INERTIAL CRIEMATION OF THE IHO. TH PPUCRAH IS SELECTED BY DSKV ENTRY. TEE SI GHTfNG 

RU15 RClTINe IS CALLED TL COLLECT THE CCU CCLNTERS AND SHAFT AND TRUNNION ANGLES FOR 4 SIGHTED STAR. THE DATA IS 
RU17 TFEN fRCCEJSEC AS FCLLCNS. ___ 

ft 11 18 1. SEATAfT ANGLES ARE CCFPUIEC IN TERNS CF NAVIGATIONAL BASE COORDINATES. LET SA ANt TA GE THE SHAFT AND 

R1120 TPL4MCN AFGLESf RESPECTIVELY. THENf 


R1121 - 

R1122 V » (SIMTAI ♦CCSISAI, S 1 M T A ) « S IN I SA ) , CCSITAM (A CCLUNN VECTCRt 

RlU'i NE 

R1125 TEE ClTPn IS A HALf-UMT VECTCR STCPEC IN 5TARH. 


R1126 

2. THIS VECTCR 

IN 

NAV.6ASE 

CGCRDS. 

IS then 

TRANSFORHEC 

TC CNE 

IN STABLE 

HEP6ER CQGRCINATES. 



RU2e 

R1129 

V » 

G 

T T T - 

*Q *Q «V 

« HHERE 










Rli30 



I 2 3 

NB 










Hil31 


( 

CCSdG i 

0 

SIMIG) 

) 








R1132 


( 




» 




THE 

GIMBAL ANCLES ARE CCMPUTEO FROM 



R1134 

C “ 

( 

0 

1 

0 

^ f 

IG» INNER 

GI HEAL 

ANCLE 

THE 

ecu COUNTERS AT NBSP (USING AXIS- 



R1136 

1 

( 




I 




ROT 

AND CCULQGIC) 



B1130 


( 

SIN( IG ) 

0 

cos ( 10 ) 

1 








P113S 














HllAG 


( 

C CS(HU ) 

SIN (NG) 

0 

I 








Rll<.l 


( 




} 








RLU2 

G * 

(- 

SIN (HG) 

CCS(NG) 

0 

J f 

RC»H lOCLE 

01 HBAL 

ANGLE 





R1143 

2 

( 




) 








Rll^^ 


( 

U 

0 

1 

I 








R11A5 














Rll<>6 


( 

1 

C 

c 

I 








Rll^T 


( 




) 








RU48 

Q m 

( 

0 

CCS(QO) 

SIN(OG) 

J f 

CC-OUTER 

GIHEAL 

anglC 





Rll^S 

3 

( 




» 








R115C 


( 

0 

SIN (GO 1 

(CS(CG» 

} 









RllSl 3. 1HE SlAB NUHEEB IS SAVED AND THE SECCNL STAR IS THEN SIMILARLY PRCCESSEC. 


R1153 A. THE angle BETNEEN THE TwO STARS IS THEN CHECKED AT CKSCATA. 

fiUSA !. REFSHHAT IS THEN CONPUTEC AT AA tS CEN AS FOLLOWS. 

R1155 

R1136 LET S AND S 8E TWC STAR VECTORS EXPRESSED IN TwO COLRDINAtE SYSTEFSfA INO 8 (BASIC AND STABLE NEM8EP). 


RU58 1 2 

RUSS DEFINE. - - 

I — ________ — 
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P1160 I « S 

P1161 A Ai 


Pli62 . 

P11C3 V ^ UMKS X S » 

fLULt^^ A A1 A2 

R1165 - - 


H 1 Lfefe ^ ^ ^ U X V 


RU67 


A 

A 

A 

R1168 

AFC 





R116 9 - 

R117C U » S 

R1171 e ei 


HU72 - “ - 

R1173 V » IMTtS X S » 

R117A e 01 B2 


P1175 - - - 

RU7^ W « I X V 

R1177 8 60 

. ilU7J IPEM z I Z_ 

fill79 X * L AU + V ♦V ■» h All 

Riieo ei A B1 A B1 A 


H1161 - - - (fiEFSHMATJ 

R1182 y * L AU ♦ V ♦V ♦ h ♦»» 

RUe3 „ 62 A 02 A 82 4 


R110A - , _ , 

RUBS Z - L AU ♦ V «> ♦ h 

K1186 63 A ea A 63 A 

RUfi? 7F 6 INPUTS CChSIST CF ThE FOUR hAlf-UMT VECTORS STQR6C AS PCILQUS 

PU68 


Plies 

S IF e-ll CF the vac area 


RllSQ 

A 1 



RllSl ^ 

RIIS2 S IF 12-17 CF 7FE VAC AREA 

R11S3 A2 


PI ISA 

P1195 S IF STARAO 

R1196 01 


H 1 IS7 
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R1198 

S Lh StABAD 


RU9<i 

B2 





R12Q0 

CALLlhG SECOENCE _ 




RXZCl 

ue PRCGP/iP IS CILLEC BY THE 4STPCN4UT BY CSKV ENTRY. 





RI202 

SLEFQLllNES CALLEC. 




RI203 

CCFERP3 


R120A 

CCFEPflR 


R12C5 

CCCSPP _ 


HL206 

IPICC/PS 


R1207 

IPLF IR2Q 


P I2t8 

F53 


P1209 

!X1RE 


R1210 

FESR 


R1211 

fRPEL EAS 


P1212 

(KRSCUA 


RL213 

PAlHCVe 





Rl21<i 

AL/PP5 





8121 5 

hCRE. 


P12U 

ERA54tLE IMTIALUAIICK 



R1217 

IPI ZERO FLAG SHCULO BE SE1. 





Pl2ie 

cnpi 1 





P1219 

PEFSFFAl 


Ri220 

FEFSPfLG 





R122I 

CEEP n 



RI222 


VCPK /REA 











R1223 


S T A R A C 











R122A 


n/R UC 











R1225 


EEST 1 











Pi226 


i ESTJ 
























1227 

REF 

5 L/Sl 

712 

14,2C0C 





SETLOC 

P5CSI 



1228 




14t3C6l 





BANK 




1229 

REF 

1 







COUNT 

14/P5153 
















1230 

REF 

2 LAST 

195 

14f 3C61 




P53 

EUUALS 

P5l 



1231 

REF 

42 LAST 

375 

14,3061 

4 

1320 

C 

P51 

CS 

lMt0ES30 



1232 

REF 

it LAST 

686 

14,3062 

1 

47C2 

1 


Mask 

6IT9 



1233 

REF 

173 LAST 

696 

14,3063 

lO 

QCO 

i 


CCS 

A 



1234 

REF 

1 


14,3064 

0 

3010 

( 


TC 

P5IA 
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U35 

PEF 

is 

L4ST 

097 

H,3C65 

0 5537 

C 

IC 

AL AKR 

1236 





lAr 3C66 

00210 

1 

CCT 

210 

1237 

REF 

2^ 

L/ST 

713 

l<it3C67 

0 ^1C6 

1 

7C 

GOTQFCOH 

1236 

REP 

iCl 

L<S7 

7M 

U»3C70 

0 9555 

C P51A 

TO 

BANKCALL 

1239 

REP 

1 



l«t3C71 

176C7 

C 

CAOR 

RC22 EhC 


1290 

REP 

1 



19,3072 

3 9720 

C P51AA 

CAP 

PRPR STAC 


1291 

REP 

iCi 

LAST 

719 

19,3C73 

C 9555 

C 

TC 

BANKCALL 


1292 

Rf P 

c 

LAST 

7Q9 

19i3C79 

20751 

C 

CAOR 

GUPERf 1 


1293 

REP 

Q 

LAST 

719 

19,3C75 

C 91C6 

1 

TC 

GCTCFCCH 

T ERR . 

1299 

REP 

1 



19,3076 

0 2191 

c 

TC 

P5ie 

V 33 

1295 

REP 

t s 

LAST 

711 

19.3C77 

C 530 1 

c 

TC 

PHASCPNG 


1296 





19, 3100 

C5029 

1 

OCT 

05029 


1297 





19,3101 

13000' 

c 

CCT 

13G0C 


. 1298 

REP 

1 



19.3102 

3 9719 

1 

CAP 

P5l2ERf 


1299 

REP 

11 

LAST 

713 

19,3103 

55*155 

c 

TS 

THET AC 

ZERO TPE GIR0ALS 

1250 

REP 

16 

LAST 

719 

19, 3109 

55*156 

c 

TS 

THtTAC +1 


1251 

REF 

19 

LAST 

719 

19,3105 

55*151 

1 

TS 

ThETAO *2 


1252 

REP 

1 



19,3 106 

3 3266 

c 

C A F 

V6N22 


1253 

REF 

2C3 

LAST 

719 

19,3107 

0 9555 

c 

TC 

bANRCALL 


1259 

REP 

2 

LAST 

99C 

19,3110 

20577 

c 

CAOR 

GCDSPRET 


1255 

REP 

1 



19,3111 

3 3267 

1 

CAP 

V91K 

NGN DISPLAY COARSE ALIGN VERB 91 

1256 

REP 

2C9 

LAST 

719 

19,3112 

0 9555 

0 

TC 

BANKCALL 


1257 

REF 

3 

LAST 

719 

19,3113 

2057? 

c 

CAOR 

OCOSPPET 


1256 

REP 

2C5 

LAST 

719 

19,3119 

0 9555 

c 

TC 

BANKCALL 


1259 

REF 

5 

LAST 

713 

19,3115 

166C2 

1 

CAOR 

INUCCAPS 


1260 

REP 

2C6 

LAST 

719 

19,3116 

0 9555 

c 

TC 

BANKCALL 


1261 

REF 

11 

LAST 

719 

19,3117 

17516 

c 

CAOR 

IMUSTAU 


1262 

REP 

9 

LAST 

719 

19,3120 

0 5696 

c 

TC 

CURTAINS 

CAGING OR BAD END 

1263 

REF 

2C7 

LAST 

719 

19,3121 

C 9555 

c 

TC 

BANKCALL 

SCHEDULF IFAILOK AND IRUPINEO TASKS, IN 5 

1269 

REP 

2 

LAST 

71 9 

19,3122 

17C12 

1 

CAOR 

INUP IN26 

AND 20 SECS. CIRECT RETURN AND NO STALL, 

1265 

REP 

2CE 

LAST 

719 

19,3123 

0 9555 

c 

TC 

BANKCALL 

IF CAGING. eUT T9 WILL ZERO C/A ENABLE. 

1266 

REF 

12 

LAST 

719 

19,3129 

17516 

c 

CAOR 

IWUSTALL 

IP PUT TC SLEEP, INUPINEO HILL HAKE US 

1267 

REP 

5 

LAST 

719 

19,3125 

0 5696 

c 

TC 

CURTAINS 

UP. 

1268 

REF 

1 Ei 

LAST 

719 

19,3126 

C 60C6 

1 

tc 

INTPPET 


1269 





19,3127 

77239 

1 

RTB 

VLOAC 


1270 

REP 

2 

LAST 

719 

19,3130 

31270 

c 


SPT 1 /PCT 


1271 

REF 

9 

LAST 

719 

19,3131 

11953 

c 


ZEPOVEC 


1272 

REF 

19 

LAST 

719 

19,3122 

01972 

1 

STORE 

CCCMP 


1273 





19,3133 

779 19 

c 

SET 

tX 1 T 


1279 

REF 

2 

LAST 

719 

19,3 139 

C106C 

c 


DRIFTPLG 


12 75 

REP 

7C 

LAST 

719 

19,3115 

0 5301 

c 

TC 

PFiASCHNG 


1276 





19,3136 

C5029 

1 

ocf 

05029 


1277 





19,3 137 

130Cd 

c 

CCT 

1300C 


1278 

REF 

1 



19, 3190 

1 3072 

c 

TCP 

P51 AA 

CCARSE ALIGN DONE - RECYCLE FOR FINE 


Q 
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Pills 

i2aQ 


CC ST^P SIGHT IhC 

'Ll L£3J 719 

4hC CCHPC7E NEW 

REFSPHAT 





- 

REF 


0 5301 

_L _ P_il.fi _ 

TC 

PhASChNG 



1181 





14,31<i2 

00019 

1 

OCT 

00019 




1282 

REF 

1 E3 

Li»Sl 

719 

1A,3143 

C 6QC6 

1 

TC 

INTPPET 




1283 






90331 

1 

SSP 

SETPC 




U84i 

REF 

9 

L/ST 

71C 

14,31^5 

C03C5 

1 


STAR INC 


INOEX-STAP 1 CR 2 


1285 





14t31A6 

COOOC 

1 


0 




1286 






COOOl 

C 


0 




1287 





19,3150 

77419 

c 

CLEAR 

EXIT 




1288 

REF 


L^ST 

708 

19,3151 

00666 

1 


TAPG2FLC 


SHOW STAR PARK-NCT LAND HARK 


1289 

REF 

57 

j.m 

708 

19,3152 

3 9712 

1 

IaF 

FIT! 




1290 

REF 

6 

LitST 

706 

19,3153 

59 3Cl 

1 

TS 

MARK INCX 


INITIALIZE FOR CNE HAPK 



12.91 

LEF 

__12„ 

L^ST 

72C 

19,3159 

0 5301 

C 

P51C 

TC 

PHA SCHNG 



1292 





19,3155 

C5029 

1 


OCT 

05029 



1293 





19,3 156 

13000 

C 


OCT 

13CCC 



1299 

REF 

.15. 

JJST 

505 

19,3157 

0 5253 

C 


TC 

CHECKMP' 



1295 





19,3160 

C0065 

1 


MM 

53 

BACKUP PRCGPAP 


1296 

REF 

1 



19,3 161 

1 3167 

C 


TCP 

P51C .1 

NCT P53 


1297 

REF 

169 

LAST 

72 C 

19,3162 

0 6QC6 

1 


TC 

INTPRET 



129 8 





19,3163 

77629 

1 


CALL 




1299 

REF 

1 

LAST 

71C 

19,3169 

322*2 

C 



R56 



1300 





19,3165 

77650 

1 


GOTO 




1301 

REF 

1 



19,3166 

31172 

1 



Pile .2 



1302 

REF 

185 

L ASl 

72C 

19,3167 

0 6006 

1 

P5lC. 1 

TC 

“INTPFET 



1303 





19,3170 

77629 

1 


CALL 




1309 

REF 

3 

LAST 

698 

19,3171 

31327 

c 



R53 

SIGHTING RCUTINE 


1305 





19,3172 

77629 

1 

P51C.2 

CALL 


CCPPUTE LOS IN SM FROM MARK DATA 


13G6 

REF 

2 

LAST 

709 

19,3173 

31273 

c 



SXTSP 



1307 





19,3179 

176C6 

1 


PUSH 




1308 





19,3175 

53135 

c 


SLOAC 

azE 



1309 

REF 

10 

LAST 

72C 

19,3176 

C03C5 

1 



STAR INC 



1310 

REF 

1 



19,3177 

31209 

c 



P510 



1311 





19,3200 

95575 

1 


VLOAD 

STADR 



1312 

REF 

7 

LAST 

71C 

19,3201 

75160 

1 


STORE 

STAR SAV2 

DOWNLINK 


1313 





19,3202 

77650 

1 


GOTO 




1319 

REF 

1 



19,3203 

31212 

1 



P51E 



1315 





19,3209 

95575 

1 

P5lC 

VLOAD 

STADP 



1316 

REF 

5 

LAST 

71C 

19,3205 

61166 

1 


STCDL 

STAR SAVl 



1317 

REF 

1C 

LAST 

70S 

19,3206 

02607 

i 



TSIGFT 



1318 





19, 3207 

77629 

i 


CALL 




1319 

REF 


LAST 

70S 

19,3210 

32363 

c 



planet 



1320 

REF 

9 

LAST 

71C 

19,3211 

C26C1 

1 


STORE 

PLAKVTC 



1321 





19,3212 

77776 

1 

P5ie 

Exit 




1322 

REF 

73 

LAST 

72C 

19,3213 

0 53CI 

c 


TC 

phaSChng 



1323 





19,3219 

C5d29 

1 


OCT 

05029 



1329 





19,3215 

UOCO 

£ 


OCT 

130CC 



1325 

REF 

2C9 

LAST 

719 

19,3216 

0 9 5“*r5“ 

C 


TC 

8ANKCALL 



1326 

REF 

6 

LAST 

70S 

19,3217 

16063 

c 


Caor 

HKRELeAS 

ZERO HARiCSTAT 
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1327 

BEF 

11 

LAST 

72C 

14,322C 

1C 3C4 

1 


CCS 

STAR INO 



1326 

REF 

1 



14»3221 

1 3230 

1 


TCP 

P51F 


STAR 2 

iJ29 

Rli_ 

Jl4 LAST 

72C 

14.3222 

0 53C1 

_L_ 


TC 

PHASCHNG 



1330 





14,3223 

CSC24 

1 


OCT 

05024 



1331 





14,3224 

13CCC 

C 


OCT 

130CO 



- 13 12 _ 

aif_ 

it 

LAST 

72 C_- 

14.3225 

-J -4 712 

1 


CAP 

bill 



1333 

REF 

12 

L/ST 

721 

14,3226 

54 304 

1 


TS 

STAR INC 



133A 

REF 

1 



14,3227 

1 3154 

c 


TCP 

P51C 


GC OG SECCNC STAR 

1335 

REE 

1!L 

Liil_ 

-721 

14t^32JJL- 

0 53C1 

c 

P51P 

TC 

PHASCHNG 



1336 





14,3231 

05024 

1 


OCT 

05O24 



1337 





14,3232 

130CC 

c 


CCT 

13C0C 



1336 

REE 116 

LAST 

72C 

14,3233 

0 6006 

1 


TC 

INTFRET 



133S 





14,3234 

45145 

c 


OLGAO 

CALL 



1340 

REF 

1 1 

LAST 

72C 

14,3235 

C26C7 

1 



TSIGHT 



1341 

REF 

4 

LAST 

72C 

14,3236 

32363 

c 



PLANET 



1342 





14,3237 

240 15 

c 


STCVL 

120 



1343 

REE 

C 

LAST 

72C 

14,324C 

02601 

1 



PLANVEC 



1344 





14,3241 

24CC7 

c 


STOVL 

60 



1345 

REF 

t 

LAST 

72C 

14, 3242 

02611 

c 



STAF SAVl 



1346 

REF 

6 

LAST 

712 

14,3243 

26736 

1 


STOVL 

STAR AO 



1347 

REF 

E 

LAST 

72C 

14,3244 

02617 

c 



STAF SAV2 



1346 

REE 

9 

LAST 

721 

14,3245 

36744 

c 


STCALL 

STARED ♦ 6 



1349 

REF 

2 

LAST 

711 

14,3246 

30707 

1 



CHKSCATA 


CHECK STAR ANGLES IN STAHAC AND 

135C 





14,3247 

77414 

c 


BON 

EXIT 



13 51 

REF 

7 

LAST 

712 

14,3250 

C03 14 

1 



PPEEFLAG 



1352 

REE 

1 



14,3251 

312S3 

1 



P51G 



1353 

REF 

2 

LAST 

719 

14,3252 

0 3072 

1 


TC 

P51 A A 



1354 





14,3253 

77624 

1 

P51G 

CALL 




1355 

REF 

3 

LAST 

709 

14,3254 

47334 

c 



AXI S CEN 


CCNE BACK WITH REFSHMAT IN XOC 

1356 





14,3255 

7516C 

1 


AXCf 1 

AXC , 2 



1357 

REF 

4 

LAST 

532 

14,3256 

C2713 

c 



XOC 



1358 

REF 

25 

LAST 

714 

14,3257 

01735 

1 



REF SPRAT 



135S 





14,3260 

45014 

c 


CLEAR 

CALL 



1360 

REF 

6 

LAST 

692 

14,3261 

01662 

1 



P EPS PFLG 



1361 

REF 

i. 

LAST 

714 

14,3262 

31045 

1 



MATHCVE 



1362 





14,3263 

52014 

c 


SET 

GOTO 



1363 

REF 

7 

LAST 

72 1 

14,3264 

01462 

c 



REFSPFLG 



1364 

REE 

2 

LAST 

71C 

14,3265 

32143 

c 



ENUP50S 



1365 

REF 

3 

LAST 

694 

4720 



PRFPSTAC 

S 

0CT15 



1366 

REE 

1^2 

LAST 

712 

4714 



PSIZERC 

* 

2EFC 



1367 

REF 

15 

LAST 

649 

4715 



P51F IVE 

» 

F IVE 



1368 





14,3266 

01426 

c 

V6N22 

VN 

062 2 



1369 





14, 3267 

12200 

c 

V41K 

VN 

41C0 



137C 

REF 

12 

LAST 

656 

14,3270 

3 0025 

c 

SET i/POT 

CA 

TIPEl 



1371 

REF 

1C 

LAST 

52 7 

14, 3271 

55'Cl4 

1 


rs 

l/PI FACT 



1372 

REF 

6 

LAST 

714 

14,3272 

1 6030 

c 


TCP 

DAKZ 1C 
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L P51-P53 


tSER^S PAGE NO. 33 E5 S3 


P1373 

; Jil 

CCPPITES AP 

LCS VECTCR 

IN SP 

CCCHO FROM 

GCOLI AND KOI PARK 

DATA 



137^ 





19.3273 

77620 

0 

SXTSM 

STQ 





1375 

REf 

6 

L/ST 

702 

19,3279 

C0300 

1 



QPAJ 




U7t 





19,3275 

70790 

0 


LXC,1 

DLCACA 




1377 

REf 

19 

LAST 

611 

19.32^76 

01330 

C 



HARK STAT 




1378 





19,3277 

COCCI 

C 



OD t 1 




1379 

REf 

12 

LAST 

72 1 

19,3200 

C2607 

1 


STORE 

TSIGFT 




138C 





19,3201 

66769 

1 


AXC,2 

SLCJAC9 




1381 

REF 

13 

LAST 

721 

19,3302 

C03Q9 

c 



STAR IKO 




1382 

REF 

1 



19,3303 

96951 

c 



HKL)NC0P,2 




1383 





19,3309 

76769 

c 


AXC,2 

VLOAC* 




138<i 

REf 

279 

LAST 

7Qt 

19,3305 

C0159 

1 



HPAC 




1365 





19,3306 

COCCI 

c 



0,1 




1386 





19,3307 

10001 

1 


STORE 

0,2 




1387 





19,3310 

77793 

1 


OLOAO* 





1368 





19,3311 

C00C6 

1 



5,1 




1389 





19.3312 

100C6 

c 


STORE 

5,2 




1390 





19,3313 

77629 

1 


CALL 





1391 

REF 

9 

LAST 

566 

19,3219 

960CC 

c 



SXTNB 

CCMPUTt LCS VECTOR FROM OCDU IN MKVAC 


1392 





19,3315 

62150 

1 


LXA, 1 

INCP ,1 




1393 

REf 

35 

LAST 

72 2 

19,3316 

C133C 

c 



MARK STAT 




1399 





19,3317 

CQ002 

c 



2 

INCREMENT 

TO BASE AOR GF ILOU 


1395 





19,3320 

95130 

1 


SXA,1 

CALL 




1396 

REF 

2 8 

LAST 

712 

19,3321 

C0050 

1 



SI 




1397 

REF 

2 

LAST 

566 

19,3322 

97591 

1 



NBSH 

TPANSFCRH 

LCS TC SM 


1398 





19,3323 

77650 

1 


GOTO 





1399 

REf 

7 

LAST 

722 

19,3329 

CO 300 

1 



0H4J 




1900 

REF 

9 

LAST 

566 

19,3325 

03679 

1 

PKONCOR 

ECAOR 

HARKCCKK 




1901 

REf 

2 

L/ST 

168 

19,3326 

035C2 

c 


ECADH 

HARK2CWN 
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P14C2 

PPCGPAP CESCFIFTtCN - P53 - SICPTING PARK ROUTINE 




P1403 

HCC.NC.2 21 tec 66 





PCC BY STLFLALCSON 





P14C5 

FLNCriLNAL DESCRIPTION 




R 140 1 

TC PERFORM A SATISFACTCPY MjPEEP CF SIGHTING MARKS FCP 

THE REQUESTING 

PROGRAM (CR ROUTINE). SIGHTINGS 


Ri40e 

CAN 06 HADE CN A STAR OR LANDMARK- WHEN THF CHC ACCEPTS A NARK 

IT RECCRDS AND 

STORES 5 ANGLES (3 ICOUS AND 2 


R141C 

CCCIS) AND THE TINE CF THE HARK. 





P14il CAlLI^C SECtENCE 


R1412 

R1413 

R*3 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN 

IS 

VIA CPRET. 



TFERE IS 

NC ERRCR EXIT IN THIS RCUTlNE ITSELF. 












R1414 

SLEFCLTINE 

S CALLED 






-R1415 

SX1PAEK 







R 1416 

C PUTALL 







R1417 

CCFLASF 






- 

R14ie 

EPASAELE IMTIALUATICN 






R1419 

TARGET FLAG - STAR OR LANDMARK 






Ri420 

PARK INDX 

- NLMBEP CF MARKS KANTEC 






R1421 

STA P INC 

- INDEX TC BEST! CP BESTJ 

(STAR NUMBER) 





P1422 

OLTPL 1 







R1423 

PARKST AT 

CCNTAINS INDEX TC VACANT 

AREA WHERE hark DATA 

IS 

STORED 




kl424 EESll (INDEXED EY STARINOJ CCNTAINS STAR NU(-e£H SIGHTED 


P1425 CEERIS 

P 1 A2 6 fl HINCX CCNTAINS NQNBEP OF RARKS CESlREO 

U27 REF 2 LAST 62C 14,2C00 

1428 14,3327 


SETLCC RTS3 
BANK 


1429 

REF 

1 







COUNT 

14/R 53 














143Q 





14,3327 

43020 

1 

R53 

STO 

SET 

SET SIGHT INC MARK FLAG 

1431 

REF 

2 

L AS T 

114 

14,3330 

C35C1 

C 



R53Exn 


1432 

REF 

2 

LAST 

696 

14,3331 

CC071 

1 



R53F LAG 


1433 





14,3332 

77776 

1 


EX IT 



1434 

REP 

7 

LAST 

72C 

14,3333 

3 03C1 

C 

R53A 

CA 

MARK (NDX 

NIHBER OF MARKS 

1435 

REF 

2 

LAST 

19? 

14, 3334 

7 4716 

1 


MASK 

L0W3 


1436 

REF 

2 1C 

LAST 

72C 

14,3335 

0 4555 

c 


TC 

bankcall 


1437 

REF 

2 

LAST 

44 4 

14,3336 

160C2 

1 


CADR 

SXTMARK 


1436 

REF 

2 11 

LAST 

723 

14,3337 

C 4555 

( 


“^C 

BANKCALL 


1439 

REF 

2 

LAST 

44 4 

14, 3340 

11512 

1 


CADR 

optstall 

, 

1440 

PEF 

6 

LAST 

719 

14,3341 

0 5646 

t 


TC 

CURTAINS 


1441 

REF 

36 

LAST 

722 

14,3342 

51 ' 330 

c 


INDEX 

MAFK <TAT 


1442 

REF 

15 

LAST 

707 

14,3343 

iC 052 

1 


CCS 

OPR E T 

NUMBER OF MARKS ACTUALLY CDN^ . 

1443 

REF 

1 



14,3344 

1 3355 

c 


TCF 

R53B 


1444 





14,3345 

1 3 34 7 

c 


TCP 

♦2 

2 ETTO 

1445 





14,3346 

1 3347 

c 


TCF 

♦ r 

CCS HCLE 

1446 

REF 

144 

LAST 

721 

14,3347 

3 4714 

1 



ZfcRO 

hOlSEkEFP vAC AREA SivT ' ^ 

1447 

REF 

3T 

LAST 

723 

14,3350 

57*330 

c 


XCH 

MAFKSTAT 

AND MARKSTAT 7 




gap: 
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L P51-PS2 


USER'S PfiGE NO. 3S 


1AA6 

REF 

179 

LiSI 

716 

19,3351 

IC CCQ 

C 


CCS 

A 



REF 

175 

L/S7 

72 9 

19,3352 

5C CCC 

1 


INDEX 

A 


iA5Q 





19.3353 

_54 ilCO 

c 


TS 

0 


1A51 

PIF 

1 



19,3359 

1 3333 

c 


TCF 

R 53A 


IA52 

REF 

11 

l^SI 

72C 

19,3355 

C 5253 

c 

R53e 

TC 

CHECKMM 


19 53 _ 





19.1356 

C0026 

0 


MM 

22 


1959 





19,3357 

1 3361 

1 


TCF 

♦ 2 


1955 

REF 

1 



19, 3260 

1 3905 

1 


TCF 

R53D 


19551 

RiF 

12 

L/ST 

729 

19,3361 

0 5253 

c 


TC 

CHECKPM 


19552 





19,3362 

CC027 

1 


MM 

23 


19553 

REF 

1 



19,3363 

1 3365 

c 


TCF 

P53C 


5b 4 

REF 

2 

L#ST 

729 

19,3369 

1 3905 

1 


TCF 

R53C 


1956 

REF 

i 



19,3365 

3 39 1 1 

c 

R53C 

CAF 

VOIN 71 


195? 

REF 

2 12 

L/ST 

722 

19, 3366 

0 9555 

c 


TC 

BANRCALL 


1956 

REF 

16 

L4ST 

7oa 

19,3367 

20763 

1 


CAOR 

GOf L ASHR 


1959 

REF 

56 

L 7 S T 

719 

19,3370 

0 91C6 

1 


TC 

GOTOPtCH 

TERM. 

1960 

REF 

1 



19,3371 

1 3 3 76 

I 


TCF 

P 53Z 


1961 

REF 

2 

L/ST 

729 

19,3372 

0 3365 

1 


TC 

R53C 

RECVCLE 

1962 

REF 

25 

L^SI 

706 

19,3373 

3 621 1 

c 


CAF 

SIX 


1^63 

REF 

19 

L/ST 

70E 

19, 3379 

0 59 15 

1 


TC 

blanket 


1969 

REF 

59 

L/Sl 

7ce 

19,3375 

G 5112 

c 


TC 

ENOCFJCB 


1965 

REF 

2 

L/ST 

479 

19,3376 

9 7713 

1 

R53Z 

CS 

HIGHS 


1966 

REF 

7 

L^ST 

706 

19,3377 

7 0735 

1 


MASK 

STAKCLCE 


1967 





19,3900 

0 0006 

1 


EXTEND 



1^66 

REF 

1 



19,3901 

7 62 1 1 

1 


HP 

SICHT5IX 


1969 

REF 

68 

L/ST 

68C 

19,3902 

56 OCl 

c 


XCH 

l 


1970 

REF 

19 

L/ST 

722 

19,3903 

50 3C9 

c 


INDEX 

STAR UC 


1971 

REF 

12 

L^ST 

70 6 

19,3909 

59 3C2 

1 


TS 

REST I 


1972 

REF 

16 7 

L/ST 

72 1 

19,3905 

C 60C6 

1 

R53C 

TC 

I F TPRET 


1973 





19,3906 

77619 

1 

R53CUT 

S£ TGO 



1979 

REF 

2 

L/ST 

696 

19,3907 

C392Q 

1 



TERM IFLG 

SET TERMINATE FCR R52 

19 75 

REF 

a 

LiST 

723 

19,3910 

C3501 

c 



R53tX IT 


1976 

REF 

2A 

L/ST 

729 

6211 



SIGHTS IX 

- 

SIX 


1977 





19,3911 

CC3C7 

c 

VCIN71 

VN 

0171 
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JiAPl 


EVlSlQt^ 23? Cf AGC PRCGPAH 


BY NASA 202U11-C31 


1U7 AUG. 2^tI96a PANDORA .077 P/>CE 725 


P51-Pf3 


USes'S PAGE NC, 36 


E5 S3 


Pl<t7e 

Rl<i?9 Ft^C^ ICr-CCHPLTE CIMEAL AhGLES FCR DESIRED SH AND PRESENT VEHCLE 

R i^BQ CALL- CALI S52.2 

Rl^ei IhfU- >,Y,ZSMC 


RH82 CEIPEI- CGC , IGCf f<CC iThETACf ♦! f +2 

Rl<.e3 SLEPCniNES-CCLTRlGiCALCSPSCtRATHCVeiCALCGA 

14B^ REF 1 11,200 0 S faTLOC S52/2 

HBS 11,2256 SANK 


i^ee 

fl£F 








COUNT 

1 3/S52.2 

1^67 





11,2256 

77620 

C 

S52.2 

STQ 


UitLt 

PEF 

8 

L^Sl 

722 

11.2257 

C03C0 

1 



UHAJ 

14fiS 





11,2260 

77624 

1 


CALL 



REF 

7 

L/iST 

704 

11,2261 

47432 

1 



CDUTPIG 

LiSl 





n .2262 

77624 

1 


CALL 


1492 

REF 

2 

L^ST 

704 

11,2263 

34567 

1 



CALCSPSC 

1493 





11,2264 

66370 

0 


AXT,1 

SSP 

1494 





11,2265 

CC022 

1 



lec 

1495 

REF 

29 

L/iST 

722 

11,2266 

CCC51 

c 



SI 

1496 





11,2267 

00006 

1 



60 

1497 





11,2270 

61373 

1 

S52.2A 

VLCAO« 

VXM 

1496 

REF 

7 

LAST 

71 £ 

11,2271 

C2736 

1 



XNS ♦180,1 

1499 

REF 

26 

LAST 

72 1 

11,2272 

01736 

i 



REF SPf-AT 

1500 





11,2273 

77656 

i 


UN IT 


15CI 

REf 

E 

LAST 

72! 

11,2274 

C6736 

c 


STORE 

XNt ♦180,1 

1502 





11,2275 

77700 

0 


T IX,l 


15C3 

REF 

1 



11,2276 

22270 

1 



S52.2A 

1504 





11,2277 

75160 

1 

S52.2.I 

AXC ,l 

AXC, 2 

1505 

REF 

6 

LAST 

695 

11,2300 

00306 

1 



XSND 

1506 

REf 

3 2 

LAST 

714 

11,2301 

C2671 

c 



XSM 

1507 





11,2302 

17624 

1 


CALL 


1508 

REF 

*3 

LAST 

72 1 

11,2303 

31045 

1 



MATHCVE 

1509 





11,2304 

77624 

1 


CALL 


1510 

REF 

2 

LAST 

415 

11,2305 

472^ A 

c 



CALCGA 

1511 





11,2306 

7765C 

1 


GOTO 


1512 

REF 

9 

LAST 

72 5 

ll,23C7 

CCJCO 

1 



QNAJ 






fl 
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P1513 PPCCP/^ - SR52.1 CAIE CEC 20 c6 

Pl51<i HCC 1 LOG SEC P51-PS3 

R1515 B7 l<Lh V I hCEN T ASSEPELY SUhClSK REV 40 

R1516 

P1517 FUrCnCA 

R 1 5 1 8 1 A P e 1 7 ARC2 FLAGS ARE LCCKiC AT 10 DETERPINE IF THE TARGET IS THE 

P151S LEPi STAR CB LANCPARK. IF CASE CF L£P CP LPK,TH£ PRESENT TINE PLUS 

Pi520 2 SECCFDJ 15 SAVEC IN ACFTIPE (ALUS STAPAO ,♦! I. IF THE LEN IS 

P1521 TEE lARGEl TEEN CCM C UPDATES OF THE CSP AND LEH ARE WAGE TO 

R1522 IFE llfE IN ACPTIPE. THE LM 1 CF TH E C I F F E P ENC E OF LEP AND CSP 

P 1523 FCSniCN VECTCRS BECCPES THE P6FERENC6 SIGHTING VECTOR USED IN THE 

R152<i CCPFCF FAFT OF TFIS PROGRAM. 

P1525 IN TFE CASE DF LANCNARKt THE CSH IS LPCATEC CONICALLY* THE RADIUS 

P1526 VECTCF FCP THE LANCPARK IS QPTAINEC FPCH LALGTOrtV. BOTH OF THESE ARE 

Rk5 27 FCLFC FCP THE TIFE IN ACPTIPE* THE UNIT OF THE DIFFERENCE BETWEEN 

Rr52e THE LANCPARK AND CSH RADIUS VECTORS GECOMES THE REFERENCE S ICHT ING 

R1529 VICTCP FCF THE CCNPCN PAPT CF THIS PCUTINE* 

B1530 IF A STAR IS TH E TARGET, TH E PRCPER STAR IS OBTAINED FROM TKE CATALOG 

K1531 AFC THIS NECTCR EECCPES THE' REFERENCE SIGHTING VECTOR. 

R1532 THE CGNPGN PART CF THIS PBLGPAP TRAFSFCRMS THE REFERENCE SIGHTING 

R1533 VECTCF IM P STABLE HEHBEP CCCPCINATES. IT READS THE IPU^CDUS AND USES 

RlSaA TUS DATA'iN a CALL TO CALCSXA. ON RETURN FRON CALCSXA A TEST IS 

R1535 PACE 1C SEE IF THE TRUNNION ANGLE IS GREATER THAN VOCEG OK 38DEG. 

Rl 536 PACE T^ SE E IP THE TRUNNION ANGLE IS GREATER THAN gpOEG. OR 50DEG. 

K1537 CAUIFG SECUENCE 

R 1 53 ft _ PETLRN NHEN SHAFT CR TPUNICN NC I K 1 THl N SPEC CF DES IPED 

R153S L TC 8ANKCALL 

R1540 L4I CACR SP52.1 

R 1 5 A 1 L42 ERROR RETURN TRUNNICN GREATER THAN 9 0CEG 

R15A2 L€3 ERROR RETLRN TRUNNICN GREATER THAN 500EG ' 

R15A3 L4A NCRPAL RETURN 

R15AA 

R15A5 GLTFLT 

R15A6 SAC -SINGLE PRECt2S CCNPtSCALED AT HALF REVS- SHAFT ANGLE DESIRED 

R15A7 RAC -SINGLE PRECt2S CCHP SCALED AT EIGTH REVS - TRuNNlCN ANGLE OESIFEC 

R15Ae 

R15AS IFIIHLUATICN 

R1550 IF TAPCIFLC »l THEN TARGET IS LEP -NC OTHER INPUT REQUIRED 

R1551 IF TAPCIFLC *0 AhC TAPC2FLG *0 THE TAPCET iS STAR, StARlND ShCULO 

R1552 0 CP 1 CENCTING BESTI OR BESTJ BESPECTIVELV AS STAR CODE. STAR COOES 

R1553 ARE 6 IIPES STAR NLPBER. 

P i55A IF TAPClFLC-0 AND TARC2FLG-1 THIN TARGET IS LANDMARK. SEt KLLTTNE 
P1555 LALCTCPV FCR INPUT R ECU IR EPENT S . HERE FIXERAC*! FCR CONSTANT EARTH 
R1556 RACKS 

R1557 

MISS8 CEERIS 

R1559 PCRK AREA 

P 156 0 5 T A B AC - 5TAR45 (STAR IS DESIRED LCS tN STABLE MEMBEh COCROINATES* 

1561 PEP 1 COUNT* S$/SR521 



r 
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L 
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USER'S PAGE NO, 38 
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1562 

REF 

1 



13f 2QCC 




S6TLCC 

5R52/1 



1563 





13* 2176 




BANK 

















156<i 

REF 


t/Sl 

704 

13*2176 

C A60A 

1 

SR52*1 

TC 

RAKECAOP 



1565 

REF 

11 

L4ST 

713 

13,217? 

55*777 

C 


TS 

QKIN 




■ RE.g 

i£a 

LAST 

72A 

13.2200 

C 6 Q C 6 



TC 

INTPRET 



1567 





13,2201 

4323A 

c 


RTB 

OAO 



1566 

REF 

21 

LAST 

708 

13,2202 

A5505 

c 



LOAOTIRE 



156 5 

REF 




13,2203 

2631 7 

c 



1 .3SECCP 



1570 

REF 


LAST 

88 

13,220A 

C2356 

c 


STORE 

AGP T IRE 



1571 





13,2205 

A301A 

0 


eON 

bCN 



1572 

REF 

7 

LAST 

708 

13,2206 

C07C5 

c 



TARO IFLG 



1573 

REF 

1 



13,2207 

2621A 

1 



LEP52 



157^ 

REF 

5 

LAST 

72C 

13,2210 

C0706 

c 



TAf<G2FLG 



1575 

REF 

1 



13.221 1 

2622A 

1 



LRK52 



1576 





13,2212 

7765C 

1 


GOTO 




1577 

REF 

1 



13,2213 

262A5 

0 



STAP.52 



1578 





13,221A 

777A5 

1 

LEN52 

OLOAO 




1579 

REF 

A 

LAST 

727 

13,2215 

C23 56 

c 



ACPT IRE 



1560 

REF 

40 

LAST 

70 1 

13,2216 

3A0A1 

c 


STCALL 

TOECl 



1561 

REF 

A 

LAST 

584 

13,2217 

27057 

c 



LERiCCMC 



1582 





13,2220 

77775 

1 


VLOAU 




158i 

REF 

27 

LASl 

702 

13,2221 

OOCCl 

c 



RATT 



_15eA 





13.2222 

77650 

1 


GOTO 




1565 

REF 

1 



13,2223 

2623A 

c 



LRKLRCCM 



1586 





13,222A 

7121A 

c 

LRKS2 

eoN 

DLOAC 



1587 

REF 


LAST 

699 

13,2225 

CA3C5 

0 



ADVTPK 



1586 

REF 

1 



13,2226 

5ACCC 

c 



ADVTPACK 



1389 

REF 

5 

LAST 

72 7 

13,2227 

C2356 

c 



ACPT IRE 



1590 





13,2230 

7762A 

1 


CALL 




1591 

REF 

6 

LAST 

695 

13,2231 

26373 

1 



LALOTCRV 



1592 





13,2232 

77775 

1 


VLOAO 




1593 

REF 

IG 

LAST 

695 

13,2233 

C2152 

c 



ALPHAV 



159A 

REF 

11 

LAST 

AA 3 

13,223A 

16166 

1 

LRKLHCOP 

STOOL 

STAR 



1595 

REF 

6 

LAST 

727 

13,2235 

02356 

c 



ACPT IRE 



1596 

REF 

41 

LAST 

727 

13,2236 

3aOa1 

c 


STCALL 

Tcpn 



1597 

REF 

6 

LAST 

70 1 

13,2237 

270A5 

c 



C SMC CMC 



1598 





13,22A0 

52375 

1 


VLCAO 

vsu 



1599 

REF 

12 

LAST 

72 7 

13,22A1 

C2766 

1 



STAR 



16CC 

REF 

26 

LAST 

721 

13,22A2 

OCCCl 

c 



PAtf 



1601 





13,22A3 

52056 

c 


LNIT 

GOTO 



16C2 

REF 

1 



13,22AA 

26260 

1 



C0M5 2 



1603 





13,22A5 

72131 

1 

STAR52 

SSP 

LXA, 1 



16C4 

REF 

2C 

LAST 

722 

13,22A6 

CC051 

c 



$l 



16C5 





13,22a7 

coodo 

1 



0 



1606 

REF 

1* 

LAST 

72A 

13,22SC 

CC30A 

c 



STAR lEO 



1617 





13,2251 

77700 

c 


TIX,1 




16C8 

REF 

1 



13,2252 

26256 

1 



5752 ST 



1609 





13,2253 

52175 

c 


VLOAO 

GOTCi 



1610 

REF 

9 

LAS 1 

72 1 

13, 225a 

C2617 

0 



5T71R5AV2 
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1611 

REF 

2 

LAS! 

727 

13t2255 

26260 

1 



C0F*52 


1612 





13»2256 

77 7 75 

1 

ST52ST 

VLOAD 



1613 

REF 

7 

LAST 

72 1 

13f2257 

Q2611 

c 



STAF SAVl 


161<i 





13t226C 

53521 

1 

CGM52 

HXV 

UNIT 


161f) 

REF 

27 

LAST 

725 

13*2261 

01736 

1 



REF SFRAT 


1616 

REF 

13 

LAST 

727 

1 3 f 2 2 6 2 

C2766 

1 


STORE 

STAR 


1617 





13*2263 

95001 

1 


SETPD 

CALL 


1618 





13,2269 

COCCI 

c 



0 


1619 

REF 

8 

LAST 

725 

13*2265 

97932 

1 



COUTPIG 

COMPUTES SINES AND COSINES FOR CALCSXA 

162C 





13,2266 

77629 

1 


CALL 


NOW EXPECT TO SEE THE COU ANGLES. 

1621 

REF 

1 



13*2267 

96039 

1 



CALC SXA 


1622 





13.2270 

779 19 

C 


BOFF 

EXIT 


1623 

REF 

8 

LAST 

707 

13,2271 

C1750 

1 



CULT FLAG 


1629 

REF 

1 



13*2272 

26279 

1 



TPUNSe 


1625 

REF 

1 



13*2273 

C 2312 

C 


TC 

SR52EI 


1026 





13,2279 

95395 

1 

TRUN38 

OLOAO 

OSU 


1627 

REF 

8 

LAST 

697 

13,2275 

02776 

C 



PAC 


1628 

REF 

1 



13*2276 

263 15 

1 



38TRCEG 


1629 





13,2277 

71299 

c 


flPL 

DLOAC 


163C 

REF 

1 



13*2300 

26305 

c 



SR52E22 


1631 

REF 

9 

LAST 

728 

13,2301 

02776 

i 



PAC 


1632 





13,2302 

51025 

1 


LSU 

tJPL 


1633 

REF 

1 



13*2303 

26321 

c 



20LEG5RN 


1639 

REF 

1 



13,2309 

26301 

1 



SR52E3 


1635 





13,2305 

777 76 

1 

SR52E22 

EXIT 



1636 

REF 

1 



13,2306 

0 2311 

c 


TC 

SF52E2 


1637 





13,2307 

77776 

1 

SR52E3 

EXIT 



1638 

REF 

12 

LAST 

72 7 

13*2310 

25*777 

1 


INCR 

OHIN 


1639 

REF 

13 

LAST 

728 

13,2311 

25*777 

1 

SR52E2 

INCP 

QNl N 


1690 

REF 

19 

LAST 

728 

13,2312 

3 1777 

1 

SR52Ei 

CA 

QHf N 


1691 

REF 

9 

LAST 

707 

13,2313 

C 9561 

1 


TC 

SWCAIL 


1692 





13,2319 

25252 

c 

38TRDEG 

20EC 

• 66 6 6666 7 

CCRESPQNOS TC 50 DECS IN TRUNION 

1692 





13,2315 

25259 

c 





1693 





13,2316 

COOCO 

1 

1 .3SECCP 

20 EC 

130 


1693 





13,2317 

C02C2 

1 





1699 





13,2320 

61790 

c 

200EGSHN 

CEC 

-07199 


1695 





13,2321 

TTTTT 

c 


DEC 

-C 



H 


I 


gap; 
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P51-P5 


K ? 


USER'S PAGE NO. AO 


E5 SI 


P16A6 in ACVIRACK RCUIJAE IS USED TC CC^F^.TE AN OPTICS LCS VLCTCP TC 

Rife*.? A FCIfT CN THE GRCUND TRACK 60 REGRESS ECRHAflO OE THE LOCAL VERTICAL 
if. 


A SPECIFILC NUNHER CF REVOLUTICNS FROH NCN 


16AS 


REF 


I 


26f2C00 

26.2CC0 


SETLCC 26P5CS 
BANK 


1651 

1652 

1653 


26*2000 


26,2001 


26,2002 


T76C1 C 
00001 Q 
A1575 C 


ACVTRACK SETPD 


VLCAO 


0 

PUSH 


INITIALIZE FOP PP-TO-R 


165A 

REF 

2 

LAST 

3 1 

26, 2C03 

1532A 

C 


UM T 2 

U2 VEC IN PC 0-5 


1655 





26 , 2 CO A 

A1A3A 

1 

p rs 

PUSH 

TINE IN PD 6-7 


1656 

REF 

22 

LAST 

72 7 

26,2005 

A55C5 

C 


LCAOT IME 



1657 

REF 

7 

LAST 

72 7 

26,2006 

36 3 56 

1 

STCALl 

AOPT IKE 

TINE ALSO IN ACPTINE FOB 

CSMCONIC 

1656 

REF 

A 

LAST 

69A 

26,2007 

553A1 

1 


RP-T C-R 

GET NOON flOTATICN VEC IN 

REF 

165S 

REF 

_iA. 

LAST 

726 

^6*2010 

16766 

1 

STOOL 

STAF 




1687 





26,2CAA 

00031 

C 

1666 

REF 

15 

LAST 

729 

26,2CA5 

16766 

1 

lees 

REF 

1 



26,2CA6 

1A105 

c 

16 90 





26,2CA7 

77625 

c 

1691 

REF 

IC 

LAST 

729 

26,2050 

023 56 

c 

1692 

REF 

11 

last 

729 

26,2051 

36356 

1 

1693 

REF 

2 

LAST 

729 

2tj,2C52 

5A057 

1 

i69A 





26,2CS3 

77775 

1 


TTCDl 


2 AD 

Tr^h~ 

(ypi/t 


osu 

ACPI IMF 

stcall acptine 
vloau 


ie6C 

REF 

6 

LAST 

729 

26,2011 

02356 

C 


AOPT IRE 

P ICK UP TINE 

166 1 

REF 

*2 

LAST 

72 7 

26,2012 

3A0A1 

C 

STCALL 

TDEC 1 

UPDATE STATE TQ TIME 

1662 

REF 

7 

LAST 

727 

26.2013 

27QA5 

C 


CSMCCMC 


1663 





26,201A 

A 7 3 7 5 

C 

VLCAD 

VXV 


166A 

REF 

20 

LAST 

702 

26,2C15 

CC0C7 

C 


VATT 


1665 

REF 

29 

LAST 

727 

26,2016 

QGOCl 

c 


RATT 


1666 





26,2017 

7 76 56 

1 

UNIT 



1667 





26,2020 

2A031 

c 

STCVL 

2AD 

SAVE -UNITiV X P) FOR 

1668 

REF 

20 

LAST 

729 

26,2C21 

00001 

0 


RATT 


166 9 





26,2C22 

5 7a 56 

1 

UNIT 

VC OR P 


1670 





26,2023 

AlACl 

1 

SETPD 

PUSH 

PUSH LCs»-uMt fpveci 

1671 





26,2C2A 

CQOGl 

c 


0 


1672 





26,2025 

77776 

1 

EXIT 



1673 

REF 

23 

LAST 

612 

26,2C26 

3 1751 

c 

CA 

LANDRARK 


167A 

REF 

12 

LAST 

593 

26,2C27 

7 A716 

1 

raSk 

SEVEN 

CET NURBEfl CF ACVANCE 

1675 





26,2030 

0 0006 

1 

EXTEND 



1676 

REF 

22 

LAST 

66^ 

26,2Cai 

7 A7C0 

c 

HP 

BITl 1 

GET N/16 

1677 

REF 

69 

LAST 

72 A 

26,2032 

56 CCl 

0 

XCH 

L 


1678 

REF 

If 

LAST 

71 A 

26,2C33 

SO 120 

1 

INDEX 

FIXLCC 


16 7 9 





26,203A 

5A 036 

c 

TS 

30P 

TEMP STORE N/16 

1680 

REF 

lES 

LAST 

72 7 

26,2C3S 

C 6006 

1 

TC 

INTPRE1 


1661 





26,2Ci6 

A1335 

1 

SLUAO 

OWP 


1682 





26,2037 

CC037 

c 


300 


1663 

REF 

1 



26,2CA0 

lAlOt 

1 


HPER ICC 


loEA 

REF 

9 

LAST 

729 

26,2CA1 

36356 

1 

STCALL 

AOPT IRE 

rotate ang abcut UB 

1665 

REF 

1 



26,2CA2 

5A05? 

1 


R C T A 


1666 





26,2CA3 

77775 

1 

VLOAD 




PD 0-5 


PICK OP 


TTHT 


2N0 RAT ANGLE * 60 - A 


GC PC TATE' '2^0 TlUg 


GAPi 


L 




AJ^ 
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ltS5 

I6S6 

1697 

REP 

Rli 

16 

_ 3_ 

LAST 

LIST 

729 

728 

26,2C54 
26t 2055 
26.2056 

COOCl 

36766 

0 

0 

± 


STCALL 

0 

STAR 

CDH52 

STORE FINAL LCS IN STAR 

RETURN TO SR52.1 

1698 

1699 

RLt 

X2_= 







DLCAO 



LAST 

729 

26,2C57 
26«2060 

73545 

023S6 

1 

0 

ROTA 

SIN 

AOPT IPE 

17CC 





26,2061 

473 15 

c 


POVL 

VXV 

PUSH 1/2S1N(A) PO 6-7 

1701 

REf 

17 

LAST 

73C 

26,2062 

02766 

1 



STAF 

UR VEC 

17C2 





26,2063 

OCCCl 

c 



0 

LOS 

1703 





26,2064 

72561 

c 


VXSC 

VSL2 

1/2S 1N(A) tUPXLOSI PO 6-11 

17C4 





26,2065 

50315 

c 


POVL 

DOT 


17C5 

REF 

ii 

LAST 

73C 

26,2066 

02766 

1 



STAR 


1706 





26,2067 

00001 

0 



0 


1707 





26,2070 

72561 

c 


VXSC 

VSL2 


17C6 

REF 

19 

LAST 

73C 

26,2071 

02766 

1 



STAR 


1 709 





26,2072 

71525 

c 


POOL 

COS 

1/2(UP . LCSIUR 12-17 

1710 

REF 

13 

LAST 

73C 

26,2073 

02356 

0 



AOPT IRE 


1711 





26,2074 

51315 

1 


POVL 

BVSU 

PUSH l/2C0S(A) 18-19 

1712 





26,2075 

000 15 

c 



120 


1713 





26,2076 

00001 

c 



0 


1714 





26,2077 

76561 

1 


VXSC 

VSLl 

UP 18-19 

1715 





26,2100 

53255 

c 


VAO 

VAO 

UP 12-17 UP 6-n 

1716 





26,2101 

4G2S6 

1 


UNIT 

SETPC 


1717 





26,2102 

COOCl 

c 



0 


1718 





26,2103 

43406 

1 


PUSH 

RVO 


1719 





26.2104 

05252 

1 

CPl/6 

20EC 

. 16666666 


1719 





26,2105 

2525 1 

0 





1720 





26,2106 

11446 

1 

RPER ICO 

2DEC 

.2992 

APPRCX LUNAR RQ7 ANG IN 2 HRS 

1720 





26,2107 

02760 

1 
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PAGE 
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Pi721 

R1722 

R17^3_ 

^A^ E- J52 .3 

FLFCnCh- >SHC« UMTIYSMO X ZSPCt 

YSHO- UMHV X R» 

- 



RU2<. 

2SPC* LM7t-PI 





^1725 CALL CLOAD CALL 

R1726 T AL iG^ 

M727 S!2.3 

P172€ IhFLT- TIME CF ALlGNf'EM I^ PPAC 


R1729 

0L1PL1- 

X tVf 

ZSHO 






R173C 

1731 

1 7 32^ 

SLef CLl I^E !- 
REF 3 LAST 

CSMCCA IC 
715 

16*2000 

16*2626 



setlcc 

BANK 

P50S2 

1733 

1739 

REF 

1 



16*2636 

7762C 

C 

COUNT 

S52.3 STO 

15/S52.3 

1 735 

REF 

1C 

LAST 

72! 

16.2637 

C0300 

1 


CHA J 

1736 

HEF 

93 

LAST 

729 

16*2690 

39091 

c 

stcall 

TDfCl 

1737 

REF 

6 

LAST 

72 9 

16.2691 

27095 

c 


CSMCCMC 

1738 





16,2692 

776CI 

c 

SETPD 


1739 





16,2693 

00001 

c 


0 

1790 





16*2699 

57575 

1 

VLOAO 

VCONF 

1791 

REF 

31 

LAST 

729 

16,2695 

COCCI 

c 


ft ATT 

1792 





16*2696 

77656 

1 

UNIT 


1793 

REF 

2 

LAST 

69 S 

16»2697 

29323 

c 

STCVL 

ZSND 

1799 

REF 

21 

LAST 

729 

16*2650 

QQ0C7 

0 


VATT 

1795 





16*2651 

53935 

c 

VXV 

UNIT 

1796 

REF 

32 

LAST 

73 1 

16*2652 

GOOOl 

c 


FATT ' ' ‘ ' ' ~ 

1797 

PEF 

9 

LAST 

695 

16,2653 

0C31S 

G 

STORE 

YSNC 

1798 





16*2659 

53935 

C 

VXV 

UNIT 

1799 

REF 

9 

LAST 

731 

16,2655 

C0323 

c 


2SHD 

17 50 

REF 

7 

LAST 

725 

16,2656 

393C7 

1 

STCALL 

XSNO 

1751 

REF 

1 1 

LAST 

73 1 

16,2657 

C0300 

1 
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fuTiz PfG6P<F CeiCPIPTICN - R56 - AtTEPMTE ICS SIGHTING PARK RCUT INE 


R175A 

R1756 

HUM 
R 176C 


U EEPFCRN SIGHTING HAfKS FCR THE BACK-UP ALIGN^MENT PRCGRAMS (P53#P5A». THE ASTRONAUT KNO^S THE S 

CCCROIN/HES (OPTICS I OF THE ALTERNA TE LINE CF SIGHT HE MUST USE FCR THIS ROUTINE. KHEN THE ASTRONAUT KEYS IN 

ENTER IN RESPCNSE TC THE FLASUNG V5Q N25 Rl-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND THO ANGLES DISPLAYED 

IN NS2. 


P1.7tl 

R1762 

R1763 



CALL 


R56 


Rn6<» SLEFCLT INES CALLEC 

R1765 A FCRTICN C F SXTMAR K (VAC. AREA SEAR CH) 


P17<)6 , CC FLASH 


R1767 

CCPERFl 


R1768 



ER7»SAILe liyiTJAinATICN 


R1769 

STAFlNC-lNCe> TC STAR NUMBER 





Rl77fl- 

CU1PL1 



R1771 R ARKSTAT- INCEK TO VAC. AREA hFEPE CUTFUT IS STORED. 

R1772 BESTI (INOEAEO BY STARINCI CONTAINS STAR NUMBER. 

P1773 ICCL ANC OCCU ANGLES IN VAC. AREA AS FCLLCHS- 

fil77^ VAC 42 CDUY 

Hi775 VAC 43 ecus 


B177t VAC 44 CCUZ 


R1777 

ai778 



VAC 

45 ( 

CCUT 











VAC 

46 

CDUX 




















177S 

REF 

1 







COUNT* 

$S/R56 




1780 

REF 

5 

LAST 

714 

15,2CCC 




SETLGC 

P50S 




1781 





15t2252 




BANK 





1782 





15,2252 

77776 

1 

R56 

EXIT 





1783 

REF 

1 



15,2253 

3 2362 

1 


CAF 

VC6N94B 




1784 

REF 

2 13 

LAST 

72 4 

15,2254 

C 4555 

C 


TC 

6ANKCALL 




1785 

REF 

3A 

LAST 

713 

15,2255 

20624 

c 


CADR 

GOFL ASH 




1768 

REF 

57 

LAST 

724 

15,2256 

Q 41C6 

1 


tc 

GCTOFCCH 

TERM . 



1787 

REF 

1 



15,2257 

0 2261 

c 


TC 

R56A 

PROCEED 

- ANGLES OK 


1788 





15,2260 

0 2253 

1 


TC 

-5 

ENTER - 

NEH ANGLES 


1769 

REF 

2 H 

LAST 

732 

15,2261 

0 4555 

c 

R56A 

TC 

BANK CALL 




1790 

REF 

-3 

LAST 

723 

15,2262 

16004 

1 


CADR" 

SXTRAFK +2 

INHlEtR 

EXT V0 ACT AND 

FIND VAC AREA 















17904 

REF 

145 

LAST 

723 

15,2263 

3 4714 

1 


CAF 

ZEPC 




17905 

REF 

4 15 

LAST 

73 2 

15,2264 

0 4555 

c 


TC 

SANKCALL 




17906 

REF 

t 

LAST 

712 

15,2265 

206C7 

1 


CAOR 

TlTaTcTP 




1791 

REF 

1 




15,2266 

3 23 60 

c 


CAF 

VE53 

display 

V53 REOUESTING 

ALTERNATE MARK 

1792 

REF 

2 16 

LAST 

732 

15,2267 

C 4555 

c 


TC 

BANKCALL 




1793 

REF 

1 

LAST 

56 1 

15,2270 

20470 

c 


CAOR 

GCMAPK2 
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17S4 

REF 

58 


732 

15,2271 

1 4IC6 

c 

TCF 

GCTOPCCH 

V34-TERMINA7E 


17S5 

REF 


LAST 

732 

15,2272 

1 2263 

c 

TCP 

R564 +2 

V33-DCNT PRCCEED-JUST 

ENTER TO MARK 

U55JL- 

REP 

ISC 

LAST 

729 


C 6006 

J 

TC 

INTPPET 



17S52 





15,2274 

77745 

1 

DLOAD 




17^53 

REF 

36 

LAST 

573 

15,2275 

C3731 

1 


HPKBLFl +3 



JJLa5A_ 

REP 

1C 

LAST 

6.98 

15.2276 

16774 

J 

STOOL 

SAC 



17956 

REF 

37 

LAST 

733 

15,2277 

C3733 

c 


MRKbtFl <>5 



17957 

REF 

1C 

LAST 

72E 

15,22CC 

C2776 

c 

STCPE 

PAC 








15,2301 

777 76 

J 

EX 1 T 




1796 





15,2302 

0 C0C4 

c 

INHINT 




1797 





15,2303 

C 0006 

1 

EXTEND 




1798 

REF 

i3 

LAST 

692 

15,2304 

3 0025 

c 

OCA 

TIME2 



1799 

REF 

38 

LAST 

723 

15,2305 

51'330 

c 

INDEX 

MARK5TAT 



1800 





15,2306 

52 OCl 

1 

OXCH 

0 



1801 

REF 

8 

LAST 

714 

15,2307 

3 0033 

1 

CA 

CDUY 

EhTER-THIS IS A BACKUP 

SYSTEM MARK 

1802 

REF 

39 

LAST 

733 

15,2310 

51*330 

c 

INDEX 

MAP.KSTAT 



1803 





15,2311 

54 0C2 

1 

TS 

2 



1804 

REF 

11 

LAST 

733 

15,2312 

3 1773 

c 

CA 

SAC 



1805 

REF 


LAST 

733 

15,2313 

51*330 

c 

INDEX 

MAFKSTAT 



1806 





15,2314 

54 CC3 

c 

TS 

3 



1807 

REF 

11 

LAST 

714 

15.2315 

3 0034 

c 

CA 

COUZ 



ibca 

REF 


LAST 

"^33 

15,2316 

51*330 

c 

INDEX 

MARK STAT 



1809 





15,2317 

54 004 

1 

TS 

4 



1810 

REF 

■ U. 

LAST 

733 

15,2320 

3 1775 

c 

CA 

PAC 



1811 

REF 

*2 

LAST 

733 

15,2321 

51*330 

c 

INDEX 

mapkstat 



1812 





15,2322 

54 0C5 

c 

TS 

5 



1813 

REF 

17 

LAST 

714 

15,2323 

3 0C32 

c 

CA 

CDUX 



1814 

REF 

43 

LAST 

733 

15,2324 

51*330 

c 

INDEX 

MARK STAT 



1815 





15,2325 

54 0C6 

c 

TS 

6 



1816 





15,2326 

0 0003 

1 

RELINT 




1816 1 

REF 

4 

LAST 

698 

15,2327 

0 5425 

1 

TC 

CLEAPMRK 

ENABLE EXTEAOEO VERBS 


1817 

REF 

1 



15,2330 

3 4333 

c 

CAP 

0CT16 



1818 

REF 

i 17 

LAST 

732 

15,2331 

0 4555 

c 

TC 

BANKCALL 



1819 

REF 

6 

LAST 

719 

15,2332 

20751 

c 

CAOR 

GCPEPFi 



1820 

REF 

59 

LAST 

733 

15,2333 

0 4106 

1 

TC 

GOTCPCCH 

TERM. 


1621 

REF 

1 



15,2334 

1 2336 

1 

TCF 

R56E 

PRCCEEC-MiRK COMPLETED 


1822 

REF 

3 

LAST 

733 

15,2335 

1 2263 

c 

TCF 

R56A +2 

RECVCL6 - DC ANCTHEP 

MARK - LIKE REJECT " 

18225 

REF 

146 

LAST 

732 

15,2336 

3 4 714 

1 R56e 

CAF 

ZERO 



1623 

REF 

2 18 

LAST 

733 

15,2337 

C 4555 

c 

TC 

BANKCALL 



1824 

REF 

7 

LAST 

732 

15,2340 

206G7 

1 

CAOR 

CLEANDSP 















1825 

REF 

1 



15,2341 

3 2361 

1 

CAF 

V01N71B 



1826 

REF 

2 19 

LAST 

733 

15,2342 

0 4555 

c 

TC 

BANKCALL 



1827 

REF 

*3 « 

LAST 

732 

15,2343 

20624 

c 

CAOR 

GDF t ASH 



1828 

REF 

6C 

LAST 

733 

15,2344 

0 4106 

1 

TC 

COTOPCCH 



1829 





15,2345 

0 2347 

c 

TC 

♦2 



1830 

REF 

2 

LAST 

733 

15,2346 

1 2336 

1 

TCF 

R56fa 

RECVCL6 


1831 

REF 


LAST 

724 

15,234? 

4 7713 

1 

CS 




1832 

REF 

8 

LAST 

724 

15,2350 

1 0735 

1 

MASK 

STARCLDE 



1833 





15,2351 

C 0006 

1 

EXTEND” 





CAP : 


L 



££ 
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ie3^ 

REF 

27 

LAST 

724 

15,2352 

7 621 1 

1 


HP 

s IX 

1635 

REF 

K 

IASI 

729 

15,2353 

56 OCl 

C 


ACH 

L 

1636 

REF 

It 

LAST 

727 

15,2354 

5C 3C4 

C 


INDEX 

STAR INO 

1837 

REF 

13 

L AST 

724 

15,2355 

54 3C2 

1 


TS 

BEST ! 

1638 

REF 

191 

LAST 

733 

15,2356 

0 6006 

1 


TC 

INTPPET 

183<7 





15,2357 

77616 

C 


RVQ 


10AO 





15,2360 

15200 

1 

VB53 

VN 

053CC 

16A1 





15,2361 

CC3C7 

c 

V01N718 

VN 

00171 

16N2 





15.2362 

01536 

c 

V06h94B 

VN 

00694 

1843 

HEf 

13 

LAST 

722 

15,2363 

C2607 

1 

PLANET 

STORE 

TSIGHT 

1844 





15,2364 

45020 

1 


STQ 

CALL 

1645 

REF 

15 

LAST 

72E 

15,2365 

(277 7 

1 



QHIN 

1846 

REF 

t 

LAST 

693 

15,2366 

302 16 

1 



LOtSAH 

1847 





15,2367 

77775 

1 


VLGAO 


1848 

REF 

5 

LAST 

70 1 

15,237C 

C2736 

1 



VEARTh 

ie4S 





15,2371 

24001 

C 


STOVL 

00 

1850 

REF 

e 

LAST 

702 

15,2372 

C2744 

1 



VSUN 

1851 

REF 

6 

LAST 

734 

15.2373 

26736 

1 


STQVL 

VEAR TH 

1852 





15,2374 

COCCI 

c 



GO 

1853 

REF 

9 

LAST 

734 

15,2375 

C2744 

1 


STORE 

VSUN 

1854 





15,2376 

77776 

1 

NOSAH 

EXIT 


1855 

REF 

4 

LAST 

733 

15,2377 

4 7713 

1 


c s 

H f GH ^ 

18 56 

REF 

9 

LAST 

733 

15,2400 

7 0735 

1 


HASH 

STARCCOE 

1857 





15,2401 

0 0006 

1 


EXTEND 


1858 

REF 

2 

LAST 

72 4 

15,2402 

7 6211 

1 


HP 

SICHTSIX 

1859 

REF 

7 1 

LAST 

734 

15,24C3 

56 CCl 

c 


XCH 

L 

1660 

REF 

17 

LAST 

734 

15,2404 

5C 3C4 

c 


INDEX 

STAR INC 

1861 

REF 

14 

LAST 

734 

15,2405 

54 3C2 

1 


TS 

BEST I 

1862 

REF 

176 

LAST 

724 

15,2406 

1C 000 

c 


CCS 

A 

1863 

REF 

1 



15,2407 

1 2423 

1 


TCP 

NCTPLAN 

1864 

REF 

1 



15,2410 

3 2453 

1 


CAF 

VNPL ANV 

1865 

REF 

22C 

LAST 

733 

15,2411 

0 4555 

c 


TC 

BANKCALL 

1666 

REF 

36 

LAST 

733 

15,2412 

2C624 

c 


CACR 

GLFL ASH 

1867 

REF 

6 1 

LAST 

733 

15,2412 

0 4106 

i 


TC 

GCTOPCCH 

1668 





15,2414 

0 2416 

c 


TC 

♦ 2 

1869 





15,2415 

0 2410 

c 


TC 

-5 

187C 

REF 

192 

LAST 

734 

15,2416 

0 6006 

1 


TC 

IMPRET 

1871 





15,2417 

53575 

C 


VLOAD 

UNIT 

1872 

REF 

ac 

LAST 

73C 

15,2420 

C2766 

1 



STAR 

1873 





15,2421 

7765C 

i 


GOTO 


1874 

REF 

1 



15, 2422 

32446 

( 



CCRP LAN 

1875 

REF 

177 

LAST 

7 34 

15,2423 

4 0000 

c 

nctplan 

CS 

A 

1876 

REF 

1 



15,2424 

6 2452 

c 


AO 

btC227 

1877 





15,2425 

0 0006 

1 


EXTEND 


1870 

REF 

1 



15,2426 

6 2437 

c 


UZMF 

calsahi 

1879 

REF 

le 

LAST 

734 

15,2427 

5C 3C4 

c 


INDEX 

STAF INC 

1880 

REF 

15 

LAST 

734 

15,2430 

3 C3C2 

c 


CA 

BEST I 

1881 

REF 

16 

LAST 

72 9 

15,2431 

50 120 

1 


INDEX 

f IXLCC 

18 82 

REF 

32 

LAST 

705 

15,2432 

54 046 

1 


TS 

Xl 

1683 

REF 

193 

LAST 

734 

15,2433 

0 60C6 

1 


TC 

InTPPET 


ALTERNATE HARK VERB 
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168 ^ 




lSt 2939 

52173 

C 


VLQAD* 

GOTO 

1883 

REf 1 C 

L 4 ST 

706 

15,2935 

31751 

C 



CATLCG,! 

laet 

AU 2- 

L 4 ST 

739 

15.2936 

32996 

x_ 



CCRPLAN 

1887 

REF 1 S 9 

L/ST 

739 

15 , 2^37 

G 60 C 6 

1 

CILSARl 

TC 

INTPPET 

1888 




15,2990 

70790 

c 


LXC ,1 

DLOACA 

188 S 

PIP AS^ 

L ^ST 

739 

15.2991 

eo 3 C 9 

c 



STAR INC 

1890 

REF 16 

LAST 

739 

15,2992 

C 0303 

1 



BEST 1,1 

1091 




15,2993 

7679 G 

c 


LXC ,1 

VLOAC* 

189 i 

REF 215 

LiSl 

722 

15.2999 

00159 

1 



MPAC 

1893 

REF 1 C 

LAST 

72 1 

15,2995 

C 2372 

c 



STARAO - 2290,1 

1899 




15,2996 

53 h 55 

c 

CCRPLAN 

VAC 

UNIT 

1895 

REF 5 

LIST 

702 

15,2997 

C 3979 

c 



VEL/C 

1896 




15,2950 

7765 C 

1 


GOTO 


1097 

REF U 

LIST 

739 

15,2951 

C 2777 

1 



QHIN 

1898 




15,2952 

€0393 

c 

CfC 227 

DEC 

227 

1899 




15,2953 

C 1530 

c 

VNPLANV 

VN 

06 86 








c 






t 



'i A- • 








r 



^ . f 



jt. 



M ' 
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FOCOl 

LL^/P /AC SCLAP EPPERERIOES SlEPCUTINES 

H JiQGtZ 

FLRCllChAL D£SCaiP7 1Ch _ _ __ _ jj 

P00G3 

RGat<( 

R0CC5 

IBESE SU0RGL1INES ARE USEC TC CETEPRINE THE POSITION AND VELOCITY 

VECTCRS CF THE SUN AND THE MCCN RELATIVE TO THE EARTH AT THE 

SPECIFIED GRCINC ELAFSEC TIME INPLT BY THE USER. 

PQQGjtj _ 

IKE PCSniCK CF THE MCN IS ilCPEX IM THE COMPUTER IN THE FCRM _CF , . 

B0007 

R0008 

RQg09 

A NINTH CEGREE PCLYNCMIAL APPRCX IMAT I CN WHICH IS VALID CVER A 15 

CAY INTERVAL BEGINNING SHCRTLY BEFORE LAUNCH. THEREFCPE THE TIME 

INPUT BY THE USER SHCULC FALL WITHIN THIS 15 DAY INTERVAL. 

BOOlO 

LSFCS CCMPUTES THE PCSITICN VECTCPS OF THE SUN AND THE MCCN. 

ROOU 

LLNPCS COMPLIES THE POSITION VECTCP OF THE MOON. 

. RQOli 

LUNVEL CCMPL7ES THE VELOCITY VECTCP OF IHE MOON. 

RQ013 

SCLPCS COMPLIES THE PCSITIQN VECTCP CF THE SUN. 

® KQ019 

calling SECUENCE R 

. . MOii 

CLCAC CALJ. 

R0G16 

R0Q17 

TIME GRCUNC ELAPSED TIME 

SL8PCUTlNfc LSPCS CP LUNPCS OR LUNVEL UR SOLPOS 

1 


Rooie 

I N F L T 

-JJIQXR , 

11 SPECIFIEC GROUND ELAPSED TIME IN CS X 8-28 LOADED IN MPAC. 

K002C 
R0P21 _ 

21 TIMEMC - TIME AT THE CENTER CF THE RANGE OVER WHICH THE LUNAR 

FCSITIQN PCLVNOMIAL IS VALID IN CS X 6-42. 

Rg022 

1 _ R0023 

31 VECCEM - VECTCR CCEffUIENTS CF THE LUNAR POSITION PCLYNCMIAL 

LCAOEC IN CESCENDING SECUENCE IN METERS/CS*^N X 6-2 1 

R0Q2<t 

RCC25 

41 PESO - PCSITICN VECTCR OF THE SUN RELATIVE TO THE EARTH AT 

TIMEMC IN METERS X 6-38. 

K0G26 

P0027 

51 VESC - VELCCITY VECTCR CF THE SUN RELATIVE TC THE EARTH AT < 

TIMEMC IN METERS/CS X B-9, 

R0C2e 

BQ029 

61 OMEGAES - ANGULAR VELOCITY CF THE VECTOR PESO AT TIMEMC IN < 

REV/CS X e-»26. , 

R0030 

MPiL- 

ALL EXCEPT THE FIRST INPUT ARE INCLUDED IN THE PRE-LAUNCH < 

ERASABLE DATA LCAO. 

' R0032 

CLTPLl - LSPCS • 


r. 


H 
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P0D33 

U 2C CF VAC AREA CCNTAINS 

THE PCSITICN VECTOR OF THE SLN 

RELATIVE 



R003^ 

U THE EARTH AT TIRE INPUT 8V THE USER IN METERS X €-36 

• 









R0035 

21 HPAC CONTAINS THE PCSITICN VECTOR CF THE MOON RFLAT IVE 

TO THE 



R0036 

EARTH AT TIRE INPUT BY 

The user in meters X B-29. 










P0C37 

GLTFLT - LlNPOi 











Jiail3 6 ^ 

PPAC CCNTAINS THE PCSITICN 

VECTCP CF THE MGCN RELATIVE TC 

THE 



R0039 

EARTH AT THE 7 IHE INPUT BY 

USER IN METERS X a-29. 










R C Q 

QUFLl - kUMVEL 











ROO^l 

HFAC CCMAINS THE VELOCITY 

VECTCP CF THE MCCN RELATIVE TC 

THE 



^ R0UA2-- 

EARTH AT TIRE INPUT BY THE 

USER IN MET6RS/CS X 6-7. 










PC0A3 

CCTFL1 - SCLFCS 











ROO^A 

HPAC CCNIAIHS THE PCSITICN 

VECTOR CF THE SUN RELATIVE TC THE HAPTH 



P00A5 

AT T IME INPUT BY THE USER 

IN METERS X 8-30. 










RQ0A6 

SLERCLTINES USED 





R0QA7 

NCiLl 

— — 



----- 







RO t A8 

REH ARNS 






R0C^9 THE VAC AREA IS USEC FCP STORAGE CF IMERWEOIATE AND FINAL RESULTS 

R00 50 C F CCMFUTAT ICNS> 

R0051 Sit A1 and A2 ARE USEC BV THESE SLBPQUTlNkS. 

Ra052 PRELAUNCH ERASAELE CATA LEAD ARE CNLY ERASABLE STORAGE USED BV 

PC053_ THESE SLBRCLTINES. 

R0054 RESTARTS DURING OPfcRATICN CF THESE SUERCUTINES MUST BE HANCLEC BY 

R0055 THE USER. “ 


0C56 



36,2502 

BANK 

36 

0057 

REF 

1 

26,2000 

SETLOC 

EPHE M 

0056 



26,2110 

BANK 



005S 

0060 

REF 

1 







COUNT* 

t$/E PHEM 


REF 

i. 

LAST 

20S 

rr 

1 


EBANK* 

END-E7 


0061 





26,2110 

71779 

C 

LSPOS 

AXt ,2 


CCmPuTES PCSltlCN vECTCrS of both the 

0062 

REF 

1 



26,2111 

59161 

c 



XESA 

SuN AIVD the MCON. THE POSITION VECTOR 

0063 





26,2112 

52Tnr 

c 


AXT,1 

GOTO 

mF THE SON IS STORED IN ZD OF THE VAC 

006N 

REF 

1 



26,2113 

*9193 

c 



RES 

AREA. " THF rOS^lT I CN VECTOR OF THE MOCN 

CC65 

REF 

1 



26,2114 

99126 

c 



Uptime 

IS STEREO IN MPAC. 

0066 





26,2115 

9217 c 

c 

L UN P a S 

AXT , l 

GOTO 

CCHPITES THE POSITION VECTOR OF THE MCCN 

CC67 

REP 

1 



26, 2116 

99162 

c 



REM 

AND STCRES IT tN MPAC. 

0066 

REF 

2 

LAST 

731 

26,2117 

59126 

c 



LSTIME 





IT 


-(131 
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0Q69 





26t2120 

5217C 

c 

LliNvEL 

AXT,l 

GOTC 

CCMPUTES THE 

VELOCITY 

VECTOR 

OF THE MCCN 

C07Q 

REE 

1 



26,2121 

54173 

c 



VEM 

AND 

STORES IT 

IN RPAC 

• 



(IQ71 

REF 

A 

LAST 

737 

26t2122 

94126 

c 



LST IRE 







0072 





26,2123 

7602C 

1 

S C L P 0 $ 

STa 

AXT , 1 

COMPUTES THE 

POSITION 

VECTOR 

OF THE SUN 

0073 

REF 

12 

LAST 

67 3 

26,2124 

C0047 

1 



X2 

ANO 

STORES IT 

IN MPAC 

• 



QQ7A 

ref 

2 

LAST 

737 

26,2125 

54143 

c 



KES 







0075 





26,2126 

942C1 

c 

LSTIPE 

SETPD 

SR 







0076 





26,2127 

CCCOl 

c 



OD 







0077 





26,2130 

2C617 

0 



190 







0078 





26,2131 

57571 

c 


tad 

DCOMP 







0079 

REF 

12 

LAST 

526 

26 , 2 1 3 2 

Cl 70 7 

c 



T EPHEM 







0060 





26,2133 

57571 

c 


TAD 

OCOF'P 







0081 

REF 

m 

1 

LAST 

85 

26,2134 

02029 

1 



T IMERC 







0062 





26, 2135 

66261 

1 


SL 

SSP 







0063 





26,2136 

20221 

1 



160 







0C8^ 

REF 

31 

LAST 

727 

26,2137 

C0091 

0 



SI 







0065 





26,2 140 

C0006 

1 



60 







0066 





26,2141 

7769C 

1 


GOTO 








0087 

REF 

33 

LAST 

73A 

26,2142 

00046 

c 



XI 







0086 





26,2143 

91206 

c 

RES 

PUSH 

DHP 






PO- 2 

0069 

REF 

1 



26, 2144 

C2197 

1 



OREGAES 







0090 





26,2145 

719C6 

c 


PUSH 

COS 






PD- 9 

0091 





26,2146 

65361 

c 


vxsc 

POOL 






PD- 8 

0092 

REF 

2 

LAST 

86 

26,2147 

C2133 

1 



KESO 







0093 





26,2150 

63356 

1 


SIN 

PDVL 






PD-10 

0094 

REF 

“3 

LAST 

73 E 

26,2 151 

02133 

1 



PESC 







0095 





26,2152 

53906 

c 


PUSH 

UNIT 






PO-16 

0096 





26,2153 

53935 

c 


VXV 

UNIT 







0097 

REF 

-3 

LAST 

6H 

26,2 154 

C2191 

1 



VESC 







0098 





26 f 2 1 5 5 

76935 

1 


VXV 

VSLl 






PO-10 

0099 





26, 2156 

53361 

c 


vxsc 

VAD 






P0-C2 

0100 





26,2197 

52172 

1 


VSLl 

GOTO 

RES 

IR METERS 

X a-3fl 

IN 

MPAC. 


0101 

REF 

13 

LAST 

73E 

26,2 160 

0009 7 

1 



X2 







0102 





26,2 161 

19003 

1 

RESA 

STOOL 

20 

RES 

IN METERS 

X fl-39 

IN 

20 OF 

VAC. PO- 0 

01C3 





26,2162 

63370 

c 

REM 

AXT,1 

POVL 






PO- 2 

0104 





26,2163 

C0066 

1 



590 







0105 

REF 


LAST 

85 

26,2164 

C2037 

1 



VECC ER 







0106 





26,2165 

5276 1 

c 

REMA 

VXSC 

VAO* 







0107 





2 6 f 2 1 6 6 

00001 

c 



00 







0108 

REF 

4 

LAST 

73E 

2 6 f 2 1 6 7 

C2133 

1 



VECOER ♦600, i 







0109 





26,2170 

72500 

1 


T I X , 1 

VSL2 

REM 

IN METERS 

X 0-29 

IN 

MPAC. 


Clio 

REF 

1 



26,2171 

59U5 

1 



REHA 







Gill 





26,2172 

77616 

c 










0112 





26,2173 

6537C 

c 

VEM 

A X T f 1 

POOL 






PD- 2 

0113 





26,2174 

CC06C 

1 



9 80 







0114 

REF 

1 



26,2175 

19219 

c 



NINEB9 







0115 





26, 2 176 

792C6 

G 


PUSH 

VXSC 






PD- 4 

0116 

REF 

4 

LAST 

73 E 

26,2177 

C2037 

1 



VECCER 







0117 





26,2200 

7 7 76 1 

i 

VEMA 

vxSc 








0116 





26,2201 

00001 

c 



UO 
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CHS 



26.2202 

140C5 

1 

1 

1 


STOOL 


PO- 2 


0120 



26,2203 

41425 


CSU 

PUSH 

PO- 4 


0121 

REf 

1 

26.220^ 

H216 


GNE64 


0122 

0123 



26l2205 

53357 

C 


VXSC* 

VAD 



REF 

5 L45T 736 

26,2206 

02125 

c 



VECCEP +540, 1 



Q12A 



26.2207 

OOOC5 



40 



0125 



26(2210 

72500 

1 


TIX,l 

VSL2 

VEH IN M6TERS/CS X 0-7 IN NPAC. 


0126 

REF 

1 

26,2211 

5^200 

1 



VENA 



C127 



26.2212 

77616 

0 


RVQ 




0126 



26,2213 

2 2 00 0 

i 

N IN E 64 

2DEC 

9.0 e-4 



0126 



26,2214 

coocc 

1 






. -0129^ 



26,2215 

C20C0 

c 

CNEES 

20EC 

1.0 B-4 



0129 



26,2216 

GQOCO 

1 








I 





I 


m 






I 




^ i 
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GSfcR'S PAGE NO. I 


eo S3 


poool ppccp^^; Pfci _ 

R0002 NCC NC.; 0 MAR, 13» lSe7 

K0003 MC E R, HlRSCPKt~_P_ 

RCOOA MCE NC ; 1 MCO BY: PR BAIRNSPAIHER CATEs 2Z JUM 67 

P0006 MCC NC ; 2 MC*> 0Y; RR BAIRNSFATHER DATE; 17 JAN 68 

PQCCe HCt NC : 3 MCO BY: PP BAIR N SFATHER DATE : 8 MAY 68 

ROOIO FIPCTICN; to CALCULATE AND DISPLAY EMS INITIAUZATICN DATA 

POOH CALLlhC SECUENCE- BY V37 

R0012 EXll-_ TO P62 

POUU SLBFCLTIPf CALLS- Stol.l t S61.3 t GCFLASH f FLAGUP i R02bCTH 


RESTARTS. 

COLOSSUS GSOP CHANCES. 

DELETE CPSM MA NEUVER (PCR SO) 


RQOl^ EPASAtlJt lALLLALllAlltJii _ 

R0015 EPSALT 1-29) M ,05G ALTITUDE ABOVE FISCHEF ELLIPSOID PAD LOADED. 

R0017 ALFAPAD /IBO HYPEPSCMC CM TRIM ANGLE CF ATTACK PAD LOADED 

R0019 OLTPLU TEE FCLLCulPC REGISTERS APE RPITTEN IN FOR USE BY DISPLAYS 

RCQ20 GMAX ICO GFAX (-iA) GiS MAXIMUM ACCELEPATIGM 

R0021 VFREO (-7) M/CS PRECICTEC VELCCITV AT ACOK FT 

R0022 GAMMAEl CAMMA/360 PREC I CTEC GAMMA AT ACOK FT 

R0023 P1GC TFETAH/360 RANGE ANGLE TC SPLASH FROM EMSALT EMSALT IS PAD LCAOEO 

R0025 V !Q (-7) M/CS INERTIAL VELOCITY AT EMSALT EMSALT IS PAD LCAOEO 

RQ027 TI E (-28) CS TIME I^ EMSALT EMSALT IS PAD LCAOEO 

PC 029 LA T ( S PL ) / 360 TARGET LOCATION LEFT 0V OSKY 

R0G31 LMG(SPL) /36a TARGET LOCATION LEFT BY OSKY 

R0033 FEACSUP (0 ) *l * LIFT DCV<N» -I ” LIFT UP LEFT BY OSKY 

R0Q3S CEBPn: SEE SLBRCLTINES. 



0036 





26.2217 



BANK 

26 



CC37 

0038 

REF 

1 



26. 2CGC 
26.2217 



SETLCC 

BANK 

P60S 



CC39 

REF 

15 

LAST 


Ee» U61 



EBANKc 

AUG 



OQAO 

RiF 

1 






COUNT ♦ 

$$/P6l 



00^1 

REF 

4 1 

LAST 

609 

26.2217 

3 4675 

1 P6l 

CA 

D1T14 

EXTENDED VERB SHOULD BE FREE THIS CLOSE 


00A2 

REF 

le 

LAST 

55£ 

26.2220 

55*044 

1 

TS 

EXTV EACT 

TO V3? 


A0043 










LOCK CUT ex TEND Eo VTRTBS^O CAN CTTE TTF 


AOO^A 










ROUTINES.EXT VERB ERASE IS USED 


00^5 

REF 

19 

LAST 

6B6 

26,2221 

4 4712 

C 

CS 

ONE 

REMCVE IF HEACSUP EVER OTi UPlTnX TAT^ 


0CA6 

REF 

3 

LAST 

273 

26.2222 

55*726 

1 

TS 

headslp 

prelcac 

- - — ' - ^ 

0047 

REF 

1 



26.2223 

0 2543 

1 

TC 

S6 1 • 1 

CHECK STATE VECTOR AND IMU OfllENrATlON 


AOOAB 









RV 60GENRET 

, GOES PHASCHNG, GROUP 4. 


0049 

REF 

1 



26.2224 

3 24 2^ 

1 

CA 

VGtN6l 

LAT(SPL) LNCISPL) HFAOSUP 


AOCSQ 










XXX, XX DEG XAX.XX 06G XXXXX. 


005L 

REF 

22 i 

LAST 

734 

26.2225 

C 4555 

c 

TC 

SANKCALL 



00S2 

REF 

17 

LAST 

724 

2b f 222b 

207C3 

1 

CADR 

GUF L AShF 



0053 

REF 

t2 

LAST 

734 

26.2227 

0 41C6 

1 

rc 

GOTCFCCH 
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L 
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CC54 

~R£f 

1 



26,2230 

C 2235 

1 


TC 

P61. 4 



0055 




26,2231 

0 2224 

1 


TC 

-5 















0056 

REF 

76 

LAST 

72 1 

26,2232 

C 5301 

C 

P61 .3 

1C 

PHASCH6G 



0057 





26.2233 

CCG14 

1 


OCT 

00014 















0058 

REF 

95 

LAST 

724 

26,2234 

0 5112 

C 


TC 

6NDCFJCB 
















0061 





26.2235 

22 0C7 

c 

P61 .4 

ZL 




0062 

REF 

4 

LAST 

74C 

26,2236 

11*726 

1 


CCS 

HEADSUP 

CiHEAOSUPI* +l/-i 


0063 

REF 

<2 

LAST 

74C 

26,2237 

3 4675 

1 


CA 

bIT14 

IF HEADSUP PCS,POLLC =180 DEG. (LIFT 

OhN I 

0064 





2 6 1 22^0 

12 241 

0 


NOOP 


IF HEADSUP REG,P0LLC»0 (LIFT UP J 


0065 

REF 


LAST 

274 

26,2241 

53 *7 16 

1 


OXCH 

kCLLC 

ROLLC IS USED BT S62.3: GIM ANG AT 

.05G 














Q Q ( ^ 

REF 

195 

LAST 

735 

26.2242 

C 6006 

1. 


TC 

INTPFET 



0067 





26,2243 

77745 

1 

NEWRKVN 

LLOAO 




0068 

REF 

9 

LAST 

677 

26,2244 

C12C5 

1 



PIPTIME 

SAVE TIME OP RN,VN TO DETERMINE IF 

AN 

0069 

REF 

2 

LAST 

115 

26*2245 

37651 

1 


SIC ALL 

HH 

UPDATE HAS OCCURRED 


C07C 

REF 

1 



26, 2246 

52063 

c 



STAR TEM 

INITIALIZE 


0071 





26,2247 

77775 

1 


VLOAO 




0072 

REF 

u 

LAST 

677 

26,2250 

Cl 171 

1 



RN 



0073 

REF 

1 5 

LAST 

632 

26,2251 

02327 

c 


STORE 

RONE 



0074 





26,2252 

77656 

1 


UNIT 




0075 

REF 

1 



26,2253 

26343 

1 


STOVL 

UPGNE 



0076 

REF 

10 

LAST 

653 

26,2254 

01177 

1 



VN 



0077 

REF 

10 

LAST 

51 1 

26,2255 

C2335 

c 


STORE 

VONE 



0078 





26,2256 

53435 

c 


VXV 

UNIT 



0C79 

REF 

m 

d, 

LAST 

74 I 

26,2257 

02343 

1 



UPONF 



0080 

REF 

2 

LAST 

1 1 5 

26,2260 

C3502 

c 


STORE 

UNI 



0061 





26,2261 

45345 

1 

DUMPP61 

oload 

DSU 



0082 

REF 

3 

LAST 

74 1 

26,2262 

03651 

c 



HM 

initial value of PIPTIME 


0063 

REF 

10 

LAST 

74 1 

26,2263 

C12C5 

1 



PIPTIME 



0084 





26,2264 

45040 

1 


UHN 

CAERE 



0085 

REF 

1 



26,2265 

5 if 2 ^ 3 

c 



NCWF NVN 

UPDATED... GO TRY AGAIN 


0086 

REF 

1 



26,2266 

5465C 

c 



S61. 2 

GET DISPLAY DATA FDR NBO AND N63 


A0087 











AND RETURN IN BASIC, 8EL0M. 


0C89 

REF 

5 

LAST 

732 

26,2267 

0 5425 

1 

P61 . 1 

TC 

CLEAFMflK 



0090 

REF 

1 



26, 2270 

3 242 3 

c 


CA 

V06N6Q 

GMAX VPPEO GAMMAEl 


A0091 











XXX.XX G XXXXX. PPS XXX.XX UbU 

0092 

REF 

222 

LAST 

74C 

26,2271 

0 4555 

c 


TC 

BANKCALL 



0093 

REF 

37 

LAST 

7 34 

26,2272 

20624 

c 


CACR 

GOFL ASH 
















0094 

REF 

63 

LAST 

74C 

26,2273 

0 4106 

1 


TC 

GOTOPCCH 



0095 

REF 

i 



26,2274 

0 2276 

c 


TC 

P61.2 

PPCCEEC 


0096 





26,2275 

0 2270 

c 


TC 

-5 
















0097 

REF 

196 

LAST 

741 

26,2276 

C 60C6 

1 

P61,2 

TC 

I NTPFET 

CORRECT TTE FOR TIME LAPSE DURING 


40096 











ABOVE display. 



CC9S 2tt22T» 45234 C RTb 


QlOO REF 23 L4ST 725 2b.2300 455C5 C LODtlfE 


CUftFENT TIME 
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CIOI 

REf 


LAST 

7^ 1 

26f2301 

C3651 

C 



MM 

PIPTIME FOR 

RCNE 6 VONE. 

0102 





2t,23G2 

T7613 

C 


DAO 




tJlC3 

REE 


LAST 

in 

26.22C3 

03732 

C 



TTEl 

NEGATIVE CF 

FREE FALL TIME. 

010<i 

REF 


LAST 

272 

26f 2304i 

(3 727 

C 


STORE 

TTE 

OECREMENTEO 

- - - 

0.1X15 





26.2305 

77 776 

1 


EXIT 




01C6 

REF 

1 



26|2306 

2 2^25 

C 


CA 

Vt6Nt3 

RTGC 

VIC TIE 

01Q7 











XXXX.X NM 

XXXXX. FPS XXBXX MfS 

CiC8 

REF 

ilT 

LAST 

7M 1 

26t23C7 

C 4555 

C 


TC 

B ANK CALL 



Q1C9 

REF 

2E 

LAST 

7A1 

26f2310 

20624 

C 


CAOR 

GGf L ASP 



Ul l(L 

Rtf 


LAST 

7A } 

26.2311 

C A 106 

I 


TC 

CCTCFCCH 



OllL 





26*2312 

0 2314 

C 


TC 

♦ 2 



0112 

REF 

2 

LAST 

7A 1 

26*2313 

0 2276 

C 


TC 

P61. 2 

PEDC 



h0ll3 THEN PALL INTO P62 
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GAP : A^S il- £Li. REViSICh 237 CF AO C fMdPAM CQLCSSUS gV ^A$A 2QaiUl-C31 

L P61-PA7 USER'S PAGE NO* A E6 S3 


RQUA FFCCP/P- 

R0115 PCC hC.- 

RGIK: PCt aV- 

R0117 RCC NCs 1 

P0116 PCC NC: 2 

RiU20__ RCC Nt ! 3 

R0122 PCC hCt A 

R012A FLECTICN- 

_aQi26 

R0i2e CALLtK SECUENCE- 
ft0129 E>ir- 


PtZ 

C ^AR« 13 f 1S67 

R. HIRSCEKCP 

^>C0 ev: RR BA1R^SFATHER DATE: 21 PAR 6? 

FCU 6Y: RR BAIRNSFA7HER DATE: 22 JUN 67 RESTARTS. 

PCD by: RP BAIRhSEA IHER DAT E: I7 JAN 6fl COLOSSUS GSOP Ch ANGES. 

NQO by: RR BAIRPSFATHER CATE: 6 PAY 68 MOVE START OF CESIREO GIMBAL CALC. 

1) TC NOTIFY CREP PHEN GNC SYSTEM IS PP EPAREO FOR CP/SP SEPARATION 

2> TC CRIEPT TME CP TC THE CORRECT ATTITUDE FOR ATHCSPHERIC ENTRY 

BY V37 CP CIRECTLY FROM P6l 
TC PE3 


R Q I 30 
P0131 
R0132 


A0LS2 

0153 


ERA SAIL E IMT lAL 1 7AT tCN: 


A L F A P AO 
LAOPAC 


LFFT 

LEFT 

LEFT 


BY PAC LOAD 
BY PAC LOAD 
BY PAC LOAC 


R0134 

RQi36 

R0I38 



L A T ( S PL ) 
L^GiSPL \ 
HEACSLP 

IMAV BE 
(MAY BE 
(MAY BE 

CFANGEO 

changec 

CHANGED 

BELCW) 

EElCw I 

BELCW) 


LEFT BY CSKY, 
LEFT EY OSKY, 
left EY OSKY, 

VIA P61 

VIA P61 

VU P61 

R 0 1 40 

SLEPCLTINE CALLS: 

hEWMCOEX 

, S61.1 

f 

CM/DAPIC 

, CP/DAPON , RC2Ba7M 

, GCPERFl , GCFLASH , COOSPR 

C142 

^ RE F 








COUNT* 

S$/P62 


0143 

REF 

7 

LAST 

52 5 

26,2314 

0 5243 

1 


TC 

NEWPCDEX 

MCOE CHANGE IF CAME FROM P6l. 

0144 





26,2315 

00076 

C 


MM 

6? 

MODE CHANGE AUTOMATIC VIA V 37. 

0145 

REF 

SC 

LAST 

74 C 

26,2316 

3 4712 

1 


CA 

ONE 


C146 

ref 

4 

LAST 

195 

26,2317 

54 332 

1 


TS 

ONLSTCCO 

- - 

01s7 

REF 

2 

LAST 

74 C 

26i2320 

0 2543 

1 

P62 

TC 

S61. 1 

CHECK STATE VECTOR AND IMU ORIENTATION. 

0146 

REF 

117 

LAST 

74 1 

26,2321 

C 60C6 

1 


rc 

INTPPET 


0149 





26,2322 

47131 

1 


SSP 

MTB 


0150 

REF 

2 

LAST 

109 

26,2323 

0 33 2 5 

c 



POSE )rIT 


0151 

REF 

1 



26.2324 

544C2 

0 



P62.3 

CALCULATE DESIRED .05G GIPBAL ANGLES, 


REF 


I 


26,2325 A1630 1 


CM/DA PIC 


WITHOUT DISPLAY. 

start CM/PGSE and body rate CALC 


A0156 DCES 2PHSCHNG, OCT 40116, CCf 05024, OCT 131S00. 

A0I55 CP/OAPIC SETS EBANK * EBAOG 


A0156 

0157 

0158 

REF 

1 

— 


26.2326 

26.2327 

C C006 

3 2431 

1 

c 

P62.2 EXTEND 

OCA 

POSECACR 

AND RETURNS IN BASIC 

CCNTINUE WITH CP/POSE 

TC P62.2. 

AFTER AV 

0159 

REF 

e 

LAST 

644 

26,2330 

53*223 

1 

C XC H 

TvTgTxTt 



C160 

REF 

1 



26,2331 

3 4270 

c 

CAF 

0CT4 1 

REOUEST SEPARATION 


0161 

REF 

2 24 

LAST 

74 2 

26,2332 

0 4555 

c 

TC 

BANKCAIL 



0162 

REF 

1 



26,2333 

21031 

m 

CAOR 

GOPEPFIR 



0163 

REF 

<5 

LAST 

74 2 

26,2334 

0 41G6 

1 

TC 

GOTCFCCH 



0164 





26,2335 

0 2340 

1 

TC 

♦ 3 

PROCEED " 







GAP I 


^ ?n cf agc prcgbam 
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A016S 

0166 

0167 

0166 

0169 

A0170 


Jlif _JL 

REF LAST 

KLl . 1 


661 


NOTE: NCOCFLAG hILL BE SET IN CN/OAPCN. <<< 

26f2336 0 2331 1 TC -5 ENTER 

26. 2337 0 2232 C TC P6l . 3 FCR PhASCHNG ANC ENOQFJQB. 

26t23AC 0 A57^ C <*3 TC PCSTJUNP 

26.23A1 A155C 1 CADR CM/OAPCN DISABLE hCS DAP, ENAB LE ENTRY DAP AND 

DC ATTITUDE HCLC. 


AQ171 

A0172 


W I LL IDLE UNTIL CN / PQSE DOES ONE UPDATE . 
CP/CAPCN DOES NC PMASCNNC. 


0173 REE 
A017A 


2 LAST 7AC 26f23A2 3 2A2A 1 Pe2.l CA V06Ndl LAT(SH) LNG<SPLI HEADSUP 

XAX.XX DEG XXX. XX DEG OOOOX. 


A0175 

A0176 

AQ177 


TERMINATE ATTITUDE HCLC. SET UP CCHHANDS* 
ROLLCf ALFACCM, BETACCH. BEGIN NANUVER TO 
ENTRY ATTITUDE. 


0178 REF 225 LAST 7A3 26f23A3 0 A555 C TC BANKCALL 

017 9 R EP 2S LAST 7A2 26.23AA 2C62A C CADR GQFLASN 


oiec 

26,23A5 

0 23A2 C 

TC 

-3 

0181 

26*23^6 

C 2350 C 

TC 

♦ 2 

C162 

26t23Al 

Q 23A2 C 

TC 

-5 


0163 REF 17 last 7A 1 26»2350 0 5301 C TC PHASChNG 

0 1 e A 26t2351 0A02A C OCT 0A02<t USE ENTRVVN FTR DISP LA Y BELON. 


A0165 


E0ANK WAS SET IN CP/OAPON TO EBAOG 


0166 

REP 

5 

LAST 

7A1 

26,2352 

1 1 '726 

1 

CCS 

HEACSUP 

0167 

REF 

A3 

LAST 

7A 1 

26,2353 

3 A675 

1 

CA 

B ITl A 

0186 





26, 235A 

12 355 

1 

NOOP 


0189 

REF 

6 

LAST 

7A 1 

26,2355 

55*715 

1 

TS 

RCLLC 

0190 

REF 

1 



26,2356 

3 lAll 

1 

CA 

ALFAFAP 

C191 





26,2357 

22 001 

C 

2L 


C192 

REF 

2 

LAST 

lOS 

26,2360 

53'6CA 

C 

DXCH 

ALF ACCN 

0193 

REF 

9 1 

LAST 

7 A3 

26,2361 

3 A712 

1 

CA 

ONE 

019A 

REF 

1 



26,2362 

55' 727 

c 

TS 

P63F LAG 

C195 

REF 

2 

LAST 

38S 

26,2363 

3 A 7 A 5 

c 

CA 

VC6N22 

0196 

REF 

2 

LAST 

7 1 

26,236A 

^ 5 • 2 6 3 

c 

is 

"Tntryvn 

AC197 










C198 

REF 

AA 

LAST 

694 

26,2365 

C 5A35 

c 

TC 

UPFLAG 

0199 

REF 

1 



26,2366 

CQ13A 

1 

ACRES 

ENTF.YCSP 


AC1991 SKIP 


CIHEAOSUPI * ♦/- I 

IF HEACSUP PCSfRQLLC-ieO OEG (LIFT DWNI 
IF HEACSUP NEGtROLLC-0 DEG (LIFT UP > 

NOMINAL ALFATRIP PAD LOADED, NEC. NO. 

SET ALFaCOP « ALFA TRIP, BETACOM-U 

PERMITS EX0AP2 TO CHANGE FLAG TO >0 
is iNCiCAfOfi. STARTS UP m “ 

SET UP DISPLAY FOR COU DESIRED VALUES 
FROP'^E’NTW ATT TTUDE CAUtT'TFAT IS " 

already going. 

TURN ON entry OISPLATr 

ENtRyCSP » ^2C ' FTT it TLA'CT 6 


HkP; ASSEUPLE REVISICN 211 CF AGC PRCGBAW COLOSSUS BY NASA 2C2U11-C31 1:17 flLC. 24fl96 8 PANOOBA .07? PAGE 7^5 
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0200 REf A LAST 172 26i23t7 A WOO C CS Cf’OAFPCD GC OIPECTLY TC P63 IF BOGY ATTITUDE 

0201 REF S2 LAST 7AA 26,2370 7 A712 C MASK ONE IS SUCH THAT THE DELAY TASK: WAKEP62 

QZQ2 ___ 26.2371 0 000b 1 EXTEND HILL BE OMITTED. 

0203 REF 1 26,2372 I 2A2C 1 fiZF P63. 1 DISABLE GRP A, CD TC ENDOFJOB. 


40204 (IE, CONTINUE IF CMPAPHOD « -1, QH »Q> 

0205 REF 1 26,2373 C 2AC6 1 TC P63 

AQ 2C6 PUT JCB TC SLEEP UNTIL VEHICLE WANUVE R HA^ 

A02C7 REDUCED ALFA TC ♦/-AS DEG. CCNSIDEP REMAINING 

A02C8 65 CCG (25 DEG IF ALFA NEG» TO ALFA TRIM TC 

AQ2C4 ~ CCCUH AT 3 OEC/SEC, AND TERMINATE P62 AT THAT 

A02i0 T IME , 

AQ2U task HAKEP62 IS CALLED FROM ENTRY DAP. 


0212 

REF 

A 

< 

l/st 

6oe 

26,237A 

3 A76C 

1 

HAKEP62 

CA 

PRIG 13 

0213 

REF 

5A 

LAST 

66 C 

26,2375 

0 5027 

1 


TC 

NOVAC 

021A 

REF 

16 

LAST 

7AC 

E6, 1661 




EBANK- 

AOG 

0215 

REF 

2 

LAST 

7A5 

26,2376 

02A06 

1 


2CA0ft 

P63 

0215 





26,2377 

5AC66 

C 




0216 

RjF 

AC 

LAST 

bBA 

26,2AOO 

0 5213 

\ 


TC 

TASKCVER 

0217 

REF 

2 

LAST 

7A3 

26,2A01 

SAA02 

c 

P62.3CAC 

CAOR 

P62. 3 

A02ie 










EACH 2 SEC, CALCULATE CIM6AL ANGLES FOR ENTRY CON- 

Aa219 










DITICNS THAT WILL HCLC IF REORIENTATION WERE MADE 

A0220 










AT PRESENT RN, VN. COME HERE FROM CH/POSE AND ALSO 

AO 221 










IN KEPLER PHASE CF ENTRY. 

0222 





26,2A02 

S2131 

0 

P62 .3 

SSP 

GOTO SET RETURN ADDRESS SC THAT ROUTINE 

0223 

REF 

U 

LAST 

723 

26,2A03 

00053 

1 



OPRET GOES directly TC ENTRY GUIDANCE EXIT 

Q22A 

REF 

1 



26,2A0A 

33570 

c 



E N0£ X iT THAT CCES ENTRY OISPL GRP 5. —— 

0225 

REF 

1 



26,2AC5 

20302 

1 



S62.3 PUT CESIREC CCU VALUES IN CPHI'S FOR 

A0226 










N22 DISPLAY. 
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P0227 P<3 


R0228 

PPCCfl/P- 

P63 





Fil22? 


0 PAR. 13. 19^7 





P0230 

PCC 83- 

fl. HIRSCPKCP 





HC231 

RCC NCS 1 

PCO BY: RR BAIPNSFATHER 

date: 

22 JIN 67 

RESTARTS. 


B0233 

PCC hC: 2 

PCD EY: RR BAlRhSFATHER 

DATE: 

1 <1 JUL 6 7 

REVISED RESTARTS 


R0235 

FLfC 1 ICN- 

n TC IMTIALUE TPE EN7RY 

EgUATIONS 




R0236 


27 TC CCM INUe TC PCLD ThE 

CP TC THF 

CORRECT ATTITUDE PITH RESPECT TC THE ATPOSPHERE FOR 


R0238 


TPfc C^SET CF ENTRY DECELERATION, 

ROLL ANGLE IS 

LIFT LP/00»«N AS SPECIFIED BY HEA05UP. 


RC2^C 


3) TC SENSE .C5 C 





R02^1 

CALLIFG SECUENCe- 

DIRECTLY FPCM P62 





hdUiZ 

E>n- 

TC ENDCFjCE 





R02^3 

SLEPCnUE CALLS- 

NEWHCOEX » GCCSPR 






02AA 

REF 

L_ 







COUNT* 

$$/P63 
















02A5 

REF 

6 

LAST 

7A3 

26.2906 

0 5293 

1 

P63 

TC 

NEkHCCEX 



QZAt 





26.2907 

CQ077 

1 


HP 

63 
















02A61 

REF 

226 

LAST 


26.2910 

0 9555 

C 


TC 

BANKCALL 

FLUSH N22 DISPLAY, IF CN, (CNIT DISP 

. .02^6 2 

REF 

8 

LAST 

733 

26.2911 

20607 

1 


CAOR 

CLEANDSP 

DURING STARTENT PASS.! 


























ARRIVE WITH EBANK - ACG. 















C2A8 

REF 

1 



26.2912 

3 2927 

1 


CA 

ENTC ADR 

CCNTINUE AT STARTENT AFTER 

CM/POSE , 














AQ2A9 










AT 

END OF STARTENT, CFANGE ADDRESS 

IN GOTDAOOR 

AC250 










TO 

CONTINUE AT SCALEPCF THEREAFTER, 














Q251 

REF 

*3 

LAST 

793 

26.2913 

55*729 

c 


TS 

PCSEX IT 
















0252 

REF 

1 



26.2919 

3 2926 

c” 


CA 

V06N69 

G VI 

R TO SPL5H 

AQ253 











XXX, XX G XXXXX, FPS 

XXXX,X NM 

02 54 

REF 

3 

LAST 

749 

26.2915 

55*263 

c 


TS 

ENTR YVN 

FCP DISPLAY CALL IN OVFRNOUT, 














0254 1 

REF 

93 

LAST 

79 5 

26.2916 

9 9712 

c 


CS 

ONE 

IN CASE FLAG IS LEFT AT ♦! 

BY DAP, THE 

02542 

REF 

2 

LAST 

799 

26.2917 

55*727 

c 


TS 

P63FLAG 

-1 ASSURES THAT EXO-ATH CTTP 

WTLI ' N OT" 

A025A3 











call R63 CUT CF SEQUENCE IN 

P66 , 














0255 

REF 

7e 

LAST 

799 

26*2920 

C 53CI 

c 

P63.1 

TC 

PHASCHNG 



0256 





26.2921 

C0CC9 

t 


OCT 

00009 

DISABLE, DISPLAY ffESTARTcO 

VIA ENTRY. 














0257 

REF 

96 

LAST 

791 

26.2922 

0 5112 

c 


TC 

ENDCF JCB 
















025fc 





26.2923 

C1979 

1 

VQ6N6Q 

VN 

066G 



0259 





26 * 2929 

01975 

c 

VQ6N61 

VN 

066 1 



0260 





26.2925 

C1977 

1 

V06N63 

VN 

0663 



0261 





26.2926 

01500 

c 

Vd6 

VN 

06^9 



0262 

REF 

1 



26.2927 

520C0 

c 

ENTCACfi 

CACR 

StAF TENT 




GAP 


R£mSiON 237 CF AGC PPCCPAM 


NASA 2021111-031 


l:n AUG. 2AtH^a PANOO P A .072 . flGE, JAJ 


L Pei-P67 


USER'S PAGE NO. 0 E6 S3 


0263 Rfcf 6 LAST 287 E7,iA5l EBANK- PTIMT TC CARV OVER INTO ENTRY STEERING. 

026** REf I 26,2A30 C33 75 C POSECAOk 2CADR CN/PTSE 

_ .QZtA Bif L_ 26t2^3i 160 6? 1 





jn £.2 1 



^ 1 JL 4 J J. 

1*11 rwr'iuur'M 

• r C. r 

^ r *9 o 

L 

P61-Pt7 






USER*S PAGE NC. 9 

E6 

S3 











PC2t5 

P026b 

PPCGP /P- 
PCC hC.- 



P64 

1 SEPT. 

19, 1967 




----- — --- -- ----- 

RQ2b7 

_ f?X£ B_\- 



R. hIRSCPKCP 





RU26B 

PCC PC: 

2 


PCD BYi RP 

BA IRNSFATHER 

DATE: € RAY 68 

REVISED COMMENTS FCR COLOSSUS 


RC2 70 

FthCT ICP 



1. TO START ENTRY GUIDANCE 

AT .05C SELECTING 

ROLL ATTITUDE, CONSTANT CRAG 

LEVEL* 

AND 

PQ2 72_ 




CRAG ThRESPCLCt KA • WHICH ARE KEYED TC THE 

.05G POINT. 



POt76 

^0*78 




2. SELECT FINAL PFASE P67 IF V < 27000 FPS WHEN .2G OCCURS. 

3. ITERATE FCfl LP-CCNTRCL SOLUTICN P65 IF V > 270C0 FPS AND IF ALTITUOE 
LEVEL CChOlTlCNS ARE SATISFIED. ENTER Pt5 WHEN CONSTANT CRAG CONTROLLER HAS 

RATE AND 
BROUGHT 

CRAG 

RANGE 

PCibO 




AS PPECtCTEC TC WlThlN 25 NH OF OESIRE’C RANGE. 




Pu2bi 

P.Q263 

call IPC 

SECLIENCE- 

A. SELECT 
BY Rib FRCP 

FINAL PHASE P67 
REENTRY CONTROL 

IF NO UP-CCNTRGL 

SOLUTICN EXISTS WITH VL > 10000 FPS. 

- — - - - - - - — __ ^ - - - - 

R028^ 

E> 1 T- 



BACK TC reentry CCNTRCL 





R0265 

SLEPCLIINE CALLS- 

NEWRCOEK 
















G286 




26.2A32 


BANK 26 



— 

0267 

REF 1 



26* 2C0C 


SETLCC P60Si 




0288 




26t2A32 


BANK 




H028S 


lh!_S_ 

LISPLAY IS CALLED 

EACH PASS THRCUGH STEERING. RESTART 

PRCTECTICN IS VIA STEERING. 



0291 

REf 1 





COUNT* $S/P64 














0292 

029J 

REF 9 

LAS 1 


26*2432 G 5243 1 P64 

26*2433 OCICC 0 

TC NEWRCCEX 

MM 64 

ENTER VIA RTB WHEN .05G 

IS EXCEEDED. 

C29^ 

REF \ 



26*2434 3 

2437 C 

CA V0tN6e 

RCLLC Vl 

hoot 


A0295 







XXX. XX OEG XXXXX. FPS 

XXXXX 

. FPS 

0296 

REF A 

LAST 

74e 

26*2435 5! 

•263 C 

TS CNTRYVN 

DISPLAY VIA OVERNOUr. 













029 7 

R E F 7 

LAST 

72 1 

26*2436 0 

6030 1 

TC DANZIG 

... ANC CONTINUE IN IMTROLL ... 













C298 


26f2^3T C15C4 1 VCbN66 


VH 


Obt 6 


1:17 AUG. 2^il<;68 PANDQPA .072 PgGE 7AS 


kAf I ;>SSE^ELE PEVlSIQf^ 237 CF 4GC PUCGF/^H COLOSSUS BY NASA 20^1111-C31 
L P61-Pt7_ U SER'S PAGE NC. 10 E6 S3 


PG299 

P0300 

£11102 

80304 

80306 

801 QJ 

P03C9 
R031C 
80 311 


PFC(j8^^s _ P65 ___ 

HCC NC: G 8 C0 BY: 8 8 BAIPhSFATHER DATE: 17 JAN 66 C CLCSSUS GSCP ALDITICN. 

PLhCT ICh : TC CCNTlhUE ENTRY CUlOANCEt USING THb UP-CONTROL PHASE TO STEER TO A CONTROLLED EX IT 

CCWD IT 1C^ . THIS PEASE TER MINATES A > IF C < Q7 FPSS, GC TO P6f i 

BT IF ROOT HEGt AHD IF V < VL ♦SOOFPSt GO TC P67. 


CAL LUG sequ ence: BY Rlfi FRCH REENTRY CCNTROL 

£>17: BACK TC REENTRY CCNTROL t OR TO ENDQF JOB . 

SLEFCLTINE CALLS: NEWHCCEX 


0312 BEF 


COUNT* $$/P65 


0313 REF K LA S T TAE 26i 2440 Q 5 243 1 P65 TC NCWMCOEX ENTER VIA BTB HhEN RANGE < 25 N H OF 

0314 26,2441 00101 1 MM 6t ' TARGET, 


0315 

REF 


LAST 

iHt 

26,2442 

3 4760 

1 

CA 

P R I 0 1 3 


0316 

REF 

2 i 

LAST 

745 

26,2443 

0 5027 

1 

TC 

NDVAC 


0317 

REF 


LAST 

746 

1263 



E6ANK« 

ENTBYVN 


0316 

REF 

2 

LAST 

209 

26,2444 

C24S6 

1 

2CA0P 

P65. 1 


0318 





26,2445 

5^06 2 

1 




0319 

REF 

24 

LAST 

662 

26,2446 

0 5261 

1 

TC 

2PHSCHNG 

2 phase CHG RECUIREO TC PREVENT RE- 

0320 





26,2447 

0C554 

C 

OCT 

00554 

STARTING FLASHING DISPLAY TWICE, 

0321 





26,2450 

10035 

0 

OCT 

10035 

4,55 SPOT AND SERVICER, HERE, 

0322 

REF 

198 

LAST 

743 

26,2451 

C 6006 

1 

TC 

INTPRET 


0323 





26,2452 

47131 

1 

SSP 

PTB 


0324 

REF 

2 

LAST 

115 

26,2453 

03646 

0 


&CTC ADLP 

CHANGE ENTRY MODE TO UPCONTRL, 

0325 

REF 

1 



26,2454 

53027 

1 


UPCCMPL 


0326 

REF 

1 



26,2455 

5212C 

c 


REF A2E10 

GC HERE TO REESTABLISH ENTRY SEQUENCER, 


A0327 AND CONTINUE AT UPCONTRL... 


0333 

0334 

C336 

AC337 

0338 


0339 
AQ3391 

0340 


A0341 


0328 

REF 

49 

LAST 

697 

26,2456 

0 5447 

C P65.1 

TC 

DOWNFLAG 





0329 

REF 

2 

LAST 

744 

26,2457 

C0134 

1 

ACRES 

ENTR YCSP 

ENTRYDSP » 

92C 

BIT 13 

FLAG 6 

A03291 














C33C 

REF 

1 



26,246C 

3 2472 

1 

CA 

V16N69 

RCLLC 

DL 

(C7) 

VL 

0331 

REF 

227 

LAST 

746 

26,2461 

0 4555 

C 

TC 

BANKCALL 

X>X,XX DEG 

XXX 

,XX G 

XXXXX, 

0332 

REF 

18 

LAST 

74 C 

26,2462 

2C763 

1 

CACR 

OOFL ASHR 






REF 


REF 


REF 


26,2463 0 2460 1 


26,2464 0 2467 C 


26,2465 0 2460 1 


2 LAST 744 26,2466 0 2232 C 


REF 45 LAST 744 26,246? 0“f435 C 


3 LAST 749 26,247C C0134 1 


LAST 74 


t 


26,2471 C 242C C 


TC 


TC 

TC 


♦ 3 


-5 


TC 


P6l. 3 


TC 


UPFL AG 


ACRES ENTR YOSP 


TC 


P63, 1 


NODCFLAG IS SET 


• • 


eSTT'GAP 4 fCB CSPLAV 
IF PRCCEEC, CCNTINUE. 


ENTRWSp" » 920 eiTlT FLAG 6 


DISABLE GBP 4, START UP ENTRY DISPLAY 


N06V68 VIA CVERNOUT, AS USED IN P64 


0342 


26,2472 C4105 1 V16N69 


VN 


166 9 


gap: RPVlSlOh 23? CP AGC PRCGRAH CCLCSSUS SY NASA 


L Pti-pe? 



I; 17 AGG. 24, l<;68 


PANDORA .072 PAGE 750 


USER'S PACE NO. 11 E6 SB 


P03A3 

HQ3^6 

PECGRiP! 

NCC NC: 0 

FL h CT llJl ? 

P66 

PCD ev: 
KEEP CP 

RP SAlRNSfATHER 
ATTITUDE IN TRIP 

DATE: 17 JAN 60 COLOSSUS GSCP ADDITIONS. 

TO THE RELATIVE VELOCITY VECTOR. ENTRY GUIDANCE STOPS GENERATING 

— 

R03^e 



ROLL CCPPAKCS UNTIL CRAG 

euiLos 

UP TO C7*0. 

5 FPSS* 


P03AS 










R03t><J 

CALLI^C sequence: 

VIA RTQ 

FRCP REE^TRV CGNTROL. 





R0i5i 

EHIl 

• 

A 

BACK TC 

REENTRY CCNTRCL. 






f<Q352 

SLEfClTlNE CALLS: 

AEMNCOEX 







0353 

REF 

1 



COUNT* $I/P66 




C35A 

R£F 

11 last 7<i9 

26.2473 

C 5243 1 P66 

TC 

NENMCLEX 


ENTER VIA RTB WREN 0 < Q7 FPSS 


0355 



2 6 f 2 4 74 

G0102 1 

PM 

6b 




Q356 

R£f 

2 LAST 79A 

26.2475 

3 4749 C 

CA 

V06N22 


GGA IGA HGA 


A0357 








XAX.XX OEG XXX. XX OEG XXX. XX OEG 


0358 

REF 

1 

2 6 f 2 ^ T 6 

0 25C2 1 

TC 

P66E NO 


IN CASE CAPE FRCH P65. GO DISABLE CRP4, 


AC359 








AND SET ENTRVCSP TC 00 DISPLAY VIA 


AC360 








dvERNOUT. 


A036L 








... ANC CCNTINUE AT KEP2 



GAPJ ASSE MBLE REVlSICh 227 Cf AGC CClCSSUS BY NASA 2Q2UU-C31 


III? ALG. PANDOPA .072 PAGE 751 


L P61-Pt7 


USER’S PAGE NO. 12 66 S3 


PC3t2 Pel 


110161 

P03eA 

P0365 

pyi66 

PQ368 

P03t9 

RQ37C 


PflCCPiP- lAl - 

MCC RC .- C PAR. U, ISe? 

PCC BY- R. HIPSCPKCP 

F \ih £ 1 i£A-- 7C TEPPINAIE STEEPING XHEN THE CM VE L C CITY u RT EARTH « 1000 PT/ S E C 

CALH^G SEtUENCt- 

EYIT- TC PCCH 

SLEKITINE CALLS- CCFLASH 


p 0 3 7 L TUS CISPLAY IS CALlEC EACH PASS THROUGH STEERING. RESTART PROTECTICN IS VIA STE ERING. 


0373 

REf 

1 







CQUNTA 

$»/P67 



037A 

REF 

12 

LAST 

750 

26,2477 

C 5243 

1 

P67 

TC 

NEhPCDEX 

ENTER VIA RTB 


0375 





26,2500 

CQ1C3 

C 


PM 

67 



0376 

REF 

1 



26, 2501 

3 2510 

1 


CA 

V06K66 

RCLLC XRNGERR ONRNGERR 


A0377 











XAX.XX DEG XXXX.X NM XXXX.X NM 


0370 

REF 

6 

LAST 

749 

26, 2502 

55*263 

( 

P66END 

TS 

ENTR YVN 

DISPLAY VIA GVERNCUT. 


0379 

REF 

46 

LAST 

749 

26,2503 

0 5435 

c 


TC 

UPF LAC 

UN CASE CAPE FROM P65. ENTRY DISPLAY 


0360 

REF 

4 

LAST 

749 

26 1 2 S04 

00134 

1 


AORES 

ENTR YDSP 

WILL FLUSH FLASHING DISP. IF STILL ON) 


A038C2 











BIT 13 FLAG 6 


0 361 

REF 

79 

LAST 

746 

26,2503 

C 5301 

0 

K ILLGRP4 

TC 

PHASCHKO 

DISABLE GPP4, IN CASE CAME FROM HUNTEST. 


□ 362 





26,2506 

00004 

0 


OCT 

00004 

(COME TO KILLGRP4 VIA STB, RET TO CALLER) 


0363 

REF 

6 

LAST 

74t 

26,2507 

C 6030 

1 


TC 

0AN2 IG 

... AND CONTINUE AT PRE01CT3 ... 

- - - 

030^ 





26,251C 

01502 

1 

V06N 66 

VN 

0666 



0365 





26,2511 




BANK 

26 



03 66 

REF 

1 



26,2000 




SETLOC 

P6 0S2 



0387 





26,2511 




BANK 




0366 

REF 

1 



26,2511 

3 2542 

c 

P67.1 

CA 

V16N67 

RTOGO LAT LONG 


A0389 











XXICX.X NM XXX.XX DEG XXX. XX 


0390 

REF 

226 

LAST 

749 

26,2512 

C 4555 

c 


TC 

BANKCALL 



0391 

REF 

40 

LAST 

744 

26,2513 

20624 

c 


CAOR 

GOFL ASH 



0392 





26,2514 

0 25 17 

c 


TC 

>3 

EFFECTIVE GCtCPCOh 


0393 





26,2515 

0 2517 

0 

1 

TC 

♦ 2 



039P 

REF 

2 

LAST 

206 

26,2516 

0 251 1 

0 


TC 

P67. 1 

REDO 


0395 

REF 

25 

LAST 

69 2 

26, 25 17 

4 6214 

1 


CS 

THFEE 

TIRN CFF ENTRY CAP 

- 

0396 





26,2520 

0 0004 

c 


INh INT 




0397 

REF 

1 



26,252 1 

7 CIC2 

o' 


MASK 

CP/f LAGS 

CP/CSTBY , GAFDTTTw 


0396 

REF 

2 

LAST 

75 1 

26,2522 

54 102 

c 


TS 

CP/FLAGS 



0399 





26,2523 

0 0003 

1 


PEL INT 




0400 





26,2524 

C dOC6 

1 


extend 




0401 

REF 

1 



26, 2525 

3 2642 

c 


DC A 

SbRVCAC2 

- 



gap: a ssemble REViSinh 237 CF AGC PRCGPAK 


N_ASA 2G2UU-C31 


ItU AUG. 24il96a PANOQRA .072 PAGE 752 


P61-Pe 7 


ISER'S PACE NO. U 


E6 S3 




REE 


S L/Sl 743 26,2526 53'223 1 


CXCH AVEGEXfT 


1_4,LC4^X 


TCP 


GOTCPCCH 


R 


0^01 REP 66 LJST 743 


gap; PPVlSlOh 227 CP AGC PRCGPAM COLCSSUS BY NASA 20i!Ilil-C31 1:17 AliG. 24*lSfe6 PANDORA .072 PAGE 753 

L P6|-P7y~ — — (jSER *S page no. 14 E6 S3 


C404 





^6t253C 

43115 

C 

P67.2 

VLCAD 

CLEAR 

CALC PRESENT LAT, LONG, ALT, 

C4C5 

REF 

12 

LAST 

74 1 

26,2531 

01171 

1 



RN 


. £4Q6 . 

REF 

_g_ 

LAST 

69S 

26t2532 

00662 

c 



ERADFLAG 

USE PAG R«G FCR ALT. (NOT SEEN ANYWAY! 

C407 

REF 

11 

LAST 

721 

26t2533 

16152 

c 


STOOL 

ALPHAV 


0408 

REF 

11 

LAST 

74 1 

26j2534 

C12C5 

1 



PIPT IPE 

USE TIME CF RN 

JL4C.i - 





26. 2535 

45014 

c 


CLEAR 

CALL 


0410 

REF 

IE 

LAST 

69S 

26,2536 

01663 

c 



LUNAFLAG 


0411 

REF 


LAST 

6SS 

26,2537 

26322 

c 



LAT-LCRC 


0412 





26,2 540 

77634 

c 

P67. 3 

RT6 


ENTRY EXIT THAT OMITS CISPLAY. 

C413 

REF 

1 



26,2541 

536C3 

1 



SEP VFCLIT 














0^4 





26.2542 

G41C3 

1 

V16N67 

VN 

166 7 


0415 

REF 

2 

LAST 

36E 

4270 



CCT41 

* 

3 3D EC 


C416 

REF 

1 



26,2641 



SefiVCAD2 

a 

SEPVCAOl 



f.flP; 4SSgPBLf Rg^^lSlC^ ?37 CP AGC PHCGRAW CQLCSSUS BY NASA 202I111~C31 lil7 AUG. 24il968 PANDORA ,072 PAGE 75<i 


Ptl‘Ptl USER'S PAGE NC. 15 E6 S3 


PC^17 SCEPCnihE ^Af'E: Sfcl.l 

RO^ie HCC hC: 0 D ATE t 21 Fc8 67 

RQA2C HCC BU PR fcAlRNSEATHEH ^ LOG SECTICH: Pei-P67 

R0-!i22 RCC NC : 1 ACO EV: RR BAIRNSPA THER O ATfc: 22 JUN 67 RESTARTS . 

P042A FL^CT^C^AL OESCRIfTICN: CULEC BY 6CTH P6l AND P62 

r 0^25 FIRST. TEST TC SEE IF AVERACEG iS ON. !F NQT« UPDATE THE STATE VECTOR TC PRESENT TINE ♦ TOLERANCE 

R0^27 ARO turn CN AVERAGEG AT THAT TIME* AND CONTINUE. OTHE RWISE CONTINUE: SEE IF IMU V AXIS IS 

R0^29 WITHIN 3C CEG OF V*R. IF YES. EXIT SUBROUTINE S61.1. IF NO. SEE IF -Y AXIS OF IHU IS WITHIN 

P0^3l 3C CEG OF V*R. IF YES. CISFLAY ALARM: 01^27 IHL PEVERSEC. 

ROA32 IF hC, DISPLAY ALAPN: 01A2e IHU UNSATISFACTORY. 

RGA3A IH eiTHeP CF THESE LAST 2 CASES. WAIT 10 SEC AND THEN EXIT SUBRCUHNE SAl.l. 


R0A36 REMRX: THERE WILL 8E A SHCRT 10 SEC DELAY If AN ALARM EXIT IS TAKEN. THE DELAY FDR INTEGRATION IS 

R0A3e AS SHCRT AS CAN BE HADE, BUT IS ARBITRARY SINCE IT DEPENDS CN THE AGE OF THE STATE VECTOR. 


NOAAO calling SECUE NCE ; C ALL 

RQAAl Stl.l 

R0AA2 CIMPACl UNSPECIFIEC 

R0AA3 PUSHLQ C LN SPECIFIEC 


_ i UEPOniNES CALLEC: LGACTIHE. CSHPREC. TPAGREE, 

R0A<»5 WAI TLIS T, JC BSLEEP. JO BWAKE. PRE READ. ALARM. GCUS PR. BANKCALL, DELAY JOB 



RG<iA7 

RQ4A8 

NCRHAL 
ALIf MS 

EX n NCCES S 

RVQ 









t 

C 1626 


IHL UNSATI SFACTCRY 






RC^^S 



C1627 


IHL REVERSED 









R0450 

CL IFU 

« 

4 

PCSSIELE 

ALARMS 










RO^Sl 



PCSSIBLY 

TCECl, RATT 

f VATTf PKf VN 









KC<i52 

ERASABLE 

IM 1 lAL I 2AT ICN RECU IREC: 









R0^53 



A VEGFLAG 


AVERAGEG CN 

OR OFF 


LEFT 

BY SERVICER 





RQ<t55 



P IPTIHE 

(-20) C5 

TIME CF PIPA 

UPDATE 


LEFT 

BY REACACCS 





R0A57 



PN 

<- 

29) M 

STATE VECTOR 



LEFT 

BY AVERAGEG 





R0-it59 



VN 

(- 

71 H/CS 

STATE VECTOR 



LEFT 

BY AVERAGEG 





R0<t6i 



REFSMMAT 

(-1) 

,5 REF TC SM 

MATRIX 


LEFT 

BY LAST IMU ALIGNMENT 





RQ^63 

C E 8 R 1 ! 

• 

• 

GFRET 












RO^fc^i 



PCSSIBLY 

PlPTIMEl, RATT, VATT, TDECl. RNl, VNl 

, QTEMP. XI 

IF UPCATEO 





R0466 



PUSH 

LIST 

LCCS USED 

EY CSMPREC 
























CMtl 

REF 17 

LAST 

76! 

E d f 1 £ 6 1 


EBANK- 

A CG 

FOR BOGENRET , S61DT 





0^68 





26.2563 


BANK 

26 







CAfcS 

REF 

1 



26,2C00 


S E T L C C 

P60S3 







O^TO 





26,2563 


BANK 























0^71 

REF 

1 





COUNT* 

t$/S61.1 







C^72 





26.2563 

C C0C6 1 S61. 

1 EXTEND 








0673 

REF 

2 

LAST 

113 

26,2566 

23*713 C 

QXCH 

6uG6 NF FT 

SAVE 

BET ACOP IN E8 6 





06 76 

REF 229 

LAST 

7 5 1 

26,2 565 

0 6555 C 

TC 

BANKCALL 







06 75 

REF 

7 

LAST 

692 

26.2566 

1751T“S 

Caop 

RC2BCTH 







067t 

REF IS9 

LAST 

769 

26,2567 

C 600ft 1 

TC 

INTPPET 
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C477 
0478 
Q4l79 . 

BEF 
_ Rl f_ 

2 

.2 

LAST 

Li S T 

504 

209 

26.2550 

26.2551 

26.2552 

45014 

C0716 

54603 

C 

1 

C 

BON 

CALP 8 

avegflag 

S61 , lA 

IS averageg on 

YES 

C48C 

REF 

m 

1 

LAST 

644 

26,2553 

27570 

C 


MI0TCAV2 

GET FCTURE state VECTOR SOON AS CAN 

0461 

Ril. 


LAST 

735 

■21»1354 

3 0155 

JC 

CA 

HPAC +1 

RETURN INHINTEO ♦♦♦ 

0482 

REF 


LAST 

2oe 

26,2555 

55*774 

C 

TS 

S6LLT 

FCR RESTART. 

0483 

REF 

■a < 

LAST 

66 1 

26,2556 

C 5140 

1 

TC 

HAITLIST 


04.84 

REF 

a 

LAST 

-52 5 

£7,1431 



EBANKs 

DVCNTP 


0485 

REF 

2 

LAST 

20 E 

26, 2557 

C2564 

1 

2CA0R 

S61 . 1C 


0485 





26,2560 

54067 

1 




Q4efe_ 

RIF 

£( 

LAST 

751 

26,2561 

0 5301 

C 

TC 

PHASCHNG 


0467 





26,2562 

40434 

C 

OCT 

40434 


0488 

REF 

97 

LAST 

746 

26,2563 

0 5112 

c 

TC 

ENDC FjCe 



0409 

REF 

4 

LAST 

749 

26,2564 

3 4760 

1 S61.1C 

CA 

PR 1C 13 

0490 

REF 

27 

LAST 

698 

26,2565 

0 5042 

1 

TC 

F INDVAC 

0491 

REF 


LAST 

754 

E6, 1661 



£eAKK> 

AGO 

0492 

REF 

3 

LAST 

755 

26,2566 

C2602 

1 

2CA0R 

$61 . lA 

0492 





26,256? 

54C66 

( 




0^93 26f2;7G 0 0006 1 EXTEND 

0^99 REF 2 L3ST 7 53 26,2571 3 26^2 C CCA SEKVCACl HE ViHC STARTS AVERAGEG «LST SERVICE 

0695 REF 1C LAST 752 26.2572 53*223 1 DXCh AVEGEXIT THE EXIT. 

0696 REF 25 LAST 74 9 26, 2573 0 5261 1 TC 2PHSCHNG 

04 97 26,2574 0Q454 I CCT Q0434 

0498 26,2575 CC415 1 OCT 00415 


C49 8I 


i 


26.2576 3 4753 1 


CA 


EBENTRY 


SET EB* 7 FCR PREREAO 


04902 

REF 

33 

LAST 

658 

26,2577 

54 CCi 

C 

TS 

E6ANK 


G499 

R.LL_ 

45 

LAST 

74 4 

26.26CC 

C 4574 

( 

TC 

PCST JLRP 


0500 

REF 

3 

LAST 

6 4 1 

26,2601 

76t) 04 

1 

CAOR 

PRER EAO 

PREREAD DOES TC TASKOVER. 


REF 

2 CO 

LAST 

754 

26,2602 

0 £0 C6 

1 

TC 

INTPPET 


0502 





26,2603 

77204 

1 S61.1A 

60V6 

VLOAC 


0503 

REF 

2 

LAST 

287 

26,2604 

57314 

C 


TCDANZIG 

TURN CFF CVFINC, IF ON 

05Q4 

REF 

11 

LAST 

74 1 

26,2605 

01177 

1 


VN 

VN 1-71 >*/CS 

0505 





26,26C6 

64235 

1 

VXV 

HXV 


0506 

REF 

13 

LAST 

753 

26,2607 

Cl 171 

1 


RN 

RN (-291 ¥ 

05o? 

REF 

28 

LAST 

721 

26,26 iC 

01736 

1 


REPSPRAT 

.5 UNIT HATPIX 

C5ce 





26,2611 

71256 

C 

UNlf 

OLUAC 


05G9 

REF 

277 

LAST 

755 

26,2612 

CCI60 

C 


MPAC ^3 

GET CQS(THtTAl/2 

0 510 





2 6 f 2 6 1 3 

43240 

c 

BHN 

DAD 


0511 

REF 

1 



26,2614 

54621 

c 


S61 . IE 

Oc Test ON -YSH 

0512 

REF 

1 



26,2615 

14644 

1 


C (3C )L IN 

- l.O -.5 CCS(3Cl 

0513 





26,2616 

470C4 

c 

BDVB 

PTE 


0 514 

REF 

1 



26,2617 

S464C 

1 


K 6 TJ* h 1 


0515 

REF 

1 



26,2620 

54625 

1 


RETfiN3 
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Q516 





26t2621 

432 76 

( 

S61. 18 

OCCMP 

DAD 


0517 
J3l5X8 - 

REF 

2 

LAST 

755 

26t2622 

14644 

77404 

1 

1 



COO UIR 

a 1.0- .5 CCS(3C) 





26.2623 


Bove 

EXIT 


C51S 

REf 

1 



26*2624 

5463C 

C 



RETRA2 














iiiL2.Q_ 

, _B£t, 

2 Q 


715 

26.2625 

--Q--5537 

X_ 

RETRN3 

TC 

A LAPP 


C521 





26*2626 

C1426 

c 


OCT 

01426 

IPU UNSAT ISFACTCRY 

0522 

REF 

2 

LAST 

756 

26*2627 

0 2632 

1 


TC 

ReTkN2 +2 














0523 

REF 

31 

LAST 

756 

26t261C 

0 5537 

c 

RETRN2 

TC 

ALARP 


052^ 





26,2631 

01427 

1 


OCT 

01427 

IHU REYERSEC 













0525 

REF 

A 

LAST 

65A 

26*2632 

3 4743 

c 

♦ 2 

CAF 

V05NCS 


0526 

REF 

230 

LAST 

75<i 

26,2633 

C 4 5 5 6 

c 


TC 

BANKCALL 


il5 2 7 _ 

REF 

J_ 

LAST 

656 

26,2634 

206C2 

1 


CAOR 

GODSPR 

DC DISPLAY 

0528 

REF 

1 



26,2635 

3 2645 

1 


CA 

ICSECS 


052S 

REF 

231 

LAST 

756 

26*2636 

C 4555 

c 


TC 

bANKCALL 


0530 

REF 

__1J_ 

LAST 

657 

26*2637 

C1730 

1 


CAOR 

OELAYJCB 














0531 

REF 


LAST 

754 

26*2640 

0 1773 

c 

RETRNl 

TC 

60GERFET 














0532 

REF 

12 

LAST 

75 5 

E7* 1431 




EBANK« 

OVCNTR 


0533 

REF 

A 

LAST 

654 

26*2641 

03136 

c 

SERVCACl 

2CA0R 

SERVEXIT 


0533 





26*2642 

76067 

J 





053A 





26*2643 

22111 

0 

COOtLlH 

20 EL 

.566485 

* 1.0 -.5 CCSOCI 

053^1 





26,2644 

17335 

1 





0535 





26,2645 

C175C 

1 

lOSECS 

DEC 

1000 

1000 CS 

0536 





26*2646 

GQOOO 

1 

6OSEC0P 

20EC 

6000 B-28 

6000 CS 

0536 





26*2647 

13560 

c 






-GAPS 
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PC537 


-Rflii a PRCCRAP NAPES S61.2 DATE: lA FEB 67 

RQ5A0 PCC NC: 1 _____ ICC SE CT I CM P61-P67 

R0542 HEC B TS PERTH / EAlRNS FAThER 

P05A3 PCC NC; 2 NOD BY: HCRTH/BA IPNSFAThER DATE! H KAY 67 ADC 2NC ITEP FOR ERAD AT AOOK FT* 

P05A5 HCC NC: 3 MOO 6V: RR BAIRNSFATHER DATE: 21 KCV 67 VARIABLE MU ADDED. 

B05^7 MCC N C: A HOD BY: RR BAIRASFATHER DATE: 21 MAR 60 DIFFERENT EARTH/HCON SCALES IN TFF'S 

RQ5AQ FLFCTICNAL DESCRIPTICN: CAL LED BY P6l. PROVIDES DISPLAYS FCP NCUNS N6C AND N63 

R0551 PROGRAM CALCULATES ENTRY DISPLAY OF MAXIMUM ACCELERATION EXPECTED (GMAXl AND ALSO THE EXPECTED 

K0553 IN ERT lAL VELOCITY (VPREDJ AND ENTRY ANGLE (GAMMAEIJ THAT biLL OBTAIN AT AOQK FT ABOVE THE FISCHER 

R0555 ELLIPSOID, PROGRAM ALSO CALCULATES A SECOND DISPLAY RELATIVE TO THE EMSALT ABOVE FISCHER ELLIPSGID 

R0557 AMD CONSISTS OF RANGE TO SPLASH FRCM NOW (RTGC) » PPECICTED INERTIAL VELOCITY (VIGI t AND THE TIME TO 

BC55S GC FRCM MCM (TTEt . 

RQ56C CAILIMC SECUENCE: CALL 

RC561 S61,2 

R0562 CiM.PACI LNSPECIFIEO 

R0563 PLSHLCC MILL EE SET 7C ZERC. 


R056A SIERCLIINES CAL LED: TFFCC MCt CALCTFF, TFF/TRIGt FISHCALC, GETERAD, VGAMCALC 

RQ5 66 NCPMAL EXIT MOCESt RTB P6i.I ^ 

R0;67 ALARMS: NCNE 

R0S68 OLTPLI: THE FCLLCWING REGISTERS ARE WRITTEN IN FOR USE BY DISPLAYS 

RQ56S GMAJL ICO GMAX (-1AI GfS MAXIMUM ACCELERATION 

R057G 
P0571 
,PQ572 
R0 57A 
R0576 
PQ5?e 


VPREO (-7) M/CS 


G/MMAEI GAMMA/36C 


RTGC 


THE7AH/36C 


V 10 


(-71 M/CS 

(-2e» CS 


PREDIC TED VELCCITY AT ACOK FT 

AT ACOR FT 


PREC1C1E0 GAMMA 
FOR TM, DPIGAMMAEII 


* (GAHHAEI. RTGCI / 360 


RANGE ANCLE TC SPLASH FROM EMSALT 

EMSALT 


INERTIAL VELCCIIY AT 


time 


TO 


f MS ALT 


EMSALT IS PAD LCAOEO 
EMSALT IS PAD LCADED 
EMSALT IS PAD LCAOEO 


R058C PLSHLCC • 0 


RgSBJL CCNIC PARAMETERS STORED IN VAC AREA (SEE TFF SUBROUTINES! 


RC582 

ERA SA ELE 

1MTIAL12AT1CN RECUIRED 

* 





R05e3 


PCNE 

(-281 M 

STATE VECTOR 

LEFT 

BY 

USER 


ROses 


VCNE 

(-71 M/CS 

STATE VErrFR 

LEFT 

BY 

USER 


R0587 


LPONE 

UR/2 


LEFT 

BY 

USER 


PC58S 


LNl 

(-11 

UNIT NORMAL V*R 

LEFT 

BY 

entry / P6l 


R05SI 


TFfcTAF 

7HETAH/360 

RANGE ANGLE 

LEFT 

BY 

ENTRY / P61 


R0593 


LMTW 

(C) 

UNIT PCLAP VECTOR 

LEFT 

BY 

PAD LOAD 


R0595 


EMSALT 

(-281 M 

EMS INTERFACE ALTITUDE 

LEFT 

BY 

PAD LOAD 


RC587 




OPfiiTAL reentry: 20A6A3 FT, LUNAR 

reentry: 

287A31 FT. 


PQ5SS 

DEE P IS : 

GPRET 1 







R0600 


ALL PCL 

LCCATIONS ABCVE 

120, INCLUDING X1,X2,S1,S2 





R0601 


ALSC PDL^O PCL+5, 

WHERE initial PUSHLCC » POL 






GAP 




F AGC PRCGPAM 


V NASA 2Q2U11-C31 
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Pei-F<7 


OSER'S PAGE NO. 19 


E6 S3 


P06U2 



7F£ FCLLChlNG PUSE LlSl LCCAT ICf^S 

HAVE EtEN PES6RVEC 

FCR TFF 

PCOT IKES 

AKD ARE REPEATEC FERE FCR CCNVEMfcNCE. 


CF CCIPSE FCfl S61.2 USAGIf EAR7P 

CRICIN SCALING 

IS 

USEG. 



' - - ----- - 

Acect 





BELCK 

E : IS usee FOP 

EARTH ORIGIN SCALE 

AU6C7 






H: is used FCP 

MOON ORIGIN SCALE 

AC6C8 


RTfcRM 

> 

16G 


TERMINAL RADIOS M 

6 1 (-29) m: (-27) 

A06C9 


NRTERH 

m 

16D 


TERMINAL RACIUS M 

E* (-29+NRI 

AQ6 1 ii 







M: (-27+NR) 

AQ611 


PRAGl 

at 

12D 


PRESENT RACIUS M 

E: (-29) Pi (-27) 

A06U 


KRHAG 

* 

320 


PRESENT RACIUS M 

EJ (-29+NR) 

AQ<)13 







Mi (-27+NR ) 

A061A 


SOELP/2 




SINITHETAI /2 


A0eil5 


COhLF/2 

* 

lAD 


COSIThETAI /2 


A0616 


TFFX 

3 

3^D 


X» ARGUMENT OF SERIES T(XI. 

40617 


TFFTEH 

a 

36D 


AHG FCR TRANSFER 

ANGLE CALCULATICN. 

AG618 


TFFNP 

s 

260 


LC P M £i (~3flf2NR| M: (-36+2NP) 

AQ619 


TFF/KTMU 

= 

3 00 


l/SURT (MJ » 

6: (17) M: (lA) 

A062C 


7FFVSQ 

m 

200 


-(VN.VN/MUJ I/M 

E: (20) h: (16) 


GJIPJ 
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L P61-P61 
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PCt21 

Q622 3^*3A5^ bank 39 

0623 REF 2 L4ST 75 1 26,2C0C SETLOC P6CS2 

0629 26t2650 BANK 


0625 REF 


COUNT* SS/S61.2 


AQ626 


POL LEFT AT ZERO 9> ^ TARGET NG 


C627 



26.2650 

95395 

1 

S61.2 

OLCAU 

OSU 



Q6271 

REF 

1 

26.2651 

C202C 

1 



EMSALT 



C6272 

REF 

1 

26,2652 

1500G 

C 



2 90K f T 



C6273 



26,2653 

71299 

c 


BPL 

DLQAC 



06279 

REF 

1 

26.2659 

59779 

1 



LUNENT 



0628 

REF 

1 

26,2655 

17316 

c 



1 /P TRL 

ESTABLISH MU FCR ORBITAL 

ENTRIES 

06281 



26,2656 

77629 

1 

CALLCCN 

CALL 




C629 

- MF - 

_J 

26,2657 

56721 

c 



TFFCCMC 

FILL VAC AREA WITH CONIC 

PARAMETERS 


C63C 

0631 

REF 




26,2660 

95195 

C 

DLCAO 

CALL 




1 



26.2461 

15020 

1 


RTRI AL 

1 ST GUESS AT TERMINAL RADIUS (-291 

0632 

REF 

2 

LAST 

512 

26,2662 

57031 

1 


CALCTFF 

SAVES MPAC IN RTERM (160) 
















a 6 331- 





26.2663 

77629 

1 

CALL 


CALC SOELF/2, COELF/2 



0639 

REF 

2 

LAST 

632 

26,2669 

56573 

C 


TFF/Tf IG 

RETURN WITH SITF6TAI IN HPAC 
















£1415l_ 





26.2665 

77629 

1 

CALL 


GET FISCHER RADIUS (-29) M 



C6 36 

REF 

1 



2 6 f 26 66 

55027 

1 


F ISHCALC 

ANS IK MPAC AND IN ERAOM. 
















. 0637 





26,2667 

95015 

1 

OAO 

CALL 




0636 

REF 


LAST 

759 

26,2670 

C2020 

1 


EMSALT 




0639 

REF 

3 

LAST 

759 

26,2671 

57031 

1 


CALCTFF 

SAVES MPAC IN RTERM (1801 



0690 





26, 2672 

7 76 76 

c 

DCCMP 


NEGATIVE AS IN COUNTDOWN, 



0691 

REF 

-2 

mt 

LAST 

792 

26.2673 

C3733 

0 

STORE 

TTEl 

OECB TTE FflCM BASE TTEl. (RESTART) 



A0692 










ONLIST A;^D CSKY will USE TTE. 



0693 

REF 

6 

LAST 

792 

26,2679 

37727 

1 

STCALL 

TTE 

LET MISS CCNTRL DECR BY ELAPSED TIME 




A0699 Tt6» TIME FROM NOW TO EHSALT ♦FISCHEP 


0695 

A0696 

0697 

REF 

3 

LAST 

759 

26,2675 

56513 

C 


TFF/TPIG 

S(TH6TA1 IN MPAC 

ON RETURNING 

FROM NOW TO EMSALT 











AND THETA* RANGE 





26,2676 

17629 

1 

CALL 





0696 

REF 

4 

LAST 

759 

26, 2677 

55027 

1 


FI SHCALC 




0699 





26,2100 

17629 

1 

CALL 





0650 

REF 

1 



26,2101 

5^6 26 

C 


Vf CALC 




0651 





26,2102 

7762^ 

1 

CALL 





C65U 

REF 

1 



26,2703 

56613 

c 


TSTSPTAFTG “ 




06512 





26,2709 

11629 

1 

CALL 





06513 

REF 

2 

LAST 

759 

26,2lC5 

56613 

t 


DISPTARG 




G6519 

REF 

4 

LAST 

273 

26,2106 

31719 

1 

STCALL 

RTGC 





NASA 20^Ull-C31 


GAP: -ISSOfiLE BEVISi-CK 23 7 Lf Afi.C._P&CC PA W 


Pfcl-P^ 7 


0652 REf 2 L/ST 632 26t2')C7 5505C 1 VGAPCALC 

0653 26.2710 776C5 1 QNP 

A0654 

0655 26»27U A3265 1 BOCV OAL 

0o56 1 26,2712 15026 1 VEHSCCN 

0657 26,2713 COOOl C 0 

0656 REf 5 LAST 273 26,271A 17725 1 STOOL VIO 


1117 flLG. 2A.I96a PANOQBA .072 PAGE 760 

USER'S PAGE NO. 21 £6 S3 


MPAC * GAPPA 

POLO HAS VGAP, 

-HS C 180/Pl (-1A) 

VGAH PROP PCLC. 

PREDICTED VELOCITY AT ENSALT. 


AQ659 ___ CARPA ANC VGAM AT SOOR FT ARE REQUIRED BY GPAX 

AC66C ALGORITHH. 


0661 REF 5 LAST SRE 26 ,27 1 5 C22 <»1 1 

A0662 

0663 26,2716 77615 C 

066<t PEF 1 26,2 7 17 C6A62 1 

0665 REF 1 26,2720 3<i023 1 


fcRAOF 


DAD 

3 0CKF'T 

STCALL PTERF 


EARTH RADIUS FRCM GETERAO (-2S) H 

« FISCHER RADIUS 

terminal RADIUS F (-291 


C666 

AQ667 

REF 1 

26,2721 550A5 C 

PREVCAF 

VGAMCALC klTH NEM 

VBAR ■ (VIFPS) - 

RTERF 

36KF/S1 / 20KF/S 

R0668 

GFAX ■ (4/(1+ 4.E 

veAPSQDIGAH -6.05 -2.4 VBARSQ) 

-10(L/D -.31 *10 

A5SLFE L/D - 0.3, 

BAHK «0. 


A0670 

0671 

0672 





26.2722 

26.2723 

95325 

COCCI 

GFAXCALC 

1 

C 

POOL 

OSO 

0 

GAM TC 
VGAM IS 

P0L2 

IN POLO (-7) 

0673 

REF 

1 



26, 272A 

15009 

1 


36KFT/S 

(-71 

M/CS 

067A 





26,2725 

63971 

C 

ODV 

OSC 



0675 

REF 

1 



2 6 f ^ 7 2 6 

15006 

c 


20KFT/S 

(-61 

M/CS 

0676 





26,2727 

COOC 1 

c 

STOPt 

0 

vBabsq 

1-2) TC POLO 

C677 





26# 2130 

93205 

1 

DMP 

OAL 



0678 

REF 

1 



26,2731 

15010 

1 


KRl 



A0679 










G A H f 

PCS OOmN, from P0L2 

0600 





26,2732 

91215 

1 

DAD 

OFP 



0661 

REF 

1 



26,2733 

15C12 

c 


-6.05CEG 



0682 

REF 

1 



26, 2739 

15019 

c 


KP2 



0663 





26,2735 

77725 

1 

POOL 


XCH POL+0 FCR VBARSQ (-21 

0664 





26, 2736 

93271 

1 

OOV 

DAD 



0665 

REF 

1 



26,2737 

15029 

c 


KR^ 



0666 

REF 

1 



26,2740 

17330 

1 


0P2 ( -9 ) 



0667 





26,2791 

77665 

1 

BOOV 




40666 










NUM FRCM PDL-^O 

0669 





26, 2 792 

51015 

1 

OAO 

bPL 



C69C 

REF 

1 



26,2793 

15016 

1 


KF3 



0691 





26,2799 

5979? 

1 


♦ 3 



0692 





26,2795 

77795 

1 

olgao 




0693 

REF 

22 

LAST 

675 

26,2796 

15337 

I 


HTIaZercS 



0694 

REF 

1 

LAST 

273 

26,2197 

17722 

c 

STOOL 

GFAX 

100 GFAX (-19) 
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L 


Ptl-P< 1 
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R0695 

L ISPLAM 

ESES 1 

QMAX 1$ 

SPt SC LC 

WCRC 

IS VRITTEN 

OVER BV 

VPKED . 













ddSC 

^R£L 

t_ 

L/ST 

76C ; 

26 ft 2 7 S C 

02241 1 


ERADM 

> FISCHER RADIUS (-291 M 

06 S7 





26,2751 

45015 

1 

OAD 

CALL 

2 NO ITERATION FOR FISCHER FACIUS 

0698 

REF 

1 



26,2152 

15022 

C 


400KF1 


0699 

REF 

A 

LAST 

759 

26,2153 

57031 

1 


C4LC7 FF 

ESTABLISH TRANSFER ANGLE DATA. 

0700 





26,2154 

776 24 

1 

CALL 



0701 

REF 

A 

LAST 

759 

26,2155 

56573 

C 


TFF/TPIG 

GET SIN, CCS DELF 

_ Q7C2_ 





26,2156 

77624 

1 

CALL 



0703 

REF 

2 

LAST 

759 

26,2157 

55027 

1 


F ISHC4LC 

GET CORRESPCNCING FISCHER RADIUS. 












07C4 





26,2760 

73015 

1 

OAD 

LXA, 2 

SAVE HI-mQRC FGR OCWNLIST. 

0705 

REF 

2 

LIST 

76 1 

26,2161 

15022 

c 


400KFT 

M (-29) 

0706 

REF 

6 

LIST 

759 

26,2162 

C3713 

1 


RTCC 

(RANGE ANGLE FROM EMSALT)/360 

07.07 

BiP 

^ 

LIST 

76C 

26,2763 

34023 

1 

STCALL 

RTERM 


07C8 

REF 

2 

LIST 

76C 

26,2164 

55Q45 

c 


PRE VG4M 

VGAMCALC MITH NEM RTERM 












0709 





26.2165 

67076 

1 

OCOMP 

SXA,2 

HI-WCRD OF EACH CN OCWNLIST. 

C71C 

REF 

27E 

LIST 

75! 

2 6 f 2 7 6 £ 

00155 

c 


MPAC +1 


0711 

REF 

5 

LIST 

273 

26,2767 

17771 

c 

ST(JDL 

CAHHIEI 

CONIC GAMM4/360 AT 400K FT- ( HI-wORC) 

40712 










CONIC RTG0/36t FROM 6MSALT (LCM-WQRDI 


40713 FCR TH, OPfCA^MAEO- (GAMMA, RTGDI/360 


f 


R 


r 


F 


P 

$ 


r. 


$ 

0 


H 


4071A VG4M PROM PCL-*0 (-7) 


0715 



26,2 770 

77626 

C 

staor 



0716 

REF 

6 LIST 273 

26,2771 

74010 

C 

STORE 

VFREC 

CONIC VELOCITY AT 400K FT 










0717 



26,2772 

7 76 34 

C 

rtb 



0716 

REF 

1 

26,2773 

54267 

C 


P61. 1 


A0719 








POL BACK TC ZERC. 




07192 



26,2 774 

52145 

0 

LUNENT 

CLGAC 

GOTC 


07193 

REF 

3 LAST 508 

26,2775 

06456 

c 



1/kTFUE 

ESTABLISH ML FOP LUNAR TYPE ENTRIES 

0 7194 

REF 

1 

26,2776 

54656 

c 



CALLCON 


07195 



26,2777 

COOQ2 

0 

290KFT 

20EC 

08392.0 B-29 


07195 



26,3000 

26244 

1 





07196 



26,3CCl 

00052 

c 

KTETAl 

20ECM 

.421844723 E2 

e-14M 1100 2PI / 16304 ( 163.84 J 

07196 



26,3CC2 

05716 

1 





072C 



26,3003 

33335 

1 

36KFT/S 

20EC 

109.726 B-7 

(-7) M/CS « 36 KFT/S (-7) 

0720 



26,3C04 

C57C7 

1 





0721 



26,3005 

36365 

I 

2ckft;s 

20EC 

121.92 6-7 

(-6) M/CS « 2 20KFT/S (-7) 

0721 



26, 3CC6 

30244 

c 





0722 



26, 3007 

77113 

1 

KRl 

20EC 

-.026666667 

2.4 4 / 360 

0722 



26, 3C1C 

42770 

1 





0723 



26,3011 

17354 

c 

-t.OSOEG 

20EC 

-.016805556 

a -6.C5 / 360 

0723 



26,3012 

65030 

1 





0724 



26,3013 

21450 

0 

KK2 

TOEC 

.54931641 

»(360/4) IOC (-14) - 9000 B-14 

0724 



26,3014 

COOOl 

c 





0725 



26,3015 

C1750 

1 

KR3 

20EC 

lOCC e-i4 

* roo ( 10.0) T^T4") "GTS 

0723 



26,3016 

COOCC 

1 






0 


K 







t 






GAP: 


22? CF A 


NASA 


til 


l:l? ALG. 2A.19fee PANDORA .072 PAGE_ 762 


L 

P61-P67 







USER'S PAGE NO, 23 E6 

S3 

A0726 

0727 

u727 



26, 3Ci7 
26, aC2C 

00305 1 
_Q^SAI C 

RTRIAL 

2DEC 6A60C97.ib B-29 

ASSUMES L/0 » 0.3, BANK -Q, 

RPAC +284643 FT -21 194 545 FT 


AC72e 







PPAD DEFINEO AS 20 909 901.57 FT -6 373 338 

M 

072S 

0729 



26,3021 
26.3C22 

00003 1 
■_^7_0i£_&_ 

400KFT 

20 EC 12192C e-29 

METERS 












RC730 

3CCKF 1 

2CEC 

91AA0 B-29 

(-29 ) 

P 





RC731 

EPSAL 1 

2CEC 

66759,2 B-29 

264643 

FT ( 

-291 

H (ORBITAL PE6NTRY) 



RQ732 

EPS ALL 

-2LL0 

9C657 B-29 

297431 

FT ( 

-29) 

P (LUNAF REENTRY) 



0733 

0733 



2e,3C23 
26,3C2A 

32525 1 
12525 C 

KR4 


2CEC .633333333 



073A 

0735 

REF 3 

LAST 

50fi 23,2461 

26, 3C25 

77777 C 

3C0KF1 

VEMSCGN 

EgUALS MIKPERE 

2DEC -.0369676 fl-14 

- -FS 0 /2 PI (-14) M SQ/ 

CS SO 

0735 



26.3C26 

766CI 1 






A0736 







»- 16369 

.05G 32.2 .3048 .3046/2 PI 

(-14) 


9 


a 


p 


I 


i 


.-4 


gap; ASSE^flLE PEVISICN 227 CF AGC PPCGPAH CCLCSSUS BY NASA 20211U-C31 


l;n aLG. 24tl968 PANOCPA ,072 PAGE ?63 


L Pfcl-P«7 


USER'S PAGE NO. 2^ E6 S3 


PL737 SL^FC^I^E NAPE: F|S>CAi.C tUSEL BY Sel.2J __ DATE: 01.21.67 

R0739 HCC NC: C ' ' „ LOG SECTION: P61-P67 

PQ 7^1 HCC by; PCR1P / EAIPNSFATHEP 

R07A2 HCC NC: I MCO 8Y; RR BAIRNSEAT HER GA TE: 11 HAY 67 IN CLUDE G67ERAC CALL 

R07AA ELECT ICNAL CESCRIFTICN: GIVEN THE PRESENT PCSITICN* UNlTRf C ALCULATE A NEN UMTR THAT IS HCTATEC THROUGH 
HQ7A6 TRANSFER ANGLE. THETA, ALCNG TRAJECTORY. THEN CALCULATE SlNlLATI ANG USE TC CBTAIN FISCHER RACtUS. 


rOTAB __ SINCE FISHCALC USES UNI (L EFT B Y ENTHYI EARTH SCALING IS A S SUHEO . ( W I LL IHPPCVE FOP SUITABLE TENNANTJ 


R075Q 

CALLING SEGUENCE: CALL 







R07bl 

FISHCALC 







RC752 

ENTER WITH .5 SIMThETAl IN PPAC. 







R0753 

PLSHLCC IS AT PDL+Oi AN ARBITRARY BASE 

VALUE IF LEG fiO 














RC75A 

SLEECL1INES CALLEC: GETERAC 







Ra755 

NCENAL EAIT NCCE: RVQ 







P0756 

E> IT NCCES 1 NONE 







R0757 

QL1K1: EFACM (-2S) P IN PPAC ON RETURNING 







R0758 

NER UNIT VECTCR NCT SAVED. 







R0759 

SIMLATI NCT SAVED. 







RQ7fcO 

PLSHLCC AT PCL+0 







R0761 

ERASE/SELE IN IT lAL UAT ICN PECUlREO: 







R07<j2 

SCELF/2 sSlNlTHETA) /2f IN PPAC 


LEFT 

BY 

TFF/TRIG 



K076A 

CCELF/2 -COSITHETAI /2t STCPED IN 

POL lAO 

LEFT 

BY 

TFF/TPIG 



R0766 

RCNE (-2SJ P 


LEFT 

BY 

USER 



R0768 

VCNE (-7) P/CS 


LEFT 

BY 

USER 



R077C 

UFQNE UP/2 


LEFT 

BY 

USER 



R0772 

UNI .5 UNIT! V«»RI 


LEFT 

BY 

ENTRY / P6l 



R077A 

UNITR UNIT NCPTH POLE 


LEFT 

6Y 

PAG LOAD 



KO 77(3 

CEERI5J CFRET, PCL-»0 ... FCL^S 








R0777 


A077e 











— 




C779 





26,3C27 

^7315 

C 

F ISHCALC 

POVL 

VXV 

URPR « UR 

CCELF 4 UHOR SDELF 


Q760 

REf 

3 

LAST 

7-^1 

26,3C3C 

C2343 

1 



URGNE 





0761 

REF 

3 

LAST 

7A 1 

26,3C31 

G35C2 

C 



UNI 





07 82 





26»3C32 

76561 

I 


VXSC 

VSLl 





A0783 











sinithetai 

n FRCH PDL+O 



07eA 





26» 3C33 

7A315 

C 


POVL 

VXSC 

TC PCL*0, 

♦ 5 



0785 

REF 


LAST 

763 

26t3C3A 

C2343 

1 



URONE 





0766 

REf 

4^ 

t 

LAST 

632 

26,3G35 

00017 

1 



CDeLF/2 

CCS! THETA 1 

/2 



0787 





26,3C36 

4545S 

1 


VAO 

STAOP 





0707 1 

REF 

1 



26, 3C37 

79235 

c 


STORE 

UkH 

FCR USE IN 

RTGO FROH EPS 

DISPLAY 


0788 





26,3040 

72441 

c 


DOT 

SLl 

FULL UNIT 

VECTCR UNIT 

NORTH 


0789 

REF 

7 

LAST 

527 

26,3CA1 

C1719 

1 



UM Tk» 


0790 

REF 

12 

LAST 

753 

26,3C42 

02 196 

1 


STORE 

ALPHAV +4 

- .9 SIMLATI 



0791 





2 6 f 3 C 4 3 

77650 

1 

CUHPF ISH 

GOTO 

GETERAC 





0792 

REF 

2 

LAST 

6 1 6 

26*3044 

26437 

0 



SAVES FISCHER RAD (-291 

H IN ERADH AND 


AC793 











IN HPAC* RETURNS TO CALLER VIQ QPHET • 



^AP-J JSSiMjLf RFVISlCh 2^.1 CP AGC PkC^RAM CQLGSSUS BY NASA 2Q2iIll-C31 1:1? AUG« 2^tt968 PANQ0R4 .072 PAGE 76^ 


pei-PA7 USER'S PAGE NO. 25 E6 S3 


PG7SA 

SiePCUINE 

NAME: 

VGAMCALC 


(USED 8Y 

Sbl.2) 




DATE: 01-21.67 

RQ796 

RQ79a 

MCC NC: 


0 








LCG SECTICNs P61-P67 

I . 

MCPTH / 

EAIPNSFATEEP 






R0799 

MCC NC: 

1 


MCO 

ev : 

RR 

BAIRNSFATHER 

DATE : 

11 

APR 

67 


RU60C 

MCC NC: 

2 


MCD 

EY: 

RR 

bairnsfather 

DATE: 

21 

NCV 

67 

VARIABLE MU ADDED. 

R0e.U2 

MCC NC: 

1 


MGD 

BY X 

RR 

BAIRNSFATHER 

DATE: 

21 

MAR 

66 

ACCEPT DIFFERENT EARTH/MOGN SCALE 


ROeOA FlhCTlCWAL DESCR 1 PT ICN: EARTH CEMEBEO VIS VIVA CALCULATICN CF TERMINAL VElQC nv ftRO GAMM^ (PEL TO 


K0fl06 HCRIZCNT^L) GIVE N THE SCALAR CUANTITIES: PRESENT RAQtUS ANQ VELCCITV AND THE TERMINAL RACIUS, 

jiOJfija TEE USER MUST APPEND PBCPER SIGN TC GAMMA. SINCE IT IS CALCULATED AS A POSITIVE NUMBER. 

P081C TEE__ECUAT1CNS ARE 

RG a 1 1 VCAM = SQPTIV^ VN/MU 4 2 ( RN-R I ERM > / ( RN PTERM 1 > RTMU 

R0812 CCSGAM = J* /RTEBM VGAH • S”QRT(LCPI/ ( RTERM VGAM/R TMU) 


PC813 VG AMCALC ASSUM ES THAI IHE TERMINAL RADIUS IS LESS TEAN THE PRESENT RADIUS. BCTE CALCTFF AND CALCTPER 

M 8_l 5 MAKE THIS ASSUMPTION. 

ROeia CALLING sequence: call STCALL RTERM 

Ruei? VGAMCALC PREVGAM 

hoaia PLSHLLC n PCL+Oi APeiTRAPV IF LEG 120 

R0ai9 C(MPAC» unspecified C(MPAC)*NEW PTERM 


R0820 SLEPQUINES CALLIC: NCNE 

RCe 21 NCPMn EMIT MCCEi RVQ 

•\0a22 ALARMS: NCNE 


R0e23 

CL TPL T : 

CAMMA / 36C IN MPAC, 

PCS IT IVE NUMBER 





R0a2A 


VGAM E J(-7» M:(-5) 

M/CS IN POL+0 





PCS25 


PUSHLQC AT PDL42 






RQ826 

ER A SAELE 

IN n I ALl 2AT ICN RECOt 






RC827 


TFF/RTMU E :( 171 M : UA ) 

l/SCPT (MU > 

LEFT 

BY 

TFFCCMC. 


PQ82S 


RMAGl E:t-29» M:(-27) 

M PRESENT RADIUS LENGTH 

LEFT 

BY 

TFFCCMC 


R0831 


NPMAG E: (-29+NPJ 

M NCBM length CF PRESENT PCSITION 

LEFT 

8Y 

TFFCCNIC 


R0a33 


M: (-27+NP) 






R083A 


PTERM E 1 (-29 > M : (-27 1 

M TERMINAL RADIUS LENGTH 

LEFT 

d V 

CALCTFF 


RQ836 


NPTERM 6: (-294NR> 

M NCRM LENGTH OF TERMINAL RADIUS 

LEFT 

BY 

CALCTFF 


P083B 


M: (-27>NRI 


LEFT 


TFFCCMC 


R0839 


TFFVSC E :(20) M:(ie) 

1/M -(V SC/MUI: present VElCLlTVtNCPM 

BY 


BOBAl 


TFFNP EJ (-3a+2NR) 

M LCP, SfMI-LATUS RECTUM, HEIGHT NR 

LEFT 

BY 

TFFCCMC 



RG8A3 M: (-36+2hPI 


RUa^A CEERIS* OPRETf PCL^O ... PCL+3 

ROBAS RTERM, NRTERM IF PPEVGAM ENTERED- 



^AP : AS5EAJL1 -BLk I.S.II:A 


L P61-P61 


pce^e 

08A7 



06^9 

0850 REF 1 


0851 





26t3C50 

A13A5 

C 

VGARCALC 

CLGAO 

OMP 




C852 

REF 

1 



26(3C5l 

COOAl 

1 



NRMAC 

RHAG H 

E: (-29+NR 1 

H: (-27^NR) 

- Qfl53^ 

REF 


EAST 

765 

^6,3052 

00021 

1 



NRTERN 

RTERN M 

E: (-Z9 + NP 1 

M: (-27+NR 1 

085A 





26f 3053 

A5325 

1 


POOL 

OSU 

RNAG RTERH H 

E: (-5e*2NRl 

N: (-5A + 2NR 1 

0655 

REF 

2 

LAST 

765 

26.3C5A 

OCOAl 

1 



nrpac 

RRAG H 

6: (-29+NRI 

n:(-27+nri 

J1156 

REF 


LAST 

76 5 

26#3C55 

00021 

1 



NRTEPN 

RTERR H 

E: (-29»NR1 

H : (-27+NR 1 

0857 





26f 3C56 

562 57 

1 


SL* 

DDV 

2 (HN-RTERMl 

E : (-30+NP 1 

Wt (-28^Na 1 

0858 





26,3057 

20171 

1 



0 -8C,l 

(-8+NR 1 



A 0859 











PLSH UP PPCCUCT. 



C86C 





26,3060 

77625 

C 


OSU 





0861 

REF 

1 



26,3C6l 

0GC25 

C 



TFF VSC 

-<V SQ/MUl 

6: (20) 

HJ (181 

0862^ 





26,3062 

41566 

X 


SORT 

PUSH 

SAVE VGAH/RTfNU) 

FCR NCW. E: 

(101 PJ ( 91 

0863 





26,3063 

65271 

c 


oov 

POOL 

XCH PDL+0, LEAVING VGAH FOR 

OUTPUT. 

AOeeA 











VCAN TO POL M/CS 

EJ (-71 

N: (-21 

_(ie65 

REF 

A 

LAST 

508 

26,3C6A 

C0C37 

c 



TFF/RINU 

E: (171 Ri (lAl 



0866 





26,3065 

65205 

c 


ONP 

POOL 

RTERM VGAP/PTPU 

F: i-l9+NRl 

H J (-18+NR 1 

0867 

REF 

A 

LAST 

765 

26, 3066 

OOC21 

1 



NRTEPN 

RTERH M 

E: (-29 + NR) 

M I ( -27+NR 1 

0668 

RkF 

1 



26,3067 

C0Q35 

1 



TFFNP 

LC P -H.H/RU M 

Ei(-38*2NR1 

Nx(-36+2NP 1 

0869 





26, 3070 

56366 

1 


SORT 

OOV 


EJ (-19+NR 1 

MJ (-le-fNR 1 

A0870 











PLSH UP OEN 

6 : (-19ANR1 

NJ (-1Q+NR 1 

A067C1 











USE DCV OVFL AS 

LINITEP (ICOSI <1.01 

0871 





26,3071 

655A2 

1 


SRI 

ACCS 




0672 





26,3072 

77616 

c 

OLHPVGAN 

RVO 



















ACa721 











CALLER HUST SUPPLY OWN SIGN 

• # « 















Afie73 












22W 

27HS 


NASA 


ill? AUG. 24ti96a PANDORA .072 PAGE 765 


USER'S PAGE NO. 26 


E6 S3 


26f3C^5 77657 C PRfcVGAH SL* 


ENTER KITH NEW 
fi {-291 RJ ( 


RTERM IN NPAC 
27 ) 


26 


26 


3CA6 

3CA7 


2C2Ci C 
00021 1 


STORE 


0 »1 

NRTERP 


XI » -NR 
RTERN M 


E:(-294NR) HM-27+NP1 


H 


CAP : 


Rgy IS ich 


20211U 


I; 17 AUC . 2Atl9fea PliNOQP^ .072 PAG E 166 


Ptl-Ptl 


tSER'S PAGE NO. 27 


E6 S3 


P0e74 

R0876 

Baa7e 

ROa7‘5 
R086Q 
HU a 62 
Roee^ 

PC08S 

RceajL 

RC8b7 

Rcaee 

Rcaas 

RCB91 
R0693 
_RU0S^ 
R089 5 
RQ896 
R0B97 


Roesb 

RO099^ 

R0900 

R0901 

PUS02 

K09C3 

RC904 

► 0905 

R090 7 

R09C9 

RG911 

P0913 

R091^ 

P0916 


R091? 

09l7i 

09173 

t9l75 

0916 

09 19 
u920 
0921 


7FF/TP iq 


SC6FCC1IRE NAMt: 

PCC NC: C 

MCE R P EAlP.NSPAThEP 

PCC NC : 1 POO ev i 

PCC NC: 2 PCD BY: 

fJL^ C TICNAL DESCftlFTlCht 


(useo BY S61.2) 


DATE 01.17,67 

LOG SECTlCNt P61-P67 


PP BAIRRSFATHEP DATE! 14 APR 67 

PR BAIRRSFAThEB DATE; 21 MAR 66 ACCEPT DIFFERENT EARTH/MOQN SCALE 

USED BY ENTRY DISPLAY TO CALCliLATE SiNiTHETAIt CQS(THETA) FROM DATA LEFT IN 


FCL 8Y TFF SWeRClT IhES , THE 6CNS ARE 

CLSITFETAI - 1-2 AfiS(ARC) /(RN RTERM (l+XI 

2 


I 


SIMTHETAJ » SGMARGI SCP7I i-CCS (THETAl I 
TEETA - transfer ANGLE 
APG a P Z AeS 1 2 ) 


N FER E 
AND 


IF ALFA II LEC 1 


ARC ■ (P / ALFA) SGNUl * R 1/2) 

AND ARG HAS BEEN AFFIXED HlTH THE SIGN OF SINITHtTA). 
C A L L 1 N C SECUENCE; CALL 


IF ALFA 2 Z 


1 


TFF/TRIG 

FLSHLCC AT PCL+C , ARBITRARY IF NCT EG 14C 
C IMPAC) LNSPECIFIED 


SieFOLTlNE< CALLEC: 
NCP PAL EXIT MCCES ; 
ALAFP53 NCNE _ 
CLTPL1 I C (HPAC) « 

CCELF/2 - 


NCNfc 

Rvq 


.5 SIMTHETAI 
.5 CQSITHETA) 


( IK PUL I4D) 


FLSHLCC AT FCL+0 

ERASAELE I MT lAL 1 2AT ICN RECUlREC; 

TFFX X 


LEFT BY CALCTFF OR CALCTPER 


T FFTEP E J t-59*2NRl 

M; (-55+2NR) 
K FT ERF E J (-29^+NP ) 


ARC 

WHERE ARG 
M NCFM 


« LCP 22 SGNIDELFI CF ARG 
LENGTH OF TERMINAL RADIUS 


LEFT BY CALCTFF OR CALCTPER 
LCP/ALFA SGN(DELF) 

LEFT BY CALCTFF OR CALCTPER 


NRF/G 


M: (-27+NP) 
£: (-29+NF) 
M: (-27+NF) 


F NCFF LENGTH CF PRESFKT POSITION 


LEFT BT TFFCOMC 


CEEF 1 < : 

CfRET 

f CCELF/2 

27,2573 



BANK 

27 

REF 1 


27,2CCC 



setlcc 

P6CS5 



27,2573 



BANK 




27,2573 

7C545 

1 

TFF/TRIG CLOAD 

SPl 

R E f 1 


27,2574 

CCCA3 

C 


TFFX 



27,2575 

41215 

1 

DAO 

DHP 

REF e 

LAST 

633 27,2576 

15330 

C 


HlDPH 


0922 

REF 

3 

LAST 

765 

27,2577 

00041 

1 


NKMAG 

0923 





27,2600 

55203 

C 

DMP 

BOOV 

0924 

REF 

«/ 

LAST 

765 

27,2601 

CC021 

I 


NRTEPF 

0925 

REF 

1 



27,2602 

00045 

C 


TFFT EF 

0926 





27,2603 

44246 

1 

A6S 

8DSU 

0927 

REF 

5 

LAST 

766 

27,2604 

1 5330 

t 


hidphalf 

0928 

REF 

3 

LAST 

763 

27,2605 

C0017 

1 

St ORE 

C L f L F / 2 

0929 





27,26d6 

57516 

1 

CSQ 

DCCFF 


RFAG 


R7ERF M 


fe;l-24+NR) m:|-27+NR T 


P 2SC OR 

THE SIGN 


^ALFA 
IS FOR SDElF. 


E: t-29*NRI 


Ml (-27^NR ) 

M;T-^5+2NR) 


TT 

KEEP HCNEST FCP SORT. 


GAP 



CP A fiC PR CC P Art CQlQi.ilil..£jL M iA 


1:17 ALG. 2^.1968 PANDCB4 . 0 72 PAGE 767 


L Ptl-P4I 


USER*S PIGE NO. 28 E6 S3 


C930 

0931 

0932 

Rtf 

I 



27,2607 

27.2610 

27.2611 

75415 

15322 

43565 

C 

C 

C 

CUMPTH IG 

OAO 

SIGN 

SORT 

HIOP 1/4 

RVO 


0933 

REF 

m 

< 

LiST 

766 

27,2612 

0004 5 

L 



Tf FTEP 

AFFIX SIGN(CELE/21 

A093A 











RETURN WITH .5 SIN(THETA) IN HPAC 

A093S 











L&N 15 NS 

as3A_ _ 





27.2613 

77620 


GISPTIRG 

STQ 


C(NPAC) • TRCO ESTIMATE 

0937 

REF 

4 

L/ST 

756 

27,26 14 

C3373 

C 



6CCENRbT 


C939 





27, 2615 

45205 

1 


OMP 

DSU 


s, 9AC 

f?i_F 




2 7 1 2 616 

150C2 

1 



KTETAl 


0 9A<i 

REF 

4 

LAST 

759 

27,2617 

03733 

C 



TTE 1 


09A5 

REF 

e 

LAST 

287 

27,2620 

376C6 

C 


stcall 

DTEAPCT 


L9<t6 

AEi 

2_ 

_LAiT 

287 

2 7 f 2 6 2 1 

46225 

c 



EARRCT2 


Q9<i7 





27,2622 

77624 

1 


CALL 



09<»e 

REF 

2 

LAST 

759 

27,2623 

56626 

c 



VRCAIC 


09A9 





27,2624 

77650 

1 


GOTO 



0950 

REF 

5 

LIST 

767 

27,2625 

C3373 

c 



60GENPET 


0951 





27,2626 

50375 

c 

VRCALC 

VLGAU 

OCT 


.Q9_52 

REF 

4 

LAST 

763 

27,262? 

C3542 

1 



UPH 


0953 

REF 

4^ 

LAST 

287 

27,2630 

03474 

c 



RT 


0954 





27,2631 

65512 

1 


SL2 

ACLS 


0956 





27,2632 

776 10 

c 


RVO 



P0957 

ENC 

CF PPCCRAM 

S 6 1 • 

2 








R 





R 


<»■■■ - 


i i j i 



H 
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29 


E6 S3 


FQS50 

RC959 PPCCRiP CE5CRIPTlC^ S62.3 CATE 10JAN67 

RQ9E0 PCC NC 1 ICC SECIICA PeQ-P67 

R0961 RCC et iELCIN ___ 


K09fc2 PCC NCs 2 PCD BY: PR 0AIR^SFATHeR CATE: 15 PAY 67 CHANGED TO RbF COORDS. 

R G9 ILCC J1 C : __2 PCD e v: RP_ lAlRMIAIMR DATE: 17 JAN 66 ALPAPAD C H AN GES PAPE. 


R09<36 

R0967 

R096B 

1 W 1 » ^ ^ ^ * • 

FLNCTICNAL DESCRIFTICN 

CCHPUTE CESIRED GIPECL 
THE FCLLChING TRAJECTORY 

ANGLES FOR ENTRY ATTITUDE 

TRIAD IS AVAILABLE IN MEMORY AND IS COMPUTED EACH 2 SECONDS BY CM/POSE IN 


RC970 

FEFERENCf CCCROINATES <V 

» VELCCITY RELATIVE TO EARTH) : 






R0971 

U>A « -UN IT (V ) 



R0972 

R0973 

UYA « UNlTIVARl 
UZA a UXA*UYA 




ft0974 GENERATE A DESIRED 6CCY TRIAC POP. TRIMPEO FLIGHT ^.ITH RESPECT TO THE RELATIVE VELOCITY VECTORt USING 

RQ976 RCLL COHPAhC AND TRIP ANGLE CP ATTACK: 


H(J971 U)(C ■ UNITIUYC^UXAI SIMALFATRIHI ♦ UXA C OS ( ALFA TR I P ) 

P097a UYO ■ UYA CCS(flCLLC» + 12 A SINIRCLLC) 

R C 9 7 9 UZC * UXD * UYC 

f<C960 USE the CESIREO SET (I^ REFERENCE CCCRDS) AND REPSPPAT TC CALL CALCCA ANC OBTAIN GIMBAL ANGLES 

POSaz IN 2StC IN HPAC. AND THETAD, *2, . 


RC9e3 CALLlfC SEQUENCE 

P09eA L CALL 

RC9e5 L>»1 SE2.3 

Ra986 NCPPAL EXIT PCCE 

RC9e7 RETLRN VIA GPRET DIRECTLY FRCP CALCGA. 

PC988 SIEPCUINES CALLED 
Ra989 CALCGA 

R0990 AL APP CR AtCRT WOLES 


R0991 NCNE 

RC992 ERASAELE IMTIALUATICN RECUIREC 

R0993 flCLLC RCLL CQKMANO OP l:S CO«F AT IREV 


RC99A 

RC996 

HC997 

alfapao 

LXA/2 

UYA/2 

SP 1S,C 

REF CCCRDS 

REF CCCRDS 

/180 

LEFT BY PAD LOAD 
LEFT BY CP/POSE 
left by CP/POSE 

ALFATRIP IS NEGATIVE. 




RO990 

U2A/2 

REF CtCRDS 


left by cp/pO^”E 





R0999 

HI COO 

OL IPL T 

CFHI 

GIPEAL ANCLES 

(C,l ,P) 2:S CCPP 

TP (Q,I,PW18C 





KlOCl 

H 1CC2 
P1003 

CEER IS 

C1EPF, QPRE1,PUSHLIST 







IQCA 

1005 

REF 1 

1C, 2302 
10,2COO 


BANK 10 

SETLCC P60SA 






10G6 10,2302 0XNK 


I 
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PET 
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10C7 

REF 

1 






COUNT ♦ 

4$/ St 2. 3 













_ lQ£a 





lL^2iC2 

67201 

JL S6!2^.3 

SFTPD 

SLGAC 


1C09 





lOf 2303 

COCCI 

C 


0 


ICIC 

REF 

2 

LAST 

799 

IGf 2309 

C3G12 

1 


ALFA FAC 

ALFATRIH /UO , ALFA IS NEG. 

1011 





lOf23C5 

A1592 

J 

SP.l 

PUSH 


1012 





10.2306 

65396 

C 

COS 

P CD L 

XCH PDL, CCS TC PCLO 

1013 





10,2307 

65356 

1 

SIN 

PLDL 

SIN TC PDL2 


RtF 

7 

LAiT 

7^9 

1C.2310 

C3316 

C 


RGILC 


1015 





10,2311 

79396 

c 

COS 

VXSC 


1016 

REF 

m 

1 

LAST 

115 

10,2312 

C355C 

1 


UYA/2 

REF COORDS 

1017 





10, 2313 

73525 

1 

POOL 

SIN 

PUSH VECTOR INTC P0L9, .9 

1018 

REF 

8 

LAST 

76S 

10,2319 

C3316 

c 


ROLL C 


1019 





10,2315 

5336 1 

c 

vxsc 

VAC 


AO 2.0^ 

REF 

2_ 

LAST 

IIS 

10,2316 

C3556 

1 


U2A/2 

REF COOROS 

A1021 










VECTOR FRCP PCL9, 9 

1022 





10,2317 

77 772 

c 

VSLi 



1023 

REF 

5 

LAST 

715 

1C,232C 

C2722 

1 

STORE 

VNfc 

- UYC REF COORDS 












1029 





10,2321 

76^35 

1 

VXV 

VSLI 



REF 

A 

1A 

LAST 

115 

1C. 2222 

C3592 

1 


UXA/2 

REF COORDS 

1026 





10,2323 

65361 

c 

VXSC 

POOL 


A1027 










SIN TRIP FRCM PCL2 

A1026 










XCH POLO FCP COS TRIM 

id 2 9 





10,2329 

53361 

C 

VXSC 

VAD 


1030 

REF 

9 

LAST 

76S 

10,2325 

C3592 

1 


UXA/2 

REF COORCS 

AlQll 










PROM POLO 

1032 





10,2326 

77626 

c 

stadp 



1033 

REF 

9 

LAST 

725 

10,2327 

75C63 

c 

STORE 

XNB 

X SC AXIS {.5 UNIT! REF COCROS 


1039 

1035 

1036 





10,2330 

76935 

1 


VXV 

VSLI 




PEF 

6 

LAST 

769 

10,2331 

C2722 

1 



YNB 



REF 

6 

LAST 

715 

10,2332 

2673C 

1 


STCVL 

ZN6 


2 SC IN PEF CCCP. SCALED AT 2 

1037 

REF 

29 

LAST 

755 

10,2333 

01736 

1 



kEFSPPAT 




1C36 

PEF 

33 

LAST 

72 5 

10,2339 

26672 

C 


STCVL 

X$N 




1039 

REF 

3C 

LAST 

769 

10,2335 

C1799 

1 



REFSPPAT 

♦ 6 



109C 

REF 

9 

LAST 

939 

iC,2336 

267C0 

1 


STGVL 

YSM 




1091 

REF 

31 

LAST 

769 

10,2337 

cn52 

C 



P EFSPPAT 

♦ 12D 



1092 

REF 


LIST 

939 

10,2390 

02706 

1 


STORE 

2SM 


















1093 





10,2391 

52019 

c 


CLEAR 

CCTC 




1099 

REF 

1 



10,2392 

C0260 

c 



C PH I FLAG 


CAUSE CALCGA TO STORE ANS IN TP CPHI 


1095 

REF 


LAST 

725 

10,2393 

97299 

c 



CALCGA 





A10A6 CALCGA WUl RETtftN TO ORIGINAL CALLER 

A10<t7 VIA CPRET WITH 2,S COHP. ANGLES IN CPU 


n 



R 
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ROOOl 

PPCCR4P hAPE “ PRtREACf REACACCSf SERVICER# AVERAGE G. 

RQ0G2 

HCC NC. CC BY f.HAPlLTCN EEC. 12# 1S66 

R0003 

FLPCl IChAL CESCRIPT ICN 

P Q afi4 
K0006 

TkP RCLllNES CESCHIEEC 6ELCP APE USEC 7C CALCULATE VALUES CF Rh# VN# AND GDT/2 DURING ACCELERATED FLIGHT. 

THE SEVERAL ROUTINES COMPRISE A PACKAGE AND ARE NOT MEANT TO 6E USED AS SEPARATE SUBRCUTINES. 

fvcace . 

ROOIO 

GfNERAC REFERENCE! TC SERVICER OP AVERAGE G ARE UNUEPSTCCC TC REFER TC ThE ENTIRE SET CF RCUIINE5 INCLUDING 

REACACCS. SERViCEPf AVERAGE Gt INTER6AC, SMOOTHER# AND ANY ACCIT TONAL ROUTINES ATTACHED AT AVGEXIT ISEE BELOW). 

POO 12 
POOl^ 
P0016 

PRCGPJNS IMIIATING SERVICER ARE RECUlBEC TC MAKE A WAITLIST CALL FCR PREREAC (OR# IF LIFTOFF# FOR BlfilBIAS) 

AT 2 5ECCNCS BEFORE THE FIRST AVERAGE G UPDATE IN ORDER TO INITIALIZE THE SEQUENCE# WHICH WILL RECUR EVERY 

2 SECCNCS FROM THAT TIME CN AS LCNG A< AVEGFLAG REMAINS SET. 

K0ul7 

R0019 

TEE USE CF ERASABLE AVGEXIT ALLCWS VAPICLS ROUTINES TO BE PERFORMED AS PART CF THE NCPPAL CYCLE (SEE 

EXPLANATION OF AVCEXIT BELCW). 

R0C20 

rfSfRlFTlCNS Of INCIVICUAL RCLTINES FCLLCW. 

R0021 

PREREAC 

KQ022 

PPEVICUSLV EXTRAPDLATEC VALUES COPIED FROM RNl# VM # AND PIPTIMEl INTO RN# VN# ANC PIPTIME. 

R002-^ 

R0025 

R0G26 

RC027 

R002e 

R0029 

LAST8IAS JCe SCHECULEC. 

FIPS PEAC ANC CLEAR6C VIA PIFASP SLeRQUTiNE. _ 

AVERAGE ( FLAG SET ON. 

CRIFT FLAG SET OFF. _ 

V 27 FLAG SET CN. 

IMTIALIIATICN OF 1) THRUST NLNITCR (DVMQN) - DVCNTR SET TC ONE. 

R0031 

R0033 

POOBA 

P0035 

2) TCTAL ACCUMULATEuOcLV VALUE IDVTCTALI • ScT TC icWC# _ __ ^ 

3) AXIS VECTOR (AXIS) - SET TC I.5#0,0). 

NCRPLIZe JCE SCHECULEC. 

REACACCS TASK CALLED IN 2 SECCNCS. 

R0036 

NCFPLUE - _ 

RC037 

CCT/2 INITIALIZEC VIA CALCCBAV SUBRCUTINE. 

P0C38 

REACACCS 

R0039 

PQOAl 

R00A3 

R00<.^ 

If CNNON FLAG SET QUIKBEAC RCUTINE IS PERFORMED bEFCPE PIPASR ZEROS THE PIPA REGISTERS. ANC THE 1/2 SEC 

CNMCNITOR LCCP IS INITIATED TC PROVICE DOWNLINK INFCPHATION DURING ENfPY. 

PIPS PEAC ANC CLEAREC £V PIPASP SUBROUTINE. 

If CH/OST0Y IS ON# ENTRY VAflIAELES INITIALIZED AND SETJTaG TASK CALLED. 


CAP: JtSifcAflifc REVlSiC^ Hl-JLi: 


I SEPV1CEP2C1 



fjASA 2Q21111-C21 


l:n ALG. 2‘<i«1968 PANDORA .072 PAGE 771 

LSe«*S PAGE NC. 2 EO S3 


R0QA7 IP AVtftACEG PLAC C^ BEACACCS CALLED TO RECVCLt 2 SECCNDS. 

B004b If AVERACEG PLAQ CFF AVEHACE G E;< IT (AVCEXIT) SET TC 2CA0R AVG6ND FOR FINAL PASS. 

AC 030 Si.K.VIC£.R..JCE SCHEDAlilOi 


P 0031 TEST CQNPECTCB OLTEIT ILPNEC CN^ 


R0 US2 CNtMICP 


R0053 A SEQLENCe OF THREE PASSES TPPCUGH QUICKREAC FCLLOklNG A CALL TC REAOACCS PITH CNMONFLG SET AT 1/2 

R 0 0 SS SEC intervals* INTERVALS APE CCLiNTEO OUT BY P tPCTR, IMTIALISEC AT 3 BY REAOACCS 

RCCS7 GLIKREAC 


flOOSe REACS CURRENT PIPS INTC A ,Y , IP I P ELF. READS OLD X,Y,2PIPPtF INTO X,Y,2CLCBUF. VALUES ARE SENT TC 

R0060 OCWNLIST DURING ENTRY. 

HCQ6 1 SEFVICEP 

RQ062 CELV VALUES CPECKEC TC DETECT RUNAWAY PIP - 

R00fc3 IF BAD PIF U ALAHN SENT. 

RQ06<. 2) CCPP E NSA T ION, OVTQTAL ACC UMU L AT I C N t AND CVJ<QN JYPASSEC. CONTROL 

R0066 IRANSFERREC TO AVERAGE G. 

R0067 PIPS CUHPENSATEd VIA 1/PlFA SLERCU1INE. 

K0068 OVTCTAL INCREHEnTEO 8Y ABSOLLTE VALUE CF 06LV. 

R0C69 TPRUST MCMTCR (CVNCNT PERFCRPEC UNLESS IDLE FLAG IS CN. 

R0070 CCNTRCL TRANSFERRED TC AVERAGE G. 


RQ071 OVHCN 


R0072 THPESPCLC VALUE (PLACEC IN CVTHflUSH BY USER) CHECKED AGAINST ABSOLUTE VALUE OF DELV TO CHECK 

R007A THRUST LEVEL. 

RC07J IF THPLST U ULLAGE CFF RCLTINE PERFCRMEC. 

R0076 2) steering FLAG TURNED ON AT FIFST DETECTION OF THRUST. 

ROOTS 3) CCNTRCL TRANSFERRED TO AVERAGE G. 

HC079 IF NC THRUST U ON FIRST PASS THROUGH MONITOR, CCNTRCL TRANSFERRED TC AVERAGE G. 

R0081 2) CN SUeSEOUENT PASSES, CCNTRCL TRANSFERRED TC ENGINE FAIL ROUTINE IF THFOST 

R0083 HAS FAILED FOR 3 CONSECUTIVE PASSES. 


ROOBA 


ENGINE FAIL 



R0065 

ROO07 

HCC66 


ENGFAIH TASK CALLEC IN 2.5 SECCNCS. THIS WILL RETURN CONTROL TC TIG-5 SC THAT ThE IGnTtION 
SEGUENCt PAY BE REPEAlEt. 

ENClNCf3 FEHFCRPEC. 



R0U69 


CAP SET UP FOR RCS. 


_ . - — - — 


R00<}0 AVERAGE G 
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SEPV1CER2C1 

USER'S PAGE NO. 3 

ED S3 




RQ091 

RMt VNli 

GCTl/2 CALCULATED VIA CALCRVG ROUTINE BY IFCATINC RN, VN WITH OELV AND AN AVERAGED 

VALUE 

RC093 

OF GCT/2, 



RCC9A 

- P M « VN 1 * 

GCTI/2. FIFTIMEI CCPIEC INTC RN. VN, GOT/2, PIPTIME FOR RESTART FRCTECTICN. 



P0QS6 CCNTRCL TPANSFeRRbD TC ADDR6SS SPECIFIED BY USER BY REAOACCS FOR LAST P ASS» IN AVGiXIT. 

ROO90 KST PAS! (AVGENC) II FR6£ FALL GVRO CQHPENSATICN SET LP, 


R 2> DRIFT FLAG TURNEO ON. 

RGIOO 3J STATE VECTO R TRANSFERRED VIA AVETCMID ROUTIN E* 

F.aiC2 A) CNRCMTCR FLAG RESET. 

Rfll_03 _ 5) V37 FLAG RESET. 

ROIOA 6) TEST CCNNECTOR CUTBIT RESET. 

R0105 T) CCNTRCL TRANSFERRED TO CANV37 TC CONTINUE MM CHANGE ROUTINE (RDO). 


ROlOe CALLUC SECUENCE 

ROIOS PREREAD ENTEREO CIRECTLY FRCF T1G-3Q VIA PC STJUMP. 

ROIIO REACACCS CALLED AS MAITLIST TASK. 


hQll2 SLEPCLTINES CALLEC 

R0113 uTiLITY ROUTINES - PFASCFNG F LAGUP FLAGCOMN NCVAC F IN DVAC tiA lTLIST ALARM NEWPHASE 2PI^CHNC 

U_5^ CTHEX- PIPASR I/PIPA CALCGPAV CALCRVG AVETOMIO 


PGll^ NCPFAl EXIT MCCES 


R0117 E^OCFJOB TASKOVEP CANV3? 


R0H8 AVGEXiT - THIS IS A COLBLE PRECISICN ERASABLE LOCATION BV WHICH CONTROL IS TRANSFERRED AT THE END 

R0120 CF EACH CYCLE CF AVERAGE G. 

R0121 THE 2CACR CF A P CLTINE tC EE PERFORMED AT TFA T TIME (E.G., STEERIN G EQUATIONS TO BE PERFORMED 

R0123 
RU125 


‘*0127 SEP VEAI T - CCES A PHASE CHANCE FOR RESTART PROTECT ICN AND GOES TC ENOCFJOB, 

ft0l29 THE 2CA0R CF SERVEXM IS SET INTO AVGEXIT BY THE USER IF NO OTHER RGtTINE (SEE ABOVE). 


R0131 ANGENO - LAST PASS CF AVERAGE C EXITS HERE, BYPASSING SPECIAL ROLTINf (SEE ABOVE UNDER REAdACCSiT 

R0133 FINAL EXIT IS TO CANV37. F AVERAGE G). 


AT 2 second INTERVALS) MAY BE SET EY THE LSER INTC AVGEXIT. 

ALL SUCH RCUTINES SHCLLD RETURN TO SERVEXIT, WHICH IS THE NORMAL EXIT FROM AVERAGE G. 


PQ135 CL T PIT 

RQ136 Tv TCT AL (2 ) P I FT IME(2 ) XPIPBGF (2 ) YPIPeUF(2y ZPIPBOF (2 ) 

RG137 FN(6) REFfRENCE CCCRC. SCALED AT 2(+29)M/CS 

FG138 VNU) REFERENCE CCCRC. SCAlEC aT 2(+7)M/CS 

RC139 G0T/2(4) REFERENCE CCGPO. SCAlED aT 2(*7Im/CS 

RUlAO C£LV(6) STABLE MEFB. CCCRD. SCALED AT 2 ( ♦ U » ♦&. 65* lO ( -A )MyCS (KFIPl ISEO TO GET CV/2 AT 2{*7IJ 
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RoT^i CEL VPEE (6 J reference CCCBO, SCALEC at 2(47JM/CS ~ 


aaihl _ I HMALnilLCtl 


C^HC^lTOP_ flag set tiT ENTRY TC SHOh P1P8UF VALUES RECUIReO. 


RILL^.. 

ICLE FLAG CN IF CVRDN TC BE EYPASSEC. 



R0146 

CVTFRLSH SET TO APPRCPRIATE VALUE FOR DVMON. 



Rgi4i7 

AVGEXIT SET TO 2CACR IF RCUTINE* IF ANY, TO EE PEFFCRHED 

AFTER 

EACH CYCLE CF AVERAGE G. IF NO ROUTINE 

BQ1^9 

TC BE DONE. AVGEXIT SET TC SERVEXIT. 



RC15C 

VALLES NEECEC 



R0151 

REFSHRAT 



P-QiSZ 

UMTH - FULL UNIT VECTCR, IN REFERENCE COORD., OF 

EARTH 

S RCTATIONAL VECTOR 


R015<i RMf VMf PIPTI PEl - IN REFERENCE COQRL. , CONSISTENT WITH TIME OF 6XEC0TICN CF PREREAD 


R01S6 CEERI3 


^ . Afll51 CEMP4LS A. L. Q 

ROlSfl C1FER_ IRTERNAL - CVCNTRIU PIPAGEIll PIPCTftlU /tVCEXIT(2} 

R0159 EXTERNAL - I T E K F K 1 ) I T ENP 2 ( 1 1 RUPTRFGUIJ TENX(l) TEPY(U TEM2UI 

_ R0161 ^ USEFUL DEBRIS 

R0I62 RN1(6) VN1(6) GCTly2 PIPTIH£1(2) 

Rai63 THESE LOCAT ICNS USED AS BUFFER STORAGE FOR NENLY CALCULATED VALUES CF RN» VN, GnT/2, 

R0165 and PIPTTwE DUPING PERFOHHANCE CF SERVICER ROUTINES. 

RU167 UNITR - HALF UNIT VECTOR OF RN* REFERENCE CCCRO. 

RC168 RHAG SCALED AT 2I+5ei IN 360. 

RCi6S RRAGSQ SCALEC AT 205fil IN 34.0. 

H0170 (RE/RHAG)SC IN 32C. 


0171 

0172 

0173 





27,2633 




BANK 

SETLCC 

BANK 

27 




REF 

1 



37,2COO 

27,2604 


SERV ICES 
















017^ 

REF 

13 

LAST 

756 

E7, 1431 




EBANKs 

OVCNTR 




R0175 



PREREAD 

44i4i««4>4i444 44444*4444«4«44«44«««4«44*«44*4««4444>4 4*4t444>«4 444>««* 


R0177 




























0178 _ 

REF 








CCUNT 

37/SERV 


















0179 

REF 

3 

LAST 

53A 

37,2604 

3 4113 

C 

PRbREAD 

CA 

0CT3 1 

5.31 PROTECTS RE0C5.31 AS 

IMMEDIATE TASK 


0182 

REF 

72 

LAST 

73A 

37,2605 

54 OCl 

1 


TS 

L 




0183 





37,2606 

4 QOCO 

c 


CUM 





oie<i 

REF 

2 

LAST 

52 4 

37,260? 

52 763 

1 


OXCh 

-PHASES 


















0185 

REF 

1 



37,2610 

3 4766 

1 


CAF 

PRI021 




0186 

REF 

26 

LAST 

749 

37,2611 

C 5027 

1 


TC 

NCVAC 




0187 

REF 

6 

LAST 

29l 

£3,1460 




Tbank* 

NBDX 




0188 

REF 

1 



37,2612 

03636 

1 


2CADR 

LAST BIAS 

DC LAST GYRC COMPENSATION 

nfTTTBTFTTfUL 


0188 

REF 

1 



37,2613 

14063 

1 






- 
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Q1S9 

REf 


L^ST 

525 

37,261^ 

C 2631 

1 

Re005.3l TC 

PREf E4C1 




disc 

RtL 


LiST 

12 i 

37t2£1.5 

3 7667 


CAP 

PRIC22 




QLSl 

REF 

26 

L4S7 

755 

37,2616 

0 5092 

1 

TC 

F INCVAC 

SET UP N0HHLI2E 

JOB REQUIRED PRIOR tO 


0192 

REF 

H 

L^ST 

773 

E7,1431 



EBANK- 

DVCNTP 

FIRST AVERAGE G 

PASS 


C193, 

R_Ei 


LiST 

^£- 

37.2617 

03195 

JL 

2CA0R 

NORML IZE 




0193 





37,262C 

76067 

1 






019A 

REF 

3 

LIST 

63S 

37,2621 

3 9735 

1 

CAP 

2SECS 




Q195 

REF 


L/ST 

755 

37,2622 

C 519C 

1 

TC 

WAITLIST 




0196 

REF 

19 

L^ST 

7 55 

E6, 1661 



EBANK« 

A 00 




C197 

REF 

2 

LIST 

526 

37,2623 

C2653 

C 

2CA0R 

KEACACCS 




0197 





37.262A 

76C66 

c 






C19b 

REF 

^ 1 

L^ST 

58 1 

37,2625 

9 9711 

c 

CS 

TWO 




0199 

REF 

7 

L>ST 

65 1 

37,2626 

C 9119 

1 

TC 

Nf WPHASE 




02 CC 





37,2627 

GOOOS 

1 

CCT 

5 




U2C1 

REF 

<1 

LiST 

79 5 

37,2630 

1 5213 

c 

TCF 

TASKCVER 





0202 





37,2631 

0 0006 

1 

PkbR E AO 1 

EXTEND 



0203 

REF 

_ JLL 

LAST 

216 

37.2632 

22 07C 

C 


OXCH 

KUPTREGl 


0209 

REF 

1 



37,2633 

C 3163 

c 


TC 

PIPA SR 

CLEAR * REAC PIPS LAST TIRE IN FREE FALL 

02092 

REF 

99 

LAST 

79 6 

37,2639 

3 9712 

1 


CAF 

ONE 

SET UP PIPAGE FCR REREAOAC IN CASE A 

02092 

REF 

2 

LiST 

76 

37,2635 

55'230 

c 


TS 

PIPAGE 

RESTART CCCUflS BEFORE REACACCS 

U2C5 

REF 

19 

LiSl 

685 

37,2636 

9 0075 

1 


CS 

FLAGWROl 

SET AVEG FLAG 

0206 

REF 

59 

LiST 

72 1 

37,2637 

7 9 7 12 

c 


MASK 

6IT1 


0207 

REF 

2C 

LiST 

779 

37,2690 

26 075 

1 


AOS 

FL AGWRCl 


02C8 

REF 

16 

LiST 

6 7^ 

37,2691 

3 9672 

c 


CA 

PCSPAX 


0209 

ref 

19 

LiST 

659 

37,2692 

7 0076 

1 


MASK 

FLAChRC2 


0210 

REF 

15 

LAST 

779 

37,2693 

59 076 

1 


TS 

FLAGVRC2 

KNOCK DOWN CRIPT FLAG 

0211 

REF 

17 

LAST 

685 

37,2699 

9 01C3 

1 


CS 

FLAGWRC7 

SET V37 FLAG 

0212 

REF 

36 

LiST 

69 7 

27,2695 

7 9 70 5 

c 


HASK 

BIT6 


0213 

REF 

IE 

LiST 

779 

27,2696 

26 1C3 

1 


AOS 

FLAGWPC7 


0218 

REF 

lO 

LiST 

732 

37,2697 

3 9 7 19 

1 


CAF 

ZERO 


C229 

REF 

5 

LiST 

636 

37,2650 

55*925 

1 


TS 

OVTCTAL 

CLEAR OVTCTAL 

0225 

REF 

6 

LiST 

779 

37,2651 

55*926 

1 


TS 

DVTCTAL ♦! 


0226 

REF 

le 

LAST 

779 

37,2652 

0 007C 

c 


TC 

PUFTREGl 

- 


PUFTREGl 


I:I7 AUC. 2^tl968 PANDORA .072 PaCE 775 


iUFx ^ BPmsiflft 231 CF ACC PROCBAM CGLQiJUS BY NASA 2021111-C21 

L SEFV1CEP2C7 


USER'S P4Ge NO, 6 E7 S3 


P0227 

0229 

CUAZ 



Ktf iC L^ST 774 
_ AU 2 LiSJ HA 


E6, 1661 




PEACACCS 



EBANKs AOG 

REACAC CS TC _P .1 PAIR 


0243 

REF 

16 

LAST 

721 

37,2654 

3 4 7 1 5 

C 

PIP SDCNE 

CAF 

FIVE 

HZAA 

HFF 

JJ LAST 

772 

37.2653 

54 .OH- i- 


TS 

L 

Q245 





37,2656 

4 0000 

C 


CQH 


0246 

REF 

4 

LAST 

772 

27,2657 

52 763 

1 


CXCH 

-PHASES 

0247 

REF 

S5 

LAST 

774 

27,2660 

3 4712 

1 

REDC5,5 

CAF 

ONE 

0248 

REF 

'3 

LAST 

774 

3 7 f 2 C 6 1 

55'230 

C 


TS 

PiPACE 












0249 

REF 

*4 

LAST 

774 

37,2662 

3 47 1 1 

1 


CA 

TWO 

0250 

REF 

2 

LAST 

76 

37, 2663 

55'227 

c 


TS 

PIPC TR 

0251 

REF 

3 

LAST 

75 1 

27,2664 

4 01C2 

c 


CS 

CM/FLAGS 

0252 

REF 

23 

LAST 

692 

27,2665 

7 47 1 1 

c 


HASK 

bIT2 

0253 

REF 

176 

LAST 

734 

37,2666 

10 COO 

c 


CCS 

A 

0254 

REF 

4 

LAST 

211 

27,2667 

0 2742 

1 


TC 

CHEK AVFG 


0235 __Btf t LAST 635 37,2670 4 1246 1 glPT lNEl *1 


C256 

REF 

2 

LAST 

656 

27,2671 

55*065 

I 

TS 

TBASE6 

0260 





2 7, 26 72 

C 0006 

1 

6XTEN0 


0261 

REF 

u 

LAST 

775 

37,2673 

3 1662 

1 

OCA 

ACG 

0262 

REF 

2 

LAST 

LOE 

37,2674 

53'67C 

C 

OXCH 

ACG/PIP 

0263 

REF 

2 

LAST 

loe 

27,2675 

3 1663 

c 

CA 

AHG 

0264 

REF 

2 

LAST 

106 

37,2676 

57*671 

c 

XCh 

AHG/FIP 

0265 





37,2677 

C OOC6 

1 

EXTEND 


0266 

REF 

#4 

4 

LAST 

ice 

27,27CC 

3 1665 

0 

OCA 

rlll /lec 

0267 

REF 

2 

LAST 

106 

37,2701 

53*673 

c 

OXCH 

PCLL/PIP 


0266 

0269 

0270 

REF 

REF 

ref 

t 

2 

4 

LAST 

LAST 

LAST 

Loe 

loe 

77 5 

37,2702 

37,27C3 

37,27C4 

•j 

57 

3 

1666 

*674 

0102 

C 

C 

1 

CA 

XCH 

CA 

BETA/IRC 
BETA/PIP 
CH/ FLAGS 

0271 

REF 

4.t 

LAST 

655 

27,2705 

7 

4677 

1 

HASK 

6 I T 1 2 

02 72 





37,27C6 

0 

0006 

1 

EXTEND 

0273 

REF 

1 



37,27C7 

1 

2725 

1 

B2F 

NCSA VPIP 


St-ON PIPS HAVE BEEN READ 


SET PIPCTP POP CNPINTCP 
AFTER ABOVE PHASCHMG 


CP/OSTfiV 


FCR restarts 
CONTINUE FOR ENTRY OAP 


CP/CAPARN S3C B IT12 

DURING ENTRYt k*HEN RCS OAP IS INACTIVE, 
SAVE PIPAS EACH 0,5 SEC FCR TH. 


0274 

REF 

1 



37,2710 

3 2775 

C 

CA 

0.5SEC 

C275 

REF 

37 

LAST 

774 

37,2711 

0 5140 

1 

TC 

WAITLIST 

02 76 

REF 

2 

LAST 

112 

£6,1533 



EBANK- 

XPIPEUF 

0277 

REF 

1 



37,2712 

02776 

C 

2CA0R 

QUIKREAO 

C277 

REF 

1 



37,2713 

76066 

C 



A027e 










02 79 

REF 

9 

LAST 

42S 

37,2714 

3 1162 

c 

CA 

OELVX 

U2U0 

REF 


LAST 

775 

37,2715 

57*533 

i 

XCH 

XPIPELF 

0281 

REF 

4 

LAST 

112 

37,2716 

55*536 

1 

TS 

XCLOELF 

0262 

REF 

5 

LAST 

42 6 

37,2717 

3 IL64 

c 

CA 

OELVV 

0263 

REF 

2 

LAST 

113 

37,2720 

51*534 

1 

XCH 

YPif euf 

0284 

REF 

2 

LAST 

112 

37,2721 

55*537 

C 

TS 

YCLDfiUF 


NC NEED TO RESTART PROFIT TH1T7 

SAVE PIPAS AS READ (BUT NCT CCMPFNSATEDI 



GAP t 



237 CF AGC PRCGPAM 



2021111‘C31 


l;l7 ALG. 2Ail96 8 PANDOPA . C 72 P A^E 


716 


L SEPV1CER2C7 


USER'S PAGE NG. 7 E6 S3 


0265 REF ^ LAST 42E 37i2722 3 lltt I CA DELV2 

0280 REF 2 LAST 113 37,2723 57*539 C XCH ZPIPELF 

0267 REi 1 37.272A 99'9AC C TS ZCLDEUF 


0288 REF 17 LAST 77* 37,2725 3 A715 C NCSAVPIP CA FIVE 

0269 R£t ^ LAST 212 37.2728 55*725 1 li Qj/^ROT 


0290 

AQ291 

REF 

1 



37,2727 

3 3142 

0 


CA 

JTAGTIPE 

0292 

REF 

36 

LAST 

77* 

37,2730 

C 5140 

1 


TC 

waitlist 

0293 

REF 

22 

LAST 

77* 

E 6 , 16 61 




EBANK* 

ACO 

0294 

B.EF 

2 

LAST 

20* 

37,2731 

C3222 

C 


2CA0R 

SET JTAG 

0294 





37,2732 

32066 

C 




0295 

AEF 

26 

LAST 

75 1 

37.2733 

4 6214 

1 


CS 

three 

0296 

REF 

8 

LAST 

774 

37,2734 

G 4114 

1 


TC 

NEWPFASE 

0297 





37,2735 

COOCl 

C 


OCT 

1 

0296 

REF 

4 

LAST 

64 3 

37,2736 

3 4362 

1 


CaF 

OCT37 

0299 

REF 

74 

LAST 

77* 

37,2737 

54 OCl 

1 


TS 

l 

C300 





37,2140 

4 QOQO 

c 


COM 


0301 

REF 


LAST 

77* 

37,2741 

52 763 

1 


OXCH 

-PHASES 

0302 

REF 

4l 

LAST 

774 

37,2742 

4 0075 


CHfcK4V£G 

CS 

FLAGWRCl 

0303 

REF 

fiC 

LAST 

774 

37,2743 

7 4712 

c 


HASK 

bITl 

0304 

REF 

119 

LAST 

77 « 

37,2744 

1C COO 

0 


CCS 

A 

030^ 

REF 

1 



37.2745 

0 2765 

1 


TC 

AVEGCUT 

0306 

REF 

4 

LAST 

774 

37,2746 

3 4735 

1 


CAF 

2SECS 

0301 

REF 

39 

LAST 

776 

37,2747 

0 5140 

1 


TC 

WAITLIST 

0306 

REF 

23 

LAST 

776 

E6, 1661 




£BANK« 

ACC 

0309 

REF 

3 

LAST 

774 

37,2750 

C2653 

c 


2CADR 

REACACCS 

03C9 





37,2751 

76066 

c 




0310 

REF 

7 

LAST 

66 2 

37,2752 

3 4675 

1 

HAKESERV 

CAF 

PRiC2C 

0311 

REF 

i9 

LAST 

774 

37,2753 

C 5042 

1 


TC 

F IND VAC 

0312 

REF 

15 

LAST 

774 

E7, 1431 




EBANK« 

QVCNTR 

0313 

REF 

2 

LAST 

21C 

37,2754 

03CU 

c 


2CADR 

SERV ICER 

0313 





37,2755 

76067 

1 




0314 

REF 

8 

LAST 

42 7 

37,2756 

4 4710 

1 


CS 

FOUR 

0315 

REF 

9 

LAST 

776 

37,2757 

0 4114 

1 


TC 

NEWPhASr 

0316 





37,2760 

00005 

1 


GCt 

5 

0317 

R|F 

<7 

LAST 

718 

37,2761 

3 4702 

c 


CAF 

BiT9 

0316 





37,2762 

0 0006 

1 


EXTEND 


03 19 

REF 

25 

LAST 

65 4 

37,2763 

05 011 

1 


nOR 

OSAIPCUT 

0320 

REF 

42 

LAST 

774 

37,2764 

1 5213 

c 


TCF 

TASR CVER 


ACTIVATE CH/RCS AFTER PIPIP TO GO 
IM JTAGTIME *5 CS. 


1.3SPCT FOR SETJTAG 


IF AVEG FLAG CC>«N SET FINAL EXIT AVEG 


ESTABLISH SERVICER ROUTINE 


RESTART SERVICER AND REACACCS 


TURN TEST CCNNECTQP OUTfllT ON 

Tn^ prev rcoT^m pact:? k * at tl itt tatk 


GAP I ^SSt f BLl H E V IS.IC 


AtiC PKCGPA?< 


BY NASA 2Q21111-C31 


l:l? ALG. 2^.1969 PANDCP* .072 PACE T77 


SEPVICIR2Q7 


USER'S PAGE NO. 


E6 S3 


0321 

0322 
0373 

REf 

REF 



31til65 

Q OOC6 

1 

1 

AVECGOr 

EXTEND 


1 


37.2766 

3 2772 


OCA AVCUTCAO 


2 LAST 

52T 

37.2767 

52*223 

1 


OXCH AVGEXIT 


C324 

REF 

1 


37,2770 

1 2752 

1 


TCF MAKESERV 












0325 

REF 

16 LAST 

776 

E7.^L431 




EBANK^ DVCNTR 


0326 

REF 

1 


37,2771 

03074 

I 

AVOLTCAO 

2CADP AVGL^C 


0326 

RtF 

1 


37,2772 

76067 

1 





GAP 



* 


rv- 



1 

t 





PRC^^M CQICSSGS bY NASA 202I111-C31 


l: 17 


AUG. PA NOORA 


.072 PAGE 


778 


L SfcPVICER2C7 


PQi27 RCVIUE ^A^'e^ CN^^MICR 

RO320 MCC BY EAIRNSFATHER 3C APR HbB 

RQ33Q MCX jLI F 1 Sh£B CECFPBER 1961 

RQ3JI HCC C2 EY RYE SEP! 1967 
R0332 MCE 01 EY RCSHALA 23 PAR 1967 

KG333 £^Y PQSPALA 27 PE9 196? 


USER'S PAGE NO. 9 E6 S3 


REDO CNWMTCR TC SAVE PIPS EACH 0.5 SFC FOR TM, ENTRY. 


RU334 

R0335 

R0337 


FURCTlChAL OfcSCRlFTICN 


IFF PURPCSE CF C^PCMTCR IS TC PROVICE 1/2 SEC. READING OF PIPAS FOR DCNNLIST DURING ENTRY. 
XiYtZHPeUF CONTAIN PRESENT VALUES X,Y,2CLD8UF CONTAIN VALUES PROP PREVICUS READING. 


R0339 calling SEQUENCE 


RQ34Q 


JLALL 


I 


II 


R0391 INMMLISAIICN 


R0392 

P03^3 


RO 39 7 
RC398 
P039S 

R035.C_ 

0351 

0352 

0353 

0359 

0355 

0356 

0357 
0356 
0351 

0360 
C361 
0 362^ 
C3 63 
0 369 
0365 
U366 


PIPCTP » 2 IFCR CT » 0*5 SEC J 
X,Y,2PIPeUF SET 1C PREVKlS PlFAX»Yf2 


RQ399 OLlPLl 


R0395 

K0396 


DEER I S 


X.Y.ZPlPEUPi X.Y,2CLCBUF 


REF 


REF *; 
REF 19 

HC 

REF 9 
REF 20 
REF 9 


REF 

REF 

REF 

REF 

REF 

REF 


21 

2 

22 


i. 

9 

1 


X.Y.2FIPEUF CONTAIN LAST PlPA)itYfZ VALUES 

XfYfZCUOfiUF CONTAIN LAS7-BUT-ON6 PIPAX,Y,Z VALUES 

PLPTREGl 

P IPCTR 


3 LAST 775 37,2773 55*227 C ONPM lOR IS 


PIPCTF 


REF 12 LAST 609 


37,2779 C 5156 C 
37,2775 C0062 C 0.5SEC 


TC 

DEC 


Fixe ELAY 

5C 


LAST 

LAST 

LAST 


775 
779 

776 


37.2776 

37.2777 
37.3CCC 


3 9711 I 
59 070 1 
5C OCQ 1 


cuinread CAF 

TS 

INDEX 


TWO 

RUPT PEOl 
A 


LAST 

LAST 

last 


h 2 i 
778 
775 


37,3CC1 

37.3002 

37.3003 


3 0037 t 
5C 070 C 
57*533 C 


LAST 

LAST 

last 


778 

775 

778 


37, 3009 

37.3005 

37.3006 


5C C70 C 
55*536 1 
IG 070 1 


ChKC TR 


LAST 

LAST 


775 

77E 


37,3CC7 

37,3C10 

37,3011 


1 2777 C 
11*227 C 
1 2773 1 


CA 

INDEX 

xCh 

INDEX 

TS 

CCS 

TCF 

CC$ 

TCF 


PI PAX 

PUPTfifcGl 

XFI PELF 

PUPTPEGl 

XOLOEUF 

RUPTRECl 


gu IK RE AC n 
PIFCTP 
ONPNITf R 


REF 93 LAST 776 


1 . ^ f. 1 ? 


A? 1 


1 


T7" 


"rmrrTrrff 


WAIT 


S A V E ACTUAL PIPAS fOR 1p 
UPDATE X,Y,2PIPeUF 


AND X,Y,ZCLCBUF 


LOOP AGAIN 



U 


cap: 

iSSIPPLE REMJSlQh 227 CF AGC PPCGRAM CQLC 


U 2c.211U.^3.L . _ 

in? AGG. 2Afl9ed 

PANOOR A 

.072 PAGE 779 


L 

SEHVlC£fl2C'J 



USER'S PAGE 

NO. IQ 

E6 S3 


P0367 

POSb*? 

4<4444444«4««« «*«**«♦««*« 

SERVICER 

4# ####### 444#444i444#444#44##«#4i 

-- 


037C 

RfcF 

17 

L A5 T 

771 

E7, 1931 




EBANK« 

UVCNTR 


0371 

_Ati 

2i 

LAST 

77E 

37.3C13 

3 97 1 1 

_L 

SERVICER 

CAF 

TWD 


0372 





37, 3019 

0 0009 

C 


INHtNT 



0373 

REF 

i2 

LAST 

77E 

37,3015 

59 C7C 

1 

P IPCHECK 

TS 

FCPTREGI 


0379 





37,3016 

6 OUOC 

1 


OOUDLE 



03 75 

REF 

1 El 

LAST 

77E 

37,3017 

5C OCO 

1 


INDEX 

A 


a3 7t 

Mi 

LC. 

kAiJ 

775 

37,3020 

11*162 

1 


CCS 

OELVX 


C377 





37, 3021 

0 3023 

C 


TC 

+ 2 


0378 

REF 

1 



37, 3022 

0 3031 

C 


TC 

PIPLCCP 


0379 

REF 

1 



37, 3023 

6 3191 

C 


AO 

-PAXCELV 

DO PIPA-SATURAT ION TEST BEFORE 

o3ec 





37, 3C29 

G 0006 

1 


EXTEND 



0361 

REF 

2 

LAST 

779 

37,3025 

6 3031 

c 


B2HF 

P IPL CCP 

CCPPENSAT ION. 

0362 

REF 

32 

LAST 

756 

37,3026 

0 5537 

c 


TC 

ALARP 


0363 





37,3027 

C02G5 

c 


OCT 

002 0 5 

SATURATEO-PIPA ALARM «*9CHANGE LATER 

0369 

REF 

1 

— 

— 

37, 3030 

0 3052 

c 


TC 

AVER AGEG 


.03J5,. 

REF 

2A 

LAST 

779 

37,3031 

1C 070 

1 

PIPLGCP 

CCS 

PUPTPEGl 


0366 

REF 

1 



37,3032 

1 3015 

1 


TCF 

P IPCFECK 


0367 

REF 

li 

last 

755 

37.3033 

0 5301 

0 


TC 

PhASCHNC 

restart REREACAC * SERVICER 

0368 





37, 3039 

16C35 

c 


CCT 

16035 


0389 





37,3035 

20000 

c 


OCT 

20C00 


0390 

REF 

IE 

LAST 

779 

E7,1931 




EBANK« 

DVCNTR 


0391 

REF 

1 



37,3036 

03092 

1 


2CADR 

DVTCTUP 


0391 

REF 

i 



37,3037 

76067 

1 





0392 

REF 

232 

LAST 

756 

37,3090 

0 9595 

c 


TC 

BANKCALL 

PIPA CCMPENSATICN CALL 

0393 

REF 

2 

LAST 

929 

37,3091 

15262 

c 


CAOR 

1/PI FA 


0399 

REF 

2C1 

LAST 

755 

37,3092 

0 60C6 

1 

CVTCTUP 

TC 

1 NTPf £T 


03 95 





37,3093 

91575 

1 


VLCAD 

ABVAL 

GET ABS VALUE OF CELV 

C396 

REF 

8 

LAST 

173 

37,3099 

01163 

1 



OELV 


0397 





37,3095 

77905 

c 


DMP 

EXIT 


0398 

REF 

1 



37,3096 

27356 

c 



KP 1 F 1 

scale at 2('»7J 

0399 





37,3097 

U 0006 

1 


EXTEND 



0900 

REF 

219 

LAST 

76 1 

37,3050 

3 0155 

c 


CCA 

HPAC 


0901 

REF 

7 

LAST 

779 

37,305 1 

21*926 

1 


CAS 

OVTCTAL 

ACCUMULATE CVTCTAL 

J9U2 

REF 

E2 

LAST 

779 

37,3052 

C 530 1 

c 

AVE^<AGEG 

TC 

PHASCHNC 


0903 





37,3053 

10C35 

c 


CCT 

1 003 5 


0909 

REF 

2C2 

LAST 

779 

37,3059 

0 6006 

1 


TC 

INTPPET 


0905 





27,3055 

77629 

1 


CALL 




I 


Of AGC PRCGftAM CCLGSSUS BV NASA 2Q21111-tii j il? Al ^Q^ 2^tl96a PAN00P4 .072 PAGJ HO 


USEK»S PAGE NO. 11 £7 53 


37,JC56 77325 C CALCPVG 

37.3057 777 76 1 EXIT 


0408 REF 63 L^ST 775 37, 3C60 C 5301 C _ TC PHASCHNG 

Ci.cS 37. 3061 10C35 C QCT 10035 


041C 

KEF 

4 

L4ST 

773 

37,3062 

3 4113 

C 

CAP 

OC T 3 1 

COPY RM ,VM,GCTl02,GOeLl/2,PlPTIREl 

0411 

REF 

1 1 

LAST 

64 5 

37,3063 

0 5475 

1 

TC 

GENT PAN 

INTO RN ,VN , GOT/12 ,G08L/2 .PIPTIME 

0412 

REF 

6 

LAST 

526 

37,3064 

C1231 

C 

AORES 

KNl 


0413 

REF 

14 

LAST 

755 

37,3065 

C1170 

C 

AORES 

RN 


0413 1 





37,3066 

C 0003 

1 

RELINT 


GENTRAN GOES AN INHINT 

0414 

REF 

64 

LAST 

78C 

37,3067 

0 5301 

C 

TC 

PHASCHNG 


0415 





37,3070 

10035 

C 

CCT 

10035 













0416 





37.3071 

C 0006 

2 

EXTEND 



0417 

REF 

-a 

LAST 

77 T 

37,3072 

3 1223 

c 

OCA 

AVGEXIT 


0418 

REF 

15 

LAST 

472 

37,3073 

52 CC6 

c 

DXCH 

Z 

AVERAGEG EXIT 












0419 

REF 

12 

LAST 

753 

37,3074 

3 1205 

1 

AVGEND CA 

PIPTIHE +1 

PINAL average G EXIT 

0420 

REF 

1 



37, 3075 

55*074 

1 

TS 

OLDBTl 

SET UP FREE FALL GYRO COMPENSATION 












0421 

REF 

47 

LAST 

75 1 

37,3076 

0 5435 

c 

TC 
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41455 

c 


VAO 

PUSH 

(OV-CLOGOT> /2 TC PO SCALED AT 2t+71H/CS 

0630 

REF 

4 

LAST 

782 

37,3335 

C12C7 

0 



GDT/2 


0631 





37,3336 

742 55 

c 


VAC 

VXSC 


0632 

REF 

12 

LAST 

755 

37, 3237 

C1177 

1 



VN 


0633 

PEF 

1 



37,3240 

37364 

1 



2SEC (221 


0634 





37,3341 

44055 

1 


VAO 

STQ 


0635 

REF 

17 

LAST 

782 

27,3342 

C1171 

1 



RN 


0436 „ 





37, 3243 

00C37 

c 



31D 


0637 

REF 

8 

LAST 

78 2 

37,3344 

35232 

1 


STCALL 

RNl 

TEMP STORAGE OP RN SCALED 2(4-291N 

0638 

REF 

4 

LAST 

782 

27,3345 

77260 

c 



CALCGPAV 














06 39 





27, 3346 

53225 

c 


VAO 

VAO 


064C 





27,3347 

77655 

1 


VAO 



0641 

REF 

13 

LAST 

787 

37,3350 

cin? 

1 



VN 


0642 

REF 

3 

LAST 

527 

37,3351 

35240 

1 


STCALL 

VNl 

TEMP STORAGE CF VN SCALED 2(+71M/CS 

064 3 





37, 3352 

CC037 

c 



310 














0644 





37,3353 

C3215 

1 

KPI P 

20EC 

• 1024 

SCALES OELV TC 21 t4) 

0644 





27,3354 

27057 

c 





0o45 





27, 3355 

C2312 

c 

KPIPI 

20EC 

0.074660 

207 OELV SCALING. 1 PULSE * 5.85 CM/SEC. 

0645 





37, 3356 

32537 

1 





0646 





27, 3357 

61377 

c 

-MUCTCTT 

ZDEC* 

-7.972C645 E+12 

6-44A 

0646 





27,3360 

55754 

1 





0647 





37, 3361 

77644 

1 

-MUCT(M) 

2DEC> 

-9.8C5556 t-HC 

8-44* 

0647 





37,3362 

65556 

1 





0648 





37,3363 

COOOO 

1 

2SEC< 22) 

20 EC 

200 e-22 


0646 





37,3364 

31C0Q 

c 

















06^ S 





37,3265 

C1463 

1 

CPl/20 

2DEC 

0.05 


0649 





27, 3266 

C6315 

c 





065C 





27,3367 

CQOOL 

0 

RTS^Q 

2 DEC* 

40.6809913 El2 

0-29* 

0650 





37,3370 

C5000 

1 





0651 





37, 3371 

C2C47 

c 

20J 

"20 ECa“ 

3.246S201O E-2 

Bl* 

0651 





37,3372 

36332 

c 





0652 





37,3373 

CCIS2 

I 

2J 

“20EC» 

3.24692C10 e-3 

BI* 

0652 





37,3374 

14511 

1 
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EMPY LEXICON 



USER’S PAGE NC. 

1 

EQ S3 












KOOCl 

P0003 

ViRl^ELE 

CESCR IPT ION 

MAXININ VALLE • 

CCNPLTER NANfc 








^ ^ ^ ^ 













PQQ05 









F00C6 

LPTO 

INITIAL TARGET VECTOR 

2 (UNIT VECTOR) 

* PTIMT 





R0Q06 

- 








RC009 

02 

LMT VECTCP NCRTH 

1 

« UNITN 





POO 11 









PC012 

V 

VELCCITY VECTCP 

2 VSAT 

« VEl 





ROOIA 









R0015 

P 

PCSITICN VECTCP 

2 EXP 29 NETEPS 

* RN 





R0Q17 

- 








RCCie 

V 1 

INERTIAL VELOCITY 

128 H/CENTISEC 

■ VN 





RQ02G 

- 








RC021 

RU 

VECTCP EAST AT INITIAL TARGET 

2 

* PTFAST 





RQ023 









PQb2<« 

IIP 

NCRPAL TC PTt ANC 12 

2 

» PTNCPN 





P0C26 

- 








RCC27 

LPT 

TARGET VECTCP 

2 

• RT 





P0029 

- 








PC030 

LM 

LMT NCRPAL TC TPAJECTCRY PLANE 

2 






P0031 

- 


5.85 16384 CN/S 






FQ032 

CELV 

INTECPATEC ACCEL. FRCN PIPAS 






RQ033 

- 








RCC3A 

G 

GRAVITY VECTOR 

128 N/CENTISEC 

~ a GDT/2 





P003t 

4C 

INITIAL CRAG FCR OPCCNTRL 

805 FPSS 

FP SS»FT/5EC/SeC 




R0038 

AHOOKLV 

TERN IN GANNAL CALC. « AHQCK CVL 

8 






P003<3 

A 1 

CRAG VALLE IN FACTCR CALCULATICN 

8(;5 fPSS 






RCO^O 

ALP 

CCNST FCR LPCCNTPL 

1 






POOAl 

A<KEP 

KEPLER RANGE 

2160C NM 

NN • NAUTICAL 

NILE 




P00A3 

ASPl 

FINAL PHASE RANGE 

2 1600 NN 






POO^^ 

ASPOP 

op-range 

2160C NH 






R00A5 

ASP3 

GANNA CCPRECT ICN 

ilfcOC NM 






ROOAt 

ASPCNN 

RANGE CCkN TC PLLL-OP 

21601 NN 






P00A7 

ASP 

PRELICTEC RANGE 

2ltOC NN 

NOT STCPEO 





h Q C 4 ^ 

CCSG 

CCS INEIGANNAL 1 

Z 

» COSd/T 





PQ051 

C/DU 

RECIFPCCAL CPAG# -A/CO 0-8 

6A/F PSS 






HU052 

0 

TOTAL ACCELERATION 

805 FPSS 






POOJiS 

cc 

CCNTPCLLEC CCNSTANT C 

805 FPSS 






P005A 

CHOCK 

TERN IN GANNAL CCNPOTATION 

805 FPSS 






R0C55 

C IFF 

THETNN-ASP (RANGE ClFfEAENCtI 

2i6CC NN 






P0036 

C IFFOLD 

PREVICOS value CF CIFF 

2160C IVl« 






RJ057 

CLEPC 

CHANGE IN LEWC 

1 






POCfiB 

CF 

REFERENCE CRAG FCP CONNCCNTRCL 

605 FPSS 

NOT STORED 





R0060 

DPEFR 

REFERENCE CRAG 

805 FPSS 

NOT sTOIREo 





PC0t2 

CVL 

VSl-VL 

2 VSAT 






R0063 

£ 

ECCENTRICITY 

4 

NOT STORED 





R006S 

F 1 

LRANGE/0 drag (FINAL PHASE) 

“2700/805 

■ FjT ♦? 





hQQbl 

F2 

CRANCE/0 ROOT (FINAL PHASE) 

2700/2VS NN/FPS 

» FX *A 







JSStFELi 

ALL I^WL.i3H.fln i,ULLi^_aiJ^ QJ 




t 

EMPV LEXICON 



USER'S PAGE NO. 2 EO S3 

- 





R0Q69 

f 2 

LRANCE/C (L/0) 

270C NM 

* FX 


POO 71 

f /CTl 

CONST FCF LPCCNTFL 

805 FPSS 



R0072 

FiC72 

CCNST FCP LPCCNTPL 

1/8C5 FPSS 



R0073 

F/CTQH 

LSEO IN LFCCNTPL 

1 

* MAXIMUM VALUE DENOTES UNSCALEC 


R007i> 

G/tRHAL 

FLIGHT PATH ANGLE AT VL 

1 PACIAN 

VAPIABLE value MHEN SCALED 


R 047.7 

GANNALL 

SIMPLE FORM OF GAMPAL 

1 FAC UN 

VARIABLE HAS MAXIMUM VALUE OF ONE. 





I 
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P0C79 

pcoei 

V4RI/ieLE 

CESCR 1P7 ION 

maxi MLM VALLE 



COMPUTER NAME 







P0C83 

PEACSUP 

IN0ICA7CP FOR IN17IAL ROLL 

1 






RLC6<i 

K4 

CRAG 7C LIF7 OP IF CCMN 

605 FPSS 




MAT 


KQoee 

K L A T 

LATERAL SV^ITCH GAIN 

1 

(NOM 

m 

.012 

5) 


P0Q68 

KiPCLL 

IN0ICA7CP FCR RCLL SWITCH 







MOO 89 

L/0 

MAX L/O (MIN ACTLAL VEHICLE L/D) 

1 






ROQSO 

L#CPA£_ 

FCMINAL YEHICLE L/C, SP PAD LOAD 

1 

(NCH 


0.3) 



R0092 

LATANG 

LATERAL RANGE 

4 MAC IANS 






P00S3 

LEO 

EXCESS C.F. OYER GRAY- ( VSQ- UGS 

128. E FPSS 






P C 

L E C 

LPCCNTRCL REFEREHCE L/C 

1 






R009S 

LCC 

F INAL PHASE L/C 

1 

( NOM 

9 

0.18 ) 


B0097 

LCCPAC 

FINAL PHASE L/C, SP PAC LOAD 

1 






R0C9e 

L/O 

DESIRED LIFT TC CPAC RATIO 

1 






RCC99 


(VERTICAL PLANE) 







MOiOO 

L /01 

TEMP STORAGE FCR L/O IN LATERAL 

1 






PQIOI 

L 4CCR INR 

LAD CGSdSCEG) 

I 

(NCM 

m 

0.2695) 


RU103 

PRECANGL 

PREOICTEC RANGE (FINAL PHASE) 

2700 NM 



9 

PREDANG 


R0105 

Qi 

FINAL PHASE MANGE -2350C Q3 

2180C NM 






R01C6 


Q2 - FCN(LAO) 







R01C7 

C7 

MNIRUM CRAG FOR OPCCNTHQL 

605 FPSS 






ROlOe 

RC07 

ALTITUDE RATE 

2 VSAT 






PU 109 

PC07REF 

REFEPENCE RCCT FCP UPCCNTROL 

2 VSAT 






RCllU 

BC7B 

PEFEPENCE RCCT FCP CCwNCONT 

2 VSAT 




NOT SAVED 


R0112 

RCLLC 

POLL CCMPAND 

1 REVOLUTION 






R0113 

fi 1CGC 

RANGE TC GC (FINAL PHASE) 

2700 NM 



9 

FX +2 


R0115 

SL 

SINE OF LATITUDE 

1 




NOT SAVED 


R0117 

7 

T IME 

B 26 CENTISEC 



9 

TIME2,7IME 1 


Rail9 

7PE7A 

CESIRED RANGE (RACIANS) 

2 PI RADIANS 



9 

THETAH 


RQI2i 

lEE 7N> 

CESIPEC RAhGE (NM ) 

2ltOC NM 




NON EXlSTENt 


R0123 

V 

VELOCITY MAGNITUCE 

2 VSAT 






PC12^ 

\«1 

INITIAL YELCCITY FCP UFCLNTROL 

2 VSAT 






RC125 

VL 

EXIT YELCCITY FCP LFCCNTROL 

2 VSAT 






R0126 

VREF 

REFERENCE YELCCITY FOR UPCCNTROL 

2 VSAT 






R0127 

V!l 

VSAt CR Yi, WHICHEVER IS SMALLER 

2 VSAT 






R0128 


2 2 







H0129 

YEARS 

YL /YSA7 

A 






RQ130 


2 2 







RC13L 

YEO 

KCRMALISEC YEL. SCUAREC « V /VSAT 




9 

ysGuarE 


R0133 

h 1 

EARTH RATE TIMES TIME 

1 PEVCLUTIGN 




NOT SAVED 


P.C135 






9 

WIE (OTEARQTI 


R0137 

X 

INTERMEDIATE VARIABLE IN G-LIMITCR 

2 VSAT 




NOT SAVED 


M0139 

Y 

LATERAL MISS LIMIT 

H FAC IANS 




NOT SAVED 





P 


tl 
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POHl EXTRA tOPFOTEP tRASAELE LCCATICNS ACT SHCwN ON FLCV. CHARTS 

H0142 


VARIABLE CESCFIPTICN HAXIAIH VALLE 

POl^A 


P01^5 GLTCACDR ACCRESS SELECTEO BY SEsUENCER 

ROlAe XflPBLF BUFFER TC STORE X PIPA COUNTS 

ROm? Y F1P8UF BUFFER TC STORE Y PIP A COUNTS 

ROlAa IFIPeiF BUFFER TC STORE 2 MPA COUNTS 

RQIAS PIPCTR ^UNTS PASSES THRU PIPA READ ROUTINE 


p_g 1 5 Q INDEX IN FINAL PHASE TABLE LCQK-UP 


R015L 

R0152 

RQ153 

PA 

GPAC 

f> 

INDEX IN FINAL PHASE TABLE LCOK-UP 
INTERPOLAT ICN FACTOR IN FINAL PHASE 
CRANGE/D L/C • F3 

270C NM 



B015<. 
R015 5 

FX ♦ 1 

F> ■» 2 

AREF 

r-TOGC 

805 FPSS 

2700 NM 


- 

RQ156 

FX ♦ 3 

PCOTREF 

V SA T 



R0i57 

R0158 

R0159 

F X ♦ ^ 

FX ♦ 5 
TEPla 

CRANGE/C RCCT ■ F2 

CRANCE/D CRAG » FI 

TEMPORARY LCCATICN 

2160C/2VS NM/FPS 
2700/805 NW/FPSS 


- 

R(J160 

T IML/RTO 

TIME CF INITIAL TARGET RTINIT 

e 28 CENTISEC 



ROUl 

DTEARCT 

EST TIME BETWEEN RTINIT ANQ RT 

6 20 CENTISEC 









R0U2 

ROlt.3 

RQL16A 

LMTV 

UNIT V VECTOR 

2 


- - - 

ROUS 

R0U6 

LMTR 

LMT R VECTOR 

2 


. _ - - - - . .. . 

R0U7 

-VREL 

NEGATIVE velocity REL TC ATMOSP 

2 VSAT 



ROue 

RQ17C 

CCHPUTER 

SWITCHES 

INIT IAL STATE 

CM/FLAGS * STATE +6 

A 4 a W w 

•**"“**^ 










R0172 

R017A 

ENTRYCSP 

GCNEPAST 

CC ENTRY UlSPLAYt IF SET 

INDICATES OVEkShCCT OF TARGET 

NON-ERANCH (U 
NCN-ERANCH (0) 

92Ct 

95Cf 

B1T13 

0ITIO 

R0176 

F0i7e 

RELVELSta 

ECSR 

RELATIVE VELOCITY SNITCH 

FINAL PHASE SNITCH 

NCN-EPAmCH (0) 
NON-ERANCH 10) 

96 C« 
97D, 

BIT 9 
dlT 6 

RaiBO 

F IRSTPAS 

INITIAL PASS THRL HLNTfST 

non-epanch (0) 

9dCt 

BIT 7 

PQ182 

F INC 

INDICATES ITERATION IN HUNTEST 

NON-ERANCH TO) 

9 *7 r f 


R018A 

ROUb 

INRLS V 
LATSR 

INDICATES INIT ROLL ATIITUOE SET 

inhibit ccnnlift Snitch if not set 

non-branch (0) 

BRANCH (1) 

lOOCt 

lOlC. 

BIT 5 

9 IT A 

R0188 

.CSGSh 

INDICATES DRAG EXCEECS .05 GS 

BRANCH 10) 

"ToKT 

0iT 3 

RQ190 

GCNEBY 

iKClCATES CCNE PAST TARGET (SETT 

SEE F-IM TIALZNG 

U2Cf 

BIT 8 


* 




K 


Cf AGfL PR C GfiAK -CaUliiii^ 


-C31 


PG192 

R019<» 


RQiSfi 

ROisa 

PQ2QQ- 

R0202 

R0204 

R0206_ 

P02C8 

R0210 

P0212 

R021^ 

K 02 ie 

H02Le 

RL22C 

R0222 

RQ22A 

R0226 

P0228 

R023Q 

KC232 

P023A 

R023t 

R023Q 

R02A0 

RG2A2 


P02AA 

R 0 2 A 6 

R02A8 

RQ230 

R02d2 

K025A 

R0256 

R0258 

R0260 

RU262 

K 026 A 

K02&t) 

k026 6 

Ru27Q 

RU272 

R02 7A 

RQ275 

R0277 


ENTRY LEXICON 


CCNSTANTS ANC GAINS 


Cl 

C16 

JLAl 


C10 

C2Q 

CROCK 


CH 

CCS15 

C LENDQ 

Cl 

CT 

GKAX 


KAl 

KA2 

Ml 


KAA 

KbI 

Kii 

kCH IN 
Kiel A 
KLATl 


KAA 

LATEIAS 

LEmOI 


PCINT I 

C2 

C2 


c; 

Qt 

Q7F 


G7MIN 

G19 

Q21 


Q22 

VFINALl 
VF INAL 


VLH IN 
VFIN 

VPCCNTRL 


2!NN 

VCOIT 


FACTCfi IN alp CCNPLTATION 
CCNSID GAIN ON DRAG 
CCNSTD GAIN ON PCCT 


filAS VEL. FCR final PHASE START 
NAX CRAG FCR CCNN-LIFT 
FACTCR IN AHOCK CCNPLiTATICN 


FACTCR IN GANRAL CCNPUTATION 
CCS( 15 CEGI 

INITIAL VARIATION IN LENL 


CRAG TC CHANGE LEWC 
CCHPITATICN CYCLE TINE INTERVAL 
NAXINQN ACCELERATION 


FACTOR IN KA CALC 
FACTCR IN KA CALC 
FACTOR IN CO CALC 


FACTCR IN CO CALC 
OPTIRIZEC LPCCNTFCL GAIN 

CPTIRIZEC UPCONT PCL GAIN 

increment CN G7 TC DETECT END OF KEPLER PHASE 

TIME OF FLIGHT CONSTANT 

FACICP IN KLAT CALC — 

gain used in INITIAL POLL SECTION 
LATEPAL SktlTCH BIAS TERN 
NOMINAL LPCCNTRCL L/C 


FACTOR TO RECLCE LPCCNTRCL GAIN 
FINAL PHASE RANGE - 23500 03 
F 1 NAL PHASE CRANCe/C V 


FINAL phase ORANGE/ C GAMMA 

FINAL PHASE INITIAL FLIGHT PATH ANGLE 

MIN DRAG FCR LPCCNTRCL 


MIN VALUE FOR C7 IN FACTCR CALCULATION 
FACTCR IN CAMMALl CALCULATICN 
FACTCP IN C2 CALCGLATICN 


FACTCR IN C2 CALCLLATICN. 

VELOCITY TC START FINAL PHASE ON INITIAL 

FACTCP IN Initial l p-qcrn calc 

MINIMUM VL 

VELCCITY TC SKlTCH TC RELATIVE VEL 

ROUT TC START INTC hUNTEST 

"VRCCNT » CCMPUTEP NAMg 
TCLERANCE 1G STCP RANGE ITERArlON 
VELOCITV tC STOP STEERING 


ENTRY 


l;17 ALiG. 2<t«l9t8 PANDORA >072 PAGE „19 2_ 


USER'S PACE NO. 


EO S3 


VALUE 


1.25 
.0 I 
.001 


500 

175 

.25 


FPS 

FPS5 


1.0 

.965 

-.05 


175 

2 

257.6 


FPSS 

SEC. 

FPSS 


(0 G-SI 


1.3 GS 
.2 GS 
90 FPSS 


AO FPSS 
3. A 
.003A 

.5 FPSS 

lOOC 
1 / 2A 

T97A9T5^'Tpy" 

.A1252961 NH 
,15 


.1 

-1002 

.07 


NM 

NM/FFS 


7050 

.Q3A9 

6 


NM/RAO 

RAC 

FPSS 


AO 

.5 

1000 


FPSS 


N M 


-13C2 

27000 

266CC 


NM 

FPS 

FPS 


18000 FPS 

VSAT/2 

700 FPS 


25 

1000 


NM 

FPS 


gap : A SSfc>PLf RgVISlON 2 37 Cf AGC PJ^UGRAR 


2021111 


1:1? AtG. 2^tlSfc8 PANDORA .072 PAGE 793 


EMR7 LE^lCCh 


USER'S PAGE NO. 


eo S3 


P027S CC^VEPSIC^ F4CTCPS Af'C SC^LIFG CCNST^NTS 


RQ26i JilK AftlGLE IK PAU TC KK 

R 02 fl 3 G£ NOM INAL G VA LLE FCP SCALING 

R02a5 hi ATMOSPHERE SCALE HEIGHT 

RQ28I J GRAVITY HARMONI C COEFFICIENT 

R0289 KhE EQUATORIAL EAR TH PATL 

B n2 <31 MIE EARTH GRAVITATIONAL CONSTANT 

P0293 ^RL EARTH RALIU S 

H0295 _PJQ EARTH EQIATQRIAL PACIUS 

RQ297 VSAT SATELLITE VELOCITY AT RE 

R0299 HIE EARTH RA TE 


3A37.7A68 NM/R AD 

32.2 FPSS 

26500 FT 

.00162396 __ __ 

1596,70168 FPS 

3.986032233 E 19 CUBIC M/ SEC SEC 
212C290 0 FT 

20925738.2 FT 

25766.1973 FPS 

,0000729211505 RAO/SEC 




(END GSOP AS-278» VOL It FIG. 5.6-3 CONSTANTS rCAINSt ETC. > 


B0302 DISPLAY CLANTITIES 

R0303 


RCJ 309 ISEE SECTICN 9 UF THE GSCP FOR SIGN CONVENTIONS. ) 


KC305 

P0306 


RQ307 

R0311 

R0312 

R0319 

R0315 

R0317 

PU319 

R032I 

R0323 

PQ325 


H0327 

RC328 


VARI AELE 


CESCP IPT ICN 


maximum VALUE 


GMAX 

VFPEO 


PRED ICTEC JLAX IMUM ENTRY ACCEL 
PREDICTED VELCCIIY AT ALTITUDE 


163.69 GS N 60 

128 M/CENTIseC N 60 


900K FT ABOVE FISCHER RADIUS- 


GAMMAEI 


PREOICTEC GAMMA AT ALTITUDE 


1 PEVCLUTICN 


N 60 


900K FT ABCVE FISCHER RADIUS. 


DRAG ACCELERATICN 


VMAGI 


INERTIAL VELOCITY MAGNITUDE 


THETAH 


DESIRED range ANGLE NM 


805 FPSS 

128 M/CENTlSEC 

I HEVCLUTICN 


N 69 

N 6 9 f N 66 
N 69 » N 6 7 


LAT 


lcng 


PRESENT LATITUDE 
PRESENT LONGITUDE 


1 PEVCLUTICN 
1 PEVCLUTICN 


RICGC 


RANGE ANGLE TC SPLASH FROM 


1 PEVCLUTICN 


N 67 

N 67 

N 63 


EMSALT FT ABOVE FISCHER RADIUS. (IN NHI 


VIO 


PREDICTED VELCCITY AT ALTITUDE 
EMSALT FT ABOVE FISCHER RADIUS. 


128 M/CENTlSEC N 63 


PQ331 

T TE 

TIME CF FREE FALL TC ALT 

B 28 CENTISEC 

N 

63 



R0333 

R0339 


EMSALT FT ABOVE FISCHER RADIUS. 





-- - 

PCLLC 

ROLL COMMAND 

1 PEVCLUTICN 

N 

66 

f N 6fli N 69 

R0336 

LATANG 

CROSS-RANGE ERROR (XRNGERR) 

9 RAD Ians 

N 

66 



80330 

cnrngerr 

DCHN range ERRCR 

1 PEVOLUTION 

N 

66 



R0390 


(PREDANG - THETAH IN NM ) 






h0391 

HCOT 

ALTITUDE RATE 

126 M/CENTISEC 



N 66 


B0393 

Q7 

MINIMUM CRAG FOR LFCCNTPCL 

805 FPSS 

N 

69 



R0395 

VL 

EXIT VELCCrfY FOR lp^-ccktrol 

2 VS^T 

N 

69 




I 
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ev NASA 202nil-ClI 
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EMPY lEXlCCh 


USER'S P^GE NC* 


EO 53 


P03^7 

R0348 


ECCY iTTllLDE QUAMIHES (Cf/FCSEI 


a 


RQ3^9 

R035C 


V4RiAeU 


CESCP IPX ICN 


MAXIMjH valie 


R 


P035i 

80352 


- NREL 

KEGA1IVE VELCCIXY PEL TC ATMOS. 

2 VSA7 



. _ 









P W 5 ^ V 

P035A 

R0355 


C LOLYA 

LSED 

FCR LYA eeiCh lOOC FPS 

2 



. ._ 








_ _ _ ^ ^ — 


LX A/2 

UNIT 

VEC10P TRIAC 

2 
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BON 

OCUPP 



022A 

REF 


L A ST 

80C 

25,2230 

C37C7 

1 



GONEbV 


*l IF HAVE GONE PASt TaAGEI. 

A0225 












(SIGN HAY 6ECCHE ERRATIC VERY NEAP 

A0226 












TARGET DUE TO LCSS OF PRECISION. 1 

0227 





25,2231 

52232 

c 



♦ 1 



0226 

REF 

2 

LAST 

27A 

25.2232 

1771A 

c 


STOOL 

PTGC, N67 


RANGE ERRCRi NEG IF WILL FALL SHORT. 

02 2 9 

REF 

A 

LAST 

79 9 

25,2233 

036AC 

c 



0 



U230 





25,223A 

50025 

c 


OSO 

BPN 
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0231 

REF 

1 



25,2235 

1524C 

C 


.C5C 


0232 

REF 

1 



25,2236 

52255 

1 


Nt.OSC 


0211 . 





25.2237 

77214 

c 

SET 

VLCAC 


C234 

REF 

1 



25,2240 

03074 

1 


• OSGSVi 


0235 

REF 

8 

L/ST 

787 

25,2241 

03433 

c 


OELVPEF 


0236 





25.2242 

50206 

c 

PUSH 

DOT 


0237 

REF 

5 

LAST 

76 S 

25,2243 

03542 

1 


UXA/2 


0238 





25,2244 

63552 

c 

SLl 

DSQ 


0239 





25,2245 

47515 

c 

POVL 

VSO 

EXCHANGE hlTH POL. 

0240 





25,2246 

56225 

1 

dsu 

OOV 


0241 





25,2247 

OCOOl 

0 


0 


02^2 





25,2250 

754CC 

1 

eov 

SORT 



0243 REF 1 2St225l 52253 1 NOLOCALC OVFL LAST CLEARED IN EARR0T2 ABOVE. 

0244 REF 1 25f2252 C3721 C STORE L/OCALC 


0245 

0246 

REF 

7 

LAST 

79S 

25.2253 

25.2254 

77650 

C3373 

1 

C 

NOLCCALC 

GQTC 

60GEhRET 


0247 





25,2255 

52014 

C 

N0.05G 

CLEAR 

GCTC 

THIS WAY FCR CAP. (HAY INTERRUPT) 

0248 

REF 

2 

LAST 

80 I 

25,2256 

03274 

C 



.05CSVI 

.05GSW * 1G2C B3 

024S 

REF 

2L_ 

LAST 

BO 1 

25,2257 

52253 

I 



NOLDCALC 

KEEP SINGLE EXIT FOR TARGETNG 


GAP & 
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P0250 

0261 

SLEPCLT INES 

GALLIC 

EY SCALEFCP nAPCETINGM 

26.3C73 

BANK 

?6 


02^2 

PEI 

1 



26«2000 




SETLCC 

REENTRY! 


C2S3 





26.3073 




BANK 














0254 

REP 

1 


— 





COUNTS 

i$/ENTRY 


U255 





26.3073 

5 6 3 4^5_ 

A- 

GET ETA 

CLCAO 

OOV 


wm 

A0256 












iZbl 

REF 

4 

L/ST 

79S 

26, 3CT4 

C37CC 

C 



ROOT 


0258 

REF 

1 



26,3075 

15314 

c 



-HSCALED 


025S 





26, 3C76 

<1325 

C 


POOL 

DMP 


02t0 

REF 

5 

LAST 

80C 

26,3077 

C 36 ^ 0 

C 



0 


C261 

REF 

1 



26,3 100 

15316 

1 



'KSCALE 


0262 





26.3101 

43271 

1 


OOV 

DAO 


C263 

REF 


LAST 

79S 

26, 3102 

036 74 

1 



V 


AQ264 












0265 





26,3103 

43205 

1 


OMP 

DAD 


C266 

REF 

6 

LAST 

802 

26,3104 

C364C 

c 



0 


0267 

REF 

7 

LAST 

802 

26taiC5 

C364C 

c 



0 


0268 

REF 

£ 

LAST 

802 

26, 3106 

C364C 

c 


STORE 

0 


C269 





26,3107 

71214 

c 


BON 

OLfiAC 


0270 

REF 

1 

LAST 

55 

26,3 lie 

033C? 

c 



EGSH 


C27i 

REF 

1 



26,3111 

55116 

1 



SUBETA 


0272 

REF 

4 

LAST 

80C 

26,3112 

03702 

1 



THET AH 


0273 





26,3113 

52CC5 

c 


DMP 

GGTC 


0274 

REF 

1 



26,3 1 14 

15234 

c 



KTETA 


0275 

REF 

1 



26,3115 

52173 

c 



UPDATEPT 


0276 





26,3116 

45345 

1 

SUBETA 

OLCAD 

DSU 


C277 

REF 

4 

LAST 

802 

26,3117 

03674 

1 



V 


C278 

REF 

1 



26, 3 120 

15 322 

c 



VMIN 


027<3 





26,3121 

43044 

c 


BPL 

SET 


C2eL 

REF 

1 



26,3122 

55124 

c 



SUtCTA2 


c<.eL 

REF 

3 

LAST 

600 

26,3123 

C3066 

1 



R ELV ELSW 


0282 





26,3124 

41345 

c 

SUBETAa 

CLOAO 

DMP 


C283 

REF 

i; 

LAST 

80 2 

26,3125 

C37C2 

1 



THET AH 


0284 

REF 

i 



2 6 1 ^ 126 

152 3 6 

1 



KTl 


0265 





26,3127 

5 2 0 71 

c 


DOV 

& (j ^ c 


0286 

REF 

c 

LAST 

602 

26,3130 

03674 

1 



V 


0287 

REF 

2 

LAST 

802 

26,3131 

52173 

c 



UHDATEPT 


C2fa6 





26,3132 

52145 

c 

SETNIND 

OLOAD 

GGTC 


0289 

REF 

2 

LAST 

632 

26,3133 

16326 

1 



leiTCP 


0290 

REF 

i 



26, 3134 

52162 

c 



OStOPE 



0=0 ♦D(-RCOT/HS -20/V) DT/2 


D7/2 


2/2 


I 


ftOOT/HS FfiCN PCL 


FGSW INDICATES FINAL PHASE. 


IOOOX2P 1/ (2 IE H 163.8^ 


SWITCH FROM INERTIAL TO RELATIVE VEL 


XTl 


KT 


KT - RE(2 PlI/2 VS 16384 163.84/ 2 VSAT 
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0291 


26,3135 

51425 

C 

TINYlHET OSH 

ABS 

ENTER hITF X-.249 



0292 

REF 3 t.«S1 602 

26,3136 

16327 

C 


IBI TCP ♦ 1 

GET 1/4 - NPAC 



0293 


26.3137 

75461 

C 

SL 

SORT 

SCALE UP BEFORE SORT 



029A 


26, 3 IAC 

20216 

C 


1 30 

HAS FACTOR FCP UP SCALING 



0295 


26, 3 lAl 

52005 

C 

OMP 

GOTO 




C296 

REF 1 

26.31A2 

152^6 

0 


KACOS 




0297 

REF 1 

26,3H3 

52226 

c 


T HE f COKE 







N 




P 
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35. 226C 


BANK 

25 

' 

0299 

03CQ 

REF 

2 

LIST 

795 

25r2CG0 


setlcc 

REENTRY 

- 

0301 




25*2260 


BANK 



0302 

REF 

2 1 

LA 5T 

795 K 

802 • 

176 1764 

COUNT* 

ll/ENTPY 

MR*63*64,. 

A03C3 

0304 

0305 

0306 

0307 
03C8 

REF 

1 

1 



25* 2260 
25*2261 
25. 2262 

43014 C 
C3312 1 
52354 1 

INITROLL BON 

bCFF 

INPLSR 

IM TRLl 

IF D- .050 NEC, GO TO LIMITL/0 

n c r 

REF 

REF 

„ a 

IL 

1 

LAST 

60 1 

25.2263 

25.2264 

03354 C 
53521 1 


. 05G SW 
LlMITL/0 


AG309 









MR a 64, NCK 

3 










A 0.3 10 
AQ311 

0 312 

rt -1 1 a 

p c c 


LAST 

799 

25*2265 
25* 2266 

63545 C 
03654 C 

OLQAO 

DSQ 

LEO 

KA • KAl LEC ♦ KA2 

- . - - . — ■ ■ ■ ■ 

L J U 

0314 

0315 
U3it 
0317 
Oiie 
0319 

AU320 

REF 

REF 

w 

4 

1 

1. #■ J P 

LAST 

80 4 

25*2267 

25*2270 

2 5 , 2 2 7 1 

562C5 C 
C3654 C 
153C4 1 

CMP 

ODV 

LEC 

1/KAl 

* 25 /(64 l.ei 

n t f 

REF 

RF F 

A 

1 

1 



25.2272 

25.2273 

25.2274 

47015 C 
153C6 C 
54432 C 

OAD 

RTB 

KA2 

P64 

« .2 

RCLLC VI ROOT 

n w 1 

A 

' 




STORE 


X)IX.XX OEG XXXXX. rps XXXXX, FP5 

0321 

REF 

2 

LAST 

116 

25*2275 

C3720 1 

KAT 


Q322 

0323 

n ? A 

REF 

R F F 

6 

1 

LAST 

602 

25*2276 

25,2277 

25*2300 

45345 1 
C3674 1 
153Q2 1 

DLCAD 

OSU 

y 

VF IN ALl 

IP V-VFINALl NEG* GO Tf FINAL PHASE. 

VJ ^ 

0 325 
0326 
A0327 
A032e 
C329 

n V » 

REF 

A 

1 



25.2301 

25.2302 

51014 C 
C3265 C 

CLEAP 

BPL 

GONE FAST 

(CAN'T CLEAP INPLSN AFTER HERESRESTARTS 1 

GGNEPAST NAS INITIALLY SET-l TO FCRCE 

RCLLC TO RERAIN AS DEFINED BY HEACSUP 

REF 

1 



25,2303 

25*2204 

5231C 1 
52131 C 

SSP 

OOEC 

GOTO 

UNTIL START OF P6A# (UNTIL D y «u"G) 

U J w V 

0331 

0332 

0333 

REF 

REF 

REF 

7 

1 

1 

LAST 

79 6 

25,2205 

25.2306 

25.2307 

C3646 C 
53311 1 
52343 1 


GOTO AOOP 

KEP2 

INPCLCUT 

ANU IDLE UNTIL 00.2 G. INO P66 HERE) 

GO TC LIMITL/C AFTER SETTING INRLSN. 

0 334 

0335 

0336 

0337 
C338 

0 3 39 
C34C 

REF 

5 

LAST 

804 

25.2310 

25.2311 

41345 C 
03654 C 

OCbQ OlCAO 

OMP 

LEC 

00 ■ KA3 LEC ♦ KA4 

REF 

REF 

1 

1 



25.2312 

25.2313 
25*2314 

15310 1 
77615 C 
15312 C 

DAO 

KA3 

K A4 


REF 

2 

LAST 

LU 

25,2315 

25,2216 

C371Q 1 

40C66 < 

■ 'STo ^ 

SDOV 

W 

BOV 

60/ 80 5 


I 


fe 


I 


m “ .. ^ ^ 
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03^1 

REF 

1 



23|23n 

15266 

1 



cool 

(-4/25 c) e-e 

03^2 





25t2320 

52321 

C 



♦ 1 

CLEAR CVFINC, IF ON. " 

04.43 

REP 

2 LAST 

116 

25.2321 

17 7C6 

0 


STODi 

C/DO 

(-4/001 e-e 

0344 

REF 

6 

LAST 

796 

25,2322 

C3624 

1 



LAO 

IF V-VFINAL ♦K (ROOT/V ICUBED POS,L/0— LAD 

Q345 

REF 

3 

LAST 

796 

25,2323 

U634 

c 


STOOL 

L/D 


ill46 

P_EF 

C 

LAST 

802 

25,2324 

C37C0 

c 



ROOT 


0347 





23,2325 

41471 

c 


OOV 

PUSH 


0 340 

REF 

7 

LAST 

804 

25,2326 

03674 

1 



V 


034 9 





25,2327 

41316 

c 


OSQ 

OHP 


0350 





25,2330 

45271 

1 


OOV 

OSU 


0351 

REF 

1 



25,2331 

152 7 6 

c 



1/K44 


0352 

REF 

1 



25,2332 

15300 

c 



VFINAL 


A0353 











3 

40354 











V-VFINAL ♦(BOCl/Vl / K44 OVFL 1 

0355 





25,2333 

40015 

1 


OAD 

flOV 


0356 

REF 

8 

LAST 

605 

25,2334 

C3674 

1 



V 


0357 

REF 

2 

LAS! 

804 

25,2335 

52343 

1 



INRCIGUT 

GC TC LIMITL/C after SETTING INRLSVi. 

0358 





25, 2336 

71240 

1 


~BKN 

OLOAC 


0359 

REF 

2 

LAST 

805 

25,2337 

52343 

1 



I NRCLCLT 

GC TC LIMITL/C after SETTING INRLSM. 

036C 

REF 

7 

LAST 

605 

25,2340 

C3624 

1 



L AL 


0361 





25,2341 

77676 

c 


DCCMP 



0362 

REF 

4 

LAST 

605 

25,2342 

C3634 

0 


STCRt 

L/D 


A0363 











SET INRLSW AT END FOR RESTART PROTECTION 

036^ 





25,2343 

77614 

1 

INRCLCUT 

eOFSET 


EKC CF PRE .05G PATH OF IMTRCLL. 

0365 

REF 

2 

LAST 

604 

25,2344 

03052 

c 



INPLSW 

SWITCH IS 2ERC INITIALLY. 

0366 

REF 

2 

LAST 

304 

25,2345 

5352 1 

1 



LIHITL/D 

(60 TCI 

0367 





25.2346 

45345 

1 

katest 

OLCAO 

DSU 

IF KAT - 0 POS, GC TO CONSTO 

0368 

REF 

2 

LAST 

804 

25,2347 

C3720 

1 



KAT 


0369 

REF 

9 

LAST 

802 

25,2350 

C364C 

c 



0 

IF PCS, OUT HITR CCNMANO VIA LINITL/O 

U37C 





25,2351 

52044 

c 


BPL 

GOTO 


C371 

REF 

3 

LAST 

80 5 

25,2352 

53521 

1 



L IHI TL/r 


0372 

REF 

1 



25,2353 

53224 

c 



C0N5TC 


0373 





25,2354 

43345 

1 

INI TRLl 

OLCAO 

OAO 

IF RCCT ♦ VRCCNT POS, GO TC HLNTEST 

0374 

REF 

6 

LAST 

60 5 

25,2355 

C3700 

c 



RDCT 


0375 

REF 

1 



25,2356 

1526C 

1 



VPCCRt 


0376 





25,2351 

45040 

1 


BhN 

CALL 

IF POSITIVE. FALL INTO HUNTFST. 

0377 

REF 

1 



25,2360 

52346 

1 



KATEST 


0377 1 

REF 

1 



25,2361 

530 14 

] 



FCPEFLKT 

IMTIALUE FUNTEST. 
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pa37a 

AQII^ 

♦ 51AF1 

FONT 

TEST 

mm 




— 
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€360 





25,2362 

77731 

1 


SSP 


0361 

REF 

t 

LAST 

604 

25,2363 

03646 

C 



GCTC ADOR 

0362 

REf 

I 



25,2364 

52365 

C 



HUNT EST 

0389 

- . 




25,2365 

77745 

1 

hONTEST 

OLOAO 


C39Q 

KEf 

1C 

LIST 

805 

25.2366 

C364C 

C 



0 

0391 

R E f 

4 — 1& — 

2 

LAST 

lit 

25,2367 

17664 

c 


STOOL 

Al 

C392 

REF 

8 

LAST 

dC5 

25.231C 

C3624 1 



LAD 

0393 

— ft. K. V 

ref 

W — — - 

LAST 

115 

25,2371 

17647 

1 


STCDL 

TEHi e 

0394i 

REF 

7 

LAST 

605 

25,2372 

C3 TOO 

c 



ROOT 

0395 





25.2373 

7124C 

1 


bMN 

DLCAC 

0396 

R E F 

1 



25,2274 

524CC 

1 



AOCALC 

C397 

REF 

1 



25,2375 

C3725 

1 



LEWD 

0398 

REF 


LAST 

606 

25,2376 

17647 

1 


STCDL 

TEMl e 

€399 

REF 

8 

LAST 

806 

25,2377 

C37C0 

c 



ROOT 

L ^ C 0 





25,24C0 

43271 

1 

ACCALC 

DDV 

DAD 

04C1 

REF 

4 

LAST 

806 

25, 2401 

03647 

1 



TLMie 

C^02 

REF 

9 

LAST 

605 

25,2402 

0 26 74 

1 



V 

0A03 

REF 

d 

LAST 

6 % 

25,2403 

14326 

c 


STOOL 

V 1 

0^04 

REF 

9 

LAST 

806 

25, 24C4 

C37C0 

c 



ROtT 

C9C5 





25,2405 

56316 

c 


DSQ 

DDV 

U«i06 

REF 

5 

LAST 

806 

25,2406 

03647 

I 



TEMl t 

€<•€7 





25,24C7 

4327 1 

1 


DDV 

DAO 

ChCB 

REF 

1 



25,2410 

15272 

1 



2ClhS 

ChC9 

REF 

U 

LAST 

806 

25,2411 

C3640 

d 



D 

0^10 





25.2412 

41205 

c 


OMP 

OMf 

O^ll 

REF 


LAST 

6C6 

25,2413 

CC326 

c 



VI 

0A12 

REF 

4 

LAST 

806 

25,2414 

CCB26 

( 



VI 

0413 





25,2415 

77671 

1 


DDV 


C414 

REF 

3 

L 4 S 1 

799 

25,2416 

€3622 

i 



VSOtARE 

0415 

REF 

1 



25,2417 

14330 

1 


STCDL 

AO 

€416 

REF 

)C 

LAST 

806 

25.242C 

C37CO 

0 



ROOT 

0417 





25,2421 

71244 

c 


BPL 

DLCAC 

0418 

REF 

I 



25,2422 

ii42i 

c 



VlLt AD 

C419 

REF 

2 

LAST 

806 

25,2423 

CC33C 

1 



Au 

0420 

R^F 

3 

LAST 

806 

25,2424 

03664 

c 


STORE 

Al 

0420i_ 





25.2425 

51145 

c 

VILEAC 

OLOAO 

BPL 

04203 

REF 

5 

LAST 

b05 

25,2426 

C3634 

c 



L/D 

0 4204 

REF 

1 



25,2427 

52434 

c 



HUNT ESTl 

04205 





25,2430 

45345 

1 


OLCAO 

OSU 

042C6 

REF 

a 

LAST 

806 

25,2431 

CC32t 

c 



VI 


NH « tk 

INITIALUE hUNTEST ON FIRST PASS 

MIST GC AFTER FCREFUAT FOR RESTARTS, 


Al/805 » Al/ 25G 


IF RCCT NECfTEMlB-LACf OTHERWISE « LEWD 


Vl » V ♦ ROCT/TEMIB 


VI/2 VS 


AO»(Vi/V)SC(D-*RCQT SQ/<TEMIB 2 Cl HS 1 


AQ/8Q5 • AO/ 25G 


IF L/0 NEGi Vl-Vl - LOCO 




uAP 





237 CP AGC 



BY NASA 2CJ21111-031 


l: 17 ALG 


2A.1968 PANDORA .072 PAGE 807 


L P££MFY CCMFCL 


LSER'S PAGE NC. 13 E7 S3 


0^201 

PEf 

1 



25,2432 

15214 

1 


voun 


C^2C€ 

REE 

6 

LAST 

806 

25,2433 

C0326 

0 

STORE 

VI 

- 

UA21 





25,2434 

41345 

C 

HUNTESTI cload 

OMP 

ALP * 2 Cl FS AC/LEWO VI VI 

QM22 

REF 

3 

LAST 

806 

25,2435 

C0330 

1 


AO 



PEE _ 


LAST 

80 6 

25,2436 

15272 

1 


2C1ES 


0^2*. 





25,2437 

40271 

1 

oov 

setpc 



PEE 

7 

LAST 

807 

25,2440 

CQ326 

C 


V 1 


0^26 





25,2441 

OOOCl 

0 


0 


0^27 





25,2442 

36271 

C 

bov 

oov 


QA2e 

REF 

8 

LAST 

00 7 

25,2443 

0C326 

C 


VI 


CA29 

PEE 

2 

LAST 

806 

25,2444 

C3725 

1 


LEWL 


0430 

REF 

2 

LAST 

116 

25,2445 

C37C4 

1 

store. 

ALP 


C431 





25.2446 

55221 

c 

BOSLI 

PDDV 

FACTl • VI / (1 - ALP) 

0432 

REE 

1 



25,2447 

17334 

c 


BARE LYl 


0433 

PEE 

9 

LAST 

80 7 

25,245C 

CO 3 26 

c 


VI 


04 34 

REf 

2 

LAST 

115 

25,2451 

17616 

c 

STOOL 

FACT 1 

FAC71 / 2VS 












0435 

REE 

3 

LAST 

607 

25,2452 

037C4 

1 


ALP 


0436 





15,2^453 

41225 


osu 

OMP 

FACT2 > ALPtALP - 1 1 / AO 

0437 

REE 

4L 

LAST 

80 7 

25,2454 

17334 

c 


BARE LYl 


0436 

REE 

4 

LAST 

60 7 

25,2455 

C37C4 

1 


ALP 


04 3 S 





25,2456 

77671 

1 

DOV 



0440 

PEE 

4 

LAST 

007 

25,2457 

CC330 

1 


AO 


0441 

REF 

2 

LAST 

115 

25,246C 

C362C 

c 

STORE 

FACT2 

FACT2 (250 ) 

0442 





25,2461 

43205 

1 

OMP 

DAL- 


0443 

REE 

*3 

LAST 

796 

25,2462 

03 175 

1 


U7 

G7 /805 - 07 / 25G 

0444 

PEE 

5 

LAST 

807 

25,2463 

C3704 

1 


ALP 

VL«FACTl tl-S0«T(Q7 FACT2 ♦ALP) ) 

0445 





25,2464 

44366 

1 

SORT 

0OSU 


0446 

PEE 

3 

L AST 

807 

25,2465 

17334 

c 


BAP EL Y1 


0447 





25,2466 

77605 

1 

OMP 



0446 

REE 

3 

LAST 

007 

25,2467 

C3616 

c 


FACT 1 


0444 

PEE 

2 

LAST 

274 

25,247C 

03767 

1 

STORE 

VL 

VL / 2 VS 












0450 





25,2471 

41221 

c 

bOSU 

DHP 

GAMMALI - LEWC tVl-VL)/VL 

0451 

REF 

K 

LAST 

6C7 

25,2472 

CC326 

c 


VI 


0452 

REE 


LAST 

0Ol 

25, 2473 

03725 

1 


LEWC 


0453 





25,2474 

77671 

1 

ODV 



0454 

REE 

3 

LAST 

807 

25,2475 

03767 

1 


VL 


04 55 

PEE 

1 



25,2476 

14027 

1 

STOOL 

GAMMALl 

GAMMAll USED IN UPCCNTPGL 












AC456 










GANMALl • POL 220. 

0457 

REF 

4 

LAST 

007 

25,2477 

C3767 

1 


VL 


0458 





25,2500 

50025 

c 

OSU 

BMN 

IF VL-VLNIN NEG, 00 T(3 PREFINAI 

0459 

REE 

1 



25,25Ci 

1S2C4 

c 


VLMl ^ 


_ 0460 

REE 

1 



25,2502 

53326 

c 


PPf F 16AL 


0461 





25, 25C3 

63545 

c 

oload 

DSC 

— — 
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0At2 REf 
Oh63 ref 


QktM REF 
tA65 

QA6CJ Mf 
0A67 REF 
0A68 REF 


c 

LAST 

807 

25,25CA 

C3767 

1 


VL 

VBARS / 4 VS VS 

2 

LAST 

lU 

25,2 505 

17666 

1 

STOOL 

VBAR S 

1 



25,2506 

15330 

C 


HALVE 

IF VSAT-VL NEG, CO TO CCNSTO 



25,25C7 

50025 

C 

OSU 

BNN 



last 

BQ £ 

25. 251C 

03767 

1 


VL 


W 

1 

L p J 1 


25,2511 

53220 

1 


BECCNSTD 

SET PCCE*HLiNTEST, CONTINUE IN CCNSTO 

2 

LAST 

1 u 

25,2512 

17662 

C 

STOOL 

DVL 

DVL / 2VS 


0A6S BEf 2 LAST BCE 25,2S13 15330 C HAL 

0A7C BEF 2 LAST IIC 25,251A 03672 1 STiRf VSi 


VSl » VSAT 


0^11 

QA72 

0^73 

REF 

REF 

11 

1 

LAST 

807 

25.2515 

25.2516 

25.2517 

50025 

00326 

52525 

C 

c 

1 

OSU 

eHN 

VI 

CETChCCK 

CA7A 





25,252C 

77621 

1 

oosu 


0<i75 

REF 

3 

LAST 

806 

25,2521 

03662 

c 


DVL 

0^76 

REF 


LAST 

006 

25,2522 

17662 

c 

STOOL 

DVL 

QA77 

REF 

12 

LAST 

806 

25,2523 

C0326 

c 


VI 

0^78 

REF 

3 

LAST 

606 

25,2524 

036 72 

1 

STORE 

VSl 


IF VI GREATER THAN VSAT . GO ON 


OVL » DVL " {VSAT-Vl> ■ VI - VL 
VSl « VI# IN THIS CASE 


0A79 

0A80 

OAei 

UA82 


REF 

BEi 

REF 


25,2525 A51A5 C CETCHQOK DLOAD CAIL 

A LAST 806 25,2526 C3672 1 VSl 

1 2 5 , 2 5 2 7 52776 ( DHC0t<YC7 

2 LAST 115 25,2530 03656 1 STORE DhCOK 


OhOOK-( (I-VSI/FACTII SO -ALP)/FACT2 
VSl /? VS 

GC calc ChCCK 

OHOOK /25G 


C4 63 





25,2531 

56261 

1 

SR 

DDV 

_ , — — 1— 

04 84 





25, 2532 

20606 

C 


5 

CHOCK 

0465 

REF 

4 

LAST 

807 

25,2533 

03175 

1 

OSU 

Q7 

■ — - 

Q H 6 6? 





25,2534 

77625 

c 



0487 

REF 

i 



25, 2535 

15250 

1 

STORE 

CHOC F 

- 1 (-51 - .25 /a 

0466 

REF 


LAST 

1 16 

25,2536 

C366C 

1 

AHCC KCV 


0489 

0490 

REF 

1 

- 


25,2537 
25, 2540 

41215 

15252 

1 

c 

OAO 

DKP 

1 /eih 

GAHMAL- GAHHALl-CHl DVL SQtl+AHOOK DVL t 

/OHOOK VfiARS 

0491 

REF 

1 



25,2541 

15254 

c 


CHI 


0492 





25,2542 

412C5 

( 

OMP 

ONF 


0493 

REF 

c; 

LAST 

806 

25,2543 

03662 

c 


OVL 

- ■ 

C494 

REF 

6 

LAST 

806 

25,2544 

C3662 

c 


OVL 

, ■ 1 LJI_ — ■ ■ 

0495 





25,2545 

56271 

c 

OOV 

DDV 

. * — 

0496 

REF 

3 

LAST 

806 

2 5 , 2'546 

03656 

1 


0 H C C H 

^ - 

0497 

REF 

3 

LAST 

806 

25, 2547 

C3666 

1 


VBAl^ S 

_ . ■ I I i» ■ 

0498 





25,2550 

50021 

i 

a OSU 

BMN 



0499 

REF 

2 

LAST 

007 

25,2551 

00U27 

1 


gannalI 


05C0 

REF 

1 



25,2552 

52743 

c 


hCG A A 


0 50 1 

REF 

1 



25,2553 

03711 

c 

HUNTEST3 STCRt 

GANPAL 


05C2 





25,2554 

77625 

c 

OSU 


G AHHAL l*GaHHAL 1 >019 { GAMM AL-GA^^HALII 

L 50 3 

REF 

3 

LIST 

806 

25,2555 

COG 2 7 

1 


OAF HA LI 


0504 





25,2556 

43205 

1 

OMP 

oad 
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05Q5 RE^ 1 25«2S57 1*330 ( ^ 019 

0506 REf A LAST SOE 25»2560 00027 1 GAMPAll 


0507 

REF 

5 

LAST 

UOS 

25.2561 

1A027 

1 

STOOL GAHMALl 



05C6 

REF 

2 

LAST 

8CE 

25.2562 

0377 1 

C 

G AH P A 1 




— — — = — - - I 

1 ^ ^ > 


4 


I 


I 


II 
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P05CS «ilAFl RANGE FPECICTICK ... 


AO 5 1C 
0611 
0612 
0513 
C51A 
0515 


0516 

u517 

C5ie 

OSl’? 

0520 

0521 

0522 

0523 
052A 


REF 


LAST 

8oe 

25,2563 

25,256A 

25.2565 

6C516 

77621 

15330 

C 

1 

C 

kANGER csq 

BOSU 

SP2 

HALVE 

* ■ » * — 

REF 

ref 

A 

LAST 

LAST 

116 

608 

25.2566 

25. 2567 

1767C 

C3666 

C 

1 

STOOL 

CCSG/2 

VBAK S 





<5,2570 

A 1225 

1 

GSU 

DPP 

REF 

A 

LAST 

die 

25,2571 

15330 

C 


HALVE 

REF 

5 

LAS! 

eic 

25,2572 

C3666 

1 


VBAR S 





25,2573 

A12C5 

c 

DPP 

OMP 

REF 

3 

LAST 

81C 

25,2!7A 

C367C 

c 


COSG/2 

REF 

A 

LAS! 

81C 

25.2575 

C367C 

c 


COSC/2 





25,2576 

A3312 

c 

SL2 

OAO 

REF 

1 



25,2577 

17330 

1 


Cl/16 





25,2600 

65366 

1 

SORT 

POOL 


C(NPAC) » GAP»AL 
CCSG • 1-CARMAL 


E-SQBT ( l+VBARS 


Cl/16 - 1/16 
E/A INTO PCI 


SQ/2f TKUNCATEO SERIES 


C525 

0526 

REF 

6 

LAST 

eic 

25,260 1 
25. 2602 

03666 

A1205 

1 

C 

OPP 

VBAR S 

OMP 

0527 

REF 


LAST 

81C 

25.2603 

03670 

C 


CCSG/2 

052d 

REF 

■a 

LAST 

aos 

25,260A 

C3771 

C 


CAMMAL 

052S 





25,2605 

67A71 

1 

DOV 

ASIN 

C530 





25,26C6 

A1S52 

c 

SLl 

PUSH 

0531 

REF 

1 



25.2607 

17731 

1 

STOOL 

ASPE P 

A0532 









FCR TP 

0533 

REF 

7 

LAST 

808 

25,261C 

03767 

1 


VL 

053A 





25, 2611 

A3205 

1 

DMP 

DAD 

0535 

REF 

i ‘ 



25,2612 

15170 

c 


03 

0536 

REF 

3 

LAST 

796 

25,2613 

03712 

c 


02 

C537 

REF 

1 



25,261A 

03732 

1 

STORE 

ASP 1 

0536 





25,2615 

63525 

c 

POOL 

DSO 

0539 

REF 

12 

LAST 

808 

25,2616 

00326 

c 


VI 

A05A0 










A05A1 










05A2 





25,2617 

56205 

c 

DMP 

ODV 

C5A3 

REF 

5 

LAST 

808 

25,2620 

C3ll5 

1 


07 

05AA 

ref 

7 

LAST 

6 IC 

25,2621 

03666 

1 


vbAR S 

Q5A5 





25,2622 

A5071 

c 

ODV 

CALL 

C5A6 

REF 

5 

LAST 

807 

25,2823 

CC33C 

1 


AC 

05A7 

REF 

1 



25,262A 

A6 155 

1 


LOG 

Q5A6 





25, 2625 

56205 

c 

DMP 

DOV 

05AS 

REF 

1 



25,2626 

15206 

1 


C12 

0550 

REF 

6 

LAST 

80S 

25,2627 

CCQ27 

1 


CAPPALl 

0551 

REF 

1 



25,2630 

03733 

c 

STORE 

ASPUP 


ASKEP/2 • ARCSIMWBARS COSG SING/E) 


ASKEP TO PCI C. 

BALLISTIC RANGE ASKeP/2PI 

STC^ RANGE' CCRPCNENTS OVERLAPPING (SP) 
ASPl « 02 •* C3 VL 

FINAL PHASE RANGE ASPl/2 PI 


ASPl TC PCL 2. 


2 

ASPUP* -C12 LCGIVI O7/V0ARS AOI/CANMALl 


RETURN WITH -LOG IN HPAC 


OTThASE fiAl^TE ATR/ TT 
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0552 





25t 2631 

41325 

C 

POOL 

DMP 

ASPUP TO PCI 4. 



0553 

REt- 

1 



25,2632 

15256 

1 


KC3 

KC3 *-4 VS VS/ 2 PI 8U5 RE 



AflS54 










ASPOWN • KC3 POCT V / AO 



0555 

REF 

11 

L4ST 

806 

25,2633 

037CC 

C 


ROUT 




C556 





25,263A 

56205 

C 

OMP 

OOV 




j55i7 

REF 

K 

L/Sl 

aoe 

25.2635 

C36 74 

1 


V 




0556 

REF 

6 

LAST 

81C 

25,2636 

00330 

1 


AO 




055S 





25,2637 

41471 

C 

00 V 

PUSH 

ASPOhN TO PCL 6. 



(1560 

RIF 

S 

LAST 

806 

25.26AC 

03624 

1 


LAD 




0561 

REF 

1 



25,26A1 

17734 

1 

STOOL 

ASPORN 

RANGE TO PULL OUT ASPOWN /2 PI 















G5t2 

JEl. 

1 



25.2642 

15174 

1 


Q6 




0563 





25,2643 

41225 

1 

osu 

ONP 

ASPS > Q5 (C6-GAPPAL) 



C56A 

REF 


LAST 

8iC 

25,2644 

0377 1 

c 


GAHNAL 




0565 

REF 

1 



25,2645 

15172 

1 


05 




0566 

REF 

1 



25, 2646 

27 735 

c 

stovl 

ASP3 

GAMMA CORRECTION ASP3/2PI 


0567 

Rli 

2 

LAST 

81C 

25,2647 

C3731 

1 


A SK £ P 

GET PI-WO AND 



0568 

REF 

1 



25,2650 

17126 

1 

STOOL 

ASPS (TP) 

SAVE HI-WORC OF ASP'S FOR TM. 



(1365 

REF 

2 

LAST 

811 

25,2651 

C3T35 

c 


ASP3 



— 

0570 





25,2652 

43215 

c 

OAO 

OAO 




A0571 










ASPORN FROM PCL 6. 



A0572 










ASPUP FROM POL 4. 



0573 





25,2653 

43215 

c 

QAC 

DAD 




A0574 










ASPl FROM POL 2. 



AC575 










ASKEP FROM POL C. 



0576 





25,2654 

41025 

c 

OSU 

BCV0 

Cl^AP CVFINC. 



0577 

REF 

t 

LAST 

802 

25,2655 

C37C2 

1 


THET AH 




0578 

REF 

2 

LAST 

755 

25,2656 

573 14 

c 


TC0AN2 IG 




0579 

REF 

2 

LAST 

US 

25,2657 

0361(j 

c 

STORE 

niFF 

DIFF * (ASP-THETAH) /? PI 



A05e0 









ASP* 

ASKEP*ASPl4ASPUP+ASP3*ASP0HN - TOTAL 

RANGE 


0581 





25,2660 

45246 

c 

ABS 

DSU 

IF ABS(THETAH-ASP) -25NM NEC, 

GO TO UP5V 


0582 

REF 

1 



25, 266 1 

15222 

1 


25NP 




0583 





25,2662 

43040 

1 

6MN 

BON 




058^ 

REF 

1 



25,2663 

53C25 

c 


GOTOlPSY 




0565 

REF 

1 



23, 2664 

033 1 1 

1 


HIND 




0566 

REF 

1 



25,2665 

52671 

0 


GLTDlERD 





0587 





25,2666 

51145 

C 

OLCAO 

BPl 


0588 

REF 

1 

LAST 

81 1 

25,2667 

C361C 

c 


DIFF 


C569 

REF 

1 



25, 2670 

53213 

1 


DCCNSTC 

EVENTUALLY SETS mCdE » HuNTEST, 

0590 

AC591 





25,2671 

41345 

c 

GE7CL^W0 OLOAD 

DMP 

DLENC • DLEmO ( CI FF/ (D IFFCLO-D I FF ) ) 

0592 

REF 

2 

LAST 

1 1 5 

25,2672 

03642 

1 


OLENL 


0593 

REF 

4 

LAST 

all 

25,2673 

C361Q 

c 


OlFF 


0594 





25. 2674 

45325 

1 

POOL 

DSU 


0595 

REF 

i 

LAST 

ll ‘ 

25,2675 

C3612 

1 


OlffCLC 


0596 

REF 

S 

LAST 

811 

25,2676 

036 1C 

c 


DIFF 
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0597 
05971 

0598 

REF 

1 

-«t 

LAST 

ail 

25f2677 
25,2 700 

25 1^7 Cl _ 

77665 

77626 

7A135 

1 

0 

c 

LWDSTORE 

80DV 

STACK 

STORE 

OLEWC 

0599 





25,2 702 

50015 

c 


DAD 

BHN 

0600 

REF 

A 

LAST 

807 

25,2703 

03725 

1 



LEWD 

06002 

R£F 

1 



25.27QA 

52737 

c 



LEWOPTR 

0600A 





25,2705 

7?6CC 

1 


6QV 


0601 

REF 

1 



25,2706 

52733 

1 



LEWOCVFL 

Q6C2 

REF 

5 

LAST 

812 

25,27C7 

C3725 

1 


STORE 

LEWD 

0603 





25,2710 

77776 

1 

SIOETKAK 

EXIT 


060A 

REF 

2 

LAST 

755 

25,2711 

3 A753 

1 


CA 

fcBENTfiV 

0605 

REF 

3A 

LAST 

753 

25,2712 

5A 003 

c 


TS 

EBANK 

0603 1 

REF 

IC 

LAST 

379 

25,2713 

3 A763 

1 


CA 

PR1016 

06052 

REF 

1 



25,27iA 

55'06A 

c 


TS 

PHSPB0T5 

0606 

REF 

£7 

LAST 

798 

25,2715 

C 5301 

c 


TC 

PHASCHNG 

0607 





25,2716 

00A7A 

c 


OCT 

0LA7A 

A06071 











A06072 











0608 

REF 

11 

LAST 

812 

25,2717 

3 A76J 

1 


CA 

PRIO 16 

A0608 1 











U6C9 

REF 

1 1 

LAST 

6A 5 

25,2720 

C 5103 

c 


TC 

PRICCH^G 

0610 

A£F 

1 



25,2721 

3 302A 

1 


CAF 

AOENCEXT 

06IL 

REF 

9 

LAST 

aOe 

25,2722 

55*6A5 

c 


TS 

GOTOACCP 

06 12 

REF 2C7 

LAST 

798 

25,2723 

C 60C6 

1 


TC 

INTPPET 

0613 





2S,272A 

A31A5 

c 


CLOAO 

SET 

06 1 A 

RE_F 

t 

LAST 

811 

25,2725 

C361C 

c 



difh 

0615 

REF 

2 

LAST 

811 

25,2726 

C307L 

I 



HINO 

0616 

REF 

3 

LAST 

811 

25,2727 

17612 

1 


STOOL 

OIFFCLL 

0617 

REF 

2 

LAST 

796 

25,2730 

15176 

c 



Q7F 

0621 

REF 

6 

LAST 

81C 

25,2731 

37175 

c 


STCALL 

07 

0622 

REF 

2 

LAST 

806 

25,2732 

52365 

c 



HUNTEST 

0623 





25,2733 

777A5 

1 

LbWCOVFL 

□LOAD 


062A 

REF 

2 

LAST 

796 

25,273A 

1733A 

0 



NEARCNE 

0625 

REF 

6 

LAST 

812 

25,2735 

37^25 

c 


STCALL 

LEWD 

0626 

REF 

2 

LAST 

811 

25,2736 

532 13 

1 



DCCNSTC 

06262 





25,2737 

7C5A5 

1 

LEWCPTR 

OLOAO 

SRI 

G626A 

KEF 

7 

LAST 

612 

25, 2 7 AC 

C3725 

1 



LEWD 

06266 





25,2 7Al 

52076 

1 


DC CMP 

GOTO 

06268 

REF 

1 



25.27A2 

5270C 

1 



LWOSTCRE 


IE LEMC^CLE^D NEG t0LEk«0«-LEWP/2 


OPCP GRP 5 RESTAPT PRIC TC 1 LESS THAN 
GRP A. 


restart grp a at PRE'HGNr. 

ECRCE RESTART TC PICK OP IN GRP At 


USE PRIG 17 FCH GRP A( < SERVICER PHICI 
CONTINUE GRP 5 AT LOWER PRIO THAN EITHER 
GRP A CR SERVICER* 


SIDETRACK NEXT PASS UNTIL THIS ONE OCNE. 


ONLY AFTER RESTART IS LEFT AFTER DETOUR. 


OIFFCLC / 2 PI 


G7 / e05 FPSS 
(GO TC ) 


(GO TC) also will set RODE » HUNTEST 
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2S » 2 743 

41205 

0 NEGANA 

OHP 

OHP 


ENTER 

WITH gahhal in mpac 

C62S 

REF 

6 

LAST 

61C 

25,2744 

03767 

1 


VL 




0630 

REF 

1 



25,2745 

15146 

C 


1/3RC 




0631 





25t2746 

A1325 

_fi 

POOL 

DHP 


PISH 

gahmal VL/3 

0632 

REF 

8 

LAST 

812 

25,2747 

03725 

1 


LEhD 




0633 

REF 

m 

2 

LAST 

613 

25,2750 

15146 

c 


1/3RC 




.0c3^ 





25,2751 

43325 

1 

POOL 

DAU 


POSH 

LEHU/3 

0635 

REF 

3 

LAST 

608 

25,2752 

03660 

1 


AHQGKCV 




0636 

REF 

1 



25, 2753 

15145 

c 


l/12Th 




J1637 





25,2764 

41205 

c 

OHP 

DHP 


DEL VL -(GAHMAL VL/3) / REViC/i-OVL 

0636 

REF 

7 

L AS T 

806 

25,2755 

03662 

0 


OVL 


(2/3 

♦ AHCCROV) (CHI GS/OHCQK VLU 

063S 

REF 

2 

LAST 

806 

25, 2756 

15254 

c 


CHI 




06AO 






56271 

c 

OOV 

DDV 




06^1 

REF 

4 

LAST 

80E 

25,2760 

03656 

1 


UHOCK 




0642 

REF 

9 

LAST 

6 13 

25,2761 

03767 

1 


VL 




0643 





25,2762 

55221 

c 

QDSU 

BDDV 





AQ6A^ lEHO/B 


AOeAS GARHAL VL /3 


0646 





25,2763 

776 15 

C 

OAO 




0647 

REF 

1C 

LAST 

813 

25,2764 

C3767 

1 


VL 



0648 

REF 

11 

LAST 

813 

25,2765 

37767 

C 

STCALL 

VL 

VL/2 VS 


0649 

REF 

2 

LAST 

80 a 

25,2 766 

52776 

C 


OHOCKV07 

GO CALC Q7 

: 1 — — .Bi- 

AC65C 










07-((l-VL/FACTnSC» 

- ALPJ/FACT2 

0651 


7 

LAST 

8 1 2 

25,2767 

17175 

1 

STOOL 

07 

07 / 25G 


0652 

REF 

12 

LAST 

813 

25,2770 

03767 

1 


VL 



0653 





25,2771 

777 16 

1 

Dsg 




0654 

REF 

8 

LAST 

81C 

25,2772 

17666 

I 

STOOL 

VUARS 

VBARS / 4 VS VS 


0 655 

REF 

-3 

_LA^T_ 

80C 

25,2773 

15332 

1 


3ZERCS 



0656 





25,2774 

7765C 

1 

GOTO 


SET GAHHAL • 0 


C657 

REF 

1 



25,2775 

52553 

C 


HUNT EST3 



0658 





25,2776 

56342 

1 CH0CKVQ7 

SRl 

ODV 

SLBRCUTINE TO CALC 

DHCCK Cfl 07) 

0659 

REF 

4 

LAST 

80 7 

25,2777 

C3616 

C 


FACT 1 



066 0 





25,3CQ0 

72421 

C 

BOSLI 

SLl 



0661 

REF 

5 

LAST 

81 C 

25,3001 

15330 

C 


HAL V E 



C662 





25,3002 

453 16 

1 

OSQ 

OSU 



C663 

REF 

6 

LAST 

60 7 

25,3003 

03704 

1 


ALP 



U664 





25, 3CQ4 

4 34 1 1 

1 

ODV 

RVC 



0665 

REF 

3 

LAST 

80l 

25, 3005 

C3620 

C 


FACT2 










P06b5 1 


AQb66 
A0667 
A Q6fc 6 


0683 


AC6eA 

a_4_8i^ 


XSiHH 


CP AGC PRCGRAH 


BY NASA 


-C3I 
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RfeEMFY CChTPCL 


USER'S PAGE NG. 20 


67 S3 




CCHE TO PRE-HUNT WHEN RESTART OCCURS AFTER 


hUNTEST IS SIOE-TRACKEC AT SiDETRAK. 


PICK UP IN GROUP A, 



0669 
G6 7C 

REE 

2C6 

LAST 

812 

25,30C6 

25.3CC7 

C 6006 
A501A 

1 

C 

0671 

REE 

3 

LAST 

812 

25f 3C 10 

0327 1 

C 

0672 

REE 

2 

LAST 

805 

25,3011 

5301A 

1 

06 73 





25.3C12 

7765C 

1 

0675 

REE 

3 

LAST 

812 

25, 3C 12 

S2365 

c 


PRE-HUNT TC INTPRET 

CLEAR CALL 


— t-U, 


HINC 


HINC 


<}9C BIT 6 


FLAG 6 


FOPEHUNT 


RE- INITIALIZE HUNTEST AFTER RE-START. 


GOTO 


HUNTEST 


0676 

0677 

0678 

REE 

REF 




25,3C1A 

777A5 1 

FOREHUNT OUCAO 



A 

LAST 

813 

25,3C15 

15332 i 


3ZeRCS 


A 

LAST 

812 

25,3016 

17612 I 

STOOL 

DIFFCLC 


0679 

REE 

1 



25,3017 

15156 1 


OLEWCO 


C6eo 

REE 

A 

LAST 

812 

25,3C2Q 

176A2 1 

STOOL 

OLEWQ 


0661 

REE 

1 



25,3021 

15150 1 


LEWD 1 


C662 

REE 

9 

LAST 

613 

25,3C22 

03725 1 

STORE 

LEWD 



INITIALIZE HUNTEST. 



N 


25,3C23 77616 C 


RXf 
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poeefc 

A C&JBT 

♦ 5TAF1 LF CC^TRCL 

• • « 

— 




MX « 6 5 


C6ee 



25f 3025 

77634 

C 

GCTCUPSY RTfc 


END CF HUNTkST 


Oces 

REF 

1 

25, 3C2fc 

54440 

C 


Pt>5 

HLNTEST use of GRP4 IS DISABLED BY P65 


AQg9Q 








use FOR DISPLAY. 


AC6S1 








SET MCCE » LPCCMBL. 


tkQt<i2 








RETURN FROM P65 DIRECTLY TO UPCONTRL 


A06S3 . 








VIA THE GCTCACOR AT R6FA2EIO. 



0694 





25, 3C27 

45345 

1 

LPCCNIRL 

OLCAD 

OSU 

IF 

0-140 PCS, NCSWITCH *1 



_tl694j 

fe-li 

Jl 

LAST 

806 

25,3030 

03640 

C 



0 

(SUPPRESS LATERAL SWITCH! 



06942 

REF 

1 



25,3C31 

1522C 

C 



C21 





C6S42 





25,3032 

4304C 

1 


BMN 

SET 





_ii^94 4 





25.3033 

53035 

1 



♦ 2 





C6945 

REF 

1 



25,3034 

03C70 

c 



NGSh ITCH 


- 



06946 





25,3C35 

45345 

1 


OLCAD 

OSU 

IF 

V-Vl PCS, GO TO DCWN CONTROL. 



0695 

REF 

iF 

LAST 

811 

25, 3C36 

03 6 14 

1 



V 





0696 

REF 

14 

LAST 

eic 

25,3C37 

00326 

c 



VI 





0697 





25,3040 

71244 

c 


BPL 

OLOAC 





06 98 

REF 

1 



25,3C4l 

53252 

1 



DOWNCNTL 





0699 

REF 

13 

LAST 

815 

25,3C42 

03640 

c 



D 





G700 





2 5 » 3 C ^ 3 

50025 

c 


OSU 

BHN 

IF 

C- Q7 NEC, GC TO KEP 



0701 

REF 

6 

LAST 

812 

25,3C44 

03175 

1 



Q7 





0702 

REF 

1 



25,3045 

53305 

1 



KEP 





0703 





25,3046 

51145 

c 


DLCAD 

BPL 

IF 

PCCT NEG, CO VLTEST 



0704 

REF 

12 

LAST 

dll 

25,3047 

03700 

c 



R DC T 





0705 

REF 

1 



25,3C5G 

53057 

c 



COhT 1 



- 


0706 





25,3051 

45345 

1 

VLTEST 

DLCAD 

DSU 

IF 

V-VL-C 16 NEG,EGSW»l ,MOCE-PREO 1CT3 



Q7C7 

REF 

12 

LAST 

615 

25,3C52 

03674 

1 



V 





0708 

REF 

12 

LAST 

812 

25.3C53 

03767 

1 



VL 





0709 





25,3054 

50025 

0 


OSU 

bHN 





C71C 

REF 

1 



25,3C55 

15164 

c 



Clfc 





0711 

REF 

2 

LAST 

807 

25,3056 

53326 

0 



PREF INAL 





0712 





25,3057 

77745 

1 

CCNTl 

CLCAO 


IF 

O-AO POS, L/C » LAO, GO TO LIMITL/C 

- 


0713 

REF 

14 

LAST 

615 

25,3060 

03640 

c 



D 





0714 





25,3061 

5Q025 

c 


OSU 

BMN 





0715 

REF 

7 

LAST 

811 

25,3062 

00330 

1 



AO 





0716 

REF 

1 



25,3063 

5 3 067 

c 



CLNT3 





0717 





25,3064 

52145 

c 


OLGAO 

GOTC 





0718 

REF 

1C 

LAST 

ail 

25,3065 

03624 

1 



LAO 





C719 

REF 

1 



25,3066 

53520 

c 



STOP EL/L 





A0720 















Qldl 





25,3067 

41345 

0 

CCN13 

OLOAO 

OMP 

VREF-FACT 1 ( 1-SCRT (FACT2 D + ALPI! 



0722 

REF 

15 

LAST 

815 

25,3070 

03640 

c 



D 





0723 

REF 

4 

LAST 

612 

25,3071 

C362Q 

0 



FACT2 



- 

- - 
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072A 





25,3C72 

75A15 

C 

OAO 

SORT 

0725 

REF 

7 

LAST 

B1 3 

25f 3CT3 

C37CA 

1 


ALP 

0726 





25.3C7A 

41221 

C. 

80SU 

OHf 

0727 

P EF 

A 

LAST 

807 

25f 3C75 

17334 

C 


BAPELVl 

0720 

REF 

5 

LAST 

813 

25f 3C76 

03616 

C 


FACT 1 

C729 

REF 

1 



25,3077 

ClUO 

1 

STORE 

VRLF 

0730 





25,3100 

41221 

C 

BOSU 

DHP 

0731 

REF 

j; 

LAST 

81 ! 

25,3101 

00326 

C 


VI 

0732 

REF 

IC 

LAST 

8M 

25, 31C2 

03725 

1 


LEWD 

0733 

REF 

2 

LAST 

It 

25,31U3 

15156 

1 

STOOL 

ROOTPEF 


yPEF / 2VS 


RDCTREF « L£WC( Vl-VREF I 


RD07PEF / 2VS 


0734 

REF 

5 

LAST BCe 

25,3104 

03672 

1 


VSl 


0735 




25, 3105 

50025 

C 

oso 

BMN 

IF VSAT-VR6F NEC, GO TC C0NTINU2 

0736 

REF 


LAST 816 

25,3106 

C1160 

1 


VREF 


0737 

REF 

1 


25,3107 

53126 

1 


COM INU2 



0738 





25,3110 

.. _A 1 4^6 

C 

PUSH 

PUSH 

0739 





25,3111 

562C5 

C 

OMP 

OOV 

0740 

REF 

4 

LAST 

813 

25,3112 

C366C 

1 


AHGCKOV 

0741 

REF 

8 

LAST 

813 

25,3113 

0 3662 

c 


OVL 

0742 





25,3114 

41215 

1 

OAC 

OMP 

U743 

REF 

2 

LAST 

608 

25,3 115 

15252 

c 


1/tsTH 

0744 

REF 

2 

LAST 

813 

25,3116 

15254 

c 


CHI 

0 745 





25,3117 

41205 

c 

OMP 

OMP 

A0746 










0747 





25,3120 

77671 

1 

DOV 


0748 

REF 


LAST 

813 

25,3121 

03656 

1 


DHOC W 

0748 





25, 3122 

44271 

c 

OOV 

BOSU 

0750 

REF 

3 

last 

816 

25,3 123 

0116Q 

1 


VREF 

0751 

REF 

1 

LAST 

816 

25,3124 

C1156 

1 


ROOTPEF 

0752 

REF 

4 

LAST 

816 

25,3125 

01156 

1 

STORE 

P OCT REF 


VSl-VPEF TC PCI T»«ICE 
PCHOCK-CHl t 1 + CV AHCOKOV/dVL) OV DV 
/CHOCK VREF 

WHERE OV • (VSl-VREF) 


VSl-VREF FRCP POL TWICE. 


C(ROOTREF»« LEWC (Vl-VRETf 
RCC7REF a RCOTREF - ROHOOK 


0753 





25,3126 

45345 

1 

0754 

REF 

It 

LAST 

015 

25,3127 

C364C 

C 

0755 

REF 

1 



25, 3130 

15312 

C 

C756 





25,3131 

50CC4 

C 

0757 

REF 

4 

LAST 

81 1 

25,3132 

573 14 

c 

0758 

REF 

1 



25, 3133 

53144 

c 

0759 





25,3134 

45345 

1 

0760 

REF 

4 

LAST 

806 

25,3136 

C3664 

0 

C761 

REF 

5 

LAST 

815 

25,3136 

cans 

1 

0762 





25,3137 

45325 

i 

0763 

REF 

17 

LAST 

8 16 

25,3140 

C3640 

c 

0764 

REF 

1C 

LAST 

816 

25,3141 

cans 

1 

0765 





25,3142 

45471 

1 

C766 

REF 

3 

LAST 

796 

25, 3143 

74163 

c 


C0NT1NU2 OLCAO 


BOVH 


olcaO 


POUL 


DOV 

STORE 


psu 

0 

Q7M1 h 

BHN 

TCO/ RZIG 
UPCMRL3 

Mli 

A I 

07 

0 

07 

STAOF 

FACTCR 


CLEAR OVFL INC, IF OW . 


FACTCR / 29G 
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AGiiia 

A0769 


LELTA L/C—C 1 RCQT-RCCTW6F IFl KB1*V-VBEP ) FI K B2 
WHERE FI » FACTOR 


aiio 





25t3 

T7745 

JL_ 

LPChTRL3 

CLGAC 



0771 

REF 

13 

LAST 

015 

25,3145 

C37CC 

C 



ROOT 


C772 





25,3 146 

41225 

1 


OSU 

OHP 

L/C > LEND 

0773 

RkF 

5 

LAST 

6U 

25,3147 

C1156 

1 



ROCTREF 

-( (ROCT-RCQTREF )F1/K81*V-VREF)F1/KB2 

C77A 

REF 

4 

LAST 

816 

25,3150 

C36 14 

1 



FACT CP 


C775 





25,3151 

43271 

1 


00 V 

OAO 


C776 

REF 

1 



25,3152 

1521C 

c 



l/KBl 


Q777 

REF 

12 

LAST 

815 

25,3153 

C3674 

1 



V 


0778 





25,3154 

41225 

1 


DSU 

OMP 


0779 

REF 


LAST 

8 U 

25,3155 

Cl 160 

1 



VREF 


0760 

REF 

C 

LAST 

817 

25,3156 

C3614 

1 



FACTOR 


0781 





25,3157 

41471 

c 


OOV 

PUSH 

- - ■ — - 

0762 

REF 

1 



25,3 160 

15212 

1 



- 1/Ke2 

DELTA L/D INTC POL 

C783 





25,3161 

514 00 

1 


BGV 

ABS 

NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN 

- .0.7 84, 

REF 

JL_ 



25,3162 

53465 

c 



GCMAXL/O 


0785 





25, 3163 

50025 

c 


OSU 

BHN 


0786 

REF 

1 



25,3164 

15274 

1 



F T 1 / 1 6 


0787 

REF 

1 



25,3165 

53172 

c 



NEXT 1 


0 7 68 





25,3166 

43205 

1 


OMP 

DAO 


0789 

REF 

1 



25,3167 

15152 

0 



PCINTI 


0790 

REF 

2 

LAST 

817 

25,3170 

15274 

1 



PTl/ 16 


0791 





25,3171 

41565 

1 


SIGN 

PUSH 

ATTACH SIGN OF PUSH TO MPAC THEN PUSH 

SI 792 





15 , 1172 

42545 

c 

NEX 11 

OLCAO 

SL4 


40793 











DELTA L/0 FROM POL* 

0794 





25,3173 

77615 

c 


OAO 



0795 

REF 

11 

LAST 

816 

25,3 174 

03725 

1 



LEhO 


0796 





25,3175 

414CC 

c 

NEGTESTS 

BOV 

PUSH 

L/D TC POL FOR USE IN NEGT6STS. 

0797 

REF 

2 

last 

617 

25,3176 

534t 5 

c 



GCPAXL/D 


0796 

REF 

6 

LAST 

806 

25,3177 

17634 

0 


STOOL 

L /L 


AC799 











IF 0-C2O PCS, LATSH »0 

Aoeoo 











AND IF L/0 NEG, L/D » 0* 

0801 

REF 

le 

LAST 

816 

25,3200 

03640 

c 



0 


0802 





25,3201 

50025 

c 


OSU 

BMN 


C603 

REF 

1 



25,3202 

15216 

c 



C20 


0804 

REF 

4 

LAST 

805 

25,3203 

53521 

1 



L IM TL/O 


08t5 





25, 3204 

71214 

c 


CLElR~ 

OlOAC 


0806 

REF 

1 



25,3205 

03273 

i 



LATSk 

*210. ROLL OVER TCP, REGARDLESS. 

Aoec7 











L/D FRCM PCL. 

0 8 06 





25, 3206 

71244 

0 


BPL 

OlUAC 


0609 

REF 

C 

LAST 

811 

25,3207 

53521 

1 



LIMT TL/D 


0810 

REF 

5 

last 

814 

25,3210 

15332 

1 



32EPCS 


ceil 

REF 

7 

LASi 

817 

25,3211 

37634 

1 


STCALL 

L/0 


U612 

REF 

6 

LAST 

817 

25,3212 

53521 

1 



LIMITL/C 

(GO TQI 


Vi 
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cei3 

oeiA 

Aceii 

0 817 


ft8EKTf>f CCMPQL 


REF 


REF 


LAS1 8li 


25t3213 

25«321*i 


5 L 4 S T JJl A 


25*3215 176 12 1 


777^5 1 CCCNSTO CLOAO 

C3610 C OIFF 


STGUL OIFFCLC 


USER'S PAGE NO. 2A 


E7 S3 


ThO RANGER ENTRIES TG CCNSTO HERE 


SAVE CLD value CF OIFF FOR NEXT PASS 


OIFFCLC / 2 PI 


oaifi_ 

0619 

0820 

0821 

0622 

j:e23_ 


A£t 


082A 


0831 

0832 

0833 
083A 

0835 

0836 

0837 
0638 


REF 


JL 

11 


LAST 612 25.3216 15 176 j 


Q7F 


UST 016 25, 32 17 031 75 1 


STORE 07 


25,3220 47131 1 eECCNSTQ S$P 


RTB 


A HUNTEST ENTRY INTO CCNSTO 


REF 

REF 

-RLF 


1C 

A 

i 


LAST 

LAST 


812 

61A 


25.3221 

25.3222 

25*3223 545C5 C 


036^6 C 
32365 C 


COTCACDR 


HUNT E ST 


K.ILLGRPA 


RESET PCCE TO H UNTEST 
DEACTIVATE GRPN FROH HLNTEST 


25,322^ 7760A C CCNSTO 0OV6 


REF 


3 LAST 804 


25.3233 

25.3234 


03710 1 


43271 1 


COV 


REF 14 LAST 817 25,3235 03674 1 


00 

DAO' 

V 


RCCTR6F « - 2 HS CO/V 


REF 14 LAST 817 


25.3236 

25.3237 


REF 


1 


25,3240 


C37C0 C 
43205 1 
15226 C 


RDCT 


OMP 


K2r 


C/CO LEO ♦ K2D ( POOT-ROCTREFI INTO PO 


25,3241 77725 1 


POOL 


REF 


4 last 818 25,3242 C3710 1 


00 


DO /8C5 


00^4 


25,3250 20211 1 


8L' 


0845 REF 


1 


3251 


53175 1 


NECTES7S 


(GO TO) 



n j; r _ 




£ J f J C & ^ 





1^ b r V * V P ^ r ^ ^ 

0826 





25,3226 

4134 5 

C 

OLCAO 

DMP 


0827 

REF 

6 

LAST 

80 4 

25,3227 

0365^ 

C 


LEQ 


0828 

REF 

3 

LAST 

805 

25,3230 

03 706 

C 


C/LO 

C/DO * -4/CC B-e 

0829 





25,3231 

41325 

C 

POOL 

DhP 

LEQ C/OO INTO POL 

0830 

REF 




25,3232 

15262 

C 


2hS 

2FS / 4 VS VS 


0839 



25,3243 

77621 

1 CONSTCi 

eosu 


ENTER hITH CPEF IN RPAC 


0840 

REF 

19 LAST an 

25,3244 

C3640 

C 


0 



0841 



25,3245 

43205 

1 

DRP 

DAO 



0842 

REF 

1 

25,3246 

15224 

1 


KID 

K2D TERM FRCM PUSH 


0843 



25,3247 

52061 

1 

SL 

GOTC 




0846 

0847 

REF 

6 

LAST 

die 

25, 3252 
25*3253 

77604 

57314 

C 

C 

DCIuNCNTL 

aovb 

TCOANZ IG 

INITIAL PART CF UPCQNTPCL. “ 

CLEAR CVFINC , IF ON. 












0848 





25,3254 

54345 

1 


CLCAD 

SR 



0849 

REF 

1 1 

LAST 

815 

25,3255 

C3624 

1 



LAO 



0650 





25, 3256 

20611 

C 



8D 



0851 





25,3257 

45325 

1 


POOL 

DSU 

PCTP - LAC(Vl-V) 


0852 

REF 

15 

LAST 

die 

25, 3260 

0 36 74 

1 



V 



0853 

REF 

16 

LAST 

816 

25*3261 

G0326 

c 



VI 



0854 





25,3262 

43205 

1 


OMP 

OAD 



0855 

REF 

12 

LAST 

81f 

25,3263 

03624 

1 



LAD 




GAP : ASS g^BLE R£VlSICh 2 21 Cf AGC PRCGRAH 


NASA 202111I-C31 


1:17 AUG, 2A.l<3Ae PANDORA .072 
L BetMPV CCMPOl L SER»S PAGE NC« 25 


0656 

REF 

12 

LAST 

61 E 

25i326A 

C37C0 

C 


ROOT 


0657 





25t3265 

A3205 

1 

DHP 

DAO 


Jia5e . 

REF 

2 

LAST 

iilfi 

25.3266 

15226 

c 


K20 


A0659 










PUSH UP LAC. 

0860 





25. 3267 

A5325 

1 

POOL 

OSU 

LAO ■* K20iRCOT-ROTR » INTO PD 

.0.8.6 JL. 

REF 

17 

LAST 

816 

25.3270 

0C326 

c 


VI 


0662 

REF 

It 

LAST 

818 

25,3271 

C367A 

1 


V 


0663 





25,3272 

A1316 

c 

DSC 

DMP 


0..6 6 A . 

REF 

JJ_ 

LAST 

die 

25.3273 

C362A 

\ 


LAO 


0665 





25,327A 

65271 

c 

ODV 

POOL 

tVl-V)SQ LAC/<2 Cl HS> INTO PO 

0666 

REF 

3 

LAST 

80? 

25,3275 

15272 

1 


2ClFiS 


0667 

REF 

18 

LAST 

81S 

25,3276 

00326 

c 


VI 


0866 





25,3277 

56310 

c 

OSQ 

DOV 


0869 

REF 

A 

LAST 

806 

25,33CC 

C3622 

1 


VSOt ARE 


Q87Q 





25,3301 

A5265 

1 

800 V 

OSU 

DREF * (V/VllSQ AO - PC 

0871 

REF 

8 

LAST 

815 

25,3302 

CC330 

1 


AO 


AC672 










PLSH UP HERE 

0873 





25,3303 

77650 

1 

GOTO 


CIRPAC) a OPEF 

Ce7A 

REF 

1 



25, 330<i 

5 32 A 3 

1 


CONSTCl 



AO 9 75 
A0876 


2 2 

DBEF » (V/VU flO -(V-VU LAG/2 Cl HS 


GAP : A REVISION 237 CF AGC PRCGPA^ CCLCS.SUi_ BY NAS A 2 0 2ilU-Cli 

L REENTPY CCMBCL 


lil? AIG. 24tl9fc8 PANOOPA .072 PAGE 820 

s £_ I 
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poe77 ♦ n<p7 e/LLiSTic pmse ... 


A067fi 

087*; 

0680 

0681 

0882 


25,3305 6623<t I KEP RTB SSP 

Rtf 1 25,3306 5A673 C P66 

P£F 11 LAST aie 25.3307 036A6 C GOTCAQ M 

ref 2 L/ST 80< 25,3310 53311 1 KEP? 


MH » 66 UPCCNTRL ENTRY INTO KEP2. 

CISPLAY TRIR GIRBAL ANGLE VALUES. 

SET GCTQACCP TQ KEPLER PH ASE. 


AOefil 

AceeA 

Aoees 


KEP2 CAN ALSO DE STARTED OP QIRECTLY FROM IN I TROLL 
IN P6A. PBQGRAN hlLL ICLE IN P6A UNTIL 0 EXCEEDS 
.2 G BEPCRE GOING ON TO P67. 


0886 





25, 3311 

A53A5 

1 KEP2 

OLGAD 

OSU 

IF g7F+K0NIN -Q N£G,GO TC FINAL PHASE. 

0867 

REF 

1 



25,3312 

15166 

1 


VJ7FKCFIN 

(C7F ♦ KOPIM/0C5 

0B88 

REF 


LAST 

618 

25,3313 

C36A0 

C 


U 


C889 

oesi 

REF 

3 

LAST 

815 

25,331A 

25,3315 

72260 

53326 

1 

c 

0MN 

TLOAC 

PREF INAL 



AC892 


0893 

REF 

9 

LAST 

76S 

25.3316 

03316 

C 


RCLLC 

0696 

REF 

280 

LAST 

77 5 

25,3317 

00157 

I 

store 

MPAC *2 

0895 





25.3320 

72216 

C 

BON 

TLUA C 

069o 

REF 

6 

LAST 

d06 

25,3321 

C3316 

1 


.G5G St* 

0897 





25, 3322 

52326 

1 


+ 2 

0698 

REF 

6 

LAST 

817 

25,3323 

15332 

1 


3ZERCS 

0899 

REF 

IC 

LAST 

62C 

25,3326 

373 16 

1 *2 

STCALL 

RCLLC 

0900 

REF 

3 

LAST 

76 5 

25, 3323 

566C2 

C 


P62. 3 


A0901 

A09G2 


SET fiCLLHCLC • POLLC, IN CASE CHOAPMCO 
g ♦! EVER ENTERED. 


IF D > .05G, KEEP PRESENT ROLL COPNAND. 
IF 0 < .05G, SET ROLL CQNNAND - 0. 

SET RCLLC 6 BCLLHQLO *0. 

(SP RCLLHOLC FOLLOWS DP ROLLC 1 
CALC DESIRED GIPBAL ANGLES AT PRESENT 
RN, VN TQ YIELD TRIM ATTITUDE. 

AVAILABLE IN CFHl'S FOR N22. 


(jAP : 


PEVIS ICM 2 27 CP AGC PRCGPAM CGLCSSCS BY NASA 2q2UU-C31 


lil? AUG. 2^tl9fc8 PANDORA .072 PAGE 921 
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PC9C3 SlAPl PINAL PHASE 


A U 9 C A 









MR • 67 



CSC5 





25f 3326 

A7I31 

1 

PPEPINAL SSP RTB 




JSOb 

REP 

12 

LAST 

82C 

25f 3327 

036A6 

C 

COTCADDF 

RESTART PMCTECT: RESET 

GOTCADOR IF CAME 


C9C7 

REP 

A 

LAST 

320 

25.3330 

53326 

C 

PREP INAL 

FROH HUNTEST. 



09C8 

REP 

1 



25,3331 

54A7 7 

1 

P67 

DISABLES GflPA. PINE IF 

FP.CM HUNTEST. BUT 


A0909 









MAY ALSO REMOVE RESTART 

PROTECTION OF 


AC910 









N69 (P6S1. 



A09i 1 









RCLLC XRNGEPR 

DNRNGERR 


AC912 









XAX.AX DEG XAXX.X NM 

XXXX.X NM 



C913 

091A 

0915 

REF 

REP 

3 

13 

LAS7 

LAST 

602 

621 

25.3332 

25.3333 
25,333A 

66219 C 
03C67 C 
C3696 C 


SET 

SSP 

EGSN 

GQTC ACCR 




0916 

REF 

1 



25 3^3® 

53336 1 



PREC ICT3 




0917 





25,3336 

95395 1 

PREC ICT3 

OLCAO 

osu 

IF v-vcun 

NEC, STOP STEERING 


0918 

REP 

17 

LAST 

819 

25,3337 

03679 1 



V 




0919 

REP 

2 

LAST 

807 

25,3390 

15219 1 



VCUI T 




092C 





25,3391 

77990 1 


8MN 

EXIT 




0921 

REF 

1 



25,3392 

53605 1 



STEEPCPP 




0922 

REP 

3 

LAST 

612 

25,3393 

3 9753 1 


CA 

EbENTPY 

PRECAUTIONARY. 


0923 

REP 

25 

LAST 

812 

25,3399 

59 0C3 C 


TS 

E6AN X 




C92A 

REP 

1 



25,3395 

3 5660 1 


CA 

TWELVE 




0925 

REP 

1 



25,3396 

55*771 C 

BACK 

TS 

JJ 




0926 

REP 

le 

LAST 

82 1 

25,3397 

9 1673 C 


CS 

V 




0927 

REF 

2 

LAST 

82 1 

25,3350 

51*771 1 


INDEX 

JO 




0928 

REF 

1 



25.3351 

6 3631 C 


AD 

VREF ER 

VREF - V, 

FIGHEST VREF AT END CF 

TABLE. 

0929 

REP 

H2 

LAST 

779 

25,3352 

1C 000 C 


CCS 

A 

IF VREP-V 

PCS LOOP SACK 


0930 

REP 

w* 

LAST 

62 1 

25,3353 

U*7 7i C 


CCS 

J J 

CECREMCNT 

JJ , JJ CANNOT BE ZEPO 


0931 

REF 

1 



25,3359 

1 3396 1 


TCP 

BACK 




0932 

REF 

96 

LAST 

775 

25,3355 

69712 1 


AD 

ONE 




0933 

REF 

6 

LAST 

806 

25,3356 

55*696 ( 


TS 

TEMie 

V-VREF IN 

TEMie IMUST BE POSITIVE 

NUMI 

093A 

REP 

A 

LAST 

82 1 

25,3357 

51*771 1 


INDEX 

JJ 




0935 

REP 

2 

LAST 

621 

25,3360 

9 3631 1 


CS 

VREFEP 




0936 

REP 

5 

LAST 

82 1 

25,3361 

51*771 1 


INDEX 

JJ 




0937 

REP 

3 

LAST 

82 1 

25,3362 

6 3632 C 


AC 

VREPEP 4 1 

V(K* 1 ) - 

VlK) IPOS N(JMT 


0938 

REP 

7 

LAST 

82 1 

25,3363 

57*696 1 


XCH 

tEMie 




0939 





25.3369 

22 007 C 


ZL 





09 AO 





25,3365 

C 0006 1 


EXT6NC 





OS'.! 

REP 

6 

LAST 

82 1 

25,3366 

11*696 C 


DV 

TEFl e 




C942 

REP 

2 

LAST 

115 

25, 3367 

55*651 C 


TS 

GPAC 

GRAC « (V 

-VREFlZIVK+l - VK) IPGS NUM 


09<i3 REF le LAST 776 25f3370 3 ^715 C CAP FIVE 
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USA5 

no^A 

REF 

REF 

R F F 

5 

2 

A 

LAST 

LAST 

LAST 

7A2 
762 
82 1 

25.3371 

25.3372 

25.3373 

55 '650 

3 A720 
27*771 

1 eACK2 

c 

C 

TS 

CAF 

AOS 

MH 

THIF TEEN 

JJ 



USA? 

“ b r 

REF 

V 

163 

LAST 

62 1 

2S,337A 

5C COO 

^ ^ 

1 

INDEX 

A 



CSAS 

REF 

A 

LAST 

82 1 

25,3375 

A 3631 

1 

CS 

VPfcFEP 




REF 

T 

LAST 

822 

25,3376 

51*771 

1 

INDEX 

JJ 



Vrf # w 4 

0950 

REF 

5 

LAST 

822 

25,3377 

6 3632 

0 

AD 

VREFER ♦ 1 

X(K*U - X(K) 


C951 





25, 3ACC 

0 OOC6 

1 

EXTEND 




U952 

REF 

3 

LAST 

62 1 

25,3AOl 

7 1651 

0 

MP 

ORAL 



0953 

REF 

6 

LAST 

822 

25,3AC2 

5 1 ' 7 7 i 

1 

INDEX 

Jj 



0954 

REF 

6 

LAST 

622 

25,3AC3 

6 3631 

c 

AO 

VREFER 



0955 

REF 

6 

LAST 

622 

25,3ACA 

51*650 

c 

INDEX 

MM 



0956 

REF 

1 

LAST 

11! 

25, 3AC5 

55*652 

c 

TS 

FX 

FX * 4K ♦ GPAO 

( A k ♦ 1 * AK \ 

0957 

REF 

7 

LAST 

82 2 

25, 3AC6 

1 1 *650 

1 

CCS 

MN 



0958 

REF 

1 



25,3AC7 

1 3371 

c 

TCF 

bACK 2 



0959 

REF 


LAST 

622 

25,3A10 

57*653 

c 

XCH 

FX ♦! 

ZERO FX ♦! AND 

GET OREFR 

u 960 

REF 

21 

LAST 

62C 

25,3AU 

6 1637 

1 

AD 

0 



0961 





25,3A12 

0 OOC6 

1 

EXTEND 

-- 


... — 


REF ^ 
REF 261 


l^ST 622 
L^Sl 82C 


25, 3<il3 
25,3An 


52 155 1 


OXCH HFAC 


MPAC » FI (C-CPEF I 


096A 

0965 

0966 

REF 

16 

LAST 

819 

25,3A15 
25,3A16 
25, 3A17 

0 00C6 

4 1700 
2C (iOl 

1 

C 

1 

EXTENC 

DCS 

DOCUBL 

ROOT 

0967 





25, 3A20 

2C OCl 

1 

DOOUBL 


0968 





25,3A21 

20 001 

1 

DDCUbL 


0969 

REF 

5 

LAST 

822 

25, 3A22 

6 16 55 

C 

AO 

FX ♦ 3 

C970 





25,3A23 

0 00 C 6 

1 

EXTEND 


0971 

REF 

6 

LAST 

822 

25,3A2A 

7 1656 

1 

MP 

FX ♦ 4 

0^72 

REF 

7 

LAST 

622 

25,3A25 

6 1654 

1 

AD 

F X ♦ 2 

0973 

REF 

282 

LAST 

622 

25, 3A26 

2C 155 

1 

DAS 

MPAC 

097A 

REF 

262 

LAST 

022 

25,3A27 

3 0154 

1 

CA 

MPAC 

0975 

REF 

2 

LAST 

116 

25, 3A30 

55*770 

1 

TS 

PFECAhC 

AQ976 










0977 

REF 

2C9 

LAST 

e 1 A 

2 5, 3 A3 1 

C 6006 

1 

TC 

I NTP FET 

0978 





25, 3A32 

45242 

1 

SR3 

USD 

0979 

REF 

7 

LAST 

6 1 1 

25, 3A33 

C37C2 

1 


THET AH 

0980 





25,3A3A 

430 14 

C 

BCN 

bOF F 

0961 

REF 

A 

LAST 

80A 

25,3A35 

C33C5 

1 


GONE PAST 

0962 

REF 

1 



25, 3A3e 

53463 

c 


CCNE GLAD 

0903 

REF 

A 

LAST 

80 C 

25,3437 

C3747 

c 


GCNE6V 

OSdA 

REF 

1 



25, 3AA0 

53446 

1 

- 

HAVOKRHC 

0985 





25,3AA1 

43145 

c 

ULQAD 

SET 

C966 

REF 

1 



25,3Aa2 

13765 

1 


MAXRhG 

0987 

REF 

3 

LAST 

622 

25,3443 

03065 

1 


G0NEFA5T 

0988 

REF 

*3 

last 

27A 

25 , 3444 

21716 

( 

STCALL 

. ONPhGEPP 

0989 

REF 

2 

LAST 

822 

25,3445 

53463 

c 


CONECLAC 

0990 

REF 

A 

LASl 

822 

25,3446 

03716 

1 HAVONRNG STORE 

DNHNCEFF 


FCBR BDOTPEf - PDOT 


SCALE UP Bi 8 FCR THIS PHASE, 
RCQtREF 


F2 

ftICGC 

ACO F2(DACVl-CAtVP J 


L/D a LCD ♦(THETA- PREOANG)/ Y 


SET GCNEPAST IF GQNtBY SET C LATCH IN - 

cisPLAv - qsqs.s if gonebv place 


- (PRECANC - THETA) /360 
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L REEMFV CE^TPCL liSER'S PAGE NC. 29 E7 S3 


0991 

0993 

099<> 





25t39<»7 

77676 

C 

OCOMP 


FALL SHORT IF NEG, CVERSHCCT IF POS 





25, 3^50 

56209 

1 

aovB 

DDV 


REf 

2 

LiST 

aie 

25*3451 

57319 

JL_ 


TCUAPZIG 

CLEAR CVFINC IF ON. 

0995 

REF 

e 

L^ST 

822 

25j^3 952 

03653 

1 


Fx 

FX* CRANG6/C l/C » Y 

0996 





2Sr 3953 

90061 

1 

SL 

BOV 


iLiil 





25.395<t 

2P2Qt 

1 


5 


C998 

REF 

3 

L/ST 

617 

25,3955 

539c5 

C 


GCPAXL/D 


0999 





25, 3956 

90015 

1 

OAO 

BOV 


luOO 

REF 

3 

L4ST 

79‘ 

25,3957 

C3626 

c 


LCD 


1001 

REF 

4 

L/ST 

82 3 

25,3A60 

53969 

c 


OOHAXL/C 


1002 

REF 

6 

L4S1 

817 

25,3961 

37639 

1 

5TCALL 

L/D 


1003 

REF 

1 



25,3962 

53971 

c 


GLIH ITER 

(GO TO 












P lOCA 

GChEGL4C 

/NO 

COPCSRAX EMPY 

POINTS 

FOR 

GLIPITER ••• 














1005 





25,3963 

77795 

1 

GCNEGLAD OLOAO 


SET L/C - -LAL 

1006 

REf 

3 

L#S1 

822 

25,3969 

134 64 

C 


GONEGLAC 

(ANY NEGATIVE N(jN8ER WILL 001 












1007 





25,3965 

91239 

1 

GCW/XL/D RTB 

DNP 

L/0 - LAC SIGMPPACl 

1008 

REF 

1^ 

LAST 

796 

25,3966 

957C7 

0 


SIGNRPAC 


1CC9 

REF 


LiiST 

819 

25,3967 

03629 

1 


LAO 


1010 

REF 

9 

L^Sl 

823 

25,3970 

0 36 39 

C 

STORE 

L/D 

AND FALL INTO GLINITER SECTION 












1011 





25.3971 

95395 

1 

GLlRIlbR OLOAO 

DSO 

IF GPAX/2-0 PCS, GC TO LIRITL/O 


1012 

REF 

I 



25,3972 

15160 

1 



GMAX/2 


IC13 

REF 

22 

L/ST 

622 

25,3973 

03690 

C 



D 


1019 





25,3979 

93299 

1 


BPL 

OAD 

IF GMAX -C NEG, GO TO GCPOSLAC 

1015 

rTf 

7 

LAST 

817 

25,3975 

5 3521 

1 



LIMITL/D 


1016 

REF 

2 

LAST 

823 

25,3976 

1516G 

1 



GNAX/2 


1017 





25,3977 

91290 

1 


BMN 

OMP 


1018 

REF 

1 



25,35C0 

53516 

c 



GQPDSLAD 


ICIS 

REF 

2 

LAST 

81 £ 

25,3501 

15262 

c 



2HS 


1020 





25, 35C2 

91325 

c 


POOL 

OMP 

2PS(GPAX-C1 INTO PO 

1021 

REF 

7 

LAST 

818 

25,3503 

03659 

c 



LEO 


1022 

REF 

1 



25,3509 

15330 

c 



l/GHAX 


1023 





25,3505 

912 15 

1 


OAD 

ONP 


1C29 

REF 

15 

LAST 

823 

25,35C6 

03629 

1 



LAD 


1025 





25,3507 

56325 

c 


POOL 

DDV 

2HS(GMAX-CI (LEO/GhAX+LAO I INTO PO 

1026 

REF 

1 



25, 3S1C 

15269 

c 



2HSGPXSC 


IC27 

REF 


LAST 

819 

25,3511 

G3622 

1 



VSOUARE 


1028 





25,3512 

75915 

c 


DAO 

SORT 

XLIP * S^QRT (PC+(2HSGMAX/V) SQJ 

1029 





25,3513 

51015 

1 


OAO 

8PL 

IF PCCT+XLIP POS, GO TC LIRITL/0 

1030 

REF 

17 

LAST 

822 

25,3519 

03700 

c 



R DC T 


1031 

REF 

6 

LAST 

023 

25,3515 

53521 

I 



L IHITL/C 














1032 





25,3516 

77795 

1 

GCPCSLAO 

OLOAD 



1033 

REF 

16 

LAST 

823 

25,3517 

03629 

1 

sroRtL/0 


LAD 


1039 

REF 

1C 

LAST 

823 

25,3!2Q 

03639 

c 

STOTiE 

l/D 



gap: 


AGC PRtGHAM 


NASA 2Q2LIII-Q21 


REEMFY CCMRCL 


IT Aye 


PAGE 82A 


1035 





25,3521 

77745 

1 

LIH ITL/0 

OLOAD 



10 36 

REF 

11 

LAST 

822 

25,3522 

C3634 

C 



L/0 


1037 

REF 


LAST 

172 

25.3523 

17636 

1 


STOOL 

L/Dl 


1038 

PEf 

t 

LAST 

623 

25,3524 

03622 

1 



vsouApr 


lu3S 





25.3525 

77614 

1 


BUN 



A W W .1 

lONO 

REF 

N 

LAST 

82 2 

25,3526 

C33C5 

1 



CONE FAST 


lONl 

REF 

1 



25,3527 

53561 

C 



L355 


10N2 





25,3530 

432C5 

1 


OMP 

DAD 


10N3 

REF 

3 

LAST 

7S6 

25,3531 

03632 

c 



KLAT 


104N 

REF 

1 



25,3532 

15242 

1 



LATB US 


10N5 





25,3533 

51525 

1 

L350 

POOL 

ABS 


1QN6 

REF 

12 

LAST 

82^ 

25,3534 

C3634 

C 



L/D 


10N7 





25,3535 

50025 

c 


osu 

BMN 


10N8 

REF 


LAST 

795 

23,3536 

C363C 

1 



l/dcminr 


IONS 

REF 

1 



25,3537 

83546 

c 



L353 


1050 





25,3840 

75345 

1 


OLdAO 

SIGN 


1031 

REF 

6 

LAST 

60C 

25,3541 

03676 

c 



LATANC 


1052 

REF 

3 

LAST 

79e 

25,3542 

03644 

1 



K2PCLL 


1053 





25,3543 

7 124C 

1 


BHN 

DLOAC 


105N 

REF 

1 



25,3544 

53624 

1 



L357 


1055 





25,3545 

41542 

1 


SRI 

PUSH 


1056 





25,3546 

75345 

1 

L353 

OLOAO 

SIGN 


1057 

REF 

T 

LAST 

82k 

25,3547 

03676 

0 



LATANC 


1058 

REF 

k 

LAST 

824 

25,3550 

03644 

1 



K2RCLL 


105S 





25,3551 

77625 

c 


OSU 



IQ6C 





25,3552 

11240 

1 


BHN 

OLUAC 


1061 

REF 

2 

LAST 

824 

25,3553 

53561 

c 



L355 


1062 

REF 

5 

LAST 

824 

25,3554 

03644 

1 



K2Rt LL 


1063 





25,3555 

57414 

1 


aONCLR 

DCOM F 


10631 

REF 

2 

LAST 

815 

25,3556 

03210 

1 



NOSK ITCH 


10632 

REF 


LAST 

824 

25,3557 

5356 1 

c 



L355 


106N 

REF 

6 

LAST 

824 

25,3560 

03644 

1 


STORE 

K2PCLL 


1065 





25,3561 

56345 

c 

L355 

OLGAO 

ODV 


1C66 

REF 

N 

LAST 

824 

25,3562 

03636 

1 



L/Ol 


1067 

REF 

n 

LAST 

82 2 

25,3563 

03624 

1 



LAD 


1068 





25,3564 

65542 

1 


SRI 

ACCS 


1C6S 





25,3565 

77765 

c 


SIGN 



1070 

REF 

7 

LAST 

824 

25,3566 

03 6^4 

1 



K2RC LL 


1071 

REF 

11 

LAST 

e2C 

25,3567 

03316 

L 


STORE 

ROLLC 


1072 





25,3570 

77776 

1 

ENDEX IT 

EXIT 



1073 

REF 

u 

LAST 

686 

25.3571 

3 4676 

1 

CVERNOUT 

CA 

eiTi3 


107N 

REF 

7 

LAST 

795 

25,3572 

7 01C2 

c 


MASK 

cm/flacs 


1075 





28,3573 

C 0006 

1 


EXTEND 



1076 

REF 

1 



25,3574 

1 360C 

C 


8ZF 

NODI SKY 


1077 

REF 

7 

LAST 

75 1 

25,3575 

3 1263 

1 


CA 

ENTF YVN 



USER*S PAGE NC. 30 


E7 S3 


NC LATERAL CCNTPOL IF PAST TARGET 


Y« KLAT VSGLARE ♦ LAT0IAS 


Y INTO PC 

IF AES a/CI«L/QCMINR NEG, GO TC L353 


IF K2ROLL LATANC NEG, GO TO L357 


Y * Y/i 

IF LATANC S IGN(K2«0LL»-V POS, SWITCH 


IP NCSwITCH »l, K2ROLL- K2ROLL 


K2flCLL » - K2ROLL 


RCLLC 


ACCS( (L/Cl I / LAO) 


NFAC SET TO *-l I F^VE PPLCk*** 


ENTRYCSP »92l 013 


GRIT C15PLAV 


ALL ENTPY DISPLAYS APE DONE HERF 


£APJi A $Stl>etg REV1S1C^ 237 Cf ACC PHCGPA>^ CCLCSSUS GY NASA 2021I11-C21 1:17 AtG. PANOCRA ,072 PAGE 825 

L REEMfY CCNTPOL USER'S PAGE NC. 31 67 S3 


1078 

107S 

REF 

REF 

22A 

L/IST 

78C 

25^3576 

C 4555 

C 


TC 

BANKCALL 



2 

LAST 

52S 

25,3577 

20621 

0 


CACR 

Rt&CLSPP 

NC ABORT IF OISKY 

IN USE 











1080 





25.36C0 

0 00C4 

C 

KGO ISKY 

INHINT 




1081 

REF 

A 

LAST 

50E 

25,3601 

10 067 

1 


CCS 

NEWJCe 

PROTECT RBACACCS 

GRP 5, IF SIDETRACKED. 

1082 

REF 

3 

LAST 

508 

25,3602 

0 5057 

c 


TC 

CHANCl 



1083 

REF 

A7 

LAST 

78 1 

25,3603 

C 4 5 74 

€ 

SER VhCUT 

TC 

POST JLRP 

( CORE HEBE FFOR 

P67.3 1 

108^ 

REF 

5 

LAST 

756 

25,36C<t 

77136 

C 


CAOR 

SERVEXIT 

ARC ENC AVEPAG6G 

JOa VIA EN00FJ08. 


II 


I 


QAPJl 


?37 CF flCC PRCGBAM CCLCSSUS BY N/>SA 202nil-C31 


lilt ALG. 24tl96g PANDOPA .072 PAGE 826 


nC-ki 


L 

REE^TPY 

CCMPQL 








OSEk'S PAGE NO. 32 £7 S3 










pioes 

1066 



C1SFL4Y 

V IJ LE5 

S THA^ 

VCL IT. 

















25#36C5 

77776 

1 

STEEROFF 

EX IT 



1007 

REF 

A 

LAST 

82J 

25f 3606 

3 9753 

1 


CA 

eeFNTFY 

PRECAUTIONARY. 

m w w 

loee 

REF 

It 

LAST 

82 1 

25f36C7 

59 CC3 

C 


T5 

EBANK 














1089 

R£F 

12 

LAST 

612 

25|361C 

3 9763 

1 


CA 

PRIC16 

2 LESS THAN NTRYPRIO. 

1090 

REF 

<7 

LAST 

77 3 

25,3611 

C 5027 

1 


TC 

NCVAC 


1091 

REF 

^ £ 

LAST 

709 

£6.1661 




£8ANK« 

ACG 

ANY EB HERE 

1092 

. -Zs : 

REF 

3 

LAST 

75 1 

25,3612 

02511 

C 


2CACR 

P67. 1 

START UP RERAINCER CF P67 

1092 





25,3613 

59066 

c 





A 1C93 











RTOGC LA7 LONG 

A109A 











XXXX.X NM XXX. XX OEG XXX. XX d£G 













iJ09 5 

REF 

26 

LAST 

781 

25,3619 

C 5261 

1 


TC 

2PHSCHRG 

INHiNf /REL INT OCNE. 

1096 


»■ -- 



25,3615 

C09l*t 

c 


OCT 

00919 

9.91 RESTART FOP P67.1 DISPLAY JOB. 

1097 





25,3616 

1C035 

c 


CCT 

10035 

SERVICER 5.3 RESTART. 













1096 

REF 

1 



25,3617 

3 3623 

c 


CA 

P67.2CAD 

HEREAFTER, CO LAT , LONG. 

1099 

REF 

19 

LAST 

82 1 

25,3620 

55*695 

c 


TS 

GOTCADCR 














1100 

PEF 

2 U 

LAST 

822 

25i362l 

C 60C6 

' 1 


TC 

INTPPET 


liol 





25,3622 

7765C 

1 


GOTC 



1102 

REF 

1 



25,3623 

59530 

c 

P67.2CA0 


P67.2 

CCNTINLE FCR LAT, LCNG THIS TIME. 













1103 





25,3629 

75395 

1 

L357 

OLOAD 

SIGN 

L/0 » L/OCMINR SICNIL/CI 

1109 

REF 

9 

LAST 

829 

25.3625 

C363C 

1 



L/DC MNP 


lies 

REF 

13 

LAST 

829 

25,3626 

03639 

c 



L/D 


1106 

RtF 

5 

LAST 

629 

25,3627 

37636 

c 


STCALL 

L/Di 


11C7 

REF 

4i 

LAST 

829 

25,3630 

53561 

c 



L355 

(GO TO ) 


t m 


9 


R 


I 


R 
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Plice r^eLE USED fop SUE-CRBITAL PEFERE^CE TRAJECTORY CONTROL. 


n 


ii 


P 


11C9 

1110 

1111 

25f 3631 
25*3632 
25.3633 

009 79 
C1235 
02337 

C 

1 

1 

VREFER DEC 

DEC 

CEC 

.019288 
.090 809 
.076 1C7 


REFERENCE VELCCITY SCALED V/51532.3996 

13 POINTS ARE STORED AS THE INDEPENDENT 

VARIABLE ANC THEN SIX 13 POINT FUNCTIONS 

liu 

25,3639 

03721 

0 

DEC 

. 122 156 


OF V ARE STCRFO CONSECUTIVELY 

1113 

25,3635 

05230 

C 

DEC 

.165596 



1 1 l<t 

25.3636 

06213 

1 

OtC 

. 196012 



1115 

25,3637 

105 50 

c 

DEC 

.271995 



1116 

25,3690 

11717 

c 

DEC 

.309533 



1117 

25,3691 

13319 

c 

OEC 

.356222 



111b 

25, 3692 

19736 

c 

DEC 

.909 192 



1119 

25,3693 

16255 

1 

CEC 

.998067 



1120 

25,3699 

16957 

c 

OEC 

.956C23 



1121 

25,3695 

25570 

1 

DEC 

.67918 


HIGH VELOCITY FOR SAFETY 

1122 

25.3696 

77526 

c 

CEC 

-.010337 


ORANGE/DA SCALED ORO A/ ( 2700/805 I 

9S Cs_— ^ ^ : B 

1123 

25,3697 

77360 

1 

DEC 

-.01 6550 



112^ 

25,3650 

77106 

c 

DEC 

-.026935 



1125 

25,3651 

765 16 

1 

DEC 

-.092039 



1126 

25,3652 

76071 

c 

DEC 

- .05 8979 



1127 

25,3653 

75570 

1 

OEC 

- .070721 



1128 

25,3659 

79661 

c 

CEC 

-.098538 



112S 

25,3655 

79936 

L 

OEC 

=TToT982 



1130 

25,3656 

732 12 

1 

OEC 

-.197762 



1131 

25,3657 

71690 

0 

OEC 

-.193289 



1132 

25,3660 

59557 

1 

OEC 

-.602557 



1133 

25,3661 

9CCC0 

c 

OEC 

-.99999 



113A 

25,3662 

90000 

0 

DEC 

- -99999 



Ui5 

25,3663 

77b35 

1 

OEC 

-.0978599 

8-3 

-CRANGE/OROCT 

1136 

25,3669 

77563 

1 

DEC 

- .06 83663 

B-3 

SCALEC((2VS/8 27001 DR/OftCCT) 

1137 

25,3665 

77359 

c 

DEC 

-.1393968 

E-3 


1138 

25,3666 

76712 

1 

DEC 

-.27 59896 

8-3 


1139 

25,3667 

76066 

c 

DEC 

-.9731937 

8-3 


11^0 

25,3670 

75322 

c 

DEC 

-.69 72087 

8-3 


1191 

25,3671 

73237 

c 

OEC 

-1.171693 

0-3 


1192 

25,3672 

72109 

i 

DEC 

-1 .966382 

8-3 


1193 

25,3673 

70301 

1 

CEC 

-1.9C5171 



1199 

25,3679 

65635 

1 

DEC 

-2.597990 

e-3 


1195 

25,3675 

5731 1 

c 

OEC 

-9.151220 

E-3 


1196 

25,3676 

50575 

~r 

DEC 

-5.8 13617 

8-3 


1197 

25,3677 

56575 

c 

DEC 

-5.813617 

e-3 

— 


I 


n 


t 


{ 







f * 





GAP S- i WF»Plg fleviSlQN 237 C F fl SC JKlj ftA ft 
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REiMlY_CCMBCL 


USER’S P/iGfc NO, 3<» 


E? S3 


Pll^e 


IIA9 

115C 

1191 



25.37C0 

3 

1 

DEC 

-.0134001 

83 

PC07REF 

SCALED (8 »0T/2VS) 





25,37C1 

74333 

1 

DEC 

-.Cl 3947 

03 



— 




25.3702 

74433 

0 

DEC 

- .012462 

83 



^ • _= 

1152 



25f 37C3 

74763 

C 

DEC 

-.011813 

B3 





1153 



25f3 7C^ 

75432 

C 

DEC 

- .0095631 

B3 





116^ 



25.3705 

75735 

1 

DEC 

-.00806946 

83 





1155 



25,37C6 

76200 

1 

DEC 

-.006826 

B3 





1156 



25,3707 

75735 

1 

OEC 

-.C0fiC6946 

83 





1 157 



25,3710 

75140 

0 

DEC 

-.01C9791 

83 





1158 



25,3711 

74075 

c 

OEC 

-.1 1 51496 

03 






il5S 



25,3712 

73312 

c 

DEC 

-.0 1 79817 

03 




_ - - 

1160 



25,3713 

73732 

c 

DEC 

-.0159061 

83 





ft 4 V W 

1161 



25,3714 

73732 

c 

DEC 

-.0159061 

83 



_ _ 

_ . _ 













- 

1162 



25.3715 

00015 

c 

OEC 

, 000 £067 


RINGE TO 

GO SCALED RTOGQ/2700 



Jk. « id jIm 

1163 



25,3716 

00066 

1 

OEC 

.0032963 



a .9 



116^ 



25,3717 

00206 

c 

OEC 

.0061852 



2 2*1 


- 

1165 



25,3720 

00431 

1 

DEC 

.017 148 






1166 



25,3721 

0Q712 

c 

DEC 

.027926 






1167 



25,3722 

01136 

1 

OEC 

.037 






1168 



25,3723 

02015 

1 

OEC 

. 6 3 2 9 6 






116S 



25,3724 

02374 

0 

OEC 

.077869 






117C 



25,3725 

C3123 

1 

DEC 

.098815 





— 

1171 



25,3726 

04051 

1 

OEC 

.127519 






1172 



25,3727 

05767 

1 

DEC 

.186963 





. _ 

1173 



25,3730 

07476 

c 

DEC 

.238148 





- 

117A 



25,3731 

11324 

1 

DEC 

.294 1851 85 







1175 

1176 


- - - 

25.3732 

25.3733 

76272 

75472 

1 

1 

DEC 

DEC 

-.051C99 

-.C7A534 

-AREF/805 






U77 



25,3734 

746C4 

C 

DEC 

-.1C 1242 







1178 



25,3735 

742 1C 

1 

OEC 

-.116646 







1179 



25,3736 

7 4 0 5 2 

C 

DEC 

-.122380 







1180 



25,3737 

73735 

1 

OEC 

-.12 7081 







1161 



25,3740 

732 17 

1 

OEC 

-.147453 





. 

. 

1182 



25,3741 

73013 

1 

DEC 

- .155528 







1183 



25,3742 

73155 

1 

DEC 

- .1 49565 









1164 



25,3743 

74151 

1 

DEC 

-.11 e5C9 






- 

1185 



25,3744 

767C3 

1 

OEC 

-.034907 





. .. 


1186 



25,3745 

7 7515“ 


DEC 

- .OC745C 






_ 

1187 



25,3746 

77575 

C “ 

OEC 

- .to 7950 



. 


— 

— 


CAPJ AS S£>BL£ PEVJ^ILK 23? LF AGC PRQGlii<M 
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u n ALG> 2 <>«iqfe PANOOPA .C TZ P/> C E 829 


L 

REt^TfY CCbTRCt 

LSek’S PAGE UC. 35 

E7 S3 

piiee 





lies 

25t379? 

C0112 0 

OEC 

.009991 

ORANGE/D L/C SCALED Y/2700 


u^o 

25,3750 

00209 I 

OEC 

.008061 



1151 

2543751 

00907 1 

DEC 

.OU C3C 



1192 

25,3152 

Cl 113 C 

OEC 

.035615 



1193 

25,3753 

C2161 C 

OEC 

.069922 



119^ 

25,3159 

C326C C 

etc 

. 109519 



1195 

25,3755 

C3717 C 

DEC 

.122 



1196 

25,3756 

C5911 C 

DEC 

.172907 



1197 

25,3757 

10057 1 

OEC 

.252652 



1198 

25,3760 

13976 C 

DEC 

.363 19f 



1199 

25,3761 

20329 C 

DEC 

.512963 



1200 

25, 3762 

21677 1 

OEC 

.558519 



12C1 

25,3763 

21677 1 

OEC 

.558519 

END CE STORED REFERENCE 



QAPi 


237 CF AGC PRQGPAH COLOSSUS BY NASA 2Q2I1U-C3 1 


l;n AUG, 2Ail968 PANCOPA .072 PAGE 8 


PEEMF\ CCMPCL 


P12CJ2 PEEMF^ CCMIAMIjl 


fiiZJQJ Cii.l ^EC EY fcC U^ LS 


120^ 
Alio 5 


REf 


12053 

12053 

1206 

12^CJ 

1208 


Rtf. 


1210 
A 1211 


REF 


1212 

1213_ 


1213 

P1214 


1 


^121 


CEC15 


GAMPALl 


26,31^ 


2 LIST 802 26.2.CM 


26«31AA 


1209 REF 2 LAST £02 TO 8Qli_ 




AH 


3 LAST 812 27*3333 


SARELYl 
IBl TCP 


26,3HA 

26t31A5 


C2525 1 
12525 C 


1/3RC 


26,31A6 12525 C 


LGUA 


220 


25.3 76A 1 6631 1 MAXPNG 20CT 

5.3765 C6755 C 


16631 06755 


BANK 


26 


SETLCC PEEMPVl 


SANK 


CCUNTA »*/ENTRV 


NEARCNE 


OSER'S PAGE NO. 36 


£7 S3 


CNPNGERfi « 9999.9 IF GCNEPAST*! 


CCHPCN TO BOTH Cl SKtDANCE.DEFNO IN TFF 


CCNNCN TO BOTH DISK AND CANCE. DEFNO IN VECPCINT, 


1/12TH DEC 


20EC 


•0&3333 

.3333333333 


OP 1/12 OSES hi WORD IN 1/3 BELOW 
DP 1/3 


Ikl215 EELCw: Vi « VSAT « 25 766 . 1973 FT/SEC 


R12L4 PE ° 21«2C2t9CC F^ET 


1217 

UJJ 

1218 
1216 
1219 

1219 

1220 
1220 
1221 
1221 
1222 
1223 
1223 
1^229 
122A 
1225 

1225 

1226 


26.31A7 

26.3150 

26*3151 

26,315 2 

26,3153 

26.3159 

26.3155 

26.3156 

26.3157 

26.3160 

REF 22 LAST 76C 26,3231 

26.3161 

26.3162 

26.3163 
26,3169 
26,3165 

26,3166 

REF 2 LAST 76C 27,3327 


CA631 1 LEWCl 20tC . 15 

23196 C 

03196 1 POINTl 20EC 

H632 C 

06 319 I PCI NT 2 2DEC .2 

21963 1 __ 

76319 C CLEWOd 206C - .05 

1T^2 1 

05075 d GMAX/2 2a£^ TU 

T6051 1 

3ZeRCS EQUALS H162ERCS 

07777 1 NEAPIM lOTT 0777 7 COQOO 

C CO CO 1 

00236 C Cie 2DTC .0097026396 

36763“£ 

C0209 1 Q7FkOPIN 2DEC .Coeo795392“ 

11303 I 

Cl/16 * DP2I-9) 


1227 26,3167 C52600 Q3 2DE C .167003132 

r2T7 26,3170 05572 I _ 

1228 26,3171 12393 C Q5 20EC .32tTE8e89 

1228 26,3172 2l6 16 C 


^ 

nrrT~i 


1/9 less 1 BIT T7< UPPER PART7 


500/ 2VS 

6.5/8C5 (Q7F ♦KDPIM = 6 ♦ .5) 


737 2VS/2UOO 
.3 23500/216C0 


GAP l aF \< l«;irN CF PWrr.RflH CCLCSSLS. b y NASA PG211I1-C31 l:n 4UG. 2^.H(e PANDQP* .072 PACt 631 

L REEMFV CLMPOL LSER'S PAGE NO, 37 E7 S3 


IZZS 





26,3113 

C1073 

1 

Q6 

2DEC 

.0349 

2 CEG, APPRCX 820/2350C 


1229 





26,3174 

31515 

1 






1220. 





26t3l7j 

_CC_172 


0 7F 

2&EC 

.0074534161 

6/809 (VALUE CF C7 IN FIXED NEfl.) 


1230 





26,3176 

03571 

I 






1231 

REF 

t 

LAST 

813 

26,3327 



019 

a 

HALVE 

019 • ,5 


1232 





26, 3177 

0C573 

c 

021 

20EC 

.023 1461481 

500/2 1600 


1232 





26,3200 

1023U 

1 






1233 





26,3201 

16226 

c 

022 

2UEC 

-.053333333 

-1152/21600 


1233 





26,3202 

45761 

c 






123^ 





26 ,3203 

1J132 

c 

VLH IN 

20EC 

.34929465 

i6C0C/2 VS 


123^ 





26,3204 

33C62 

c 






1235 

REF 


LAST 

799 

26,3321 



VPIh 

3 

FOUR TH 

(VSy2) / 2 VS 


1236 





26,3205 

C0160 

c 

C12 

20EC 

.00664572901 

32 28500/ (212C2S00 2 Pll 


1236 





26,3206 

C51C4 

1 






1237 





26,3207 

1132 2 

1 

l/KEl 

2DEC 

.294 11765 

1 / 3.4 


1237 





26,3210 

32265 

1 






1236 





26,3211 

7504? 

c 

-l/KBi 

20EC 

-.0057074322 

P4 - -l/( .0034 2 VS) EXP +4 


1236 





26,3212 

72454 

1 






1239 





26,3213 

C0475 

1 

VOL n 

2CEC 

.019405269 

ICOC /2VS 


1239 





26,3214 

35746 

1 






12<i0 





26,3215 

06751 

1 

€20 

20EC 

.21739130 

(175 FPSS) LIFT LP IF ABCVE C20 


12^0 





26,3216 

275 15 

c 






12^09 





26,3217 

C5441 

c 

C21 

20EC 

. 173913C4 

140/6C5 


12A05 





26, 3220 

14412 

c 






12^1 





26,3221 

CC022 

1 

25N4 

20EC 

.001 157407^ 

25/21600 (25 NAUT HILES) 


1241 





26, 3222 

36641 

1 






1242 





26,3223 

C1CC3 

c 

KIO 

20EC 

.0314453125 

»C16 805/256 * .01 805/256 


1242 





26, 3224 

06315 

c 






1243 





26,3225 

71435 

c 

K20 

2DEC 

-.201296416 

-Ci7 2VS/256 - -.001 2VS/256 


1243 





26,3226 

75516 

1 






1244 





26, 3227 

32047 

c 

kvscale 

2DEC 

. 01491944 

12800/(2 VS .3048) 


1244 





26,3230 

24367 

c 






1245 





26, 3231 

372CC 

1 

KASCACE 

2DEC 

,97657356 

s.es 16384/(4 .3C4e ICO 805) 


1245 





26,3232 

05636 

1 






1246 





26,3233 

CGC46 

c 

KTETA 

2DEC* 

.363495203 t2 

e-l44 1000 2PI/16384 (163.84) 


1246 





26,3234 

13137 

c 






1247 





26,3235 

C0017 

1 

KTi 

2 oec* 

.157766327 E 

2 fi-14* RE(2Pll/2 VS(16384) 163.84 


1247 





26,3236 

30730 

0 






1246 





26,3237 

C0C40 

c 

.050 

20 EC 

.C02 



1246 





26,3240 

30447 

c 






1249 





26,3241 

cccco 

1 

LATE IAS 

20EC 

.C00C3 

APPPX .5 NP/ 4(21600/2 PI) 


1249 





26,3242 

17565 

1 






1250 





26,3243 

C1727 

1 

K WE 

20EC 

.120C96652 e- 

1 


1250 





26,3244 

2C1C3 

1 






1251 





26,3245 

CC121 

c 

KACCS 

20EC 

.004973592 

“l73T(2PIT 


1251 





26,3246 

17460 

c 






1252 





26,3247 

c loco 

c 

CHOCK 

2DEC 

1 B-5 

,25/8 


1252 





26,3250 

Ocooo 

1 






1253 





2cj,3251 

C40C0 

c 

I/BTH 

2oec 

.125 



1253 





26,3252 

COOOQ 

1 
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125A 





26,3253 

121 72 

C 

CHI 

2 DEC 

.3? 

8 CHl/25 ■ e 

(1) /25 

125A 





26, 3254 

34122 

1 






1253 





26,3255 

17152 

1 

KC3 

2 oec 

-.0247622232 

-(4 VS VS/ 2 

PI 005 REI 

1255 





26,3256 

51354 

1 






I25fc 





26,3257 

00336 

1 

VRCCNT 

20EC 

.0135636866 

7C0/2 VSAT 


1256 





26,3260 

21610 _C_ 






1257 

REf 

K 

t4ST 

766 

26,3327 



HALVE 

ECUALS 

HiDPHALf 



1258 

REF 

2 

L4ST 

767 

26,3321 



FOURTH 

EQUAL S 

HlOP 1/4 


- 

1259 

REF 

7 

L /S S 1 

83 1 

26,3327 



1/GR AJi 

EQUALS 

HALVE 

4/GNAX * 4 / 

6 

1260 





26,3261 

0C433 

C 

2HS 

2DEC 

.0172786611 

2 28500 25 32. 2/(4 VS VS» 

1260 





26,3262 

C2 775 

c 






1261 





26,3263 

CCOCO 

1 

2HSGR)(SQ 

20EC 

.C00C3O5717 

(2 28500 e 32 

.2/ 4 VS VSISO 

1261 





26, 3264 

2CC17 

c 






1262 





26,3265 

77765 

c 

cool 

20EC 

-.OOC625 

-(4/251/256 

LEQ/00 const 

1262 





26,3266 

70243 

c 






1263 





26,3267 

31463 

1 

PCI NTS 

2CEC 

.8 



1263 





26,3270 

C63 15 

0 






126<» 





26,3271 

00541 

1 

2CIHS 

20EC 

.0215983264 

2 1.25 28500 

809/(2 VS ISC 

1264 





26,3272 

33575 

c 






1265 





26,3273 

C0146 

1 

PTI/16 

2DEC 

.1 b-4 



1265 





26,3274 

146 32 

0 






1266 





26,3275 

CQC52 

c 

1/K44 

206C 

. 0C26C929464 

2 VS/1974935G 


1266 





26,3276 

30C13 

c 






1267 





26,3277 

20411 

1 

VF INAL 

20EC 

.51616016 

266CC/2 VS 


1267 





26,3300 

0304 1 

1 






1268 





26,3301 

2061C 

1 

VFINALl 

20EC 

.523942273 

» 27000 / 2 VS 

1268 





26,3302 

10513 

1 






126S 





26,3303 

11473 

1 

l/KAl 

2DEC 

.30048077 

25/ (1.3 641 


1269 





26,3304 

02355 

c 






1270 





26,3305 

C02C3 

c 

KA2 

2DEC 

. OCb 

.2 / 25 


1270 





26,3306 

02234 

c 






1271 





26,3307 

16237 

c 

KA3 

2DtC 

.44720497 

• 90 4/605 


1271 





26,3310 

00146 

i 






1272 





26,3311 

C14S6 

1 

KA4 

20EC 

. 049669441 

40/605 


1272 





26,3312 

C3450 

c 






1273 

REF 

2 

LiST 

804 

26,3311 



fl7H IN 


K 34 

» 40/805 • •0^9609441 

1274 





26,3313 

56232 

1 

-HSCALED 

20EC 

-.55305018 

-28500/2 VS 


1274 





26,3314 

72332 

c 






1275 





26,3315 

170CC 

1 

-KSCALE 

20EC 

-.0 3 1242^83"! 

-e05/vs 


1275 





26,3316 

43741 

1 






12 76 





26,3317 

36702 

1 

CUS15 

20EC 

. 965 



1276 





26, 3320 

21727 

c 






1277 

REF 

2 

L^Sl 

8 1 3 

26,3144 



LAT3LCPE 

EQUAL S 

1/12TH 
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PQOOi 


Mill 35.3785 BANK 35 








0011 

REF 

1 


37,2000 

SETLOC oODYATT 

0012 




17. 33 7 5 

BANK 


C013 REF 


COUNT 37/CHBAT 


AOOIA POL 120 - 15C SAFE , 

J* a.Q. 15 VALLES OP GIRBAL AN^~BOCY ANGLES VALIC AT PIP TlHE ARE SAVEC DURING REACACCS. 

0017 REF Ic lTTt 79S E 7, IASI EBANK* PTINIT “XeT INTERPRETER SET EB 


OQie 


REF Z}1 LAST 82E 37. 3375 0 6CC6 I CN/PCSE TC 


INTPRET 


5iJI5L 

0020 

0021 

0022 

0023 

Q02A 

0025 

002t 


0027 

0026 


REF 

REF 


REF 


0029 REF 


37.3376 77201 1 


SETPD VLOAC 


1 

K 


1 


37,3377 CCOCl C 


REF 16 LAST 799 37,3^00 01177 I 

^ 37,3A0l 63361 0 


VN 


VX sc 


POVL 


37,3^02 3767A C 


KVSCALE 


LAST 796 37,3AC3 


_0171A 1 
37,3A0A 7A235 C 


VXV 


UNIT ht 
VXSC 


REF 1C LAST 80C 3 7,3A05 

37,3AC6 


37,3A07 


C1760 1 
1524A 1 
A5455 1 


VAO 


UNI TP 
K Wb 
STAOR 


3 LAST 79«; 37,3910 79251 1 


STORE 


VRE L 


CCHE HERE VIA AVEGEXIT. 


KVSCALE » (12800/ .30981 /2VS 


KVSCALE => .81991999 
FULL UMT VECTOR 
VHEL » V - RE*R 


SAVE FOR ENTRV GUICANCE. REF COORDS 


0030 37,3911 72056 1 UN I T L X A , 1 

0031 37,3912 C0099 1 360 ABVAL I -VREL) TC XI 

0032 REF 6 LAST 801 37,3913 03592 1 STORE UXA/2 -UVPEL REF COORCS 


0033 





37,3919 

57935 

1 


VXV 

VCOMF 



0039 

REF 

11 

LAST 

833 

37,3915 

C1760 

1 



UNI TR 

.5 UMT 

REF COCRCS 

0035 





37,3916 

662 5 6 

C 


UNI T 

SSP 

THE FCLLOMlNG IS TC PROVIDE A STABLE 

0036 

REF 

32 

LAST 

738 

37,3917 

COO 5 1 

0 



SI 

UN FCR THE ENC OF THE 

TERMNAL PHATFT 

0037 





37, 3920 

C0976 

1 

SPVQLIT 

DEC 

.019905 

1000/ 2 VS 


0038 





37,3921 

77300 

1 


TlX.l 

VLOAC 

IF V-VCUIT P05, BRANCH 

■ 

0039 

REF 

1 



37,3922 

77929 

c 



CN/PCSE2 

SAVE UYA IN OLOUYA 


0090 

REF 

2 

LAST 

115 

37,3923 

03539 

c 



Olduya 

CtHERKISE CCNTINUE TO 

USE CLDUVA, 

0091 

REF 


LAST 

76S 

37, 3929 

C3550 

1 

CK/RGSfc2 

STORE 

UYA/2 


REF COORDS 


0092 

REF 

3 

LAST 

833 

37,3925 

C3539 

C 

STCRE 

OLOUYA 

RESTORE, CR SAVE 

AS CASE pay be. 











0093 





37, 3926 

57935 

1 

VXV 

VCORF 



0099 

REF 

7 

LAST 

83 3 

37,3927 

03592 

I 


UXA/ 2 

FINISH OBTAINING 

TRAJECTORY TRIAD. 

0095 





37,3930 

77772 

C 

VSLl 




0096 

REF 

3 

LAST 

76 9 

37,3931 

03556 

1 

StORE 

UZA/2 


?rFr"cai3fics 


GAP: 


00A7 

0046 

flG4S_ 

0050 

QQ51 

CC52 

0053 

0054 
A0055 

0056 
005 7_ 
0058 

0055 
00fcC_ 
0061 
0062 

0063 

0064 
OOtS 
0066 
0067 
0066 
UQ65 

0070 

0071 

0072 

0073 

0074 

0075 


/)Q063 

0064 


AQ088 


COLCSSOS fiV NASA 2021111 


Cl“ ECO ATllTOCE 


REF 


REF 

REF 


REF 


REF 


R E F 
REF 


REF 


REF 


last 77S 


7 LAST 445 
2 LAST 115 


3 LAST 834 


REF e LAST 834 


4 LAST 834 


2 LAST 115 

3 LAST 834 


5 LAST 834 


4 LAST 834 


0076 

0077 

0078 

REF 

5 

LAST 

034 

0079 

0u8G 

REF 

5 

LAST 

634 

0081 

REF 

6 

LAST 

834 

0082 

REF 

7 

LAST 

834 


37.3432 

37.3433 

37.3434 


77751 1 
C3270 1 
1403 1 C 


37,3433 C0Q32 C 

37.3436 4 14 3.4 -.1 


37,3437 

37.3440 

37.3441 


37.3442 

37.3443 


37.3444 

37. 3445 

37.3446 


37,3447 

37.3450 

37.3451 


27.3452 

37.3453 

37.3454 


37.3455 

37.3456 
37,345? 


37.3460 

37.3461 

37.3462 


37.3463 

37.3464 

37.3465 


37,3466 
37, 346? 
37,3470 


37.3471 

37.3472 

37.3473 


0085 

REF 

6 

LAST 

034 

37,3476 

0086 

REF 

6 

LAST 

834 

37,3477 

0067 

REF 

S 

LAST 

B34 

37,3500 


45510 I 
77746 1 
17564 C 


57556 C 
17570 0 


00033 1 
41434 I 
4551C 1 


65356 1 
65346 C 
OOOGl C 


74276 1 
03564 C 

77772 C 

17572 1 
00003 1 
17574 1 


00031 C 
41434 1 
4551C 1 


65356 1 
74346 C 
C3572 1 


17572 1 
C0005 1 
57405 1 


C3570 C 
77615 C 
C3572 1 


37.3474 17572 I 

37.3475 43205 1 


C3564 L 
C357fc C 
27576 C 


TLCAO 


ACG/PIP 


X R/THIC STOOL 2 4 0 


0089 

REF 

1C 

LAST 

034 

37,3501 

03572 

1 

0090 





37, 35C2 

72505 

1 

0091 

REF 

33 

LAST 

787 

37,35C3 

01736 

1 

0092 

REF 

1 1 

LAST 

834 

37,3504 

17572 

1 


RTi3 


SIN 

STOOL 


KTB 


SIN 

COS 


STOOL 

STOOL 


RTB 


SIN 

COS 


OAC 


DHP 


5T0VL 


250 


POSH 


COULCCIC 

COS 

STOOL U6X/2 


DCCRP 
UBX/2 44 
260 
PUSH 

CDULCGIC 


POOL 

POOL 

0 


DCCMP VXSC 

UBX/2 

VSLl 


uev/ 2 

2 

UBY/2 +2 


2 40 
PUSH 

CDULCGIC 


POOL 

VXSC 

UBY/2 


STCCL UBY/2 
40 

OMP OCCMP 


UbX/2 •»'4 
UbY/2 


STOOL UBV/2 


DAO 

UB> / 2 
UBY/2 +4 
UBY/2 +4 


Itn AOC. 24,1968 PANDORA .072 PAGE B34 


USER'S PAGE NO. 


£7 53 


PICK UP CDUX, CCUY, CDUZ CORRESPONDING 
TO PIPUP TIRE IN 2S»C AND SAVE. 


AIG/PIP 
TO PCLO 


Cl /2 


AIG/PIP FRQR PCI 0 
-SI /2 


ARG/P IP 
TC PCL 0 


XCH POL 0. SAVE SN /2 
CR /2 TO POL 2 
SR /2 


NC I SE kOnT CVFL. 

-I-SRCI, NCISE, SRSTTTT" 
CR /2 REPLACES NOISE 
UBY/2- t-SRCl, CR, SHSn/2 


AOG/PIP 
TC PCL 4 


XCH PCL 4. SAVE SO /i 
CO /2 


UBV/2- (-CCSRCI , CCCH, COSRSn/4 
SC /2 


-SI /2 

INCRERENT BY tSOSI /M > 


SO /2 PROR POL 4 


Cl /2 

VB/4 


PLATFCSR COORDS 


YB 


(-COSMCt ♦ SCSI , COCR , COSMSI SOC I ) 


VXR 


UBY/ 2 
VSL2 

REF SRRAT 


STOOL UBY/2 


,5 UNIT 

ve /2 oOnE 
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It 

A00S3 

C09A 

0095 

REF 

7 








CH /2 FROM POL 2 


1! 

L/ST 

634 

37, 3505 
37.35C6 

76561 

03569 

1 

C 

vxsc 

VSL 1 

UBX/2 



0096 

0097 

0098 

REF 

e 

LAST 

83 : 

37,35C7 

17 569 

c 

STCOL 

uex/2 

=*( CRCI, ROISE, -CRSn/2 


n 





37, 3 510 

77626 

c 

STADK 


SR /2 FROM POL C 



REF 

9 

L^ST 

835 

37.3511 

50211 

c 

STOVL 

UBX/2 +2 

SR /2 REPLACES NOISE 




0099 

REF 

1C 

LAST 

83* 

37,3512 

C3569 

c 


U8X/2 

XB/2 PLATFORM COORDS 

















AOIQO 









XB 

* ( CRCI , SR f -CFSI ) 


















0101 





27,3513 

765C5 

c 

VXR 

VSLl 





.0102, 

REF 

39 

LAST 

839 

37,3519 

01736 

1 


REESRKAT 

.5 UNIT 




0103 

REF 

1 1 

LAST 

83 5 

37,3515 

C3569 

c 

STORE 

UbX/2 

xe/2 CONE 

REF COORDS 

- 


GL04 





37,35X6 

76935 

1 

VXV 

VSLl 





C1C5 

REF 

12 

LAST 

839 

37,3517 

03572 

1 


UBV/2 





0106 

REF 

2 

LAST 

115 

37,3520 

276C0 

1 

STOVL 

UB2/2 

Ze/2 CONE 

REF COORDS 

















A0107 









ECUIVAIENT TO 




AC106 









2B 

* ( SQSMCl 4 CCSI , -SCCM , - 

sosRS I + cocn 


fl 













■ 

¥ 

0109 

REF 

8 

LAST 

833 

37,3521 

C3592 

1 


UXA/2 

‘UVREL/2 •> -UVA/2 




0110 





37,3522 

53935 

c 

VXV 

UNIT 

GET UMTt-UVREL*UBYI/2 

• UL/2 



0111 

REF 

13 

LAST 

835 

37,3523 

C35 72 

1 


UEiY/2 

YB/2 




0112 





37,3529 

5C2Q6 

c 

PUSH 

DOT 

UL/2 TO POL 0,5“ 




0113 

REF 

9 

LAST 

833 

37,3525 

C3556 

1 


UZA/2 

UNA/2 




011<i 

REF 

3 

LAST 

59 2 

37,3526 

2902 1 

1 

STOVL 

CCSTF 

CCSiaCLL > /9 




0115 





37,3527 

CCOQl 

0 


0 

UL/2 


















Jill 6 





37.3530 

77691 

1 

OCT 






0117 

REF 

9 

LAST 

833 

27,3531 

C355C 

1 


uyA/2 





0118 

REF 

2 

LAST 

592 

37,3522 

39023 

1 

STC4LL 

SINTH 

-SIN(ROLL )/9 




0119 

REF 

3 

LAST 

592 

37,3533 

97211 

c 


ARC TRIG 





0120 





27,3539 

290C7 

c 

STOVL 

60 

-(ROLL/1801 /2 




0121 

REF 

19 

LAST 

835 

37,3535 

C3572 

1 


ueY/2 




1 

0122 





37,3536 

72991 

c 

COT 

SLl 

-LVA.LBY « -SINOETAI 


n 

■ 

0123 

REF 

9 

LAST 

835 

37,3537 

C3592 

1 


UXA/ 2 

-UVREL/2 


H 


0129 





37,3590 

77736 

c 

ARCS IF 






0125 





37,3591 

29010 

c 

STOVL 

70 

-(BETA/iaQI /2 




0126 

REF 

12 

LAST 

835 

37,3592 

C3569 

c 


uex/2 

XB/2 




0127 





37,3593 

77691 

1 

OOT 


UL.UBX « -SlNtALFA) 




0128 





37,3599 

COOOl 

0 


0 

UL/2 




0129 

REF 

9 

LAST 

835 

37,3595 

29023 

c 

STOVL 

SiNTi- 

-S INI ALFA 1/9 




0130 





37,3596 

77691 

1 

OdT 


UL/2 FROM PCI 0 




0131 

REF 

3 

LAST 

835 

37,3597 

C360C 

1 


U8Z/2 





0132 

REF 

9 

LAST 

835 

37,3550 

390 21 

c 

STCALL 

CCSTH 

CGS( ALFAI/9 




0133 

REF 

9 

LAST 

835 

37,3551 

97211 

c 


ARCTP 1C 





0139 





37, 3552 

29011 

i 

STGVL 

5D 

“*CALFi/18Cil / 2 




0135 

REF 

12 

LAST 

833 

37,3553 

01760 

1 


liM TB 


fiPF CaORCS 



0136 





37,3559 

72991 

c 

DOT 

SLl 














































f - - 













1 

F' 













R 
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0137 R£f 5 L^ST 835 37,3515 

0138 37,3556 

^139 37t3557 


C3556 1 
77726 1 
COO 13 C 


UZA/2 

ARCCOS 
STORE lOD 


LSE«*S PAGE NC. ^ E7 S3 

HCRE ACCURATE AT LARGE ARC. 

( -GAHA/1801/2 


Ol^tO _ 

AClL<lI 

01^2 

R01A3 SPACER 


37.3560 77551 C TLCAO EXIT ANGLES IN PPAC IN THE CRDEfl 

* ^ beta, ALIA) /iaoi /2 

3 7 , 3'5 ^ 00007 ”C~ ' ^ 60 T HESE VALOES CCPRECT AT PIPOP TIME. 
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P EliJC SLEPCtlUE 1C GPCATE AITITUOE A^ClES ” 


i3lA5 REf 2t LAST 82t E0»16<;1 Eb . ANK« AQG 


CiA6 

C1^7 

REE 

REf 

1 

27 

LASl 

826 

37.3562 

37.3563 

3 4752 
54 0C3 

C 

<; 

CH/A lUP 

CA 

TS 

EbACC 

EBANX 


Ol^b 

REP 

11 

LAST 

734 

37,3564 

5C 120 

1 

CMTRl 

INDEX 

F IXLCC 







37,3565 

4 0012 

c 


CS 

loD 

(GAHA/180)/2 

0150 

REf 

2 

LAS! 

lOS 

37,3566 

51* 722 

1 


XCH 

GAFA 


0151 

PEP 

15 

LASl 

776 

37,3567 

54 OCl 

1 


TS 

L 



0152 37.3510 C OOOA C INHlNT 


A0153 

A0I54 

Ati55 












most remain inhintec ontil update of eOCY 

ANGLES, SC THAT GAMCIFSW IS VALID FIRST PASS 

INOICATOR. 


0156 

HEP 

E 

LASl 

824 

37,3571 

4 

Ci02 

C 


CS 

CK/FLAGS 



0157 

REP 

23 

LASl 

729 

37,3572 

7 

4700 

C 


mask 

bill 1 

GAF0IFSM-94C BITll IMTLY-O 


0156 





37,3573 

C 

0006 

1 


Ext end 


CONT CALC GAMA DOT UNTIL HAVE FORFO 


A0159 












ONE difference. 


0160 

REF 

1 



37,3514 

1 

3577 

C 


BZF 

GQGAFCCT 

IS OK, GO CN. 


0161 

REP 

9 

LASl 

83 1 

37,3515 

26 

1C2 

c 


ADS 

CF/F LAGS 

KNOW BIT IS 0 


0U2 

REF 

1 



31,3516 

0 

3612 

1 


TC 

NOGAFCCT 

SET GAMOOT • C 

- - 

0163 

REP 

It 

LASl 

031 

37,3517 

4 

OOCl 

1 

COGARCQT 

CS 

L 



0164 

REF 

2 

LAST 

631 

37,3600 

6 

1722 

1 


AO 

GAMA 

DEL GAMA/360« T GAMOOT/160 


0165 





31, 3tCl 

C 

0006 

1 


EXTEND 




0166 

REF 

1 



37,3602 

7 

3675 

1 


HP 

TCDU 

TCOO * .1 SEC, T * 2 SEC. 


0U7 

REF 

2 

LAST 

109 

31,3603 

55 

•723 

1 


TS 

GAFDCT 

GAMA OCT TCCU / ISO 


0166 





37,3604 

0 

0006 

1 


EX TtNC 


IGNORE GAFOCT IF LEO .5 DEG/SEC 


0169 





31,3605 

t) 

3607 

c 


aZRF 

<■2 



0170 





37,3606 

4 

0000 

c 


COM 




0171 

REP 

19 

LASl 

62 1 

2 7 1 3 1 C 7 

6 

4715 

0 


AO 

h IV t 



0172 





31,3610 

C 

C0C6 

1 


EXTEND 




0173 





37,3611 

6 

3614 

1 


BZMf 

+ 3 

SET GAMC0T-+0 AS TAG IF TOO SFALL. 


0174 

REF 

152 

LAST 

705 

37,3612 

3 

4 7 1 A 

1 

NOGAHCCT 

CA 

ZERO 

COME HERE INHINTED. 


0175 

REF 

'a 

LAST 

03 1 

37,3613 

55 

•723 

1 


TS 

GAMCCT 



A0176 












FCR NCR LEAVE IITTSTC 


AQ177 












UPDATE ANGLES BY CORRECTING EUILER ANG 


A0178 












FCR accrued INCREMENT SINCE PIPUP 


A0179 












^ = R EUIL ♦ TTIIMTST -RfRIl^PT 


016L 

REF 

2E4 

LAST 

822 

37,3614 

4 

0154 

c 


CS 

HPAC 

GET (P EUL/ieC) /2 


0161 





37,3615 

6 

0000 

1 


OLtuBLE 


POSSIBLE CVERFLCw 


0182 

REF 

1 



3 7 f 3 6 1 6 

0 

366 5 

1 


TC 

COR Axcrv 

CCRRECT FCR OYTL IF Any 


0183 





37,3617 

Q 

0006 

i 


EXTEND 




0184 

REF 

1 

LAST 

775 

37,3620 

61 

•672 

c 


SD 

ROL L /PIP 

GET IKCR SINCE PIPUP 


0185 

REf 

3 

LAST 

775 

37, 3621 

6 

1664 

1 


AO 

POLL/180 

only single CVFL ■PCS^SIFUE". 


0166 

REF 


LAST 

83 7 

37,3622 

0 

3665 

1 


TC 

cdpangcv 

CCRRECT FOR OVFL IF ANY 



I 
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0U7 

Rtf 

2 

LAST 

113 

27,3623 

55*770 

1 


TS 

Tf HP PCLL 

- ----- - — - 

Q ifiG 

Aif 

2AL 

LAST 

637 

37.3624 

4 0 156 

1 


cs 

HPAC +2 

GET (ALFA EUL/180) /? 

0L69 





37,3625 

6 0000 

1 


DOUBLE 


SAME AS FOR ROLL. NEEDED FOR EXT ATM DAP 

01^0 

REf 

3 

LAST 

63 1 

37,3626 

0 3665 

1 


TC 

CCRANGCV 

CORRECT FOR OVFL IP ANY 

0191 





37. 3627 

C 0006 

1 


EXTEND 



0192 

BEf 

2 

LAST 

lOE 

37,3630 

61*673 

1 


su 

ALf A/PIP 


OlSj 

REf 

3 

LAST 

172 

37,3631 

6 1665 

c 


AO 

ALF A/ieO 


0194 

Rtf 

4 

LAST 

836 

37.3622 

0 3665 

1 


TC 

CORARGCV 

CCPRECT FCR OVFL IF ANY 

C195 

REf 

2 

LAST 

112 

27,3633 

55*771 

c 


TS 

TEMPALPA 


(1196 

REf 

at 

LAST 

636 

37.3634 

4 0155 

1 


CS 

HPAC 

GET (BETA EUL/ieOJ /2 

0197 





37,3635 

6 OCCC 

1 

CHTR2 

DOUBLE 



0L98 





37,3636 

C C 0 C6 

1 


EXTEND 



0199 

REf 

■3 

LAST 

775 

37.3637 

61*674 

c 


SU 

BETA/PIP 


0200 

REf 

1 

LAST 

7 75 

37,3640 

6 1666 

c 


AO 

BETA/ieO 


0201 

REf 

2 

LAST 

112 

37,3641 

57*772 

1 


XCH 

tempbeta 

OVFL NOT EXPECTED. 

0202 

REF 


LAST 

524 

37,3642 

3 4744 

1 


CA 

ebanks 


0203 

REf 

3fi 

LAST 

837 

37,3643 

54 CC3 

c 


TS 

EBANK 


0204 

REF 

1 



E3, 1446 




E6ANK> 

PHSN APES 


0205 





37,3644 

0 0006 

1 


EXTEND 



C2C6 

REf 

1 



27, 3645 

3 3677 

i 


OCA 

REPGSACP 

THIS ASSUPES THAT THE TC PHASCHNC 

0207 

REf 

2 

LAST 

638 

37,3646 

53*447 

c 


OXCH 

PHSNAHE5 

IS NOT CHANGED IN OCT 10025 

A02Ct) 











SERVICER. 

0209^ 

REf 

2 

LAST 

B3 7 

27,3647 

3 4752 

c 


CA 

EBAOG 


02 10 

REf 

29 

LAST 

831 

37,3650 

54 0C3 

c 


TS 

EBANK 


0211 

beT" 

27 

LAST 

83 7 

E6,166l 




EBANK« 

A 00 


0212 





37,3651 

C 0006 

1 

REOCPOSE 

EXTEND 


RE-STARTS CCHE HERE 

0213 

REf 


LAST 

836 

37,3652 

3 1771 

1 


OCA 

TEHHBCLL 


0214 

REf 

A 

LAST 

83 7 

37,3653 

53*665 

1 


OXCH 

ROLL /lac 


0215 

REf 

3 

LAST 

836 

37,3654 

3 1772 

1 


CA 

TtHPEETA 


0216 

REf 

A 

LAST 

636 

27,3655 

55*666 

1 


TS 

BETA/ISC 


0217 





37,3656 

0 0003 

1 


REL INT 



G216 

REf 

2 12 

LAST 

632 

37,3657 

C 6006 

1 


TC 

INTPPET 

CANT TC DANZIG AFTER PHASCMNG. 

0219 





37,3660 

51575 

1 

CP/P0SE3 

VLOAd 

ABVAL 

RETURN FRCP CP/ATUP. (RESTART) 

0220 

REf 

17 

LAST 

633 

37 f J 66 1 

01177 

1 



VN 

2(-7) H/CS 

0221 

BEf 

6 

LAST 

534 

37,3662 

03723 

1 


STORE 

VPAO I 

FCR DISPLAY ON CALL. 

0222 





37,3663 

77650 

1 


GOTO 



0223 

REf 

e 

LAST 

796 

37,3664 

03324 

1 



PDSEXIT 

ENDEAI), STARTENT, OR SCALEPOP. 

0224 

REf 

77 

LAST 

837 

37,3665 

54 OCl 

1 

OORANGGV 

TS 

L 


0225 

REf 

176 

LAST 

785 

37,3666 

0 0002 

c 


TC 

Q 


0226 

REF 

lEA 

LAST 

622 

37,3667 

50 OOO 

1 


INDEX 

A 
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0227 

REF 

1 



37r3e7C 

3 4673 

1 


CA 

Lif^ns 



0228 

REF 

76 

L4ST 

63 E 

37,3671 

26 001 

] 


ADS 

L 



0229 

REF m 

L4ST 

836 

37.3672 

C 0002 

C 


TC 

Q 

COSTS 2 MCI TC use. 

SEE AKGCVCGR. 

— — -! — - -A— . ■ - 













0230 





37,3673 

45730 

1 

-KVSCAt E 

20EC 

-.81441«44 

-12600/(2 .3048) 


0230 





37.367A 

53410 

1 






0231 





37,3675 

C3146 

1 

TCDU 

DEC 

.1 

TCDU » .1 SEC. 















0232 

REF 

26 

LJSl 

836 

E6. 1661 




EBANK- 

AOG 



0233 

REF 

1 



37,3676 

03651 

C 

REPCSAOR 

2CADP 

REDOPCSE 



0233 

REF 

1 



37,3677 

76066 

c 
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QOCl 31f3il5 BANK 31 

00C12 BEf 1 36f2CCC SE7L0C PTEl 

OQCi^i 36t2302 bank 


0002 PEE 3 LAST 273 E7|I631 E6ANK* RTEDVC 

gOOJ _ 311 1 COUNT 3I/P37 




PC050 PPCGflAK CESCPIFTIC^ - P37, PETIPN TC EAPTh 


R0051 

R0052 

HQQ5^ 

CESCR IFTICN 

A REILRK TC EARTH TPAJECTCKV IS CCREUTEC PRCVICED THE CSM IS OUTSIDE THE LUNAR SPHERE 
TIRE CF IGMTICN. IMTIALLY A CCNIC TRAJECTCRY IS UETERMINEU AND RESULTING IGNITION AND 

OF INFLUENCE AT THE 

REENTRY PARAMETERS ARE 


POOfie 

Roose 

Rooec 

CISPLAYEC TO THE ASTBCNAUT. THEN IF THE ASTBOhAUT SO 
RESULTING IGMTIOR ANC REENTRY PARAMETERS DISPLAYED. 
CCFPLIES AND STORES THE TARGET PARAMETERS FCR RETURN 

DESIRES, A PRECISION TRAJECTORY IS OETERMINEC WITH THE 

UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM 

TC EARTH FOR USE BYSPS PROGRAM IPACI OR RCS PROGRAM (PAlI. 


pccec 

R0Q8X 

CALLING SECUENCE 

L TC P37 




ROIOCi 

RQIOI 

SLEFCLTINES CALLEC 

FPEClOO 




flCl02 

H0103 

POICA 

V<T1CC 

P 1ENCK2 

PTENCK3 

- - 



HUlCb 

P01C6 

P 0 1 0 7 

T IREPAC 

P APAR 
\iT ICC 




HO 106 

HU 1C9 
KOllO 

CAMC VIC 

AT IL IP 

CVCALC 

_ . - 


- 

HClll 

R0112 

RC113 

P TENCH 1 

intstall 

IhTEGP VS 

- - - — 

- 


ROllA 

PC115 

RQIU 

P TEVN 

RT EC ISP 

TNNACICC 

— -* - -- 

- - 

- - — - 

RC117 

pciie 

H0119 

ALCEKUGL 

LAT-LCNG 

1MRIC1CC 

- - - - • - - 

- 

- - - — — - 

H0120 

BC12i 

R0122 

T IKPAC 

IN VC 100 

C5RPPEC 

— , - . ... — 

... - 

— — - 

H0123 

RCI1233 

RQI2^ 

G E T E P A C 

T IHETHET 

F37CALRR 

_ . _ _ . 


- _ . _ 

R0i2S 

VN HAS 




R0126 

P(LV 

_ . _ . _ _ . _ ... _ _ — — ^ — 

^ ^ ^ ^ - - 




RQISO EPASAELE IMTIALUATICN PECUIREC 
R0151 CSP STATE VECTCF 


gap; HEVISICN 237 CF JGC PRCGPAM CCLCSSUS bY NASA ^C21lll-C31 lUl AGG. 2^fl9t9 PANDCPa ,C72 P*CE e<t 1 

L P37 fPlC ~ ° ^ USER'S PAGE NO, 2 E7 S3 

To 1 52 mTTsTlC MHfcER OF JETS IP TP£ PCS PPCPQLSION SYSTEW SEL ECTED STATE FLAG C^A JETS l»2 JETS 

MJJlQ A SM cm 1 IhPLl 

RuUl 5PP1E 1 IG T IPE CF IGMT 1C^ (CVEFL/YS TIG) ^ OP 620 CS 

RUlfcJ \PRtC _ 0 ES [R ED CHANGE IN VELCCITY AT TIGIPROGR P CCPPLTE O IF C) DP B7 HETERS/CS 

FJ16S CAPPAE ! QESIREQ FLIGHT PATH A^GLe AT REENTRY (CCMPUTEC IF 0 ) DP 60 REVS ♦ ABOVE HORIZ, 

R0U7 CF^1C^2 PHCPUISICA SySTEP CP7IC^ SP BlA 1-SPS* 2’RCS 


I 


^__aLLEkl 


RO101 CCMC CP PRECIS ICN TRAJECTCRY DISPLAY 


m.jI 82 
k:i8a 

VFPEC 

VELCCITY PAGMTUOE AT AOC»UOO FT. ENTRY ALTITUDE 

OP 

B7 

826 

HETERS/CS 



13 ICTA 

TPAASIT TIME TC ACOiOCC FT. ENTRY ALTITUDE 

OP 

CS 


t C 1 66 

G/PPAE 1 

FLIGHT PATH ANCLE AT AGO, 000 FT. ENTRY ALTITLOE 

DP 

ec 

REVS 

♦ ABOVE HORIZON 



KCiee 

CELVLVC 

initial VELCCITY CHANGE VECIGR IN LOCAL VERTICAL 

CUCRD. VEC7CR 

B7 

HETERS/CS 



KUl^Q . . 

LMISPU 

LATITLDE CF THE LANCING SITE 

OP 

BC 

REVS 




R01R2 

LFG ( SFl ) 

LCNGITUOE CF THE LANCING SITE 

OP 

dO 

REVS 




RQ 19A 

T/RCETIRC 

CCMPU1ATI0N DISPLAY 







R0195 

T i C_ 

RECCMPUIEC TIG BASED CN THRLST OPTION 

OP 

B2a 

CS 




RU197 

TTCGC 

T INE FROM TIG 

DP 

628 

CS 




P 0199 

♦ PGA 

PCSITIVE FiOCLE GINeAL ANGLE 

OP 

8 0 

REVS 

-.02 IF REFSMFLG»0 



P0201 

TFRISI PROGRAM CCiPMDMC AT ICA 







R02C2 

XCEL VFLC 

EXTERNAL CELIA V FLAG 

STATE 

FLAG 

SET 0 

FOR LAMBERT AIHPT 



RQ 20 A 

NC FP SVi 

LAFBERT A IFPT RCTATICN SWITCH 

STATE 

FLAG 

SET 0 

FOR NO ROTATION 



RQ20fc 

ECSTEEP 

CRCSS FRGCUCT STEERING CONSTANT 

SP 

82 

SET 1 




K020a 

P 1 APG 

CCNICALLY INTEGRATED REENTRY PCSITICN VECTOR 

VECTOR 

629 

METERS 




PQ2I0 

TF AS SA 

REENTRY TIME 

DP 

B2€ 

CS 





G2A3 

REF 

68 

LAST 

812 

36.2502 

C 5301 

C 

P37 

TC 

HHA SCHNG 

P37 IS NOT RESTARTABLE. 


02aa 





36,2503 

OOOC4 

C 


OCT 

A 
















u2A5 

PEf 

Awl 

111 

LAST 

636 

36,25CA 

C 60C6 

1 


TC 

INTPFET 



02A6 





36,2505 

66170 

J 


AXT, 1 

S X A f 1 



02A7 





36,2506 

CACCO 

C 


GOT 

OAOCC 



02A8 

REP 

5 

LAST 

63 7 

36,2507 

C3A2A 

c 



ECSTEER 



02A9 





36,2510 

77776 

1 


EX IT 




C25C 

REP 

1 



36,2511 

3 32A2 

c 


CAF 

V6N33RTE 

INPUT TIG STORED IN SRRTETIG 


0251 

REP 

I 



36,2512 

0 3231 

1 


TCR 

P370GCF 

CVERLAYEO WITH TIG 


0252 





36,2513 

1 2511 

1 


TCF 

-2 

oeSPLAY NEW CATA 


0253 

REF 

1 



36,251A 

3 32A6 

1 


CAF 

v/fcNc CPTE 

INPUT REEhTRY ANGLE IN GAMMAEI 


025A 

REF 

1 



36,2515 

0 3205 

c 


TCP 

Pi7C f Ft l 

AND DESIRED DELTA V IN BTEDVC 


0255 





36,2516 

1 251A 

1 


TCF 

* c 

DISPLAY NEW DATA 


C5(JQ 

REF 

2 ] A 

LAST 

8A1 

36,2517 

L 60C6 

I 

RTE299 

TC 

1 NTPREt 



C5C1 





36,2520 

71331 

c 


SSP 

DLOAL 



C5C2 

REF 

1 



36,2521 

CC122 

c 



rVF I NC 



05025 





36,2522 

CGOCQ 

1 



0 



C50'3 

REF 

7 

LAST 

76 1 

36,2523 

C3767 

1 



VPKEC 



C50A 

REF 

A 

LAST 

8AC 

36,252A 

I7e32 

c 


STOOL 

RTtL VC 



0505 

REF 

t 

LAST 

76 1 

36, 2525 

C3771 

c 



CAMMAEI 



C506 

REF 


LAST 

273 

36,2526 

n63A 

c 


STOOL 

HTEG AM2D 



0509 

REF 

1 



36,2527 

31671 

c 



IF TEC 13 
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USER'S PAGE NG 
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C51C 

osn 

Oil! _ 
05 13 
0 5 l<» 
051^5 
0515 
C5 16 

C517 
0518 
0518. 
C51S 

0515 
C52C 


0520 

C521 

0522 

0525 

0526 

0527 


0528 

0529 

0530 


0531 

C532 

0533 


05335 

J53A 

0 536 
0537 
'i 5 3_e„ 

0539 

05^0 

05^1 

C5<i2 

05^3 


1"% 


055^ 

0555 


BEF 

REF 

Rif 

REF 

JM 

BEF 


2 

1 


L/_LT 12^ 

UL5J UA 


38t2!3C 
3ef2531 
36 1 


17735 C 
33756 C 
37652 1 


STOOL CCNIOil 

CART E 

STCALL HAMAXl 


1 


16f 2 5 3_3 
36,253A 


6AA23 C 


INVCICO 


GET RtTl»/fV171)/,URl/fUH/ 


LAST 12A 36 »2 S 35 


775A5 C 
C364fc C 


OLOAO 


EXIT 

R(TU 


2 LAST 2 8j! 36> 2S36 


36,2537 

36,25^0 


0 7171 1 
CC0C2 C 
025A4 C 


TC 

CEC 


POLY 

2 


20EC lBlC00A3A.fl-31 


16,25^1 35436^ 

16,25^2 H0 <>0 _C 
36,2543 05066 f 


2DEC 1,507851456-2 


36.2544 

36.2545 

36.2546 


44032 C 
6C030 1 
26415 0 


2DEC* -6.4 SS93057E-98274 


20EC* 9.76S3e926E-ie6564 


RtF 515 LAST 841 


36,2547 

36,2550 


25057 I 
C 60C6 1 


REF 

REF 

REF 


1 

i 


LAST 124 36,2552 

_36, 2553 

36,2554 


36,2551 77752 1 


TC 

SLl 


IMPPET 


LAST 124 


17654 C 
31721 1 
17730 C 


STCOL HAMAX2 


CC+C 14B>C2*R*<2*C3»R**1-HAMAX2 B30 


STCOL 


H9RT EE28 
NNl A 


REF 

REF 

REF 


1 


2 LIST 124 
4 LAST 84 1 


36,2555 33 7 62 1_ 

17636 1 
C3634 0 


36.2556 

36.2557 


RTE320 STOOL 


K2 H T E 

RCC'N 

RTEGAP2C 


RCCN=K2 


REF 

REF 


1 

1 


36.2560 

36.2561 

36.2562 


44254 1 


82E 


74570 C 
31657 1 


BDSU 

KTE34C 

lPTEe2 


G0TCRTE340 IF REENTRY ANGLE NOT INPUT 


36,2563 714C6 C 


36.2564 

36.2565 


73525 1 
45465 1 


PUSH 

POOL 

BOOV 


COS 

SIM 

STACP 


PL02D 

PLOOD 


REF 

REF 


1 

1 


36.2566 

36.2567 
36,2570 


40051 1 
74603 1 
45345 1 


RTe340 


REF 

REF 


3 last 842 36,2571 03646 C 


I 


36,2572 


36,2573 


33760 C 
T124C 1 


STCALL X( T2 ) 

RTE360 
OLOAO OSU 

P ( T 1 1 
KIPT E 


X (T2)-CCT (GAM20> 


BO 


8HN 


OLOAO 


REF 

REF 


1 

1 


36 .2574 746CC 1 

36.2575 33766 C 

LAST 84i 36,2576 37726 C 


RTE35C 

K4RTE 


X 1 T 2 ) » K 4 


U 545 
0546 
C547 

REF 

REF 

2 

LIST 

84 2 

36,2577 

746C3 

1 



RTE360 




36, 26CC 

77745 

I 

PTE350 

OLOAO 



1 



36,2601 

33764 

1 



K3PTE 


0548 

REF 

3 

LAST 

842 

36,2602 

03726 

1 


STORE 

X (T2 ) 


0 54 9 





36,2603 

77624 

i 

RTE360 

Call 



C55C 

REF 

1 



36,2604 

65132 

1 



V2T1CC 


0 551 





36,2605 

52054 

1 


BZE 

GOTO 


C552 

REF 

1 



36,2606 

746 1C 

C 



KtE36l 


0553 

PEf 

^l__ 



26,2607 

74772 

i 



KTEA LPH 



X( T2 »*K3 


RTE367 VLCAD 


REF 


2 LIST 124 36,2611 0364C C 


K(T1 )/ 




t 




ft 




n 

Lr. 





m, Ilj* 


T ^ ^ ”T 

L 

P37 t 

P7C 
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0556 

REf 

t 

L/ST 

599 

36(2612 

16657 

1 


STCDL 

RVEC 



055 7 

REF 

1 

L>»ST 

892 

36t 26 1 3 

03636 

1 



RCCN 



oiSia^ 

REF 

2 LIST 

93 

36i2619 

26760 

J 


STOVL 

ROES IRED 



055S 

REF 

2 

L^5T 

129 

36(2615 

C37CO 

c 



V2(T 11/ 



0560 

REF 

1C 

L^ST 

59 6 

36»2616 

36796 

1 


stcall 

VVEC 



0561 

REF 

1 



36.2617 

69266 

1 



Tf RAClOO 



0562 





36,262C 

776 15 

c 


CAD 




0563 

REF 

i. 

L/ST 

129 

36, 2621 

037 16 

1 
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26657 

1 


STuRf 

VLUAO 


IF T E fc2F 
NF 2 
St T 




F ( T 2 >/ 

r VSki 


o 


J 3 ce 

3309 

331C 


RCF 


REF 


3311 

3312 


Rtf 

REF 


13 

2 


LIST ft52 I2i2fc55 

32f 2ft56 
J2f 2657 

32t2ftcC 
32t2()6 1 


STDVL KVtC 


LISI ^6C 


C3710 1 
77765 C 
C3765 C 


SION 


V(72 J/ 


OET#- 12 


\ 


LIST 

LIST 


853 

859 


I c 7^ 6 C 
3ic55 C 


STCDL 


SIGN 


VVEC 
iKTt tl 


3319 

P E F 

7 

LIST 

86C 

32, 2663 

03765 

c 



bETAU 



3315 





32, 2669 

U 359 

c 


LXA ,2 

DLDAC 


j 

3 316 

REF 

286 

LIST 

85 C 

32,2665 

C0159 

1 



MPAC 



3317 





32,2666 

6719C 

c 


LKC , 1 

SXA,2 



3316 

REF 

9 

LIST 

85 1 

32, 2667 

C3739 

1 



Cof^l CXI 



3320 

REF 


LIST 

85 1 

32,2670 

C2756 

1 



S GN K CCT 



334 1 

REF 

9 

LIST 

853 

32,2671 

36760 

c 


STCALL 

RDE S IFtt 

CCMPLTE CT 12 (CCRRECr ICN 

TL TIME OF 

3322 

PEf 

c 

LIST 

851 

32,2672 

25552 

1 



TIMfeFAC 

NE<« PIOIUS) 







32,4673 

75395 

1 


CLQAD 

S IGN 



3329 

REF 

e 

LIST 

d51 

32,2679 

CC037 

c 



T 



3^t5 

REF 

8 

LIST 

86C 

32,2675 

C3765 

c 



bETA 12 



3 326 





32,2676 

60325 

c 


POOL 

NORM 

0T2l« (PHl9Kr21 

FLC2D 

J J2 7 

REF 

3 

LIST 

b5£ 

32,2677 

C365L 

1 



rT2i FR 



3 J 2 t 

RtF 

9C 

LIST 

859 

32,2700 

CC09? 

1 



XI 



J329 





32,2701 

53665 

1 


ioov 

SL* 



3 3 30 





32,2702 

COCCI 

c 



000 



33305 





32,2703 

20176 

c 



0 • 3 f 1 



3331 





32,27C9 

50006 

1 


PUSH 

bHN 

EeTA13-( JT2n/(CT21PR) 

B3 PLG9C 

*3315 

REF 

1 



32,2705 

697 12 

1 



PRE C 172 



3332 





32,2 7ii6 

65395 

c 


ULCAO 

POC L 

BETA 19»1 

ec plC9d 

j 3325 

REF 

2 

LIST 

858 

32,270? 

317 17 

1 



2PTl El 



33S3 





32,2710 

77650 

1 


GOTO 




33335 

PEf 

1 



32,<l7 11 

A 7 1 ^ 

1 



P F t C 1 7 3 
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333A 

333A5 

3335^ 

PgF 




32(2712 

65345 

C 

1 

Jl_ 

PREC172 

DLOAO 

POOL 

BETA14*.6 

BO PL04D 

1 



32,2713 

31711 



M.6R TE 






3at27l4 

45271 

PR6C173 

OOV 

OSU 


33355 





32.2715 

C0003 

1 



02D 



3336 

REF 

2 

L/SS7 

659 

32,2716 

31661 

1 



l«TfcB3 









32.2717 

71240 



BHM 

DLCAC 



3337 

REF 

1 



32,2720 

6472‘f 

1 



PEEC 174 



33375 





32,2721 

776C5 

1 


OMP 




3330 

REF 

4 

L/ST 

660 

32.2722 

C365C 

1 



0 T21 PP 



3338 5 





32,2723 

COOOl 

C 


STORL 

OOD 

0T21>(8ETA14)CT21PR 

828 

3339 





32,2724 

41545 

C 

PREC174 

OLGAO 

PUSH 



33395 





32,2725 

COCGl 

0 



OOD 



3340 

REF 

ft 

L/ST 

86 1 

3 2 f 2 7 26 

3765C 

c 


STCALL 

DT21 FP 



3341 

REF 

1 



32,2727 

65061 

c 



P.TENCK2 



3342 





32,2730 

7765C 

1 


GOTO 




3343 

REF 

1 



32,2731 

64525 

1 



PREC 125 



3356 





32,2732 

45345 

1 

PPEC175 

OLOAD 

OSU 



3357 

REF 

4 

LAST 

86C 

32,2733 

00031 

c 



RPRE 



3356 

REF 

4 

L/ST 

859 

32,2734 

Ci66A 

c 



RD 



3359 





32,2735 

S14C6 

1 


PUSH 

ABS 

RPRE-RC « RERR 


3360 





32,2736 

50C25 

0 


□ SU 

BHN 



3361 

REF 

1 



32,2737 

31770 

0 



EPC7RTE 



3362 

REF 

1 



32,2740 

65033 

1 



PREC 220 
















R3363 

CES 

IPEC 

R A C U S 

HA S 

NCT BEEN . 

ACHIEVED 




















3^264 





32.2741 

S3145 

1 


DLOAO 

BZE 



3365 

REF 

7 

L/ST 

859 

32, 2742 

C3 73C 

c 



NM A 



3366 

REF 

1 



32,2743 

645 54 

1 



PPeC132 

TOO MANY ITERATIONS 


3367 





32,2744 

53025 

c 


osu 

6ZE 



3366 

REF 

2 

LAST 

85 6 

32,2745 

21707 

c 



ICPT E 



3369 

REF 

1 



32,2746 

65001 

c 



PPEC2C7 



3370 





32,2747 

45345 

1 

PREC2U5 

GLCAG 

OSU 

NOT FIRST PASS CF ITERATION 


3371 

REF 

4 

LAST 

844 

32,2750 

03670 

0 



RPRE , 



33 72 

REF 


LAST 

86 1 

32,2751 

CC031 

c 



RPRE 

RPRE ,-RPRe 

029/827 

3373 





32,2752 

55301 

c 


NO PH 

BDDV 



3374 

REF 

15 

LAST 

786 

32,2753 

C0C5C 

1 



%2 



3375 

REF 

4 

LAST 

84 4 

32,2754 

Q 3 6 66 

1 



OPCL'N 



33755 





32,2755 

41457 

1 


SL* 

PUSH 

CPCCN/ (RPRE , -RPRE 1*5 

02 

3376 





32,2756 

576C0 

c 



0 -2,2 



33765 





32,2757 

40MF 

1 


DAO 

BCV 

S Gfi +4 OR LS -4 


3377 

REF 

3 

LAST 

86C 

32,2760 

31655 

0 



IRTFn 



33775 

REF 

1 



32,2761 

64766 

1 



PREticSH 



33 78 





32, 2762 

45246 

c 


AdS 

OSU 



33705 

REF 

4 

LAST 

861 

32,2763 

31655 

c 



IRTEEl 



33 79 





32,2764 

7 764C 

0 


BMN 




33795 

REF 

1 



32,2765 

64771 

1 



TSRFC7C6 



3360 





32,2766 

57545 

1 

PRfcC205M 

DLOAO 

DC C F P 

S OR 0 OR LS -4 

.. 

33605 

REF 

3 

LAST 

660 

32,2767 

31717 

1 



■2RTEEI 



3361 





32,2770 

77725 

1 


POOL 


Sa-4 

32 











HIM ■ 1 
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3 3 815 





32i2771 

<1345 

0 

PPEC206 

OLOAD 

DMP 





3382 

^ ^ A 7 





32t2772 

77712 

c 


SL2 




329 

R F F 


L/SS7 

86 1 

32.2773 

03666 

) 


STORE 

ORCON 

DRCCN*S(ReRRI 


3 3 i3 7 

33£3 
338A 
33 tJ5 

-P, L r 




32,2774 

77615 

0 


OAO 





REF 

e 

L^ST 

85E 

32,2775 

03636 

1 



RCCN 



— ■ — — — — 

REF 


L /ST 

862 

32,2776 

03636 

1 


STORE 

RCON 

RCCN+DPCON^PCCN 



3366 

338? 





32.2777 

77650 

1 


GOTO 

1 



^ -- 

PEF 

1 



32,3C0C 

6SC2G 

c 



PPEC21C 



- 

3368 




32,3001 

63545 

c 

PReC2Q7 

DLOAD 

OSO 

FIRST PASS CP IlEKAUUH 


33es 

REF 


L/ST 

86 1 

32,3002 

03664 

c 



PD 



- 

339C 





22,3003 

70501 

1 


NORM 

SRI 





33S1 

REF 

< 1 

l/ST 

86C 

32,3004 

00047 

1 



XI 




3392 





32,3005 

6C325 

c 


POOL 

NORM 




3393 

REF 

6 

L/ST 

86 I 

32,3006 

00031 

c 



RPPE 





339^ 

REF 

16 

L/ST 

86 1 

32,3007 

C0050 

1 



X2 




3395 





32,3010 

5526C 

c 


XSU , 1 

BODV 



— — ■ 

3396 

REF 

17 

L/ST 

862 

32,3011 

000<7 

1 



X2 



, . , - — 

3397 





32,3012 

77657 

c 


SR* 





3398 





32, 3013 

20600 

c 



0-1,1 



— 

3399 

PEF 

10 

L/ST 

862 

32,3014 

03636 

1 


STORE 

RCCN 

RC**2/RPRE=PCCN 




3ACC 



32,3015 

77625 

c 


OSU 





3^01 

REF 

6 

L/ST 

862 

32,3016 

C3664 

0 



RC 



... . 

3^02 

REF 

6 

L/ST 

862 

32,3017 

03666 

1 


STORE 

OF CON 

flCQN-RD*CRCCN 


■ II -- - - - 

3^03 




32,3020 

777‘.5 

1 

PREC210 

DLCAD 


PREP/RE FOP NEXT 

ITERATION 


3^04 

REF 

7 

L/ST 

862 

32, 3021 

CCC31 

c 



RPRE 



- — . ^ 

3^05 

REF 

5 

L/ST 

86 1 

32,3022 

17670 

c 


STOOL 

RPPE , 




3406 

REF 

8 

L/ST 

86 1 

32, 3C23 

0373C 

c 



NNIA 




3407 





32,3024 

77625 

c 


OSU 




■■ _ . . 

34C8 

REF 

3 

L/ST 

66C 

32,3025 

31677 

c 



lFTEh28 



— 

3409 

REF 

9 

L/ST 

86 2 

32,3026 

37730 

1 


STCALL 

NNIA 




3410 

REF 

2 

L/ST 

842 

32,3027 

65132 

1 



V2T1CC 





3411 





32,3030 

5203C 

c 


BHIZ 

GOTO 




3412 

REF 

1 



32,3031 

645 17 

c 



PPEC 120 




34 1 3 

REF 

2 

L/ST 

859 

32,3032 

65C47 

1 



PREC X 



.. - 














^ ^ — - _ - ^ 

K3414 

CES 

IPEC 

R /C Its 

ACHIEVED 






















^ ^ . 

3415 





32, 3033 

45345 

1 

PREC220 

CLCAO 

OSU 



-- - - - 

3416 

REF 

1 1 

L/ST 

85 8 

32,3034 

03726 

1 



X nz 1 




3417 

REF 

3 

L/ST 

85 9 

32, 3035 

G3724 

c 



X(T2 IPRE 



_ . _ _ _ _ 

3416 





32, 3026 

45246 

c 


ABS 

OSU 



_ 

3419 

ref 

1 



32,3037 

31772 

1 



6PC8FTE 




3420 





32,3040 

6 7240 

c 


BMN 

SLCAC 





3421 

REF 

1 



32,3041 

65045 

c 



PREC225 





3422 

REF 

1 



32,3042 

31741 

1 



CCTo 13 




3423 





32,3043 

77650 

i 


GOTO 



CUT OF LIMITS 

_ . — — — 

3424 

REF 

a 

L/ST 

86l 

32. 3C<i4 

6 504 7 

1 



PREO 

I fTfE^iTRY ANGLE 

__ 















R 3425 

CES 

IPEC 

FINAL 

/NGLE 

HAS BEEN 

PE/CHEC 







_ _ 
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342S 





32.3C45 

77745 

1 

PREC223 

CLCAD 



3430 

R£F 

4 

LPST 

05S 

32(3046 

21701 

C 



ZtPQRTE 


3431 





32.3C47 

7765C 

J_ 

PRECX 

GOTO 



3432 

REf 

14 

L/ST 

85 6 

32(3050 

03762 

1 



SPR7EX 









a 


$ 


t 


I 





CAP ; * 5Slil>HLg RP^l^inh 211 Cf AGC PRCGRAH tCLCSSUS 6Y Ni^SA 20aiIl-C3.| lUl AUC. 2^,1968 — PANCORfl .072 PA^X 


L 

P2T,piq - - ^ USER'S PAGE NO. 25 fc7 S3 

P38C0 

IMECP411CP CALLIPG SEBRCUTINE 

HiSOl 

K38C2 

R38CA 

P3806 

^^PERFCHKS CONIC IRC PRECISICP INTEGRIllCNS USING SUBROUTINE INTEGRVS. THERE IRE THREE ENTRANCES (RTENCKl, . 

RTENC82 ANC RTENCRSI FCR DIFFERENT SCLRC6S CF INPUT AND DIFFERENT OPTICNS. THERE IS A CCNNON SET CF OUTPUT 

hRJCH IRCCLOES set up of INPUT FOR THE PARAP SUBROUTINE _ _ 

R380? 

RTEFCKl (CCMC IMECPATIOM 

R38C8 

P3809 

H3eiC 

CAIUING SEQUENCE 

L cm 

U^l RUNCKl 

83611 

K38i2 

erisaeleimtiauzaticnpecuired 

SAFE AS FOP TH6 RTENCH3 EhTRANCE 

83813 

RTEFCK2 (FPECISION INTEGRATICM 

P3ei<t 

83815 

R361fe 

CALI INC SEQUENCE 

L cm 

L-il RUNCK2 

P3317 

P3fll8 

R361S 

P3821 

R3_e22 

R382^ 

83826 

ERA!AELE INITIALIZATION PECUIREO 

PL IF L 1 ST 

FLSHLOC-2 INTEGRATICN TIRE DT12 KCRRECTIQN TO T2) DP 828 CS 

C 1 E 

Rn2J/ FINAL POSITICN VECTOR VECTCR .629 METERS 

V(J2I/ FINAL VELCCITY VECTOR VECTOR ST METERS/CS 

Tj FlMi tine dp ^5 

83628 

RTENCK2 (FFECISION INTEGRATICM 

P 3 829 
H3830 
R3831 

CALL INC SECUENCi — — — 

L CALL 

LU R1ENCK3 

F3832 

83e3<i 

R3836 

83838 

R38^C 

ERAJAELE INITIALIZATION REQUIRED yctcac 

P(U1/ INITIAL PCSITICN VECTCP VECTOR 029 

V2nil/ PCST IMPULSE INITIAL VELCCITY VECTOR VECTOR 0? M/CS 

Tl INITIAL VECTCP TIME DP 828 CS 

T2 FINAL Time dp B26 CS 

838^2 

R38<i3 

H38<t^ 

E)n NCCE 

AT L'*2 CF CALLING SEQUENCE 

SLEFCLllNES CALiEC - 

838^5 

83646 

INTiTALL 

IMICP VS 

8 384 7 
83886 

CL 1PL 1 

Tl SFLIST 


r 


3S2S 

3930 

3931 

3932 

3933 
3 934 
3935 


REF 

11 

L3ST 

66 5 

32f 3 105 

25535 C 

RTE^CK3Q 

STCVL 

RCV 

REF 

e 

L45T 

853 

32f31C6 

C37C0 C 



V2( T 1 )/ 

REF 

10 

L3ST 

86 5 

32f 3107 

155^3 1 


stool 

VCV 

REF 

t 

L35T 

055 

32t3110 

03716 1 



T 1 

REF 

11 

L3ST 

865 

32,3111 

15517 C 


^TCOL 

TET 

REF 

(i 

LIST 

86 5 

32,3112 

03736 < 



T2 

REF 

^5 

LIST 

855 

32,3113 

OOOAl 1 

RTE6CK30 

STORE 

TDECl 





32,31M 

450U C 


CLEAR 

Call 


L 

F37, 

P7C 



r ;■ • >4 ■ HR .MK M 





tv ^ 

A k 4 4 L ^ ^ 
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K3tiAS 


PL5hLCC-6 

FlMl FCS1T1C^ VECTOR 

R (72 » / 



VECTOR 

B29 

METERS 

83851 


11 


CCNIC5 mutable entry 

FCR EARTH ( 

-2> 


SP 

B M 


Riaia_ 

>PAC 












83854 




FINAL VfcLCCnv VECTOR 

V( T2)/ 



VeCTCR 

87 

M/CS 

P3056 

CTFtP 












. fijasj 


P.lUl/ 

&J_ 

IN PUSHLIST 








K3858 


y (T2 1/ 

A S 

IN MPAC 









P3859 


Ti 


FINAL TIME 






OP 

828 

CS 

_ 83861 














3897 





32,3051 

45020 

1 

NTENCKl 

5T0 

CALL 

— 


— — — — — — 

3698 

REF 

fi LIST 

65 1 

32.3052 

03733 

C 



KTENCFEX 




3899 

REF 

18 

LIST 

62 2 

32,3053 

273 71 

1 



INTSTALL 




3900 





32,3054 

<3175 

c 


VLCAD 

SET 




3901 

REF 

t 

LIST 

656 

32,3055 

C3640 

c 



R(Tn/ 




3902 

REF 

1C 

LIST 

599 

32,3056 

01473 

c 



INTYPFLC 




3903 





32,3057 

77650 

1 


GOTO 





3904 

REF 

1 



32,3060 

651C5 

0 



8TeNCK3e 




839C5 













- - — 

isiae ^ 





32^3061 

45020 

1 

RTENCK2 

STG 

CALL 



— 

3907 

REF 

s 

LIST 

665 

32, 3062 

03733 

c 



RTENCNEX 




3908 

REF 

19 

LIST 

865 

3 2 f 306 3 

27371 

1 



I NT STILL 




3909 





32,3064 

77214 

c 


CLEAR 

VLOAC 




3910 

REF 

11 

LIST 

365 

32, 3065 

C1673 

i 



INTYPFLG 




3911 

REF 

11 

LIST 

B6C 

32,3066 

C36S6 

1 



8(T2 1/ 




3912 

REF 

10 

LIST 

50 1 

32,3067 

25535 

c 


STOVL 

RCV 




3913 

REF 

9 

LIST 

86C 

32,3070 

037 10 

1 



V(T2 1/ 




3914 

REF 

9 

LIST 

50 1 

32,3071 

15543 

1 


STOOL 

VCV 




3915 

REF 

5 

LIST 

853 

32, 3C72 

03736 

c 



T2 




3916 

REF 

1C 

LIST 

50 1 

32,3073 

01517 

c 


STORE 

TET 




3917 





32,3074 

77ol5 

c 


CAO 





3918 





32,3075 

77650 

1 


GOTO 





3919 

REF 

1 



32,3076 

65113 

1 



P TENCK3C 




P3920 













— 

3921 





32,3077 

45020 

1 

8TENCK3 

STC 

CALL 




3922 

REF 

1C 

LIST 

865 

32,3100 

03733 

c 



KTENCKEX 




3923 

REF 

20 

LIST 

665 

32,3101 

27371 

1 



INTSTILL 




3925 





32, 31U2 

43175 

c 

RTENCK3A 

VLOAD 

CLEAR 




3926 

REF 

7 

LIST 

865 

32,3103 

0 3 6^ G 

0 



R (7 1 )/ 




^ ^ rt 

REF 

12 

LIST 

865 

32, 3 1U4 

Cl6l3 

1 



INtY FFLG 



^ 




f 


$ 


$ 


P 


IT 


P 
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3926 

3937 

3 938 

REF 

RfcF 

n 

6 

LAST 

LAST 

502 
50 1 

32t3115 

32.3116 

32.3117 

CC263 

27066 

77775 

C 

1 

1 

VLGAD 

HCONFLAG 
INTF GPVS 

3939 

REF 

24 

LAST 

855 

32,3120 

GOOCl 

C 


R.ATT 

395C 

REF 

12 

LAST 

865 

32, 3121 

C36S6 

1 

STORE 

R tT2 1/ 

3951 





32,3122 

70125 

c 

POOL 

LXC, 1 

3952 

REF 

8 

LAST 

855 

32,3123 

00015 

c 


TAT 

3953 

REF 

ftr 

LAST 

66C 

32,3124 

C3734 

1 


CCNICXl 

3954 

REF 

7 

LAST 

665 

32.3125 

27736 

c 

STCVL 

T2 

3955 

REF 

23 

LAST 

855 

32,3126 

d0CC7 

c 


VATT 

395t 

REF 

1C 

LAST 

865 

32,3127 

C3710 

1 

STORE 
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32,3763 

776 5 7 

c 


SL* 


466151 





32(3764 

20172 

1 



u -7,1 

4862 





32,3765 

50Q25 

c 


osu 

faPN 

4863 

REF 

1 



32(3766 

31665 

c 
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REF 
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REF 

46 
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2013 

REF 

9 
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2014 
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1 
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2015 

REF 

24 
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REF 
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1 
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REF 
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MOVE PATT TC PREVENT HIPECUT 
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c 
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2021 

REF 

9 
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2022 

REF 
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2023 
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1 
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2024 
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2 
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GOTO 
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REF 
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REF 
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77223 

1 
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li2SD 

11.3614 _ 

75215 C 


_2C £C _ 

-.C0 5C92593 

27 

30 

38 Vi 

Q250 

21.3675 

72762 1 






18 U 

^251 



- 74613 C 


2DEL 

10CS?3333 

3 0 

Tt 

U251 

31.3677 

76225 C 







0252 

21i3 70Q. 

74571 1 


20 tC 

-.10 1944444 

31 

36 

42 H 

075? 

31.3701 

676C0 C 







0253 

31.37U2 

14174 C 


206C 

-.1 1 7407407 

32 

42 

16 W 

_ _ 0253 

31. 37C3 

24550 C 







02.5^ 

31.3704 

77777 C 

iSLTTAB 

2UtC 

-2C'9C H-2 9 

2 



0254 

31.3705 

75752 C 







0255 

31.3706 

77777 C 


20EC 

-2090 e-29 

3 



0255 

31t37C7 

75752 0 







0256 

31.3710 

77777 C 


2 oec 

-1790 6-29 

4 



0256 

31. 3711 

162C0 1 







0257 

3U3?1^ 

77777 C 


2DEC 

-109C e-29 

5 



0257 

31.3713 

76736 1 







0258 

31,3714 

17777 C 


20EC 

-94C 6-29 

6 



0258 

31.3719 

77051 C 







0259 

21.3716 

77777 C 


20EC 

-290 B-29 

7 



0259 

31.3717 

77556 1 







. 0260 

31. 3720 

77777 0 


20EC 

-290 B-29 

10 



0260 

31.3721 

77556 1 







0261 

31, 3722 

17777 C 


2DEC 

-1549 fc-29 

u 



Q261 

31.3723 

76370 1 







0262 

31,3724 

77777 C 


20 EC 

-890 B-29 

12 



0262 

31,3725 

77102 1 







0263 

31.3726 

77777 C 


20EC 

-149C e-29 

13 



0263 

31,3727 

76^26 C 







0264 

31.3730 

77777 c 


2DEC 

-323C B-29 

14 



0264 

31.3731 

74660 1 







C265 

31.3732 

00000 1 


20EC 

5110 e-?9 

15 



0265 

31, 3733 

04773 C 







_ 0266 

31.3734 

COOCO 1 


20EC 

6910 B-29 

16 



0266 

31.3735 

C6577 1 







0267 

31.3736 

COOCO 1 


20EC 

5110 e-29 

17 



026 7 

31.3737 

04773 C 







0268 

31,3740 

CQOOU 1 


20EC 

3010 6-29 

20 



0266 

31,3741 

02741 1 







0269 

31.3 742 

COOOO 1 


2 DEC 

3910 B-29 

21 



0269 

31,3743 

03643 C 







0270 

31.3744 

77777 C 


20EC 

-935 e-29 

22 



0270 

31.3145 

77053 1 







0271 

31,3746 

CCOOO 1 


26 ec 

2360 B-29 

23 



02 71 

31,3747 

C2234 C 







0272 

31.375C 

COOOO 1 


2UEC 

2510 B-29 

24 



0272 

31,3751 

C2347 C 







0273 

31,3152 

COOQO 1 


20EL 

2 1C E-29 

25 


, 

0273 

31.3153 

CC151 1 







0274 

31,3154 

COOOO 1 


20kC 

960 e-29 

26 


■ 

02 74 

31,3755 

CC740 1 
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U235 


_ 31f 3756 

0 coao 

1 

2QEC 

1310 b-29 

27 


C275 


aiillil 

C1217 

1 





. ^27h 


3l,376C 

cooua 

1 

ZDEC 

1^10 B-2S 

30 


*• 0276 


31ii761 

01301 

1 




§1 

0277 


21t37i2 

inn 

c 

ZDEC 

-262A B-Z9 

31 



Q 277 

11* 3 163 

75137 

1 







Q 27 B 

21 i 376 A 

77 777 

C 

2 pec 

-^^45 6-25 

32 




0276 

31 f 3169 

75^70 

C 
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( 
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IVClNUlJLJZfc 


USER'S PAGf NO 


I EO S3 


BiOQD TVCCAPON IT^C DAP IN IT 1 AL 1 2 A T ICN ANO STARTUP CALL! 

hLQai MCI N£_ J ^ =_ XA T 6 _ fi JUN 6 f 1 9 6 7 

RlflC? hCC at fehCEL ^ LQC SECTION PAO-PA7 


_ ftlflQ3 

FLFCTICFAL CESCRlfTICK 


RIQQA 

JERMLPNS TVCCAP IMT lAL 1 2 AT ICN (CAINS* TIMING PAPAMETiRS. FILTER 

VARIABLES* ETC.) ^ 

_ P10U6 

CCMPUIL^ STEERING (SAU.tt) GAIN KFRIMEDT, AND ZEROES PASTD£LV,+l 

VAR I able 

R1008 

FAKES initialization CALL TC ..NEECLER.. FOR TVC DAP NEECLES-SETUP 

^1CL9 

_ __ it^FCFMS JNIIIALIZATICN FCP RCLL CAP 


RiUl(; 

CALLS TVCEXECITIVE AT TVCEXEC, VIA WAITLIST 


HiOH 

CALLS TVCCAP CCU-RATE IN IT lAL IZAT ICN PKG AT DAPINIT VIA TS 


F 1012 

NPCLEAN AND TVCINITA ARE PCSSIBLE TVC-RESTART ENTRIES 


P1013 

CALIIFC SECUENCE - T5LCC-2CA0R ( TVCCAPCN ,E6ANK-eZER0» , T5=.6SECT5 


PIOIA 

IN PARTICULAPt CALLLC 6Y ..IGNOVER.. 


R1015 

MCEFAL EXIT MCCE 


P1016 

ICF RESLNE 


RlCl? 

SLEPCLTINES CALLEC 


R1Q18 

NEECLIR. RASSFRCP 


Aid 9 

ALAFR CF AECRT EX IT WCCES 


R102C 

ACNE 


_ i<1021 

ERASAELE IMTIAL I 2 AT ICN PECUIPEC 


K1022 

CJNMASSt LEHFASS, OAPCATRl (FCR NASSPROP SUBROUTiNtI 



t^lQ23 TVC P 4C UAp.S^diE LE VEL III CAP A^C/0R P^O TESTS) 


R i02A EACTCfF, VACTCPF. COLX 

K.1025 1VCPH4SE , TSEITS CF FLAG»*RC6f FCP RESTART PROTECTION (SEE IGNOVEP) 

H 1026 OITPL T _ 

R102? ALL 1\C AND ROLL CAP ERASABLES. FLAGWRC6 (BITS TSt WAITLIST 

R1028 CEEP IS 

RIC2S ^C^£ 


IQiO 

R£f 

1 







COUNT* 

is/ (NIT 




IC31 





l7f2C32 




BANK 

17 




LQ32 

REF 

2_ 

LAST 

68C 

17*2000 




SETLCC 

DAPS 7 




1033 





17*2032 




BANK 



















Uil4 

-Rii 

L_ 



16.1792 




E BANKS 

eZEFC 


















1035 

REF 

7 

LAST 

688 

17,2032 

22 016 

C 

TVCCAPON 

LXCH 

BANKRUPT 

T5 flUPT ARRIVAL (CALL BY DOTVCON - 

P9C) 


1036 





17,2C33 

G 0006 

1 


EXTEND 


SAVE C REQUIRED IN RESTARTS (MRCLFAU AND 


10361 

REF 

7 

LAST 

6 G 

17.2039 

22 012 

1 


(JXtH 

URUPT 

TVCINIT9 9PE ENTRIES) 



1038 

REF 

1 



17,2035 

3 2207 

C 

mpclEan 

Taf 

NZEPC 

NUMBER TO ZERC, LESS ONE (MUST BE 

□do ) 


A1U39 











TVC RESTARTS ENTER HERE (NEW 

BANK ) 


lOAO 

REF 

18* 

LAST 

638 

i7*2C36 

IC COG 

0 

♦ I 

CCS 

A 




lOAl 

Rd 

19 

LAST 

669 

17,2037 

55*997 

c 


TS 

CNTR 




1092 

REF 

159 

LAST 

89 7 

17,2090 

3 9719 

1 


CAR 

ZERO 




iO<*3 

REF 

TS 

LAST 

83 < 

17*2091 

59 001 

1 


TS 

L 




10^9 

REF 

i; 

LAST 

8S6 

17*2092 

51 • 7 

1 


INDEX 

CNTR 




1093 

PEF 

L_ 



17*2093 

53*530 

1 


dXCH 

OHEGAYC 

FIRST (LAST) TWC LOCATIONS 



1096 

REF 

16 

LAST 

896 

17*2099 

11*997 

c 


CCS 

CNTR 




109? 

REF 

1 



(7,2095 

1 2036 

1 


TCP 

hPCLEAN +1 
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XO^Il 





1 7.ZC46_^ 0 Q006 

1 


EXTEND 


SET CP ANCTFEP 15 RUPT TO CONTINUE 

10472 

REF 

1 



17^21141 

3 2214 

1 


OCA 

IM TLQC2 

INITIALIZATION AT TVCINTTl 

IGA 13 

REF 

12 

1 A^T 

£i fl S 


53*113 

X. 



T5LDC 

THE PHSCHK2 FNTPY (RECOTVCl AT TVCDAPCN 

1^4^14- 

JllF 

17 L4il 

J774 

17 tZCSl . 

3 46 72 

C 


OAF 

PUSH AX 

♦3 IS IN ANOTHER BANK. MUST RESET 

10415 

aiF_ 

„6 

LJLS-X 

_66_S „ 

17.2CS2 

S4- QIQ 

C 


TS 

TIMES 

BbCCN TOO (FULL 2CACRF. FOR THAT 

Li3A7£ 

REF 

26 

LAST 


17.2063 

1 6222 

X. 

ENCPRC 

TCF 

RESUME 

- ENTRY. 


104 7 7 

REE 

e 

LAS 7 

09 6 

I7#2C54 

22 OU 

c 

TVC INITI 

LXCh 

_BAN|i RLPT 


1047£ 





I7.2C55 

C 0QC6 

1 


EXTEND 



1047S 

PEF 

E 

LAST 

896 

17.2C56 

22 012 

1 


OXCh 

ORUP T 



1046 

REP 

12 

Li^T 

687 

17.2057 




TC 

lENKCALL 

UPDATE IXX. lAVG/TLX FOR DAP GAINS (R03 

1049 

REF 

4 

LIST 

65S 

17 1 2C6Q 

_ 13176 

c 


CAOR 

MASSPPUP 

CR NOUNS 46 AND 47 MUST RE CCRRECT) 













1050 

REF 

2_ 

LAST 

-666 

17.2061 

3 2030 0 


CAF 

MDGTLC 

SFS FLOW PATE. SC. AT 6 + 3 KG/CS 

1051 





-11^2062 

4 QUO 6 

1 


EXTFNO 



IC52 

_R£P 

1 



L7x2Q63 

7 2210 

1 


HP 

ONETHCU 


1053 

REF 

2_ 

LAST 

10 2 

17,2064 

j55'647 

1 


TS 

Til^CCT 

IQ-SlC MASS LOSS a+16 KG 

1054 





-ljLi2C65 

4 0000 

c 


CUM 



1055 

REf 

11 

LAST 

66i 

_L?j_2C66 

6 1474 

1 


AO 

CSMMASS 


1056 

REf 

L. 

LAST 

661 

17.206? 

55*662 

c 


TS 

MASSTMP 

DECREMENT FCR FIRST 10 SEC OF BURN 


10L59 

Rif 

iC 

-lASJ 

68 9 

A7t207Q 

31*466 

1 


CAE 

DAPOATRl 

CHECK LEM-CN/OFF 

lOfaC 

REF 

44 

LAST 

74 4 

17.2C71 

J 4675 

c 


MASK 

bITl4 


1061 

PEF 

186 

LAST 

696 

17,2C72 

ic oco 

c 


CCS 

A 


i062 

REF 

62 

LAST 

885 

17,2073 

3 4712 

1 


CAF 

B ITl 

LEH-CN (ilTil 

1063 

REF 

17 

LAST 

696 

17.2C74 

55*447 

c 


TS 

CM P 

LEM-CFF (ZiPOl 













^0631 

REF 

IE 

LAST 

8-9 7 

l?i2C75 

51*447 

1 


iNoex 

CNTF 

PICK UP LH-CFF.-CN KTLX/I 

1C63 12 

-BIf 

L_ 



17.2076 

31*416 

c 


CAE 

EKTLX/I 


106 3 H 

RIF 

2 

LAST 

1 Q < 

17,2077 

35*646 

c 


TS 

KTLX/I 














1-Qfa32 

RIF 

1 - 

LAST 

as 7 

17.2 100 

Q 4633 

c 


TC 

IbNKCALL 

COMPUTE i/CCNACC, VARK 

106322 

REF 

i 



L7*21Cl 

35145 

1 


CAOR 

S4C. 15 














it:64 

REf 

L. 



17.2102 

21*420 

c 

TVCIMT2 

CAE 

ETVCCT/2 

LEM-CN value (PAD-LOAO, CS / 21 

1065 

REF 

EC 

LAST 

896 

Hf 2103 

54 OCl 

1 


TS 

L 


lOet 

REF 

24 

last 

775 

17,2 104 

3 4711 

1 


CAF 

blT£ 

LEM-CFF VALUE 14CS / 2 1 

ICt7 

REf 

19 

LAST 

B97 

17.2105 

51*447 

1 


INDEX 

CNTF 


1068 

REf 

U.7 

L AiJ 

897 

17.2 1C6 

3C 000 

1 


CAE 



1G69 

REF 


LAST 

674 

17.2107 

55*644 

1 


TS 

KPPI MEOT 

(TEMP STORE ) 













IC7C 





17,2110 

4 0000 

c 


COM 


PREPARE T5TVCCT 

1071 

REF 

IE 

LAST 

897 

17.2111 

6 4672 

c 


AO 

POSH Ax 


LOIi 

PEF 

83 

LAST 

897 

17.2112 

6 4712 

1 


AO 

h’ I Tl 


1073 

REF 

*3 

LAST 

244 

17,2113 

55*635 

J_ 


rs 

tSTVCDT 















PEF 

-li 

LAST 

69? 

17.2114 

4 4674 

1 


CS 

blTli 

RESET SNTCVER FLAG 

10733 

REF 

K 

LAST 

65 1 

17,2115 

7 0106 

1 


MASK 

FLAG w RC^ 


10 734 

REF 

] 1 

LAST 

697 

17,2 116 

54 105 

1 


TS 

flag MP 09 
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1074 

Rf L 

10 

LJIRT 

69 7 ^ 

J^7t2117 

51*447 

1 

IMDEX 

CNTE 

PICK UP LEH-OFF.-ON KPRIME 


iC75 

R£i_ 

1 



17 « 11 20 

31*413 

C 

CAE 

EKPR IRE 



1076 





17.2121 

C Q0C6 

J 

eXfkNO 




LQ7J 

fiii 

A _ 

LiST 

_ai3_ 

17^21^1 

7^ 1644 

J 

HP 

KPPI RECT 

(TVCDT/2. SC. IT 0^14CSI 


ifiia - 

KEt let 

tiSJ ail 

L7*211i-_ 

22 OCO 

1 

tXCH 

A 

SC. AT PI/8 (OIRENSIQNLESS ) 


IQ79 

Rtf 


LiST 

fl9£ 

17.2124 

53*695 

c 

DXCH 

KPR1REC7 















J.QfiC 

Rtf 

11 

LIST 

agt 

17i2i25 

51*447 

1 

INDEX 

CNTR 

PICK UP LCR-CFF,-ON REPFRAC 


Loai 

REF 

2_ 

LIST 

-672 

17.212fe 


-•4 

CAE 

EPEP FRAC 



1062 

REF 

A 

LIST 

675 

1 7 ,1J 4 7 

55*652 

A 

IS 

REPFPIC 















ULIlJ a££ 


LIST 

573 

17.2130 

3 7716 

_C 

CAP 

NEGGAk 

PREVENT STROKE TEST UNTIL CALLED 


lOfi^ 

KiF 

1 _ 

LIST 

105 

nt2131 

55*664 

c 

TS 

STRKTIRE 















LQfl5 

BFF 

L_ 



17.2132 

3 4374 

j; 

CAF 

NINETEEN 

SET VCNTR FOR V IR I AbLE-GA I N UPDATES IN 


lC6t 

Rtf 

4 

list 

t>75 

17,2133 

55*653 

1 

TS 

VCNTF 

10 SECONDS ITVCEXEC 1/2 SEC RATEI 



RtF 

7 

LIST, 

66 C . 

17.2134 

55*444 

c 

TS 

V97VCNTP 

FOR ENGFAIL (PAD LOGIC 














ittfil 

_Rtf_ 

, A 



-11^1135 

11*421 

1 

CAE 

E TSR ITCH 

PREPARE SNITCHQVER COUNTER 


1066 

PtF 

ei 

L IS T 

89? 

17.2136 

54 OCl 

1 

TS 

L 



iC69 





17.2137 

6 0000 

i 

DOUBLL 


(COUNTER CeCREHENTS EVERY 1/2 SECl 


Lu90 

RtF 

169 

LIST 

896 

17,2140 

22 000 

1 

LXCH 

A 

L6H-CFF IN A, LER-ON IN L 


iQ9i 

RkF 

11 

LIST 

896 

17,2 141 

51*447 

1 

INDEX 

CNTP 



1092 

REF 

i^C 

LIST 

896 

17.2142 

30 OCC 

1 

CAE 

A 



1093 

REF 

15 

LIST 

896 

17,2143 

6 7716 

c 

AO 

NEGORE 



IQ9A 

REF 

21 

LIST 

896 

17.2 144 

55*447 

c 

TS 

CNTR 

CNTR * 2{SN1TCHCVER TIME, SEC) -1 



L09J 

REF 

-JLt 

LIST 

667 

17.^145 

31*425 

c 

TvClNlTa 

CAE 

HACTCFF 

TRIM 

VALUES TC TRIM-TRACKERS, OUTPUT 

1096 

JlEF 

2_ 

-LIST 

101 

17.2146 

55*625 

c 


TS 

PDELCFF 


TRACKERS, C FFSET-UPDATES , AND 

1097 

REF 

4 

LIST 

166 

17,2147 

55*631 

c 


TS 

PCMO 


CFFSET-TRACKER FILTERS 

1099 

REF 

3 

LIST 

652 

17,2150 

55*621 

1 


TS 

del P8AP 


NOTE, LO-CROER OELQFF tOELBAR ZEROED 














1100 

REF 

C 

LIST 

684 

17.2151 

31*426 

c 


CIE 

VACTCFF 



1101 

REF 


LIST 

10 1 

17,2152 

55*627 

1 


TS 

YOELCf F 



iiC2 

REF 

£ 

LIST 

10 i 

17,2153 

55*632 

c 


TS 

YCHO 



11U4 

REF 

3 

LIST 

65 2 

17,2154 

55*623 

c 


TS 

OELV BAR 
















LLU 

REF 

_J.2 LIST 

689 

17.2155 

4 1501 

c 

NEECLEIN 

CS 

FCSFLAGS 

SET 

BIT 3 FCR IMT lALlZAT (ON PASS AND GO 

1112 

REF 

26 

LIST 

685 

17,2156 

7 4710 

1 


MASK 

8iT J 


TC NEEDIER. WILL CLEAR FOR TVC DAP 

1113 

REF 

13 

LIST 

696 

17,2157 

27* 5Cl 

c 


AOS 

FCSFLAGS 


(RETURNS AFTER CADRI 

1114 

REF 

3 4 

LIST 

897 

17.2160 

0 4633 

c 


TC 

ICNKCILL 



1115 

REF 

5 

LIST 

536 

17,2161 

42404 

I 


CAOR 

NEEGIEP 
















1116 

REF 

Hi 

LIST 

896 

17.2162 

3 4714 

1 

TVCIMT4 

CAF 

ZEKt 

SET 

TVCPHASE TC INDICATE T VCDAPON-ThRU- 

IU7 

REF 

3 

LIST 

649 

17,2 163 

55*654 

0 


TS 

fVCFhASE 


NEtOLETN INITIALIZATION FINISHED. 

A 1 1 1 6 












(POSSIBLE TVC-RESTIRT ENTRY) 














1119 

REF 

16 

LIST 

733 

17,2164 

30 032 

c 


CAE 

CDUX 

PREPARE ROLL CIF LADDERS 

U2C 

REF 

6 

LIST 

181 

1 7 f 1 6 5 

in 

1 


TS 

OCAF CV 
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Aiiai 









RCLL CAPl RE-START UPON A RESTART, BUT 




Ali22 









RETAIN GPICINAL DGAD flGNOVER CDUX 1 
















- XIZZZ 

R£f 

31 LAST _ 

ai^ 

i7 «.2AA6 _ 

_3_4676 

1 

CAF_. ._BLUi 


|F ENGINE IS ALREADY OFF, ENCINOFF HAS 




Aim 




11*1161 

Q 0Q06 1 

EXTEND 


ALREADY ESTABLISHED THE POST-BURN 




1122A 

REf 

21 LAST 

780 

17.2170 

02 011 

_£ 

RAND DSALROUT 


CSMHASS (NASSBACK DOES ITT. DGNT 




iI22i 




17*2171 

c cgoo 

1 

EXTEND 


TOUCH CSHNASS. IF ENGINE IS CN, 




U22< 




17*2172 

l 2115 

1 

82F *1 


THEN ITS CK TO DO THE COPYCYCLE 




*^11221 









EVEN BURNS LESS THAN O.^SEC ARE ACR 




1123 

-Blf_ 

fi 

J.AST 

891 

17.2173 

_^i662 1 

JLA_E_ . 

NASSIFP 

CCPVCYCLE 

1129 

flAi 

_L2_ 

IASI 


17.2179 

55*979 C 

IS 

CSHHASS 



1125 

REF 

ft 

LAST 

691 

17*2172 

3 9731 _C 

♦ 2 CAF 

.55EC 

CALL TVCEXECUTIVE (ROLLDAP CALL, ETC 1 

Ult 

RRF 

AXL. 

1 i9T 

77A 

37,2176 

0 5190 1 

TC 

k,Al TLIST 


A12X— 

ill 

1 

LiSl 


£6*_l 192 


E BANK * 

B2ERC 


_U2e 

REF 

1 



17 * 2 1 7X 

C266C C 

2CADR 

TVCEXEC 


LAZitt 

REF 

—L. 



17.2200 

39066 C 





LUS llUlCil L QQOfe 1 EXTEND CiLL FO« CXPlNIT 

113C REf 1 17,220 2 3 22 11 1 OCA DAPIMT5 

1131 Rtf 11 LAST 891 17.22 03 53'313 C OXCH T5LCC 

1132 HEF 9 LAS1 aSl 17.220A 31*635 C CAE TSTVCCT (ALLCX TIW£ FLR RESTARl CCHPUT AT IGNS I 

1133 Rif 9 OAST 891 17i22g5 5A 03C C TS Tir^EJ 


UJi4 B±£ Z3 LAU aiJ U..22Qfi 1 5222 1 iNDl^<Clh TCF RESOPE 
















U35 — 




17,2707 

CQlfll 1 

N2FR0 

DEC 

65 

MUST BE ODD 

FCR MRCLEAN 












1136 

REF 

11 liST 

911 

. 9 319 


nineteen 

« 

VOl 














-1131 




1 1* 21 IC 

_ _0372fl._l 

onethcu 

DEC 

lOOC e-13 

KG/CS B3 TO 

KG/IOSEC B16 CONVERSION ' ’ 












LI 3 a 

R E F 

1 -LAST 

fl9S 

£6.1792 



EBANK> 

eZEPC 



1139 

REF 

- 


17,2^211 

C3C75 C 

CAP 1MT5 

2CA0R 

CAP IMT 



1139 

REE 

1 


17,2212 

90066 C 








U39i 

REF 

9 LAST 

899 

E6.1792 



6BANK* 

bZERL 



1190 

REF 

1 


17,2213 

02C59 1 

IMTLGC2 

2CADP 

TVCIMTl 



1190 

REF 

1 


17,2219 

36066 1 







II 



I 


t 
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AiOXJU 

i»jLi:ciii> rvtexicuiivt^ ccnsistino cf TVCExect neecleup. vargains 



RIOCIL 

REPChEK. SWTCHOVR, CG.CCPR. STRKUP. TVCEXFIN, CTC. 



fllQQ2 

LEG SILT lCN....TVCEXELOTIVi: SUfiRCUTlNE ....DAPCSH 



iUDC3 

NGC av ENGEL DATE 23 OCT. 1967 




RIOO^ 

FLfcCTICNAL DES GR IPT ICN . . . . 







HICCS 

*A^ SELF-PEPPETIATING WAITLIST TASK AT 1/2 SECOND INTERVALS WHICH: 



RlQLfe 

PRERARES THE PCLL TVC DAP LADDERS 



FI CO 7 

FFEPAPES THE RCLL FOAI NEECLE (PLY-TC CGA ERROR) 



R10C6 

FFE PAPES THE BOLL PHASE PLANE CCAERP IFLY-FROM CGA EPFCP) 



RACQ'? 

PPBPARES THE T VC: BOLLDAP TASK WAITLIST CALL (3 CS DELAY) 



.RICIC 

LFCATIS THE REEDIES CISPLAY 



RlOU 

IRPLERENTS VARIABLE GAINS AND VAFIABLE VEHICLE HASS 



Hmi2 

FPCVICES FOR SWITCHOVER 



P 1013 

FPCVICES FOR A SINGLI-SHCT THRUST NISALIGNHENT COPRECTICN AT SWTOVft 



P 1014 

FPCVICES FOR REPETITIVE THRUST MISALIGNHENr CORRECTIONS FCLLCwING 



PIOIS 

SWITCHOVER 



PlOi6 

FEFFCPRS CERTAIN STRCKE TEST FUNCTICNS 







RlQi7 

CALLING SECUENCE.... 




moie ♦IVCEXEC gallic as a NAITLIST task, in particular tv TVC1MT4 AND BY 



H1Q19 

ITSlLli^fiOTH AT 1/2 SECCNC INTERVALS 




H1020 

NLFRAL EXIT HCOE.... TASKCVER 







^1021 _ 

ALAFR CP AEORT EXIT RCDES.... NCNE 







Hl(JZ2 

SLERCLTINES CALLE C . • . .NEECLER • SAO . 1 3 • RASSPROP. TASKOVER. lENKCALL 







P:1Q23 

CTFER IKTEPFACES.... 




Hi024 ♦iVCflE START P<CKAC£ FCB HE STARTS 

__R1&25 «fn ChCAP« YAtiCAP FOR VARIABLE GAINS ANC ENGINE TPIR ANGLES 

R1U26 ASAC.g FOR KPPIHECT AT rRiTCHCVEP 

F.1027 ERASAELE I M 7 I AL I 2 AT I CN REGUIPEC.... _=_= 


RlC2e 

♦SEE TVCCAPON ... .TVC I MT4 



Rlo29 

♦VARK ANC i/CCNACC IS4C.13 CF RC3) 



P IC3U 

♦ Vt8 IMHALl 7AT ICN PPICR TO SWITCHCVEP OFt FOLLOWING A 

RESTART 


F 1031 

CURING A STRCKE TEST, IF STROKE TEST FUNCTIONS ARE TO 

BE TESTED 


R1032 

♦FAC LCACS EREPFRAC. ECCRFRAC ETC. 

- I . - ™ - . ^ — . ■ . ■ ■ 



R1033 

♦EITS 15.14 OF FLAGWRCc (15 BITS) 



R1034 

♦TVCEXFHS FOR RESTARTS 



R1035 

♦ ENGINE-CN en (11.13) FCP RESTARTS 



H 1036 

♦CCUX. CGAD 
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Kiiiia tfl-LL. IkX-XA^ FtAl h£iLLI (4K)t 4HC PHASE Pt/kNE CGALP5 

rUtL39 • V Ji* JJ l 1LE_ CAUS fC.K HilCh/VAN 4H0 WCLL JVC DAPS 

Rifl^Ci *<IfcCLg-SHrT IKi: REPfcTITl^g tCPREtllChS 1C ENGINE TMH AhCLES 

AXflAl PAClQfP AhQ 3AC1CFF _ 

RIQ^ *ChANCiS TC D^P SAHPLE RAlESj CAP tAJHSi AHC 5T |ER INO-GA |N SCAL IH(L 

KIQ43 n ILtM-Chi ShlTCht^wER 

tSC-hh AiltCAEfij A StCCKCS after siqtCHCVEF hHEN PRIOR 966. CR 2.5 

UCChCS AFTEP PESTART CUPIAG A STRCKE TEST _ 


AiD46 MLCfc, £Ut SHAKiAfiLE klTF PCS/EEllAYj^ IN EBANK6 


ACAI 





-JiLm^taC 




BANK 

16 


ic^e 

Plf 

JL. 



Jt,2Q0^ 




SETLCC 

OAFkCLL 


ICA% 





16.266C 




BANK 



1Q50 

81F 

« 

m 

LAiT 

699 

£.6il7A2 




EBANK=^ 

eZERC 


1051 

_Aii_ 

1 







COUNT* 

$A/T vex 


1052 

REF 

24 

LAST 

JlSJL— 

■ Ifa. 266C 

4 01C2 

C 

.JLVCEAEC 

CS 

FLAGKRC6 

CkECK FOB TFRMINATION (BITS 15,14 READ 

iw53 

Blf 

12 _LIA1 

689 

1 i 6^1 

7 4105 

C 


MASK 

OCT6COCC 

10 FRCM TVeOAPON TO RCSOAPOM 

ifl5A 





16.2662 

0 00C6 

1 


EXTEND 



10^5 

PEF 

L_ 



16.2863 

6 3142 

.<2 


02MF 

TVCEXFIN 

TERMINATE 













IQSjb 

REF 

t 

U5I 

69 9 

I6*26e4 

3 4731 

C 


CAF 

.5SEC 

w.L. CALL TC PERPETUATE TVCEXEC 

1057 

- AEf 


LAST 

899 

16.2665 

0 5140 

2 


TC 

WAITLIST 


1056 

REF 

6 

LAST 

901 

£6.1742 




EBANK« 

bZEPC 


1059 

REF 

2_ 

LAST _ 

699 

1 6 t 2 666 

C2660 

C 


2CADR 

TVCE XEC 


1059 





16.2667 

34066 

0 

















UJ060 

AEF 

19_ 

LASL 

aSLI_ _ 

Xt j.i_6TC 

30 0 32 C 

ROiLPREP 

CAt 

CDUX 

UPCATE ROLL LADDERS (NC NEED TO RESTART- 

ICc-l 

REF 

2_ 

LAST 

898 

16.2671 

5T*6?2 

c 


XCH 

OGANCh 

PROTECT, SINCE ROLL DAPS RE-START 1 

11162 

RIF 

.2 

LAST 

10_2^ 

16,2672 

57*673 

1 


XCH 

DGAP AST 















Rgf 

iL- 

LAST 

_84t 

16.2673 

Jll'45a 

1 


CAE 

GGAD 

PREPARE ROLL FCAI NEEDLE WITH FLV-TC 

L&ok 





16,2674 

0 Q0C6 

1 


EXTEND 


LPROfi (CCMM4ND - MEASUREDI 

1065 

REF 

8 

LAST 

90 1 

16,2675 

21*672 

1 


MSU 

CG A N C k 


lQt>6 

REF 

12 

LAST 

53 7 

16^2676 

55*476 

1 


rs 

AK 

FLY-TC OGA ERROR, SC. AT B-l REVS 













iOo? 





16i2677 

0 OOC6 

1 


EXTEND 


PREPARE ROLL CAP PHASE PLANE OGAEPP 

LCfeg 

REF 

2_ 

LAST 

665 

16.2700 

_ 7 7705 

0 


MP 

-BIT14 


1069 

REF 

1 



16,2)01 

55*674 

1 


TS 

CGAE PR 

PFASE-PLANE (FLY-FfiCMJ CGAEPROP, 

A 10 70 











SC.AT B*0 REVS 













1C 71 

PEF 

n 

LAST 

776 

16,2702 

3 6214 

c 


CAF 

THkE E 

SET OP ROLL OAP TASK (ALLCW 5CME TIMEI 

1072 

REF 

A2 

LAST 

90 J 

16^2703 

0 5140 

1 


TC 

WAITLIST 


1073 

Rfi_ 

7 

LAST 

9Q1 

26il742 




EBANKs 

BZEPC 


107A 

REF 

1 



16,2704 

03312 

1 


2CA0F 

RCLLCAP 


IC7A 

REF 

1 



16,2705 

34066 

C 





1075 

REF 

1 c 

^ ^ 

-LAST 

69 8 

16,2706 

0 4633 

c 

REtCLEOP 

TC 

1 BNKCALL 

DC A needles UPCATE (RETURNS AFTER CADR» 

1076 

REF 

6 

LAST 

698 

16,2 70? 

424C4 

1 


CAOH 

NEFDLER 

(NEEDLES RESTARTS IT5ELFJ 
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Jj377 

Rtf 

23. 

Lit I 

fl9_9 

_ 16 t 27 10 

3 *1 6 .7 6 

1 

VAR^GAtNS CAP 

6IT13 

CHECK ENGIh£-CN BIT TO INHIBIT VARIABLE 


1C76 





I 6jt2 71 1 

0 .0006 

1 

PXTtNO 

CAINS AND MASS IF ENGINE OPP 


IC75 

_Bii_ 

2S 

LAST 

fl95 

16.2712 

02 an 

c 

RAND 

OSALRCUT 

CHANNEL 11 

iflij tL _ 

.ML 

111 LAST 

896 

Ux^^ 7 13 

LO 000 

c 

CCS 

A 



= ^ Xdtl 





6, 2 7 

1 2 720 

1 

TCP 


CN f SO OK TO UPDATE GAINS AND MASS 


1082 

Mf 

37 

LAST 

77 5 

16.2715 

-3 4 711 

_L_ 

♦ 5 CAP 

ThO 

OFF. SC BYPASS MASS/GAIN UPDATES, 


10621 

Hf f . 

3 

LAST 

-6 A 5 

16,2716 

5S'661 

0 

TS 

TVCE XPHS 

ALSO EN1RV FROM CCS BELCW WITH 


10622 

Rtf 

L_ 



16.2717 

1 2750 

c 

TCP 

Swt/CCR 

VCNTR * -0 IVg? R40 ENGPAILl 















Atl 

5 

XiSL 



*1 

1 

1 

1 

CCS. 

VCNTP 

TEST FCR GAIN UPDATE TINE 


1062^ 





I6i2121 

1 2725 

1 

TCP 


NCT VET 


10625 

REF 

L_ 



- 16.2722 

1 2731 

a_ 

TCP 

G A 1 h CHNG 

N CM 


108252 





16,2723 

1 2723 

1 

TCP 

♦0 

NCT USED 



10 625 3 REF I 16t2?2 ^ 1 2715 1 TCP VARGAINS *5 N Ct LCTHRU5T (S«0.8 R^»0 I 



.111826 

REF 

1 

LAST 

^2 5 _ 

14,2 7i 5 

5 5*663 1 


TS 

VCNTPTMP 

PROTECT VCNTR AND 



_^lOb27 

REF 

13 

LAST 

695 

16,2726 

31*m74 

1 


CAE 

CSMH ASS 

CSHNASS DURING AN IMPULSIVE 

BURN 


10826 

HEF 

S_ 

-LISJ 

69 5 

1 6 • 2 1 2 7 

55*662 

( 


TS 

HASSTHP 




10625 

REF 

1 



16,273C 

1 2741 

C 


TCP 

EXECCCPY 


















lCfi5 

R£F 

It 

LAST 

_2jDJ 

lb fl 273 1 

0 4633 

c 

GAINCHNC 

TC 

IbNKCALL 

UPDATE iXX. lAVCt UVG/TLX 



1066 

AEF 

1 



16,2732 

132 32 

c 


CADP 

F 1 KC Vi 

MASSPROP ENTRY (ALREADY INITIALIZED) 


1087 

REF 

1 

LAST 

69 7 

16,2733 

0 3145 

1 


TC 

S4C. 15 

UPDAtE 1/CCNACC, VARK 



iC89 

REF 


LAST 

89 7 

16.2734 

4 1647 

1 


CS 

TENMCCT 

UPDATE MASS FCR NEXT 10 SEC. OF 

BURN 


1090 

REF 

14 

LAST 

902 

16,2735 

6 1474 

1 


AD 

CSNMASS 




1091 

REF 

1C 

LAST 

902 

16,2736 

55*662 

c 


TS 

masstmf 

KG B«16 

















1092. 

REF 


LAST 

896 

16,2737 

3 4374 

c 


CAP 

NINETEEN 

RESET THE VARIAELE-GAIN UPDATE 

COUNTER 


1093 

REF 

4 

LAST 

90 2 

16,2740 

55*663 

1 

NOUPOATE 

TS 

VCNT RTHP 

(COUNTOCnN, from VARGAINS ^l) 




1094 

REF 

4 

LAST 


16,2741 

25*661 

1 

EXLCCCPV 

INCR 

TVCEXPHS 

RESTART-PROTECT THE COPYCYCLE 

t 1 } 
















1095 

REF 

-J1 

LAST 

902 

16.2742 

31*662 

1 


GAE 

NASS TPP 

CSMMASS KG e»l6 



1 0 9A 

REF 

15 

LAST 

902 

16.2743 

55*474 

c 


TS 

csnnass 




1097 

REF 

5 

LALT 

902 

16.2744 

31*663 

C 


CAE 

VCNTFTMP 

VCNTR 


1098 

REF 

6 

LAST 

902 

16.2745 

55*653 

1 


TS 

VCNT F 



1G962 

REF 

8 

LAST 

898 

16,2746 

55*444 

C 


TS 

V97VCNTR 

FCR ENGFAIL (R41I MASS UPDATES AT SPSCPF 















1099 

KfcF 

C, 

LAST 

902 

16,2747 

25*661 

1 


INCR 

TVCEXPHS 

COPYCYCLE CVER (2) 















1100 

REF 

24 

LAST 

69 6 

16.2750 

11*447 

C 

SWT /COR 

CCS 

CNTF 

CHECK FOR SMITCHOVER/CG.CCRREGTIDN 


1101 





16,2751 

1 2 755 

C 


TCP 

^ A 

NOT VET 


11C2 

REF 

1 



16.2752 

1 2773 

1 


TCP 

SViTCHCVR 

NON 


1103 

REF 

1 



16,2753 

1 2761 

1 


TCP 

REFC HEK 

PRIOR SMITCHUVER (OR NONE) 


110^ 

RE F 

2 

LAST 

90 2 

16,2754 

1 2773 

i_ 


TCP 

SWTC HCVP 

NOW (1/2 SFC SWITCHOVER, ONLY) 















1105 

-JPJF 

2 

LAST 

o 

1 

16,2755 

55* 7C7 

1 


TS 

C) TRTMP 

COUNT OGNN 


I lu6 

REF 

14 

LAST 

64 5 

16,2756 

3 4716 

c 


CAP 

SEVEN 

SETUP TVCEXPHS FOR ENTRY AT CNTRCCPV 


1107 

RE) 

6 

LAST 

902 

16,2757 

55*661 

c 


TS 

TVCEXPHS 





2?7 Cf- ABC 
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XlL8 

Rtf 




-JLtUlLC X 1112 l 

2 

TCF 

CNTFCCPY 














uoa 

af.f 

fi 

LAST 

flQfe 

lfef27Al 31*652 

-L_ 

REPCHEK CAE 

FEPFRAC 

CHECK FOR 

REPETITIVE UPDATES 

liio 





16t27t2 -Q- QQQ6 

I 

EXTEND 




ilXX 





16t27fc3 fe- m 0 

C 

02Mf 

♦ 5 

NO 

(h£G C« ♦-2EB0I 

LLLl 

REf 

2_ 

LAST 


16.276^ .55*446 

1 

TS 

TENPCAP +1 

YES. 

SET UP CORRECTION FRACTION 

liX3 

Att^ 

J^L- 

XISl 

d § S 

i4t276 5 3 4 7_15 

C 

CAF 

FIVE 


ACVANCE TVCEXPHS 

111^ 

i^£f 

7 

Lkll 

9Q2 

16.2766 55*661 

_e_ 

TS 

TVCEXPFS 



1115 

R-tf 

L_ 



16.2767 1 3053 

_c_ 

TCF 

COkSETtP 




Ult 

fllf 

L 



liSj-2^1Iil _2_4li7 

C „ 

tl - 

CAF 

E IGHT 


1117 

REP 

fi_ 

LAST 

9Q3 

16^2771 

55*661 

c 


TS 

TVC EXPHS 


1118 

B£f 

1 



1 6 1.2 77 ^ 

1 3125 

C 


TCF 

STRKUP 














1119 

REf 

34 

±ASt 

9Q2 

16.2773 

3 4676 

1 

SWTCMOVR 

CAF 

&1T13 

CHECK ENGINE^CN BIT. NCT PERMITTING 

__ 112C 





16.2774 

0 0006 

1 


EXTEND 


SWITCHCVER DURING ENG INE-SHUTOOHN 

1121 

Rff 

as 

LAST 

902 

Ux377.5 

02 on 

c 


RANO 

DSAL PCLT 

TAILCFF 

1122 

PEP 192 

LIST 

_9il2 

-16.2776 

10 000 

C 


CCS 

A 


1123 





14^2^7 7 7 

1 iOOl 

I 


TCF 

♦ 2 

OK TC ShITCHOVER 

1124 

REF 

2 

LAST 

901 

16*^3000 

1 3142 

1 


TCF 

TVCEXFIN 

OCNT Switchover, terminate 













11242 

Mf 

12 

XAIL 

.89 7 . 


4 0105 1 


CS 

FLAGkRC9 

SET SWITCHCVER FLAG ISHTOVEBJ FOR CHNINK 

11243 

RtF 

37 

LASI 

89 7 

16 1 3002. 

7 4674 

1 


MASK 

61TI 5 

AND PDST-BURN TRIM UPDATES (SEE 

11244 

-REP 

13 

LIST 

-3112 

16.3C03 

26 105 

_L_ 


ADS 

FLI&RRC9 

..0ESITRIH.. (P40-P47I» 













1125 

REP 

61 

LAST 

897 

16*3004. 

i*466 

1 


CAE 

OAPOIThI 

SW ITCHCVER. ...CHECK FOR LEM-DFF/ON 

1126 

REF 

1 * 

LIST 

903 

lt.3C05 

7 46 76 

( 


MASK 

a ITI 3 

(NOTE. SHOWS lEM-OFF) 

1127 





16f3C06 

C 0006 

1 


EXTEND 



1128 

REF 

L 



16.3C07 

1 3013 

1 


BZF 

GAINCGWN 

LEM-CN... .FULL SW I TChOVER /CG. CORRECT ION 


. 1L29 

RtP 

1C 

LAST 

845 

16,3010 

3 4710 

C 


CAF 

FOUR 

LEM-OFF.. ..NO SWITCHUVER, JUST CG.CORR. 

1130 

REF 

9 

LIST 

903 

16,3CI 1 

55*661 

c 


TS 

TVCEXPHS 


1111 

REF 

1_ 



16.3C12 

J_^050 

0 


TCF 

TEHPSET 














1132 

RCF 

2. 

LAST 

897 

__l6t3CA3_ 

3 1 *4 2i 

<L 

CAl NDCHN 

CAE 

eTVCCT/2 

LEM-CN.... ORCP GAIN BY I CLDT VCDT/SCS ISO 

113 3 





16.3014 

0 0006 

1 


EXTEND 



1134 

REF 

3 a 

LIST 

885 

16,3C15 

7 4706 

C 


np 

bIT5 


U35 

REF 

193 

LIST 

903 

16.3C16 

22 000 

1 


LXCH 

A 


1136 





16 • 1C 1 1 

0 0006 

1 


EXTEND 



113? 

_«1L 

194 

LIST 

903 

16.3020 

7 COCO 

c 


MP 

A 


1138 

REF 

195 

LIST 

903 

16,3021 

22 000 

1 


LXCH 

A 

(TVC0T/8CS ) SQOv SC. AT 8>2 


1139 





16,3022 

0 OOC6 

1 


EXTEND 


PREPARE NEW GAIN CONSTANT 

1140 

REF 

3 

LIST 

897 

16,3023 

7 164 6 

c 


MP 

K7LX /I 


LL41 





16.3024 

20 001 

1 


OOCUbL 



1142 





16,3025 

20 OCX 

1 


OOOUHL 



1143 

KEF 

___J_ 

LIST 

102 

16,3026 

55*702 

1 


TS 

TKTLX/I 

(FOR COPYCVCLE) 













1144 

REF 

1C 

LIST 

902 

16,3027 

25*661 

1 _ 

SHTCCPY 

INCH 

Tvi EXPFS 

HESTART-PRCTECT the COPYCYCLE I3J 
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1X45 Elf A 16 .3C3 Q 3 7677 0 OC T 37 7 74 L EP-CN ONLV TS TI^^ER 

114t FEf, 5 U51 Q9S lfct3CL3l 55'<>35 1 TS T«:TVCCT 


CAE EKPK iPfc »I PREPAP.E KPRIWECT POP BOWS DAP, OS ING 

O OO ULE __ " _ 

DOUBLE 

TS KPPi PELT {K PRIPEOT*! IS ZERO) 


AX154 - . SCALING OP QHFGAC HAS CHANGEDt BUT NO 


A1155 











CHANGE OF REGISTERS. RATE CCPNANCS 

An56 











ARE LCW BY ICLO TVCOTI/eO, UNTIL 

AU5T 











NEXT S40.B COMPUTATION, MHICH USES 

Ail56 











THE NEh KPRIHEOT. 













115S 

Bfcf 


LAST 

902 

16.3036 

XI '702 

C 


_XA_f 

TKTLX/I 

GAIN CONSTANT 

il6C 

Rtf 

4_ 

LAST 

903 

16,3C37 

55 '646 

C 


TS 

KTLX/I 














11^^02 

Rif 

2 

LAST 

902 

16.3140 

0 i 1 5 H 

1 


TC 

S4U .15 *7 

UPDATE VARK ICNLY, NO CHANGE 1/C0NACC> 
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896 

1 6 1 3 2 A6 

26035 

1 


CAOR 

HPCL EAK 

ECR FULL initialization 













lIA^l 

— RAi 

5_ 

LAST 

9QS 

16.3247 

11*614 

1 

CHKSTRK 

CCi 

STKOEER 

CHECK FOR STROKE TEST IN PROGRESS 

11S22 

REE 

1 



16.3250 

1 3265 

1 


TCP 

TST I MTJ 

YES, KILL IT 

11423 





16.3251 

1 325 3 

1 


ICE 

♦2 

NC, PROCEED 

11424 

REE 

2__ 

LAST 

9U 

16.3252 

I 3265 

1 


TCE 

TSTIMTJ 

Y E S , K 1 L L I T 


U43 

REF 

49 

LAST 

916 

16.3253 

0 7^ 

c 

♦ 4 

TC 

POST JCNP 

IF POSITIVE OP ZERO, RESTART AT 

1144 

REP 

1 



16.3254 

36162 

J 


CADK 

TVC IMT4 

TVCINIT4 CZERQS TVCPHASE. AND 

AU45 











CALLS TVC DAPS) 

























114^6 

REF 

1_ 

LAST 

916 

Ui3?55 

51*654 

1 

F INCCPY 

INDEX 

TVCPEASE 

PICK UP THE AFPPOPRIATE CCPYCYCLE 

1147 

REE 

1 



16.3256 

3 32 74 

c 


CAF 

TVCCACP 


1146 

REF 

L_ 



16,3257 

0 463 7 

1 


TCR 

I SKC ALL 

RE-ENTEH THE CQPYCYCLE, RETURN AT END 

1149 

REE 

2 

LAST 

915 

16,3260 

1 3205 

1 


TCF 

ENA6il 

NCW PREPARE THE CUTCQUNTERS 

























list 





16.3261 

0 0CQ6 

1 

TRIP/CMC 

EXTEND 


TVCCAPCN INITIALIZATION Nd CCNPLETLO, 

1151 

REE 

19 

LAST 

90S 

16,3262 

3 142 6 

c 


CCA 

PACTCf F 

EG. PfVCNC PAY NOT BE SET. SET... 

U52 

REE 

6 

LAST 

9U 

16,3263 

53*622 

c 


DXCH 

PCMD 


1153 

REE 

2 

LAST 

916 

16,3264 

1 32C5 

1 


TCF 

ENABLl 

NCK PREPARE THE CUTCCUMERS 














1154 

KEF 

159 

LAST 

916 

16.3265 

3 47 14 

1 

TSTINI TJ 

CAE 

ZLRC 

OISAELE STROKE TEST t-O SHOWS ORICR V68) 

1155 

REE 

6 

LAST 

916 

16,3266 

55*614 

1 


TS 

STRC REP 

(40 PEANS NEn V68 REQUIPEC FOP STARTUPI 

























11552 

REE 

1 



16.3267 

1 3253 

1 


TCE 

Chi^STF'I< +4 














lUl 

REF 

2C 

LAST 

915 

16, 3270 

5 1 *66 1 

1 

EAR STHT 

INDEX 

TVC EXPHS 

TVCEXECUTIVE E EST APT S . . . . GO TfJ 

1162 

REE 

1 



16.3271 

3 33C0 

1 


CAE 

TVCE XADR 

APPROPRIATE RESTART POINT 

lic3 

REE 

196 

LAST 

915 

16.3272 

5C OCO 

1 


INDEX 

A 


llc4 





16,3273 

1 COCO 

c 


TCF 

0 




il25 

Rif 117 


906 


11^ 

REF 5 

L^Sl 

898 


1127 

Rtf 1 


684 


1126 

REP 15i 

_LA1T 

916 


1129 

REF 3 

Liii 

698 


1130 

REF 2 

LAST 

6ai 
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Xi^tA Rfi X ^ 16xi2-T<i iJi2JL3 1 TVCCAD R GENADR ENAbL2 _[ PCft_ T5_C ALL , UNUSED TABLE LOO 


1169 

ft£l 

_J. 


16*3273 

40545 

1 

♦ L 

CAUH 

PCCRY +1 

PITCE CQPYCYCLE 


1I7L 

REf 

_J 


16.3276 

03226 1 

#2 

GLNADR 

chdsclt 

(FOR T5 CALL. UNUSED TABLE LOCI 


11 n 

BLE . 

1 


ltt3?77 

41C23 

r 

♦ 3 

CAOR 

YCLPY +1 

YAW CCPVCYCLE 


1172 




16j3200 

37772 

1 

TVCEXAOk 

OCT 

37772 

(UNUSED TABLE LCC. FILL NITH 60NS, T5» 


1173 

_E££ 

-2 LAST 

*?Q2 

16.33C1 

— 5iL74i. 


♦ I 

GENAOK 

EXECCCPY +1 

TVCEXECUTIVE RESTART PCINTS (DRCERED) 


U79 

REF 

2 LAST 

902 

I6f3302 

(2750 

1 

♦ 2 

genaor 

SWT/CfP 



U7^ 

REF 

1 


16.3303 

C302C 

i 

♦ 3 

GENADR 

SNTCCPY +1 



1176 

REP 

-2 LAST 

903 

16.3304 

C305C 

1 


GkNAOR 

tlmpslt 



1177 

REP 

2 LAU 

- 9Q3 

L6f33C5 

C3053 

1 

♦ 5 

GENADR 

CCRSE7UP 



1178 

RiF 

1 


16j3306 

C3UI 

c 

♦ 6 

GENADR 

CCRCCPY *l 



1X75< 

ftf F 

2 LAST 

902 

16t33t.? 

C3122 


♦? 

_GiNAD.R 

cntbccpy 



1 1 8 C 

REE 

^ JLA IT 

903 


03125 

1 

♦ ac 

GENADR 

STPKLP 



1181 

BEE 

2 _1./SI 

905 

_lCii3 3ll 

C3140 

1 

♦ 9C 

GENADR 

STRKTCPV ♦! 
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fll002 HCC flY £kC£l QAIE.,,,27 CCT. 1967 


RiCQJ FLfcCllCiLiX CESCRJFlICk...^ 


AiQiL4 „ llLLTi£eP£IUAIlJYO_I5 _JASl«i__iimCH CENEft ATl TH E CU KHAND SIGNALS 
R10D5 fUP TEfc PJTCP AHC VAIL SPS GIMBAL ACTUATORS OUrtlNG TVC ( SPS) BURNS, 

R1Q06 IN REiPGNSE TC ECCY-AXIS HATE CGRMANDS FROM CRQSS-PKODU CT STEERING 

KiCiC? (SA O.EK IF NC STE EPIN G CIRP ILSIVE BURNS) HAINTAINS ATTITUCE-PCIC 

RlCC_e ABCUT ThE RCfERENCE ( INITIAL) DIRECTIONS ( 2EftO RATE COMPANUS). 


R10w5 

1EE PITCH ANC YAK LOCPS ARE SEPARATE, BUT STRUCTUPED lUEMlCALLV, 






RIQIO 

CACI- ATTJTUDE-BATE LCCP INCLUCES GINBAl ANGLE RATE OERIVATICN, 



- ■ 

- 



RlUli 

ClREAL/bdcv AXIS TRANSPCRM AT I CN , flCCY-AXlS ATTITUCE ERROR 



. J_1012 

IMEGRATICN YlTh ERRCR LIRITING, THE CSP/LCN FILTER OR THE BRANCH 






R1013 

PCINTS FOR THE CSM-ALONE (GENJOAP) FILTER, OUTPUT LIMITER, 






KIOIA 

CC-CFFSET TRACKER FILTER, ANC TFE CG-TRACKER MINOR LOOP, 







R1015 

THE CAPS ARE CYCLIC, CALLING EACH CTHER AT 1/2 THE OAP SAMPLE 






BliLU 

TINE. AS CETEPNINEQ BY T5TVCDT. THE ACTUATOR COMMANDS ARE 






klCl7 

FEGENJRATCO AS ANALOG VOLTAGES BY THE CPTICS ERROR CCUNTEPS, -HIGH 






picie 

TRANSRIT THE signal TO THE ACTUATOR SERVOS WHEN THERE IS PROPER CDU 






Kiel? 

NCCINC, 







R1020 

REFERENCES FCB THE CSP/LER FILTER CESIGN INCLUDE P503 BY STUBBS 


P1U21 

(PIT IL OCT 1S65) AND SGA REMC R26-65 BY MARTIN (FIT IL 

CCT 1965), 


R1U22 

REFERENCES FCH THE CSM FILTER DESIGN (SEE GENSDAPJ INCLlCE K533 BY 


K1023 

LU (FIT IL JUNE He6). 




KlU2A 

CPERA11CNAL ASPECTS CF THE INTEGRATED CONTROL PACKAGE, 

KITH CESIGN- 


R1025 

NCHINAL PARAFETEP VALUES ARE CISCUSSED IN AG R3i6-t.7 BY 

ENGEL 


RI026 

(FIT IL OCT H67) ANC SGA FEHC R1E<67 BY SChLUNDT (MIT 

IL CCT 1967) 






«1Q27 

CALLING SECUENCE.... (TYPICALLY) 







R1C2 8 

T5 CALL CF TVCCAPCN (PA0-PA7) BY ICNCVER (PA0-P^7) 



RI029 

T5 CALL OF DAPIMT BY TVCIMTA (PAC-P^7) 



RiC3Q 

15 CALL CF DAPIMT BY CAPIMT 



R1031 

1* CALL CF PITCHLAP BY CAPlNlT 



H1U32 

15 CALL CF YAKCAF BY PITCHCAP 



61033 

T5 CALL CF PITCHCAP EY VAKCAP 



R103A 

ETC, 



ftl035 

(AL1CFAT1C SEQUENCING FHCF TVCCAPCN) 







R lU3t 

ncpfal exit fcce. ..,rlsume 







KIC37 

ALARM CR AEOPT EXIT MCDE S , . . ,NCNE 







RK3B 

SLfiFCLTINES CALLEC.... 




Iti7 A UG« DAPCSF .196 PAGE 91*3 


CAiu BPuKtr.N ?n te Ar.f,_^ei jiaam rnLOS^iK rv nasa ?02tiil-C3i 

L TVCCi fS I ^LSER‘5 PAGE NG. 2 BO S3 


81039 tlCJL fJlR_StPCKt TIST lV6JiJ_»iAvEFyhH GiftERA T 

Rifl^Q ^ . illQ^ fiPOrj hVg-, A_h£ AY1.^C0£. eOB GeN3DAP (LtP.-OFFJ FILTERS 

PmAVy YOCPY FC8 LQPV-CYCLES (USED ALSO BY TVC RESTART PACKAGED 

jai.42 _ XitlHlI JQA_llllUAL CCiJS FtP RA1£ REASUPEH EMTS 

RlilA3 EJRCfiiIjLt_JXLHM FQB JKPUl ( ATT ITU CE-ERRQR INTEGRAT1CN> AN C 

ftiQ44 QU1PLT lACTLATCR CCHHAhC) LIMITING. CaPKCN TO PITCH ANC 

Kiak3 YA h CAPS 

81046 CfTVAPKt D5kR FCP CSR/U^ FILTER OPERaTICNS, CCRMCN TC 

-R1 1^4 7 PITCH AWQ YAW CAPS 

R1L4U R tSLPE 


iH£A9 CTFEH IMERFALES 


RiOSO 

iAC.aX«jQ5S-FPCCLCT STfcERlhG FCfl fiCDY AXIS RATE CCH^ANCS 0MEGAY,2C 




Rioai 

140.15 FDR TFE INITIAL DAP GAINS RP/RPCN (LtM-CN) OR KPC£R3_ I-LFF ) 




KiG52 

iVCEXECLTIVe FCP VARIABLE CAP GAINS, FILTER SAMPLt-RATE CHANGE AND 




i5i053 

LAIN RfcOLCTICN AT LEN-CN SNITCFCVEP, SINGLE-SHLT CG. ESTINATICN 




81054 

AI SNITCFQVER ANC REPETITIVE CG ESTIHATICN AFTER SWITCHOVER. 




RIO 55 

TYCRESTART PACKAGE FCP TVC RESTART PROTECTION. 









R1 

EPASAILE 1NJT1ALI2AT ICN RECUIPEC-.*. 





81051 

29 PAL-XC.AI1 IRAiAfiLES ESTRCKEP EREPFRAC ♦! 



nio^a 

KFVKPCN IKPGEN3) AS IN S4Q.15 (PQ3) 



R1059 

CCNFICURATION BITS (14, 13) OF CAPCATRl AS IN R03 



RI060 

ENGINE-CN BIT (11.13) FOR RESTARTS 



81Q61 

TVCPHASE FOR RESTARTS (SEE IGNQVER. AND TVCINITA) 



RLC162 

15 fills (15,14 CF FLAGkRC6) FCP RESTARTS 



H1Q63 

8 J SOMUiTifcD U 5 VARIABLES 3ET OF CP CCMPLTEC BY T VCDAPON . . . .TVC IM T4 , 



H1Q64 

INCLUDING THE 2ERC1NG Of 64 TENPCRARIES BY NPCLEAN 



Hi06j 

CCLX,Y,i AND SINCPUX.... CCSCCUX AS PREPARED BY COUTRIGl (WITH 



R1066 

LFCATES EVERY 1/2 SECCND) 



RIOALL 

ALSC C*N PRIPARY, TvC ENABLE. ANC CPTICS ERROR COUNTEF ENABLE 



BJutB 

LKLESS BENC)‘-TESTING. 







KlOfeR 

ClIPLl,... 




PiOlC 

IVCPlTCh ANa TVCYAw WITH CCUNTfiR RELEASE (11.14 AND 11.13 INCRENEN- 



81071 

TAL CONPANCS TO C8TICS ERROR COUNTERS), FILTER NOOES, BODY- 



R1072 

AXIS ATTITUDE ERROR INTEGRATCR, TOTAL ACTUATOR COMNANCS, 



81073 

CFFSET-TPACKER-F ILTEB CUTPUTS, ETC. 



8 IQ 74 

C_l_£.P 1 S • • mm 







RIO 7 5 

KLCF, SHAREABLE WITH RCS/EMRY, IN EBANK6 ONLY 


*■•.1 

' 


A0T6 17, 221 5 ^ANK 17 

am Rl-L 1 2C.2CLQ SETLCC DAPS2 

1078 20, 2326 9ANK 
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iilR£^^mlihCCP-PGPATkS CSP'/LEH DAP Fl Uij K-t- ^ CQ P DE SIGN) 


1 

aU- 

- 11 

1 AST 

<9 \ 5 

20,2326 

22 016 

C 

pfTCHDAP LXCM 

bANKPUFT 

_T5 EKTRY, NCRRAL CR via DAPINIT 



^ W J 

1C8^ 



20,2327 

0 QQQ6 1 


-£X T END 




1 r p *1 

Ri^ A 

11 1 AST 

«1 X 

20,2330 

22 012 

1 


CXCH 

ORLPT 


















iue6 

Ofcf 

1 



20,2331 

3 3403 

C 


CAF 

Y Alf»T 5 

SET UP T5 call FOR YAW AUTOPILOT 

{ LOW- 


Il.til 

Rf^ f 

1 ^ 

t iSl 

Q1 X 

20,2332 

XX»3 12 

1 


TS 

T5LQC 

ORDER PART OF 2CADR ALREADY 

THERE » 


IQ&fi 

REF 

6 

LAST 

90A 

20f 2333 

31*635 

c 


CAE 

T5TVCC1 




1069 

REF 

12 

LAST 

915 

20.233X 

54 C3C 

( 


TS 

TIRES 


















1090 

RFF 

7 

liSl 

jSlt 

^,2315 

11*614 

1 

PSTRCKER 

cts . 

STRCKEP 

(STRKFLGJ check FOR STROKE TEST 



1091 

REF 

1_ 



20.2336 

0 3471 

c 


TC 

HACK 

TEST-STAFT OR TEST-I N-PROCPESS 



IO<93 





20.2337 

1 2341 

1 


TCP 

♦ 2 

NC-TEST 



1093 

REF 

1 

LA5I 

92 J 

25 1.2 3 AO 

0 34 71 

c 


TC 

HACK 

TEST-IN-P»OGRESS 

















1 

R Pf 


1 AS T 

7 13 

20,2 3A1 

?C 0‘»3 

1 

PCDDCCTS 

CAE 

CDUV 

CCRPLTE CCUVCCT 



-1095 

Afi 

z 

-LASl 

IQl 

20,2 3^2 

57*655 

0 


-XCH 

PCDUYPST 

FCR PITCH AUTCPILCT 



1096 





2Qt23A3 

C C0C6 

1 


EXTEND 




I0<i7 

RFF 

3 

LAST 

92 1 

20.2344 

21*655 

1 


MSU 

PCDUYPST 




1096 

REF 

2 

LAST 

1Q2 

20,2345 

55*657 

c 


TS 

HCDUYDCT 

(HfNUS. SC. AT 1/2TVCDT RtVS/SECl 

















RFF 

12 

LAST 

733 

20.2346 

30 034 

c 


CAE 

CDU2 

COMPUTE C0U2DCT 



ilQO 

REF 

2 

LAST 

102 

iQ,23A7 

57*656 

c 


XCH 

rCDUZPST 

FOR PITCH AUTCPILCT 



1101 





20,2350 

0 0006 

1 


EXTEND 

♦ 



1102 

REF 

3 LAST 

92 1 

20.2351 

21*656 

\ 


HSU 

PC0U2PST 




1101 

RIF 

_ z. 

_ L AST_ 

102 

25x1 3 5 2 

55*660 

1 


TS 

HC0U2DCT 

IHINUSi SC. AT 1/2TVC0T REVS/SECl 



1 inA ?Q.;’ 3 S 3 d 0006 1 PIHTEGRL PXTbNL COMPUTE INTEGRAL OF aOOV-AXlS PITCH-R_*lk 

1105 REF 2 lAST LO 1 2Ct235A 1 1616 1 D LA PfcPP b ERROPi SC,AT B-l REVS 

1K6 REF 6 last 103 20,2355 53*7A3 1 DXCH ERKtiTRP 


1107 10lf_ii5e_ 0 (I0Cj6_J EXTEND 

lice REF 2 ^LAST 896 20,2357 J 1530_C OCA OPEGAIC 

1109 REF 7 LAST 92 K 2 1 « 743 1 DAS EPPBTRP 



uia 

REK 

5 

LAST 

7L2 

20,2361 

4 0746 

C 

cs 

CGSC CUZ 

PREPARE eCOY-AXlS PITCH RATE. OHEGAVB 


nil 




20.2362 

0 C0C6 

1 

EXTEND 




1 112 

REF 

5 

LAS_T 

715 

20.2363 

7 075C 

1 

HP 

COSCCUX 



1113. 





20.2264 

2C QOl 

1 

DDOUbL 




1114 





20.2365 

0 0006 

1 

EXTEND 




1115 

REF 

3 

LAST 

92 1 

20,2366 

7 1657 

c 

HP 

MCDUYCCT 



1116 





20,2367 

2C OCl 

1 

DOOUBL 




1117 

REF 

1 



20.2370 

53*536 

1 

OXCH 

LHEGAYe 















11 16 

REF 

3 

LAST 

92 1 

2C,2371 

^ 1 6 i C 

1 

C$ 

KCDUZDIT 



1119 





20.2372 

C 0006 

1 

EXTEND 




1126 

REF 

5 

1A.ST 

715 

20.2373 

7 0742 

1 

HP 

SINCCUX 



1121 





20.2374 

2C 001 

1 

OOOUUL 
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1122 

RIF 

2 XAll 921 

2C^375 

Zl’53i 1 


DAS UMCGAVe 

(CCMPLETEC CHFGAY0, SC .AT 1/2TVC0T REVS» 











U23 



20.2316 

C QQQfa 1 


ERTEND 

PICK UP -OHEGAYB (SIGN CHNGt INTEGRATE) 


11Z4 

R££ 

3 LIST 922 


A 1536 1 


DCS OREGAYF 



1125 

.Rif 

1 ULSl^ 12A 

.ICaXACJS 21*7^3 J 


CAS bPRfc TRP 




1126 

^a£f_ 

i 



2Ut2i01 

0-1112 

0 

PERCKUIM 

TCR 

ERPCRE IN 

PITCH BOOY-AX IS-ERROR INPUT LIMITER 













1127 

£Ef 

66 

LiST 

91 1 

2C»2^Q2 

31*466 

1 

PIFILJMP 

CAE 

OAPLATPl 

CHECH FOR LFH-Ch/-OFF 

li2£ 

REF 


last 

_ 9iJ 

2C.t2AiL3 

1 4675 

c 


MASK 

B ITl 4 

(BIT 14 INCICATE5 LEH IS CN) 

-1129 

PEF 

199 

EAST 

916 

20t24UA 

1C 000 

c 


CCS 

A 


II3C 





2C;t2405 

1 2410 

_L. 


TCP 

♦ 3 

USE EEH-CN FILIFR 

1131 

RIF. 

5L 

LAST 

916 

zOfZAoe 

0 4574 

C 


TC 

POST JUHP 

USE EEN-QFF (GEH3DAP) FILTER 

1132 

REF 

1 



20,2407 

362 15 

1 


CAOR 

NPONCOE 



1133 





20.2410 

0 0006 

1 

PFORliARO 

EXTEND 


LEH-CN FILTER CCMPUTAT IONS. 

113N 

RLF 


LAST 

103 

20.24 1 1 

4 1544 

1 


DCS 

PDSUP 

OENQHINATCR TERMS, SC. AT H^O SPASCREVS 

1135 

REF 

L 



20.2412 

53*745 

1 


DXCH 

JZERC 



1136 

REF 

9 

LliJ 

92 J 

20_x2413 

31*742 

1 


CAE 

ERKBTFP 

INPUT ERROR, SC. AT 8-1 REVS 

UJLZ 

REF 

3 

LAST 

1Q3 

20.2414 

6 1541 

C 


AO 

PNSUH 

NUHERATOfl TERMS, SC. AT B-1 REVS 

1130 





20,2415 

0 0006 

1 


EXTEND 



1139 

REF 

1 



20,2416 

7 4727 

c 


MP 

KPON 

KPDN, SC.AT 9<»l SPASCREV 

llAO 

REF 

2_ 

LAST 

9^2 

20,2417 

21*745 

1 


OAS 

JZERC 


liAl 

REF 

A 

LAST 

_92 2 

20,2420 

31*542 

c 


CAE 

PNSUH +1 


11A2 





20,2421 

0 C006 

1 


EXTEND 



— 11 A3 

HEF 

^ 

EAST 

92 2 

20t 2422 

7 4727 

a 


HP 

KPDN 


llAA 

REF 


E/ST 

922 

20,2423 

27*745 

i 


AOS 

JZERC 4l 


ilA5 

REF 

12 

E/ST 

890 

20.2424 

54 001 

1 


TS 

E 


11A6 





20.2425 

1 2427 

c 


rcF 

+2 


ilA7 

REF 

A 

EAST 

922 

2C,2426 

27*744 

c 


AOS 

JZERC 

(SC. AT 8»0 SPASCRFV), (JZERO - CHDTMPI 













lIAfl 





20.2427 

0 C0C6 

1 

J2STCRE 

EXTEND 


PREPARE JZERC FCR DEROMINAtOK LADOEP 
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MfC BY EhlllL DAJ6-...21 PARCH. 1967 



- - aioti3 

FL^C^1CAA.L CtSCRlRllOh... . 


aj.uu4 

MflCKf TEST PACKAGt CENtHAlES A kAVEfuRf* DESIGNED TCJ EXCITE BENDING 


Kiiias 

iTRlLlill ISTRCKE TEST I M T I AL 12 A 7 ICN » IS CALLED AS A JCB EV VBEB. 


JilQbt 

IT IMTIALI2ES ALL EHASAELES REOC FOP A STROKE TEST, AND 


kiOlil 

THEK lESTS EC8 AN 80PS CAP. IF BOPS IT SETS STACKER * ESTPOKER 


PIOUS 

FOR AN IMMECIATE STROKE TEST. OTHERmISL IT MERELV ENABLES 


.81010 

A ST8CKE TEST £7 SETTING STROKER TO -0. THE STPCKf TEST 


PiOll 

THEN AWAITS SWlTCPCVEP 10 THE SOWS OAP WHERFLPCN IT IS 


•-10 12 

ENAELEO AFTER AN ADOITICNAL 4 SECOND OELAY TL AVCIC 


81013 

THE SWITCHOVER TRANSIENTS (SEt STRKCALL. STHKLP IN 


RlQi^ 

TVCIAECLTIVEI 


RIQIS 

PACK ISTRCKE TEST) GENERATES TPE UAvEFCRP BY OOPPING PULSE BURSTS 


KiQl4 

CF PPCPEK SIGN ANC IN PPCFER SECUENCt DIRECTLY INTO 


81017 

TVCPITCH. WCRKING IN CCNJUNCTICN WITH BOTH PITCH AND YAW 


81016 

TVC LAPS. WITH INTERPECIATE WAITLIST CALLS. NOTE, hOwEVER 


8 1019 

IHAT THE STROKE TEST IS PEPF08MEO ONLY IN THE PITCH AXIS. 


bAiilSL 

AN 6XANPLE WAVEFOPP IS GIVEN BELOW, TO 0EP0NSTRA7E STROKE- 


P1021 

TEST PARAMETER SELECTION 


81022 

fESTARTS CAUSE TEST TO BE TERPINATEG. ANCTHER V60 REQO IF TEST 


R1Q23 

IS TO BE RE-RUN. 


P 1027 

FLLSE BUPST SIZE IS FAC-LCACEC USIRCiKER) SO THAT AMPLITLDE CF 


81026 

WAVEFOfP CAN BE CHANGEC. THERE ARE TEN PULSE BURSTS IN 


- PAC29 

THE HALF-AMPLITUDE CF THE FIRST FPEQUENCY SET IN THE 


81030 

STANCAPD WAVEFCPP. APPLITOCE IS 10 ( ESTP OKER ) { 1/A2 . I 5 I , 


R1031 

NOMINALLY 50/^2.15 * 1.185 CEG 


81032 

CALLING JECUENCE.,.. 


.81033 

EXTENLEC VERB 66 SETS UP STRKTSTl JCB 


8 103R 

FITCH ANC YAW TVCCAPS, FINDING STRCKER NCN-ZERC, DO A ..TC HACK., 


81035 

AN INTERNALLY-GENERATED WAITLIST CALL ENTERS AT ..HACKWLST.. 


P103< 

NCPPAL EX IT PCCES ,. .. 


81037 

1C BLNKER (..C.. IF ENTRY FRCM CAP, ..TCTSKOVP.. IF FRCP WAIlLISTlLlST 


81039 

SIBFCITINES CALLEC.... 


8 10<i0 

WAl U 1ST 


F lORl 

ALAFP CF AEORT EXIT PCOES.... 


H10R2 

NCN E 


FiOR3 

ERASABLE IN IT I AL UAT ICN RECUIPEC.... 


8 IQRA 

ES1PCKEP (PAC-LCACI 


P1UR5 

STRCKER, CACCVt REVS, CARD, N 


8iOR6 



P10A7 

STRKT ST 1. .. INI IIALIZATICN FOR SIPCKfc TEST 



FACK. HACKMLST...PULSL BIRSTS INK TvCPITCH VIA. .ACS.. 


R10A9 

RESETS STPCKER ■ ■♦0 WHEN TEST COMPLETEC 


P1C50 

C B B P I S . « . . 


R1Q51 

N • CADDY » -to, CARC « -0, REVS • -1 


R1052 

BLNKER 


F1053 
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— mo 5^ — 

tji 












AIQEE 

♦ ♦ 

44 










RlUtoCL 

414 

44 

eXAPPLE pAVEFORP (FACH ♦ REPRESENTS 








HiQfe 2 

4 4 

4 4 


85.41 ARCSEC CjF ACTUATOR CPNC) 








fllC 6 A 

4 4 

4 4 










R10e4) 

4 4 

4 4 










B-LQ 6 6 

4 4 

4 

4 44 

** *0 0 * 








AlfllO 

4 4 

4 

• 44> 

44 44 44 44 








i<lU72 

4 4 

4 

4 44 

44 44 44 44 








81074 

4 4 

4 

A « A 

* * 0 * 00 00 00 

44 


44 

44 


44 


R1Q76 

4 4 

4 

« « « 

00 00 00 00 00 

44 


44 

44 


44 


Ja07b 

4 4 

4 

4 4 4 

0 0 0 0 0 0 0 0 00 

44 


44 

44 


44 


RlCfiO 

^ — -p • « i.* * « -p 











RiObl 

4 

4 

4> « * 

4 44 44 44 44 44 


44 

44 


44 

44 


H1CE4 

4 

4 

4 4 4 

4 44 44 44 44 44 


4 4 

44 


44 

44 


P 10 fife 

4 

4 

« 4 « 

4 44 44 44 44 44 


44 

44 


44 

44 


R1C88 

4 

4 

4 4 

00 00 00 00 00 








R1090 

4 

4 

4 4 

44 44 44 44 44 








BJUCLiZ 

4 

4 

4 4 

00 00 00 00 40 








R109A 

4 4 


4 4 









piose 

« « 


4 A 









jao 9 a 

4 4 


4 4 









PUOC 

44 


44 









R 11 C 2 

44 


44 









aii04 

44 


44 

































Alio 5 

FCP THIS tlNCFFICllL. 

EXAHPLfc) 

hAVCFCPP. THE 

REQUIKEO PARAMETERS ARE AS FGLLCpS.... 




















Hlg7 

KIPC » +3 

( NUHBER 

CF SETS! 









Plies 

fSlPCKEP . +3 

1 IJ I r 0 

liPST SUE. SC. AT 85. A1 ARCSEC/EITI 




















R1109 

SEl 1 . . 











FlliO 

FFEVS * 43 

(NUPBER 

REVERSALS PINlS 

1 1 








Alin 

FCAEDV « 4A 

(NUP 6 ER 

OF PULSE BURSTS 

IN 1/2 APPLITUCE) 








RUIZ 

U 1 2 « . 











"1113 

FCABCi » 4S 

(NUPBER 

REVERSALS PINUS 

1 1 








R1114 

FCARD^ * 42 

(NUPBER 

OF PULSE BURSTS 

IN 1/2 APPLITULE) 








PUIS 

«ET3, . 











P1116 

FCAP02 * 49 

(NUPfiER 

REVERSALS PINUS 

1 ) 








nill? 

FCflPOS • 41 

(NUHBER 

OF PULSI BURSTS 

IN 1/2 APPLITUCE! 








1 1 1 a 

SE19. • 











HU 19 

FCAKC3 * 4C 

(NLHBER 

REVERSALS PINUS 

1 ) 








PUZO 

FCAR06 ^ 40 

(NUPBER 

OF PULSE BURSTS 

IN 1/2 APPLITUCE) 
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L122 





17t2215 




OANK 

17 


1123 

REf 


_LiSl 


2J:x20C_C. 




SETLOC 

OAPSi 


JL124 





2Qi3411 




BANK 




1123 

. E£f 

1 







COUNT* 

iS/STRK 


U26 

REE 

2 

LAST 

l.Q2^_ 

1 6 1 It 6 5 




EEANK* 

CADC V 



1121 

_R£f 

± 



-AQ.tAA3 1 

- 0 145CL 

c 

STRKTSTl 

TCR 

TSTIMT 

STROKE TEST INITIALIZATION PKG (CALLED 

Ail28 











AS A JCB BY VERB68) 


1129 





__20x34 32 

0 0004 

0 

TVCCTCHK 

INHIKT 


STRCKE TEST PERKITTEO ONLY WITH 90NS DAM 

1130 

REF 

1C 

LAST 

933 

20|^433 

31*635 

c 


CAE 

T5TVCDT 

CHECK CURRENT TIHINC 

1131 

Btf 

iCA 

LAST 

- 93 7 

20/3434 

54 OCl 

1 


T5 

L 


U32 

REF 

2 

LAST 

904 

20t3435 

3 7677 

c 


CAP 

OCT37774 

LOCK FCR SONS (T5I 

__ 1133 





20f 3436 

0 C0C6 

1 


EXTEND 



1134 

REf 

1C 

_UAL 

18 2 

20.3437 

£6 CCl 

( 


RXOP 

LCHAK 

♦0 IF fiOMS 

113^ 

REF 

_2C4 

LAST 

933 

2Qt3440 

10 000 

C 


CCS 

A 


U3t 





20,3441 

1 3445 

c 


TCP 

♦ 4 

NOT aOKS 













113 7 

R£i 

t 

LAST 

■ ,90^_ - 

20x14^42 

li*4l2 

_J— 


CAE 

ESTPCKER 

'JOHS. CK, 56T STPOKER FOR TEST 

1135 

REF 

9 

LAST 

92 } 

20,3443 

55*644 

1 


TS 

STACKER 


_ 1139 





20.3444 

1 3447 

1 


TCP 

*3 














11*.0 

REF 

Itl 

LAST 

932 

20x1445 

4 4 714 

c 


cs 

ZERC 

ENABLE, BUT DC NOT ACTIVATE STROKE 

1141 

REF 

—LL 

LAST 

—94 2 

2 0 1 3 ^ ^ 6 

55*614 

J 


TS 

STACKER 

TEST, AWAITING SW1TCHC}VER 

A1142 











TC POCCB (Mooaoi 

11^3 

REF 

_Lil. 

LAST 

eee 

20,3447 

1 5112 

1 


TCF 

ENOCF JCb 


























1144 

Rf f 

1 



20x1450 

4 3460 

4 

TSTIMT 

CS 

FCADCV 

NCRNAL ENTRY FSCM STRKTSfl 

1145 

£JEF 

2_ 

LAST 

942 

20,3451 

55*665 

4 


TS 

CADDY 


1146 

REF 

2 

LAST 

102 

20, 3452 

55*666 

1 


TS 

N 

NOTE SGN CFNG rCADOY(^) TO CADOY(-» 













1147 

Rii„ 

L 



20,3453 

3 3461 

1 


CAF 

FREV5 


1148_ 

REF 

2 

LAST 

10 2 

20,3454 

55*67C 

c 


TS 

REVS 














1149 

REF 

L 



20,3455 

4 3462 

c 


CS 

FCA>t 

NOTE SON CENG FCARD(M TO CARD(-I 

1150 

REF 

2 

IASI 

102 

20,3456 

55*671 

1 


TS 

CARO 














1151 

REF 

AIL 

LAST 

937 

20,3457 

C C0C2 

c 


TC 

G 

RETURN TC STRKTSTl + l (OR CHKS TPK ♦20R-*4 I 
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PHS2 

__1>L Cf f ICLAL- 

sjjmiij 

TEST fcAV_£f LRM (3 

JIN. 1967) 1 

CONS IS IS OF Ff OR STFOKE SETS. IS FCLLC»«S.... 















a 11^4 


SET 


Ifi BL,RS 

I > f K! \ w J 

^ F P f 

_6. 

PLVERSALS 





kll3 5 


ILl 

2..^ 

_6_^fiSlS lh_XlZ 

ARP, 

6 

REVERSALS 





R1156 


S£1 

3^m m 

5 auill£ IH i/2 ARP. 

1C 

R EVER sals 





RUS7 


<£1 

4 -- - 

4 RLBSTS Ih 1/2 

■ JMP. 

LL 

5iV£RSALS 





fiiilfi 

IhL 

£LLSE 

eiifisi SIZE 

USTMREBJ IS PIC 

-LCAOED (5 

BITS IS OF 3JIN,1967) 



i<li59 

Itt 

REP/lIhJhC 

MVEFCRR-GEFiERATI>g PARZR.ETERS ARE 

1 S ^0 L L Ci>( S • • • • 

— — 

- - - 

lldC 






120012 

1 

tlACCY 

OJC 

10 

NC, pulse ELRSTS in 1/2 ARP. SET!.. (♦10) 

1161 





2Qt3461 

OQOL03 

1 

FREVS 

OEC 

3 

NC. reversals NINOS 1. SETl... ( 

3) 














1162 





^.3462 

C0Q04 

0 

FCARO 

etc 


NO. STROKE SETS. (♦ 

4 ) 














U61 ■ 





2C,34fe3 

0QQQ5 

_L 

fCARQl 

_J1£X 

C 

NC. REVERSALS NINOS 1. SET2 ( 

5 ) 


1164 





_2Qi1464 

coou 

1 

FCARC2 

OEC 

9 

••••••( 

91 

IlfcS 





20.3465 

CC015 

C 

FCARC3 

OEC 

1 3 

^ • *•••••( 

13 1 














1166 





j2CLf3466 

00006 

1 

FCARC4 

DEC 

6 

NO. POLSe BLRSTS IN 1/2 ANP, SFT2..(+ 

6 ) 

1167 





20.3467 

Q0009 

1 

FCA^iCS 

OEC 

5 

SeT3..(4 

5) 

U6g _ 





2Q.t3 4 7 C 

C0004 

0 

FCARC6 

OEC 

4 

SET4, •( ♦ 

4 } 














1169 

kEf 

_U 

LiST 

_ 915 

4711 



20HS 

e 

b IT2 





























K117L 

SUCKI TEST PiCKAtE 

PJ3LPEP.-. 





















1171 

Rtf 

2_ 

L/S1 

1-CiZ 

£6.1667 




EBANK* 

BUNKER 
















1172 





20.3471 

G 00Q6 

1 

HACK 

extend 


ENTRY (IN T5 RUPTI FROM TVCDAPS 


1173 

REf 


US 1 

94 3 

20,3472 

23*667 

1 


OXCH 

BUNK ER 

SAVE Q FOR CAP RETURN " 















1174 

REF 

1 



_^0jJ473 

3 47U 

1 


CAF 

20FS 

2CAPSX2(PASSE5/DAP)X2 (CS/PASS ) »ecS*TVCDT 

1175 

REf 

^4 

L^ST 

915 

20.3474 

0 5140 

1 


TC 

HAI TLIST 



_ 1176 

RE f 

4 

L i ST 

943 

fc6. 1667 




EBANK- 

BUNKER 



1177 

REF 

1 



20, 3475 

C35C0 

1 


2CACr 

HACKRIST 



1177 

REf 

1 



20,3476 

40066 

c 






U76 





20.3477 

1 3502 

1 


TCF 

♦ 3 




1179 

_Rtt 

1 . 



20.3900 

3 4367 

1 

hickwlst 

CAF 

TCTS t-eVP 

ENTRY from RAITLIST 


1160 

_RI# 

c: 

^ 

L^ST 

943 

2C.3501 

59'667 

c 


TS 

8LIKK tP 

bONKER IS TC 7ASKOV6H 















1161 

REF 

1 1 

L^SI 

942 

20,39C2 

3 1614 

c 


CA 

S T*- 0 HEP 

STROKE 


1182 

- REF 

i_ 

US1 

92 3 

20 50 3 

26 054 

1 


ADS 

TVCP ITCH 
















1163 

REF 

25 

LIST 

923 

20.3504 

3 4700 

1 


CAF 

dITU 

RELEASE THE ERROR COUNTERS 


- . ilfl4 





20.35C5 

C OOC6 

1 


EXTEND 




1165 

Rtf 

U 

LIST 

924 

2Ct35L6 

05 014 

1 


RUR 

CHAM4 



1166 

REf 

4 

LIST 

941 

20.3507 

25*665 

c 


INCR 

CIDL V 

COUNT CCnN the NG. BURSTS, THIS SLC^PE 
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11H7 

P£f 

5 

LIST 

9^ 3 

2C.3.1111- 

4 1665 

1 

cs 

CAUO T 


11 bb 





10x1511 

Q 0006 

1 

EXTEND 



LLiiS 





20x1511 

6 3514 

1 

BZMF 

♦2 


119C 

SEP 

6 

L311_ 

1 

1 

0^1 

1 

20t3Sl3 

0 1667 

A ___ 

TC 

BUNKER 

EXIT, WHILE CN A SLOPE 























1191 

R£E 

_ 2 

i.iSl 

9^ 

20*3514 

1 1 * 6 10 

G 

CCS 

REVS 


1192 

ftEi 

1 



20x3515 

1 3535 

C 

TCF 

RFVOP 

PCSITIVE REVS 

1193 

«£F 

iL_ 

L^Sl 

9^ 4 

20t3Sl6 

1 3541 

c 

TCf 

REVUF *4 

FINAL REVERSAL, THIS SET 


^194 

AEf 

*3 

LUST 

94 i- 

, 10*3117 

25*671 

0- 

INCR 

CARD 

NEGATIVE REVS SET LAST PASS, READY FOR 

1195 

REf 

4_ 

LiiST 

9<i4 

2C.3520 

4 1671 

1 

__ CS 

CARO 

the NEXT SET. CHECK IF NO MORE SETS 

119<i> 





20,3521 

0 0006 

1 

EXTEND 



1197 

REF 

1 



20,3522 

1 3533 

c 

8ZF 

STRL KILL 

ALL SETS CCRPLETEC 












llSfS 

R.E.f 

5 

LA3J 

944 

20,3523 

51*671 

c 

INDEX 

CAPO 


U99 

R£F 

2 

L4ST 

942 

20,3524 

3 3466 

c 

CAF 

FCARC +4 

PICK LP NC. REVERSALS (-), NEXT SET 

12CQ 

REF 


L 4 b T 

944 

20.3525 

55*67C 

_c _ 

T$ 

REVS 

reinitialize 

1201 

PEF 

6 

L i ST 

94 4 

20,3526 

51*671 

c 

INDEX 

CARO 


12C2 

REF 

3 

LiST 

9^ ^ 

20,3527 

4 3471 

1 

CS 

FCARC ♦? 

PICK OP NO. HORSTS IN 1/2AMP, NEXT SET 

1203 

--R E K 


LiST 

94.i ■ 

. 10*3530 

5 5^6 69 

1 _ 

TS 

N 

REINITIALIZE 

12C4 

REF 

i 

LiST 

944 

20,3531 

55*665 

1 

TS 

CADCT 


1205 

REF 

1 

LiST 

944 

20,3532 

0 1667 

i 

TC 

BUNKER 

EXIT, AT ENC CF SET 


1206 

REF 

12 

LiST 

943 

20,3533 

55*614 1 

StRCKILL TS 

STRCKER 

RESET 

(TO *C) TC END TEST 



1107 

REF 

L_ 

L i S T 

94 4 

20.3534 

0 1667 1 

TC 

FUNK ER 

EX IT. 

STRCKE TEST FINIS 
















120fi 

REF 

_5 LAST 

■244 

20.3535 

S5*67C 

C RLVLP 

T1 

REVS 

ALL 

REVERSALS EXCEPT LAST CF SET 


1209 

REF 

4 LiST 

94 4 

20,3536 

3 16 66 

C 

LA 

N 




1210 




20,3537 

6 OOQU 

1 

COUbLE 

2 X 

1/24MP 


1211 




20,3540 

1 3544 

C 

TCF 

♦* 4 





1212 

RtF 

59 

LiST 

84E 

20,3541 

4 4712 

C 


cs 

(j NE 

FINAL REVERSAL, THIS 

SET 

1213 

R.Lf. 

6 

LiST 

944 

20.3542 

55*670 

C 


TS 

a CVS 

PREPARE TO BRANCH TO 

NEW BURST 

1214 

REF 


LiST 

944 

20,3543 

3 1666 

c 


CA 

N 

JUST RETURN TC ZERO, 

F INAL SLCPE OF SET 

1^5 

REF 

1 

LiST 

944 

20,3544 

55*665 

1 


TS 

CADDY 

CADUP 



1216 

REF 

13 

III 

LiST 

944 

20,3545 

4 1614 

1 


CS 

STFCKER 

CHANCE SION OF SLCPE 


1 2 1 7 

PEF 

14 

LiST 

94 4 

20,3546 

55*614 

1 


IS 

STRCKER 



1218 

REF 

9 

LiST 

94 4 

20,3547 

0 16 6? 

1 


TC 

BUNKER 

EXIT AT A REVERSAL (SLOPE CHANGE) 
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fllCOQ PJCtSi^ MP£-...RCLi AUTQPiLCT* ClI^SlS^l^C Cf ROiLOAPi OURAT ICN iJlQPCLL 1 1 E 

f.lQui GPJCUAL CCDIKG BY f.ii. MARTIN. 1S65 (St^ClAL> _ TC. 

ftlflCa 1.C4 -SiCI ICA... .ROLL AUTQPILCT SOBftGLTlNE. . ..DAPCSM 

KIQOA MCE -Bl iiiClL . . MTE 28 DEC. 1967 ( SOliOISK 1C CCLCS$OS> _ 

iiiaQ5^ FL^CTJCI^AC DfcSCRltllCN... . 


RCOQ6 

R10C7 

KlfllUEL 

_ RIG09 
HlOU 
BJUULl 

R1 fl 1 5 

FI(il6 

Rlfl 1 7 

_RlOle 

Riul9 


fiJi ACiPTATlON Cf THE 1£P P-AKIS CC MPQLL HR 

♦PAiNTAJii CGA hlTKiN 5 CEC CEACBNC CF OCADi WHERE CGAO « CCA AS SEEN 

EY KhQVER tlGMTlOh) 

♦ AAIATAIN CGA RATE LE SS THAN 0.1 CE C/SEC LIMIT CYCLE RATE 
♦jWnCUNG LOGIC IN PHA^E PLANE.... SEE GSOP CHAPTER 3 

♦ LSES U CLOCK tC TIME JET FIRINGS 

♦PAXIMLH JET FIRING TI ME » 2.56 S ECCNCS. LIMITED TO 2.S IF G REATER 

♦PIMMLM JET FIRING TINE • IS MS 

AJEl PMRS FIRE ALTERNATELY 

♦AT LEiST 1/2 SECCND DE LAY BEFCHE A NEW JET PAIR IS FlkEC 

♦JET FIRINGS MAY NOT BE EXTENOECf CN_LY SHC RTENEOt > ^HEN P E-E V ALUAT ICN 
CF A JET FIRING TIME IS MACE CN A LATER PASS 


-81020 CALLIFC SEfiU-ENCfc. ... 

^ RJJlil *RCLLCAP CALL Vlfl^AlTLIST. IN PARTICULAR BY TVCEXEC lEVERV 1/2 SEC) HIZ ^ ZZIZ 

81022 IlLIM-JI aC^ DELAY IQ ALICW FREE TIME FOR CTHER ROP TS (DWNRPT, ETC. I ' 

Fliii MCfM-AL EXn MCCES.... ENDCFJC6 

R1Q2A ^iPM CR AEOrFexIT MODES.... NCNE ~ ^ 

R1Q2 5 SLEPOlI^INES C ALLECT... .NONE J I I 7 713 

Hole CTFER INTERFACES..,. 3773777~3~7~7777733Z7773~7~~~~ ^ 

RID 2 7 ♦IVCEAEC SETS LiP^RCLLCAP TASK EVEPT 1/2 SECOND AND UPDATES 1/CQNACC ~ 

R1026 EVERY 10 iECCNtS (VIA maS SFRGP AMC SAO.ISI 

N1029 ♦TVCPtJTART PACKAGE WILL RE-STA RT RCL L CAP AFTER A RESTART (PICKING 

P BJiUO LF THE ORIGINAL CGADl g 


R1032 ERASAELI IMTIALUATIC N RECUI REC.... 



pioaa 

♦lyCCNACC (S^O.151 




_ 

R.LO 3 A 

♦CCAC (CCLA. AT ICNQVIR) 





R1C35 

♦ CGANOM (CDUK AT TVCIMT4 AND T VCEXECUT I V£ ) 





R103t 

♦ cgapast (ogancw at TVCEAECUT IVE I 





R10362 

♦PCLLFIRt « TtMREG • RCLLWCRD • 0 (NRCLEAN LOOP 

IN TVCLAPCN) 




PL037 

— Ci 











P 1 L 3 6 

♦FCLL .,'ET PAIF FIRINGS 










- - 

RlO^O 

CEERU.f NISCELLANECUS. SHAREABLE WITH RCS/6NTRY, IN 

EBANK6 CNLY 




GAP* gpyistrs 317 rp Ai.r parr.fiAM rrirs;;ij<; Pv naSA ^Ci^llil-C3l ItlT ALC. 2^iiqfcfl DAPCSN .lat P/>Gfc «?<i< 
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PJJ34I SC^£ ^CT£S LK THE PCLL AUTUPllQT. ANC Ih PART ICULAP , ON 1 T5 S».lTC hi>vG 

RIO^Z LCCIC. S£t SECTItR THREfc CF fHfc fiSCP (SUI^OISR/COLOSSUS » FOR CETAILS. 


£1043 3kilCfcift£ LCGIO lli TfcE PHIS 6_ Ri.Ak£ . 


R1044 


CGAPATE 


R1C.45 


t 


Rl£f46 


4 


RIC47 


4 


R1048 


* tPEGICN 1» SEE TEXT BELCh) 


P1Q49 


4 4 


Ri05t_. 


4 


PI051 

(COAST) 

• ,, .PARABOLA (SNITCHING - CCNTRCL) 


Hiosa 


* 


filths 3 


4 4 


PI054 

4 

* (FIRE NEC RCLL JETS) 


R1055 

4 

4 4 


RiC56 

(-CE l♦LRCRATE 

4 


Plus? 


♦ 41 


R1Q56 


4 CGAEPROR 


fii059 

4444*444444«44«#«444444^*4«4*4*44«4««4i»4«#*«4«*4i«r*4i*4i4>«****<»«44i4i4«*«**** 


HIOOO 


* 4 (-AK» CGAERR) 


B1Q61 

♦ 

* (REGION e-FRIPE) 


H1062 


* (SEE TEXT dELCW) 


P1063 

4 

4 4 


Ri064 


4 4 ...STPAICFT LINE 


P1065 

(FIRE PCS ROLL JETS) 

4 4 4 , 


Ri066 


4 (CCAST) 4 


MQfe7 


4 «44«444444 


hioee 


* -NIKLIM 


Hices 


♦ 4 


RIQ7C 


4 


P1071 


4 4 4i 4 *«4444444444 


R1072 


4 “MAXLIN 


R1073 


4 


«iQ74 


4 






Hi075 

SknCI-lKG FAPAtULiS ARE CCNTRCL PAPABCLAS. THUS REQUIRING KNCWLEOCE OF 


P lu76 

CCMPCL ACCELERATION 

CCNACC# CR ns PECIPROCALt l/COKACCt THE TVC 


P1077 

PCLL CAP GAIK (SEE T VCEXECLT I VE VARIABLE CAIN PACKAGE). JET 


K1078 

flPINC TINE IS SIHPLY 

THAT RECUIREC TO ACHIEVE THE CESIREC CGARATE. 


P1079 

JLfcJECT TC TFE LIKITATICKS DISCUSSEC UNDER FUNCTIONAL LESCRIPTlCNt 


P10 80 

ABOVE . 







KI081 

TEE UPIE CCKTPOL PECICNS 

(+t -f akc zerc tcpcue) are comprized cf 


R1082 

TKELVE SUBSET REGIONS 

( AND THL CORRESPONOINO 1-PRIHE... 


R 1083 

€-FRlKE ) SEE 5ECTICN 3 OF THE CSLP (SLNCISK CP COLOSSLS) 



*S^^»*^* * aFm<;ir.ry rf M,r Pkcc.RAt* cnin^sus ay kasa 2tj2iili-C3] lil? ^'UC. 24cl9fe8 DAPlSH .iBfe PAGE 9^7 

L TWCfCLUA£ ^^ZIIZZZZIIII USER'S Pi^GE ^0. 3 EG S3 


PiQ&<i GlVEh^ lfc£_ LPLRATl^G FC IN I >0.1 Ih THE CG/ST JiiGIQili ThC CESIREC CG/RATE 
RlCfib li AT IhE PaiM CF PtNEIPATlQN i)F THE COAST HEGlUN BY TFE CCNTRCL 

R ISiMt PABAfillJ_A liHlGH. PASSES ThRCLGh THI CPkRATlNG POINT. FlR REGION 3 

R IGA? CJil Ffe O QGARATta^ juiPPLY ♦-WAXLl^'. F CP REGIONS I O R t THt SOLl TICN 

KlOfli TC A CUADRATIC IS HECUIHED tTHfc P EH tTR A J S ALONG THE STPAIGHT 

RlUaS LIRE CR NINLIP gCUNCPY ShlTCH LlHES). AN APPROXIMATION IS HACE 

JLLGSQ INSTEAD^ COfiUHtR AN OPERATING PCiAT IN RtGICN 6. PASS A TANGENT TO 

A1091 UE CCNTRCL PAPAfiQLA THRCUCH THE OPERATING POINT, AND FINC ITS 

RIQ92 INIfcPSfcCllQN hlTH THE STPAIGHT LINE SECTION OP THE SwITCH CUPV£>>. 

klJ93 the INTERSECTICN PEP INtS C6SIPED CCAR A 7E. IP THE LPE F AT IN G POINT IS 

HiQ9N ClCiE TO THE SltlTCH klNt* THE AP PffCX IHAT ION IS QU ITE oOCC (INDEED 

aiJCLSLS THE APPROXIMATE AND tUADPATiC SCLUTIONS CONVERGE IN THE LiHIT AS 

A1C96 THE SHTCH LINE IS AP PRCACHEJ) J , IE THE OPERATING POINT I S NOT CLCSE 

R1C97 1C IME SklTCH LINE* THE APPROXIMATE SOLUTION UlVES VAIIL TREND 

aiJ9a lAFCRHATICN (DIRECTION OF CESlPEE CGARATEI AT LEAST. THE 

P1C99 PL- EVALUATION CF DESIRED OCAPATE IN SUeSE.QOENT ROLL DA P PAS SE S (1/2 

HiiCG SECCN C 1N1£RV4L11 MICE BENpFJT FPCM THE CONVERGENT NAJUPE OF TH| _ 

RllOl APPRLXIMATIQN, 


fl 



RilCiai f_CP LAPGt COAEPRQP IHL FANCENT INTERSECTS ♦-MINLIM SWITCH fcCUNDRV 8EFCPE 

ail022 INTERSECTING THE STRAIGHT LINE SWITCH. HCWEVEk THE MINLIM IS ~ ~~ 

RU023 IGNCPEO I N CCMPUTING T HE FIRING TlH£i_SO THAT THE EXTENSION (_l_NTr N 

P1102A TFE CCAST R_LGICM OF THE STRAIGHT LlNC SWITCH IS WHAT IS FJ.aEO TC. 

P1IC2S IF THE POLL CAP HINDS ITSELF IN THE COAST REGION PEFCPE PEACHING ; ' 

R1102 e_ T FE DESIRED INTERSECTION tit* IN THE REGION BETWEEN THE MINLI M 

PUC2T ANL THE STRA1GHT_UNE SWITCH) IT WILL EXI BIT NORMAL COAST-REGION 

RliQ2fi EEHAViOR AND TURN OFF THE JETS. THE PURPOSE OF THIS FIRING POLICY 

HII 029 IS TC MAINTAIN STATIC ROLL STABIL ITY IN THE EVENT OF A JET 

PUC3 PAILIL-XH, 


Rilli WHIN THE CICPATINC PUNT 15 IN P EGICN 1 THE SAME APPROX IH AT I CN 

MllA FACE* BUT AT AN APT I f IC I Al LY-CRE AT |0 QP CuMMY OPERAT ING POINT, 

aillS CEflNEC BY., CCAEPR(jR « INTERSECTICN CH CCNTRQL PARABOLA AND 

PlilG CCAE RPQR AX I S. QGA RATE « ♦-L MCPATE WHERE_iIGN IS OPPCSITt THAT OF 

Nil 17 PEAL CPERATINC PCIN T PATE . WHEN THE UPERATIi^G POI NT >tA< PASSED 

P illfl FPCF REGICN 1 TC REGION 6, THE CLFFY POINT IS NO LONGER PEfcUlRED, 

RIU9 ANC TH E SCLUTICN REV E RTS TO T HAT CF A REGULAR REGION 6 PCINT. 


KlUO 

ECLATICN FCR SWITCHING PAPAECLA (SEE FIGURE AEOVE).... 




R1121 

2 




HU22 

SCGAERROP 3 Ue - (SQCAPATE ) ( l/CCNACC ) /2 ) SON ( SQG AKA T E ) 














KiL2a 

ECLATICN FCR SWITCHINC STRAIGHT LINE SfcGMFNl..,. 









P112A 

SCCAPAT6 « -(-SLCPE) (SCGAEPRCR ) - SGN ( SGG ARATE » INTLKCEP 










H1125 _____ HHEHE INTERC EP ° CB(- SLCFF) - LMCRATE 



III 


R 


-UUU — i figw isin^ r> anf. pnrr.RAM LflLni^ys uv f^ASA 2ii2Uii-c3i iii7 alg, 2^.i9ftg capcsk .186 pace sab 

X TvctCi-tr./p uTepi»s pace no ^ 'r~ To“i3 I~ 

ftll26 ^EXLJXLCH-tilfi .mXRSECTiaN^ C£>TfiQL P^P^eCLA AhP 4TKAIGHT iWJKh LINF.... 

aU27 tcfcAcn « Nu»ycch. w>.eR£ ^ 

ftllZE . Z__ 

-R112C kL» ? t- SL£PE)(CCAB AT£) {l/CChACC t 

Rilia ^SGNtDELCGAl (-SLCPEMCC4EPROR - SGN ( DELCGA MCE H 

A1X21 ♦LRCRATE 

HU 3 2 riEN « l-SLCP£lIQCARfl1EHl/CCMCC> - SGNt^ELQCAl ] 

-81133 2 

PiI3 4 CELCG A ■ CGAEPROP - (C6 - «QCAC OT ) U/CONACC ) /Z ) SO N ( CCACC T f 


-HU35 FCP flEClCKi ^ AND 6-P»li!t_ Dii- ACTUAL CPERA.TI^C POINT (O&A, CCARATEt 


R1136 

_fCP CGAERPQR ARC CGA8AT6 Ih ThE INTERSECTION tQUATIONS AEOVE. 




:ui37 

FCP 8EGICKS 1 ANC I-PRIHE USE OLMPY OPERATING POINT FCP CGAERROP 




P113Q-- 

INC OGARATEi MHERE TFE CUPHY PClNT IS GIVEN RY.... 




H113^ 

CGIEPPOR- DELCCA ♦ CB SGN(CGARATE) 




Hli^O 

CGIPITE* -LMCRATE SGMCGIRATE) 









8I1A1 

JiClE. CCAEPRCP » CGA - QGAC USES CUHPY REGISTER CGA IN RC L L CAP CCOING 




itUA2 

ALSCfAl POINT MHERE DOGAOCT IS COPPUTEOt REGISTER OELCGA IS USED 




PUA3 

IS A CCPHY REGISTER FCR THE CQAE8PCR IN THE NUM CCUATICN ABOVE 





1:17 ALG. 24.iqe8 C*PC5>' tl86 P4Gf 9^^ 
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P11432 fiCLLCiP CCtI^G...4 


2G0C 

REf 


LIST 

9M 

1 6»,ZjIlfl£^ ^ 





^LiLCC DRPRCLL 



2001 





JtLf J212 





BANK 



iac2 

J£f 

9. 

L/ S 1 

Ml 

_ £6 >1672^ 





EBANK> OGANLW 



^QP3 


L_ 








COUNT* ti/FCLL 



iiluc 

RiP 

10 

LIST 

99 9 

ltt_i 2 12 

11*672 

C 

HOLLCIP 

CAE CGANCk 

CGI 

RITE ESTIHATOR...S IHELE FIRST-CPC6R 

2007 





I4«33i3 

C 0006 

1 



EXTEND 


DIFFERENCE <SI“PLE TIME - 1/2 SfCI 

20Cfi 

PEP 


LIST 

.901 

1£^3219 

21*173 

( 



HSU 0&APIS7 



2009. 





16f 3215 

0 00C6 

1 



EXTEND 



2UiQ 

J?£P 

2^ 

LliT 

. 9Q2_ 

1413216 

7 4.7C6 

i_ 



MP eiT5 



2Q1I 

REF 

JXl 

LIST 

992 

16.3317 

22 QOCi 




LXCH A 



. ^C12 

REF 

I 



i6t332Q 

5 5J53 3 

1 



TS OGAPAIE 

SC. IT 8-A REV/SEC 














R2017 

CCIPLiniChS 1 

li H E. ^ 

fCLLDk LSE 

CGd hCR 

CGIERR 

(SIHE REGISTER 1 



_ AZOie 

COPAJICN tf 

LIST ROLL 

F i R INC 

If 

3ETS 

ARE 

NOM ON. 



20 19 

AtP 

2 

. L m 

101 

16 f 3 321 

3 1411 

C 

CUKAT iCN 

CA ROLL FIFE 

SIME 

SGN IS PRESENT TORQ , HAON«PCSHIX 

2Q2U 





16. 3322 

il-QQC6. 

x_ 



EXTEND 




2021 



I6j^2323 

1 

3325 1 

B£f 

♦2 

RCLL JETS IRE 9CK OFF. 

2022 

REF 

1 

16 1 3 3 29 

1 

3333 Q 

TCF 

POLLCCIC 

ENTER LOGlCfJETS NCH ON. 


2023 

REF 

-Z 

LIST 10 1 

14iil25 

li * 6 1 3 

1 

CAE 

TtHF tC 

EXAHINE LIST FIRING INTERVAL 

2029 




16,3;^ 

C 00C6 

1 

EXTEND 


IF PCSITIVE, CCM FIRE 

2U25 

-RLf 

2_ 

LIST 999 

16.3327 

1 3333 

C 

BZF 

FOLLCGIC 

ENTER LOGIC, JETS NOW CFF. 











2026 

REF 

169 

LIST _99 2 

I6i3230 

3 ‘•TlA 

1 

CAF 

ZERO 

JETS Hive NCT BEEN OFF FOR 1/2 SEC. WAIT 

20^7 

REF 

3_ 

Li 11 99 9 

16.3331 



TS 

TLHREG 

RESET TEHREG 

2026 

REF 

16 

LIST 906 

16f3332 

1 5213 

C WAni/2 

TCF 

TASKCVtR 

EXIT RCLL DIP 











K2G29 

CtFRLTE 

CE-{l/2 CCNICC) CCGIPITEISQ 

(1/2 IN THE 

SCAL INC > 


2030 

REF 

2 

list 99 « 

16,3333 

A 1533 

1 RCLLCGIC 

CS 

OGARI76 

scaled at 2(-A» REV/SEC 

2031 




i6j_3 339 

0 00C6 

1 

EXTEND 



2032 

— REF 

9_ 

LIST 907 

16.3235 

7 165C 

1 

HP 

l/CCNACC 

SCALED IT 2(*9» SEC 50 /REV 

2033 




16,3336 

0 C0C4 

1 

EXTEND 



2039 

REF 

3 

LIST 999 

16j 3 3 3 7 

7 1533 

1 

HP 

OGARITE 


2035 

REP 

„ JL 


16.3390 

6 3722 

C 

AD 

OB 

SCALED AT 2(*0> REV 

2036 

REF 

9 

LIST 999 

16, 3 39 1 

55*613 

c 

TS 

TEHRtC 

QUANTITY SCALED AT 2(+0I PEV. 











F2037 

CtT 

-llXJi 

CF CGIRITE 







2036 

REF 

9 

LIST 999 

16,3392 

3 1533 

c 

CA 

QCAPITE 


2C3S 




16,3393 

C C0C6 

1 

EXTtNO 



2090 




16,3399 

6 3397 

1 

t3ZHF 

♦ 3 

LET SGN(OI BE NEGATIVE 

2091 

REF 


LIST 897 

16,3395 

3 9712 

1 

CA 

bITl 


2092 




16,3396 

1 3350 

c 

TCF 

♦ 2 


2093 

REF 

65 

LIST 999 

_ 16.3397 

A A712 

c 

CS 

eiTi 


2099 

REf 

2 

LIST 102 

16, 3350 

55*676 

c 

TS 

SGNRT 

♦ OR ' 2(-lAI 


C4LCUL4U ClST4NCt FBCH SWITCH PARAfciCL* tSELCGJ ~ ~ ' 

20f»6 16i 335l 0 00C6 1 EXTEND 

2D<*7 ref 5 list 9^5 16,3^52 7 1613 C >P TEMPEG SCNICGARATE* TEPREC NCR IN L 


C,API ASStfELt B EVJSIOfc Cf AGC P flCGIAM CCLCSSLi:^ fcsY N ASA 2021111-031 1:1? ALu, 2A.1968 QAPCSP .166 PAGfc 9i>0 
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ZiL*t8 

REf 1C2 

XiST 

9A2 

lij^3152_ 

4 OOCl 

J 


CS 

L 



ZQh'i 

fltE 


LA SI 

i02 

16*1359 

6 1674 

C 


AO 

OGA 

scaled at 2(+c) rev 


2Clb(l 

E 

2_ 

LAST 

102 

16.3355 

55*677 


CELCCAC 

TS 

OiLOCA 

SC. AT 6+0 REV, PLUS TC RIGHT 

OF C-PAPAB 

^2051 

ExirilLE 

SGFICELOCAI 

ANC CREATE CA CR 

c ^ 

INSTR. 

DEPENDING UPLF SIGN. 



2 as 2 





16,3356 

C 0 0 C 6 

] 


EXTEND 




2053 





16.3257 

6 3362 

c 


_ BZRF 

♦3 



2aS4 

RtF 

-12 

LAST 

665 

16.3360 

3 4371 

c 


CAF 

PRIC3C 

«CA (30000) 


2055 





U.3361 

1 3362 

c 


TCP 

*2 



2056 

REF 

36 

LAST 

903 

16.3362 

3 4674 

c 


CAF 

bins 

=CS (40000) 


_ 2^5.1 

JlJi 

2 

LAST 

102 

16.3363 

55»7C0 

c 


TS 

1 
















20 5ft 

REF 


LAST 

93 C 

16.3269 

51*7CC 

1 


INDEX 

1 _ 

TSET CN I SGNICGARATEI 


2059 

Rtf 

3 

UST 

999 

_16,3265 

0 1676 

1 


0 

SGNRT 

CA CR CS 


20£lO 





16^3366 

4 CCOO 

c 


CON 




2061 





16.136? 

G 0006 

1 


EXTEND 




2StZ 

Rif 




16,3370 

6 3441 

c 

RtcnsT 

82NH 

ROLL ON 

IF REGION 1 (CELCCA OGARATE 

SAME SIGN) 














P20fe3 

KC JET FiBt \E1- USI FOR RAX 

CCARATE 







206^ 

Rif 


LAST 

95C 

16.3371 

51*7CO 

1 


INDEX 

I 



2065 

REf 

5 

OAST 

999 

16,3372 

0 1533 

c 


3 

OGARATE 

CA CR CS...BOTH MUST BE NEC. 

HERE 

2066 

RfcF 

2_ 

LAST 

_Iil2 

16,3373 

55»7Cl 

1 


TS 

ICGAPATE 

I.E. I OGARATE 


206 7 

REF 

1 



16,3379 

6 3730 

c 


AD 

MAXL IP 

scaled at 2(-4) REv/sec 


2066 





16,3375 

C C0C6 

1 


EXTEND 




2069 

REF 

L_ 



16. 3376 

6 3520 

(. 

REG 3 T ST 

aZHF 

HATE LIM 

IF REGION 3 (RATES TCO HIGH, 

FIRE JETS) 














K2070 

CCf FU AT ICR CF J ((- 

SLCPE KGA 

4 OGARATE) 

- lRTERCePT..NOTE THAT STR. 

LINE 


hlQli 

S>1TC> SLCFfc 

IS (SLCPEI OEC/SEC/OEGtA 

REG. CUANTITY 




2072 

REF 

6 

CAST 

93C 

16,3377 

3 1533 

C 


CA 

OGAf ATE 



2u73 





U.3A00 

0 0006 

1 


extend 




2Q7A 

REF 

5C 

LAST 

92 9 

16,3401 

7 4675 

C 


PP 

81TI 4 



207 5 _ 

REF 

6 

LAST 

999 

16,3402 

55*613 

c 


TS 

TEMREG 



2076 

RtF 

A 

LAST 

95 C 

lo, 3403 

3 1674 

c 


CA 

OGA 



2077 





16.34C4 

C C0C6 

1 


EXTEND 




2078 

REF 

1 



16. 3405 

7 3723 

c 


HP 

-SLOPE 



2079 





16,3406 

2C 001 

1 


ODOUR L 




206G 





16,3407 

2C OCl 

1 


DOCIIBL 




2C61 





16,341C 

2C OOl 

1 


ODOUBL 


(CCA ERROR POST BE LESS THAN 

4-225 DEG) 

2082 

REF 

7 

LAST 

95C 

16,3411 

6 1613 

1 


AO 

TEMP.EG 
















2C83 

REF 

5 

LAST 

95C 

16, 3412 

51 * 7C0 

1 


INDEX 

I 



206^ 

REF 

2C6 

LAST 

9A9 

16,3413 

0 COCO 

1 


0 

A 

I ( (-SLOPE )CCA<»OCARATE ) AT 2( 

-3)REV/SEC 

2065 





16,3414 

4 0000 

c 


COM 




2066 

REF 

1 



16,3415 

6 3725 

1 


AD 

IHTEPCEP 

SCALED AT 2(-3) REV. 


2087 





16,3416 

4 0000 

c 


COM 




2068 





16,3417 

C G0C6 

1 


EXTEND 




2089 

REF 

1 



16,3420 

6 3625 

c 

REG2tST 

BZMF 

NCPC U 

IF REGION 2 (COAST SIDE OF STRT LINE) 














P2090 

CFECK TC 

SfE 

IF OGARATE IS AbCVE HINLlR 






2091 

REF 

3 

LAST 

95 C 

16,3421 

3 17CI 

c 


CA 

lOCARATE 

ALWAYS NEGATIVE 


2092 

REF 

1 



16,3422 

6 3726 

1 


AD 

MINL IP 

SCALED AT 2(-4) RcV/SEC 





If- 


UJUU j 



^ W 1 ^ 1 1 1 1 

S 23 1 

LF AU£ -gj 

lLC.RAM Li 

cll: 

ti T j 

^4ASA 2C2L11 1-L.M 

La-L 1. 

-AJUii A dJLM- 

I'AAU L A KL ^ F m 

186 PAL-L__95i 


X 

TVCPCLLIAP 








USER* S 

PACE NC. 7 

E6 S3 

















2Q93 





16,3422 

0 dC6 

1 


EXTEND 






2C94 

REF 

2 

tiST 

95C 

16,3424 

6 3625 

G 

RE14TST 

aiMF NQPOU 

IF 

REGION 4 

(CQA5T SIDE OF 

MINLIM) 

















<12095 

ALL XB1A5 CHlCUtt lAClP T LAS L AR lA . . 

t h C 

flRl IN 

THIS INAL L _S_tGHtN 7 _ 






_2fl-9j6 

JllF 


list 

951 

16x3 425 

51* ICO 

1 


INDEX I 






2097 

AEE 


LIST 

95C 

16.3426 

C 1674 

c 


0 DGA 






2096 





16.3427 

4 QOCO 

c 


COM 






2Q99 

Rtf 

2 

LAST 

949 

16 , 3 4 3 C 

6 3722 

C 


AD DR 






2100 





16.3431 

4 0000 

C 


COM 






2LCI 





16,3432 

0 C0C6 

1 


EXTEND 






21C2 

REF 

1 

3^ 

LAST 

951 

16,3423 

6 3625 

c 

RfcG5TST 

BIMF NOROIL 

IF 

REGION 5 

(COAST SIDE OF 

DB ) 


















R2i03 J£li (•til tlfi£ NO.CGAHATE IS hEC. (CP VISA VEPSAKUSE PIKECT STP, LINE. 
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c 

ZL 
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LAiJL 
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53*516 

c 

DXCH 
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U 
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1 

CA 
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2 
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c 
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1 
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1 
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c 
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RfcF 
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c 

TS 
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C 0006 

1 
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0132 

REF 

— Z L4 S T 

IQt 
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t 
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_ 
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CA 
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Q137 
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1 
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21.2251 

-7 15C2 C 

HP 

T5TEPP 
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1 

CA 
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1 
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0 

HP 
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1 
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14 
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c 

CA 

CDUZ 
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2 

LAST 

lOE 

21(2260 

57*637 

1 

XCH 
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1 
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2 
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2 
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1 
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OELT EHP7 
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_L 


CAF 

T UC 


oi5e 

RLf 

1 
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973 

-il»2275 
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TS 
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2 It 2 276 
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1 
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. gifcO 
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972 
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c 


TS 
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1 
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£_ 
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979 
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J_ 


INDEX 
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01603 

PEP 

9 
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973 

21t23C2 
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1 
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0 1 e 0 ^ 

PEP 

9 
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51'5C7 

1 


INDEX 
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PEP 

C 
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1 
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1 
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REP 

K 
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1 


INDEX 
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REP 

c; 
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1 
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11 
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1 


INDEX 
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2 
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21.2311 
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1 


CAS 
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filAi 

REP 

12 
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97 9 

21.2312 

51*507 

1 


INDEX 

OPNDX 
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e 
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979 

21.2313 
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1 


CA 
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1 
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1 
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21.2316 

C C0C6 

1 
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REP 

3 
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21.2317 
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c 
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PICK UP DESIRED PILTER GAINS 

0167 
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L. 



21.2320 

7 3lCl 

c 


NP 

GAIN2 


oue 

REP 

U 

LAST 

979 

21.2321 

51*507 

1 


INDEX 

OPNDX 

ACOT * (.IGM.DORHO 

ClcS 

REF_ 

7 

LAST 

973 

2 1.2322 

21*539 

c 


OAS 

ADClT 

-1 

01 7 C 
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6 
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979 

21.2323 

51*506 

c 


INDEX 

SPNDX 

S/C TCRQOE TC INERTIA RATIO 

0171 

REP 

3 

LAST 

6 6 E 

21.2329 

3 1620 

1 


CA 

KHJ 

SCALED 1950 HI 6001/ (57.3 > 1 16389 i« 1/1,3 
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21,2325 
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1 


EXTEND 
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1 

_LA5T 
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5 15 06 

0 


INDEX 
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2 
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21.2327 

7 1597 

1 


HP 

OFT 


01 75 

KEF 

H 

LAST 

979 

21.2330 

51*507 

1 


INDEX 

OPNDX 


„ 0176 

REP 

£_ 

LAST 

979 

21.2331 

21*539 

c 


OAS 

A OC T 

KHJiCPn 

'Jl77 

REP 

8 

LAST 

97 9 

21.2332 

11*506 

1 


CCS 

SPNDX 


0178 

REP 

1 



21.2333 
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1 
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END CAUCOLATICH OF VEHICLE RATES 

0179 

REF 

L. 
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21.2339 

3 1560 

c 

KMATRIX 

CA 

ATTSEC 
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REF 

2 

LAST 

83C 

21.2335 
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0 


MASK 

L0k>9 


0181 

REF 
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LAST 
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21.2336 

1C 000 

c 


CCS 

A 


0182 

REF 

1 



21.2337 

1 2395 

c 


TCP 

TENTPSEK 


0183 

PEF 

5 

LAST 

97 1 

21.2390 

3 76 71 

c 


CAP 

PR IC39 

CALL PGR 1 SEC UPDATE CP TRANSFORHAT I CN 

0189 

REF 

26 

LAST 

826 

21.2391 

0 5027 

1 


TC 

NCVAC 

HATRIX FRCH GIHBAL AXES TO BODY AXES 

0185 

REF 

18 

LAST 

97 3 

L 6 > 1 5 1 0 




EaANK<> 

KHPAC 


0186 

KEF 

1 



21,2392 

03999 

c 


2CACR 

AHbClPCT 


0166 

REF 

1 



21.2393 

99C66 
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REF 
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21.2399 
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CAP 

NINE 


— 
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CEUYE * CHUIL ♦ CELCDUV (CCLBLE PRECISION) 




LCliZC « CCL 2 C ♦ CELCCU 2 (CCLBLE PRECISION! 





Aoias 

TEE STEEPING PROGP/PS- 


R0196 

A! AITITLCE PANELVER RCUTINE 


Rfii98 

2! LEP TRACKING 





aflisa 

ShCLLt CENERAIE T ► E CRStREL ANGIES (CCLAC. CDLYL. CDiiZC) AS VELL AS THE INCREPENTAL ANGLES (CELCCU)(t OELCOUYt 


. _ ftOZCii 

CELCDL 21 SL THAT THE ClHbAl ANGLE CONPANPS CAN BE INTERPCLATEC 6LTWEEN UPDATES. 





fi02C3 

HCLCFLiC CCL INC- 



HD 2 C 4 _ 

♦ • CPAb PRESENT CPU A?iCLCS ANC STCRE iN THETAOX. THtTACV, ThEIACZ 


RQ2C5 

AND PERFCBP ATTITUDE HCLD ABCLT THESE ANGLES 



alii; iUNCRE AUTCPATIC STEEPING 


RC2C7 

SIT ■ ♦ Si 


RQ2Ca 

IJ IMTIALIZATiCN PHASE CF AUTGPILOT 


fiflZCS . 

21 CCCURANCE CF RHC CCPPANOS 


RQ21C . 

3) FREE PCCE 


R021i 

A) SNITCH CVEP TO ATTlTLCE HCLD FRCP AUTC 


PQ2I2 _ 

MHILE DOING AUTCPA7IC STEERING (IN THIS CASE 


RCil2C3 

HCLDFIAG IS NOT ACTLALLY SET TO ♦, BUT THE LCGIC 


RJ212C!3 

FUNCTICNS AS IF H REPE.) 


PC212J 

5) S/C CCNTRCL SNITCH IN SC S 


A02122 _ 

61 (PL PCWER CFF 


PCI213 

♦C « IN ATTITLOE HOLD ABOLT A PPEVICUSLY ESTABLISHED REFtPFNCE 



- » PfRFCPMING AUTOHATIC HANEUVEF 


PQ215 

-C * NCT LStO AT PRESENT 






-- Razli 

NCTE THAT THIS FLAG POST BE SET « - EY THE STEEPING PRCf-RAP IF IT IS TC CCPPANC THE AUTCPUOT. 


RQ2 1 1 

SINCE ASTRCNAUT ACTICN MAY CHANGE THE HCLDFLAG SETTiNGt IT SHCULG BE MCNITOREO BY THE STEERING PROGRAM TO 


RG22t 

GETERPINE IF THE ALTCPATIC SECUENCE HAS BEEN INTERRUPTED AND IF SC » TAKE APPRCPRIATE ACTICN. 



_Q222 

REP 

- _i_ 

LAST 

974_ 

2 1 • ^ 346 

A 1332 

C 


CS 

HCLDFLAG 



0223 





2X(23A7 

0 COOo 

1 


EXTEND 
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L_ 



21t23S0 

6 2375 

I 


eZMF 
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CCMMANDS 


C22t 

REF 

At 

LAST 

97A 
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3 A? 11 

1 
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CAF 

ThO 



>227 

REF 

S 
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97^ 

21.2352 

55»5C6 

1 

DELCCP 

TS 

SPHDX 



r ? •“ u 





21.2353 

6 COOC 

1 


OGUUL E 





REF 

15 

LAST 

97A 

21* 235A 

55'5C7 

C 


TS 

DPNCX 



Q23>: 





21.2355 

C 0G06 

1 


EX lENC 




0231 

REF 

22C 

LAST 

*77^ 

21.2356 
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1 
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A 
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HEP 

9 

LAST 

3 83 

21.2357 

3 r6A 7 

0 


uCA 

couxc 
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024Q 

REF 

10 

LAS^T 
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c 

INDEX 
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REF 

5_ 

LAST 
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21.2370 

55*572 

1 

TS 
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0242 

REF 
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LAST 
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1 

INDEX 
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REF 

10 

LAST 
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21.2372 
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1 
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REF 
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SELECTED BY V63E 
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80258 

MCCE 1 15 FRO^mtC AS A MCMICR CF THE PCS CAP ANO_^ ITS AftiLITY 7C TPACX AUTCPATIC STEERING 

CCHNANDS. 

IN THIS 


Ktj256 

MCCE THE ATTITUDE ERRORS hlLL BE ZEROED WHEN THE CHC 

MODE SWITCH IS IN FREE 
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A£CE 2 li FRCVIDEC TC ASSIST THE CPEN IN PANUALLY MANEUVER INC ThE S/C TC THE 
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SPECIFIED 


80261 

IN N22- THE AlTITUOE ERROILS hR T THESE ANGLES ANC THE 

CUPPENT ecu ANGLES ARE 

RESOLVED 

INTO 

S/C 

CONTROL 
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RG2t33 
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COARSE 
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CS RCSFLACS IN EeANK6 
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THEPEAFTERi THE ATHTUDE fcRRCPS GENEPATEC BY THE USER SHOUt U BE TRANSFEREC TC 
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PG3C8 
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CAF 

0IT1 5 



0541 





21.2642 

0 G0C6 

1 


EXTEND 




0542 

REF 

9 

LAST 

95 5 

21.2643 

C5 013 

0 


WQR 

CHAM3 
















0543 

REF 114 

LAST 

980 

21.2644 

0 CQ02 

c 


TC 

Q 




- 0544 

REF 

6 

LAST__ 

9-8 3 

21.2645 

11*617 

1 

T5PHASE2 

CCS 

ATTKALMN 

IF <4) INITIALIZE RATE ESTIMATE 


-- 0545 

lEP 

L_ 



21.2646 

1 3132 

0 


TCP 

KALU FCT 























21.2647 

1 2651 

0 


TCP 

♦ 2 

ONLY IF ATTKALMN POSITIVE 


0547 





21,2650 

1 2651 

0 


TCF 

+ 1 



C548 

REF 

2 

LAST 

97 1 

21,2651 

3 2142 

1 


CA 

OELTAT72 

RESET FOR PFASE3 IN 20 MS 


0549 

REP 

2C 

LAST 

902 

21.2652 

56 030 

1 


XCH 

TIMES 

(JET SELECTICN LOGIC 1 


0550 

REF 

4 

LAST 

962 

21.2653 

27*634 

c 


AOS 

T5T IRE 

TC CCRPENSATE FCR DELAYS IN T5RUPT 
















05501 

REF 

21 

LAST 

984 

21,2654 

3 1501 

1 


CA 

FCSFLACS 

IF A HIGH RATE AUTO MANEUVER IS IN 


05502 

KEF 

4 2 

LAST 

984 

21,2655 

7 4674 

1 


MASK 

aiTi 5 

PROGRESS (aiT 15 OF PCSFLAGS SETI, 

set 

05503 





21,2656 

0 0006 

1 


EXTEND 


ATTKALMN TC -1 


0 5 504 

REF 

1 



21,2657 

i 2661 

c 


ezF 

NOMUUTG 

OTHERUISE SET ATTKALMN TO 0. 


05505 

REF 

1C4 

LAST 

982 

21,2660 

4 4712 

c 


CS 

ONE 



C55C6 

REF 

7 

LAST 

964 

21.26C1 

55*617 

1 

NGhIAOTQ 

TS 

ATTKALMN 
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PCiiSl 



RAhLAL JitlAUCM CCMHAhti 





Qi52 

R£f 

X 



2U2662 

4 3016 

1 _ 

CA 

OLTOlTfcO 

RESET FOPCEO FIRING 8ITS IBITS 10 TO 5 



REf 

L2_ 

1 AST 

. 

21.2663 

7 1501 C 

MASK 

fvCSF LAGS 

OF RCSFLAGS* TC ZERO 

0534 


3J 

-LiSl _ 

535 _ 

22e2£34 

55'5Cl. 

_i 

TS 

FCSFLACS 



















21r26fe9 

0 0006 

1 

EKTtMU 



0336 

R£f 

e 

LAST 

a7i 

21»26A6 

QC 021 

C 

READ 

CHAN31 


0557 

REF 

126 

LAST 

9BG 

21i2667 

54 001 

1 

___ TS 

L 



HEF 

2- 

LAST 

-98 2 

21.2670 

3 1632 

1 

CA 

L1131TEPP 


Q53S 





-21*2671 

0 0006 

1 

EXTENO 



C56t 

PEF 

LL. 

L/ST 

942 

_21*26T2 

06 CCl 

c 

RXOR 

LCHA^ 


0561 

PEf 

L_ 



21.2673 

i5d22 

c 

MASK 

HANRCT 

• nCT00077 

JL562 





21t2674 

C 0006 

1 

EXTEND 



0563 

PEF 





ilt2675 

6 27 1C 

c 

BlMf 

NOCHAKGE 













0564 

BEf 

XZA L15JL 

-952. 

-21*.2e76 

22 0.0 0 

i 

LXCH 

A 


Q563 

BLF 

^4 

LAST 

963 

^1*267 7 

55 '632 

c 

TS 

CH31 TFPP 

SAVE CCNTgMS CF CHANNEL 31 IN CH31TEPP 












0566 

R£f 

121 

LA5T 

935 

- 21*2700 

3 00^1 

c 

LA 

L 


0567 





2lj^Ul 

0 0006 

1 

EXTEND 



0566 

REF 

33 

-LIST 

949 

21.2702 

7 4706 

c 

MP 

BITS 

PUT BITS 6-1 CP A IN BITS 10-5 OF L 

U56S 

REF 

UE 

LAST 

985 

21.2703 

3 000 1 

€ 

CA 

L 


0570 

REF 

3A 

LAST 

9b5 

— ^ — 

21|2704 

2T5CI 

c 

AOS 

RCSFLACS 

SET FORCED FIRING BITS FOR AXES WITH 

AQ5T1 










WITH CHANGES IN COMMAND. BITS 10.9 FOR 

A057^ 










ROLL, BITS e.7 FOR YAW, BITS 6,5 FOR 

A0573 










PITCH 


05 74 

HEF 


LAST 

9 95 . 

21.2705 

4 

1501 

C 

CS 

kcsf lags 

SET RATE camping FLAGS (BITS 

13, 12 , AND 

0575 

REF 




21.2106 

7 

3023 

1 

MASK 

OCT 1 6CCC 

11 OF RCSFLAGS) 


Q5 It 

2£L_ 

It 

LAST 

-98 5 

21.2707 

27 

*501 

C 

ADS 

RCSF LAGS 
















3577 

REF 


LAST 

985 

21.2710 

4 

1632 

C 

NCCHANGE CS 

CHBITEMP 



0578 

REF 

2_ 

LAST 

98 5 

21.2711 

7 

3022 C 

MASK 

MANRCT 



0579 





21.2712 

0 

C006 

1 

EXTEND 




0580 

REF 

\ 



21.2113 

6 

3234 

1 

BZMF 

ahfncrct 

IF NO MANUAL COMMANDS, GO TO 

AHFNCROT 














.0581 

fi£P 

Jll 

LAST 

90i 

-21.2 714 

53 

*33? 

C 

TS 

hOLDFlAG 

SET hCLCFLAC ♦ 















05 62 

ft£F 

2-- 

LIST 

-53 1 

21.2715 

0 

3114 

c 

TC 

stickchk 

WHEN THE RHC IS OUT OF DETENT 

, HMANNOX, 

Aa583 











YMANNCXf AND RMANNDX ARE ALL 

SET, BY 

A05(j4 











MEANS OF STICKCHK, TO 0, 1, OR 2 FOR NO, 

AQ585 











♦. OR - RCTATICN RESPECTIVELY 

AS 

A 05 66 











CCHMANOED BY THE RHC. 















A05B7 











HOWEVER. IT IS WELL TO NOTE THAT AFTEa 

60568 











THE RHC IS RCTUPNED TO DETENT 

t the 

40569 











PROGRAM BRANCHES TO AHFNQROT 

AND AVOIDS 

A0590 











STICKCHK SO PMANNOX, VMANNOX, 

AND 

A059L 











rmanncx are nct reset to zero 

but rather 

Aa592 











left SET TC THEIR LAST OUT OF 

DETENT 
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AflSS3_ 


VALUES. 


il5Q4 

Jill 

12 i AST 

776 

^1.1716 

4 

0075 

1 

cs 

FLAU^PCl 

SET STIKFLIC TO INFORM STEERING 


_Qi35 

REF 

IL 

-L4S.T _ 

971 

_ lUl 7 17_ 

7 

^6 75 

0 

MASK 

0IT14 

PROGRAMS (P20) THAT ASTRONAUT HAS 


C5S6 

HEF 

13 

LAST 

981 

Ilf 2 120 

2< 

C75 

J_ 

ADS 

F L AG ki PD 1 

ASSUMED ROTATIONAL CONTROL OF SPACECRAFT 



US 81 

-Rtf 


LIST 996 

1^1.1711 

3 

4615 

1 

_ CAF 

BIT14 



QS.S8 





_2lf2722 

0 

0Q06 

1 

EXT6NC 




U59S 

REF 

S 

LAST 

985 

21.2723 

02 

031 

1 

RAND 

CHANai 



060U 





2if 272A 

0 

0006 

1 

EXTEND 




U^Ol 

REf 

1 



21.2125 

6 

3035 

1 

BZHf 

FFEEFUNC 
















a602__ 

REf 

37 

LAST 

985 

^1.1716 

3 

1501 

1 

CA 

RCSFLAGS 

EXAMINE RCSFLAGS TO SEE IF RATE FILTER 


0603 

REF 

It 

LAST 

986 

21.2727 

7 

4675 

c 

MASK 

B ITl 4 

HAS BEEN IhITlALIZEO 


Q6C<t 

hef 

21S 

LAST 

985 



~ OCQ 

0 

CCS 

A 

IF SO, PROCEED MITH MANUAL RATE COMMANDS 


. ^6X5 

REF 

1 

LAST 

972 

21.2731 

1 2520 

c 

TCF 

REINIT 

TILT, RECYCLE TQ INITIALIZE FILTER 















Q6Qto 

REF 

23 

LAST 

951 

21,2132 

4 

4715 

1 

CS 

FIVE 

IF MANUAL MANEUVER IS AT HIGH RATE. SET 


06 QJ 

Rtf 

5 

LAST 

68^ 

21.2733 

6 

1130 

1 

AO 

PATE I4CX 

ATTKALMN TC -1. 


06ue 





21,2734 

U 

0006 

1 

EXTEND 


OTHEPNlSt, LEAVE AtTKALMN ALONE. 


06C8 





21.2735 

6 

2740 

.c 

B2HF 

♦ 3 



0610 

REF 

iC5 

LAST 

98^ 

21,2736 

4 

4712 

c 

CS 

LFiE 



0611 

REF 

fi 

LAST 

90^ 

21,2737 

55 

*617 

1 

TS 

ATTKALMN 




0614 

RtF 

42 

LAiT 

9ac 

2ii2J4<J 

3 4711 

1 

CAF 

TWC 

ALTO-HCLC MANUAL ROTATION 


0615 

REF 

24 

LAST 

98 4 

21.2741 

55*506 

1 

SETtaBOCY TS 

SPNLX 




0616 





21,2742 

6 OOOU 

1 

DOUBLE 





0617 

REF 


LIST 

976 

21,2143 

55*5C7 

C 

TS 

DPNL X 




0618 

- REF 



986 

21.2744 

51*506 

c 

INDEX 

SPNDX 

RMANNDX - 0 NC 

ROTATION 


0619 

REF 

m0 

LAST 

537 

21,2745 

3 1656 

c 

CA 

FMANNCX 

• 1 ♦ 

RCTAT ION 


0620 





^ 1 I ^ 1^6 

0 0006 

1 

EXTEND 


- 2 - 

ROTATION 


Q621 

REF 

1 



21.2747 

1 2771 

c 

BZF 

NCKATt 

IF NC HCTATICN 

command CN THIS AXIS, 


AQ622 










GO TC NORATE. 




0623 

REF 

6 

LAST 

986 

21.2750 

6 1130 

1 

AO 

H ATE INOX 

RATEINOX > C 0.05 OtG/SEC 


0624 

REF 

IS5 

LAST 

984 

21.2751 

54 0C2 

1 

75 

Q 

« 2 0.2 DEG/SeC 


0’^625 

REF 

1S6 

LAST 

966 

21,2752 

5C 002 

c 

INDEX 

Q 

- 4 0.5 DEG/SEC 


0626 

B8F 

L_ 



21,2753 

3 3023 

c 

CA 

MANTABLE -1 

» 6 4.0 DEC/56C 


0627 





21,2 754 

0 0006 

i 

EXTEND 




0028 

REF 

29 

LAST 

7ac 

21,2755 

7 47C2 

1 

MP 

fe IT9 

MULTIPLY MANTA8LE BY 2 TO THE -6 


062 9 

REF 

19 

LAST 

986 

21,2756 

51 *57rr 

1 

INDEX 

DPNDX 

nr GET COMMANCeC RATE. 


C63C 

REF 

11 

LAST 

982 

21,2757 

53*526 

c 

CXCH 

mBOCY 

SET heCOY TC COMMANDED RATE. 














a63i 

REF 

2fc 

LAST 

966 

21.2760 

3 1501 

1 

CA 

fcsflacs 



0632 

REF 

2 

LAST 

985 

21,2761 

7 3023 

1 

MASK 

OCT160C0 

IS RATE DAMPING CCMPLET60 IBITS 13,12AND 


0633 





21,2762 

0 0006 

1 

EXTENU 


11 OF RCSFLAGS ALL ZERO. I IF SC, GC TC 


J634 

REF 

1 



21.2763 

1 3001 

1 

BZF 

MEPUFCAT 

M6RUP0AT TC UPDATE CUMULATIVE ATTITUDE 



A0635 


EPRQP. 
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atit 

RtP 

XI t 

XAS3 

9 £3 

21.2764 

i 4 714 

1 

ZEBCLR 

CA 

ZERO 

ZERCE'’ ZEPGS PEFRCBS 


C637 
u63fi 





21 . 2765 

12 007 

C 


2L 




Rf F 

!£_ 

1 AST 

QB£ 

21,2766 

51*5t7 

1 


_lFi£lEX„ 

DPhO 



Ut39 


2 

_Xiil 

974 


_ il*_542 

1 


OXCH 

MEF hLRX 



:64a 

Rtf_ 

1 



-21, 2110 

-L^OO? 

1 


TCF 

SPNOXCHK 
















UQ 41 





21, 2771 

22 QC7 

c 

NQRATt 

ZL 




:642 

PtF 

2X 

L4ST 

987 

21, 2772 

5 L' 5C7 

1 


INUEX 

DPNL'X 



0643 

aLL. 

12 

LfST 

966 

21.2773 

53*526 

< 


DXCH 

ViECjOT 

ZERC ii8C0V FCP THIS AXIS 



KEf 

29 

LAST 

98t 

21,2 774 

3 1501 

I 


CA 

F CSFIAGS 



;e45 

P£F 

<1^ 

LjtST 

906 

21,2775 

7 3023 

1 


MASK 

OCTl £OCO 



0646 





21.2776 

0 OOOo 

_L_ 


eXTENL 


IS RATE DAMPING COMPLETED 


(.647 

hlL 

2 

LAST 

987 

21,2777 

1 3007 

1 


azF 

SPNOCHK 

YES, KEEP CURRENT MERRCRX GC TO SPNOXCHK 


Q646 

RtF 

1 



21,3000 

1 2764 

1 


TCF 

ZERCjEB 

NC,GC TO ZFFOER 



U £4 9. 

-Rtf 

X51 

LISJ 

._96t_ 

2^1.1001 

0C2 

C 

pebupcat 

INDEX 

Q 

HeRRCRX=»MFRRCRX*“tASUREO CHANGE IN ANCLE 


063Q 

REF 

2 

LAiL 

__9 86 

21,3002 

4 30 23 

1 


CS 

MANTABIE -1 

-COMMANCEO CHANGE IN ANGLE 


Q641 





■21.3QL3 

0 0006 

JL- 


extekcj 


THE ACOITICN CF MEASURED CHANGE IN ANGLE 


'JciSi2 

REF 

41 

LAST 

76 1 

21,3CC4 

7 4704 

1 


MP 

faIT7 

HAS ALREADY BEEN DONE IN THE RATE FILTER 


0653 

REF 

2Z 

LAST 

987 

iJt3g05 

51*50? 

1 


INDEX 

V PND X 

CCMMANOED CHANGE IN ANGLE - WBOCY TIMES 


0654 

ati_ 

4- 

LAST 

987 

21. 3006 

21*542 

1 


DAS 

MLFRCBX 

.ISEC • MANT4fiLE ENTRY TIMES 2 TC THE -3 















C655 

RLf 

23 

LAST 

_ 907 

i_U3G&7 

5i’5C? 

1 

SPNCXCHK 

INDEX 

DPNDX 



0656 

RLE- 

5_ 

LAST 

98? 

21.3Q1Q 

3 1541 C 


JLA 

MERKCRX 



U65 7 

R£F 

26 

LAST 

966 

21,3011 

51*506 

C 


INDEX 

SPNDX 



0656 

REF 

6 

LAST 

97C 

21,3C12 

55*567 

c 


TS 

EBRQPX 

ERRGRX « HIGH CROER WGRO OF MERRCRX 


0659 

REL. 

27 

LAST 

967 

21.3013 

11*506 

1 


CCS 

SPNDX 



C66C 

REF 

1 



21, 3C 14 

1 2 74 1 

c 


TCF 

SfcTweCDY 



0661 

REF 

1 



21,3015 

1 3425 

c 


TCF 

JETS 




0662 


21.3016 

C1760 

1 

CCTC1760 

OCT 

0i76C 

FCRCEC FIRING BITS PA5R 












J fc t 3 


21.3017 

_C1400 

1 

0CTC1400 

OCT 

U1400 

ROLL FORCED FIRING MASK 

OPOfeR OF 

C664 


21,A02O 

C0060 

1 

CCT00060 

OCT 

0C06C 

PITCH FOrCEC FIRING MASK 

OEFIMTICN 

0665 


2 1 . 3 C 2 1 

__C030Q 

1 

QCT0C>30U 

OCT 

OC30C 

YAW FORCED FIFING MASK 

MUST HE 

A06t6 









PRESERVED 

AU667 









FOR INDEXING 

U 6 6 6 



00077 

1 

MANRCT 

DC r 

77 



:66S 


21. 3C23 

160C0 

C 

OCT 160QU 

CCT 

160CC 

RATE CAMPINC FLAGS MASK 


*-i7C 


21,3024 

CC165 

C 

MANTABLE 

DEC 

.OC 7 1111 



0671 


21, 3025 

77612 

1 


DEC 

-.C071Ui 



067^ 


21, 3C26 

CC722 

C 


DEC 

.02044^ 



w673 


21. 3027 

77055 

1 


DEC 

-.C2 8444 





21, 3C30 

C2215 

C 


DEC 

.071111 



0675 


21, iC3i 

75562 

1 


DEC 

-.(.7 1111 



067t 


2i,3C32 

22151 

1 


DEC 

.566089 



0677 


21, 3033 

55626 

C 


DEC 

-.560889 



U678 


21, 3C34 

CC027 

1 

• ♦ 1 4 N S 

DEC 

23 



0679 

Rtf 

4 LAST 986 21,3035 

51*656 

c 

FREEfUNC 

INOEX 

F HANNCX 

ACCELERAT ICN 



tmm 
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oiiac 

Rlf__ 

1 


_2iU03_6 

3 3047 

1 

CA 

FREE TAU 

CCMPANCS 


Od£l 

K£f 

2 i^ST 

106 

21i3037 

55'561 

c 

TS 

TaU 




aif 

3 LiST 

53i 

21.3C40 

11' 651 

1 

INDEX 

PHANXCX 



Qtt2 

8£l 

2 L4S_T 

9S6 . 

2i.3CAl 

3 3047 

1 

CA 

FF Et TAU 

PPEEIAU C SEC 



_ A£f 

2 LJSt 

2.06 

22t_30A2 

55*562 

_c 

TS 

TAUl 

♦1 ♦C.IO SEC 


06£5 

a£f 

_J US I 

-531 

-21.3043 

51*660 

c 

INDEX 

YHANNCX 

♦2 -C.IO SEC 


U_6 &6 

_Rf_f 

1 -UM 

988 

21xlC^4 

3 3047 

1 

CA 

FREE TAU 

(♦31 C SEC 


oae? 

REF 

2 U5T 

1Q4 

21, 3C45 

55*563 

1 

TS 

TAU 2 



Lbtit 

Rli 

_J 


21.3046 

1 3053 

C 

TCF 

T6PR CGP 




Qae9 




_^2 1,30-4 7 

_ tfiOOQ 

1 FREE 

TAU DEC 

0 



0690 




21.3C5C 

00740 

1 

DEC 

«*60 



0691 




21.3C51 

77037 

C 

DEC 

-48C 




CfcS2 21*3052 COQOQ 1 D6C 0 


U693 

Rif 

117 

L AAT „ 

987 

21,3053 

3 4714 1 T6PRCGP 

CAP 

2ERC 


FCR RANUAL POTATIONS 





0094 

REF 

1 

LAST 

987 

21,3054 

55*567 C 

TS 

EkRCRX 







C695 

REF 

4 

LASf 

97C 

21.3C55 

55*570 C 

TS 

ERRCPY 







0.096 

RET 

3 

LAST 

97C 

21*3056 

55*571 1 

TS 

ERROR 2 







C697 

REF 

1 



21, 3057 

1 3743 C 

TCF 

TtPRCG 
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flAQQ 





^1. 306? 

C6604 

JL- 


DEC 

.2112 

FILTER GAIN 

^R 3 DEGREE/ sec MANEUVERS 

.0700 





ill 306 3 

02031 


CAlNl 

DEC 

.G63C 

KALMAN FILTER GAINS FOR INITIALIZATION 

07 OL 





1Ll3C63 

12132 

1 


DEC 

.318C 

OF ATTITUDE 

PATES 

0702 





21.3065 

13C3Q 

_L_ 


DEC 

.3352 



0103 





_ 21 13066 

13037 

1 


OEC 

.3774 



0703 





2 Li 3C 6 7 

15231 

1 


DEC 

.4161 



0705 





21.3070 

16650 

C 


UEC 

.4633 



_0706._ 





21.3071 

2C555 

C 


OEC 

.5223 



0707 





21,3072 

23065 

C 


DEC 

.597C 



0708 





21. 3C7i 

26137 

c 


DEC 

.6933 



C7C9 





Ilf 3073 

32053 

C 


OEC 

.6151 



0710 





21.3C75 

357 12 

C 


DfcC 

.9332 
















C7101 





21^016 

_0C 315 _C 


DEC 

.0173 

FILTER GAIN 

FCR TRANSLATICN. LEM ON 

0711 






13312 

1 


DEC 

.36UC 

FILTER GAIN 

FCR TRANSLATION {NNHNNIOT 

0712 





21.3100 

00335 

_c_ 


J3EC 

.0174 

FILTER CAIN 

FCR 3 OEGREE/SEC MANEUVERS 

QI13 





_2i.3iQl 

GC032 

c 

GAIN2 

DEC 
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989 

1 7 fl 2 6 3 Ci 

7 6214 

1 

MASK 

THRE F 




00.31 

REF 

2 

LAST 

105 

17,2631 

55*513 

0 

TS 

XNOX 1 

AC QUAD X-TRANSLATICN 

INDEX 


0032 

REF 


LAIT 

105 

17,2632 

55*514 

1 

TS 

XNDX2 

BO QUAD X-TRANSLATIQN 

INDEX 


^033 

-ML. 

29 

■LAST 100 7 

17,2623 

3 15C2 

1 

CA 

T5TEMP 




003A 





17,2634 

0 OOOo 

1 

EXTEND 


1 • ♦ XLN 



... 00 35 

REF 

42 

LAST 

907 

17,2635 

7 4704 

1 

MP 

BIT? 

2 • - XLN 



Q03O 

-i*EF 


LAST 

100 7 

Z7,1636 

7 6214 

1 

MASK 

THREE 

3 * NC XLN 



0037 

RI.F 

3L. 

LAST 

105 

17,2637 

55*515 

c 

TS 

VNCX 

Y-TRANSLAT ICN INDEX 
















0038 

_B£f 

3C 

-LAST 

10 Q 7 

17,2640 

3 1502 1 

CA 

T5TEMP 




0029 





17,2641 

0 0006 

1 

EXTEND 





COAO 

REF 

2i 

LAST 

985 

17,2642 

7 4706 

c 

MP 

r 1T5 




OQ^l 

REF 

32 

LAST 

100 7 

17,2643 

7 6214 

1 

MASK 

THFf E 




00<i2 

REF 

2 

LAS 1 

105 

17,2644 

55*516 

t 

TS 

2NDX 

Z-TRANSLATICN INDEX 


















— HLF 

7C 

-LAST. 

929 

117,2645 

3 1466 

1 

CA 

CAPO ATr 1 

SET ATTKALMN TO PICK UP 

FILTER 

CAINS FOR 

00<»32 

REF 

i2 

L AS T 

J.00 5 

17,2646 

7 4675 

0 

MASK 

bl ri 4 

TRANSLATICNS. 



U0<»34 





17,2647 

0 0006 

1 

EXTEND 


CHECK dAPOATRl BIT 14 FOR LEM ATTACHED. 
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__au 



17,2650 

1 Zt52 

1 


BZF 

NOl EM 




_flOA3E 

REF 

12 

L4ST 1007 

l?t2C51 

4 6214 

1 


cs 

THE EE 

IF LEM IS ON, SET ATTKALMN « - 

3 


0<144 




17^2642 

1 2654 



_Tx:^ 





CyAA2 

fl£f 

44 

UAl _ 95_fi_ _ 


_ A 4 7 U 

C 

N.CLEM___ 

cs 

T WC 

IF LFM IS CFF, SET ATTKALMN * 

-2. 


Qil44^4 

Rf F 

±C^ 

i^Sl 98S 

17*263^ 

55*617 



TS 

ATTKALMN 




QQ4S 

REF 

4_ 

LAST tiR* 

17.26S5 

11*631 

X- 


CCS 

XTRAMS 

(4, -1. 0) 



Q0A6 


4 

LAST ipg? 

17,2 656 

55*513 

c 


TS 

XNDX 1 

USING 00-X ZERC XNDXl 



wOmT 

REF 



17.2657 

1 2671 

1 


TCF 

PWCRC 




0046 

REF 

1 

m 

LAST 1007 

17.2660 

55*514 

1 


TS 

XNDX2 

USING AC-X ZERC XNDX2 



0049 

REF 

2 

LAST looe 

17,2661 

1 2671 

1 


TCF 

PWCRC 




0050 




17#2662 

C77CC 

1 

XLNMASK 

OCT 

7700 





Q05i l7iajLfc3 377J2 1 DELTATT3 06C „ 16378 = 60 MS 

iiiliZ 17.266^ 37776 C 0ELATT20 PEG 16362 * 20 MS 


ilJ35J 

ref 


ijii 

lOQC 

-111 16 6 5 

55*513 


NCXLNCMC 

TS 

XNDX 1 

ZERO ALL BEQUESTS FOR TRANSLATION 

0054 

REF 

4_ 

LAST 

1.008 

17,2666 

55*514 

) 


TS 

XNUX 2 


0C55 

REL 

4 

LAST 

1007 

17,2667 

55*515 

C 


TS 

YNLX 


J056 

REF 


LAST 

1007 

11,2670 

55*516 

c 


TS 

ZNLX 



AQfl5 7 

^ llCfc XCKMANCS I_1M IN & (NO X - 

IlAMi^M 


QUAD FAILS) 

i2MCT 















Q05fi 

REF 

Cl 

M 

_Li5T 

1QQ4 

17.2671 

11'562 

c 

PWOPC 

CCS 

TAUl 

CHECK FOR PITCH COMMANDS 


REF 

1 c 7 

LAST 

993 

17,2672 

3 4712 

1 


CAF 

ONE 


C06C 





17,2673 

1 2 6 75 

c 


TCF 

+ 2 

C » NC PITCH 

0061 

_a£i_ 

45 

LAST 

100 e 

17.2674 

3 47U 

1 


CAF 

T Ht 

♦1 - ♦ PITCH 

0062 

REF 

2 

LAST 

L0 5 

17,2675 

55*52C 

c 


TS 

PINLEX 

♦2 - - PITCH 













0063 

RE F 

C 

^ 

LAST 

-68 6 

17,2676 

11*616 

< 


CCS 

RACF AIL 

Flag for real ac auAb failures 

ao64 

REF 

l_ 



17,2677 

1 2703 

c 


TCF 

AFAI LP 


0065 

REF 

1 



17,2700 

1 2713 

1 


TCF 

TABECCM 

0 > NC REAL AC FAILURES 

QQ66 

Rtf 

L_ 



17,2701 

1 2705 

c 


TCF 

CFAILP 

♦ « A QUAD FAILED 

0067 

REF 

2 

LAST 

100 E 

17,2702 

1 2713 

1 


TCF 

TABPCOM 

- - c cuAc failed 

ACg68 











IF FAILURES ARE PRESENT IGNORE 

A0Q69 











X-TRANSLAT ICNS CM THIS AXIS 













0070 

REF 

5 

LAST 

974 

17,2703 

3 4334 

1 

AFA ILP 

CAF 

NINE 

IF FAILURE IS PRESENT IJET OPERATION 

0071 

_&££. 

3_ 

LAST 

1008 

17,2704 

1 2715 

1 


TCF 

tAbPCCM +2 

IS ASSUMED. IGNORE X-T PAN SLAT I ON 

0072 

REF 

2 

LAST 

82 1 

17,27C5 

3 5660 

1 

CFAILP 

CAF 

Twelve 


0073 

REF 

A 

LAST 

100 E 

17,27C6 

1 2715 

1 


TCF 

TABPCCM >2 



007A i7,27C7 COOCO I XLNNCX DEC 0 INCECES FCR TPA^SL*TIC^ COMMANDS 

C)C7S ___ 17, 271 0 00003 1 DEC 3 FCP USE IN TABLE tCOK UP 

0076 17,2711 C0CC6 1 DEC 6 

0077 17, 2712 COOCO 1 DEC 0 


0076 REF 3 LIST 7QS 5660 TWELVE * OCT I A 

P0 Q_79 T AB LE LCCW UP FOR PITCH CCFMA^OS W ith ANC WitHCUT X-TMANSLAT ICN AND AC 0U4D FAILUPES PSESCM, 

FbOBl BITS S, 10 CCNTAIW THE NUMBER OF PITO JETS USEC TO PERFOfeMT TtiE P 1 TCH IToTATICN 
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QQ63 

HIE 


LAST 

iOOfi 

17i2713 

51 *513 

1 

lABPCCf? INOEK 

XNDXl 


0084 

REF 

a 



17.2714 

3 27C7 

C 

CA 

XLNNCX 


DflfiS 

REE 

3 

LAST 

iooe 

17.2715 

6 152C 

1 

AD 

PINOEX 


CQfiE 

REE 

21C 

-^LASI 

lOQC 

17.2716 

. 5_C 0_C 0 

1 

INDEX 

A 


aoai 

REE 

1 



17^ 211 7 

3 2743 

C 

CA 

PYTA8LE 


flQRa 

REE 

L 



17.2120 

7 2762 

1 

HASH 

2 OE T S 

*1417 OCT 

00 as 

ilEE 

2 

LASI 

9S 

17.2721 

35*453 

c 

TS 

PkOHCl 


0090 





17,2722 

0 00 C6 

1 

EXTEND 



QQ9i.^ 

Aii 

il 

LAST 

IQUT 

17.2723 

7- 4 7C4 

1 

MP 

&IT7 


0052 

REF 

2 

LAST 

IQJ5. 

0.2124 

55*523 

c 

TS 

NPJETS 

* NC. OF PITCH JETS 


kOiiaj Yih JET CC^HA^(^:S TlHlNGlhO X-TPANS. hC CUAC PAlLURESt 32HC T 


JOS-i REE 5 LAST IQO^ I7i2725 U'5<3 1 YWOPO CCS TAU2 CHECK FOR YAw CCHHANOS 

Uuii BEE ice LAST IQOfi 17.2726 j <i712 1 CAE ONE 

QQS6 I7f2?17 _ Xi73A I TCf * 2 _ 

CU97 RLE ^6 jmsi IPQi. _17a2J^3J3_ 1 ..^7 U J CAF Tte O ^ 

QQ9fi RfcF 2 LAST 10!: LI.2731 5S*521 1 TS YlNDEX YAH ffCTAT ICh If<C6X 


CQ99 

REF 

5 

LAST 

saa 

11^2112 

11*627 

1 


CCS 

PbDFAIL 

FLAG 

FCR 8 CR 0 Quad failures 

_ 0100 

REE 

1 



17.2733 

1 2737 

i 


_ TC.F_ _ 

bFA I LY 

0 ■ 

NO 80 FAILURE 

J i 01 

REF 

1 



17,2734 

1 2764 

1 


TCF 

TAEYCCH 


8 OUAC FAILED 

0102 

REF 




17,2735 

1 2 741 

C 


TCP 

OFAI LY 

— m 

C QUAD failed 

U1G3 

REF 

_JL- 

LAST 

100 s 

17.2736 

1 2 764 

_ 1 _ 


TCF 

TAEVCCH 




0104 

REF 

6 

HIT 

10 0 8 

17.2737 

3 4334 

1 

bfajly 

CAF 

NINE 



0105. 

REF 

3 

LAST 

IQQS 

17.2740 

1 2766 

c 


TCF 

tabycch *2 



- 010 1 

REF 

3 

LA23 

100 8 . 

17,2741 

3 5660 

1 

CFA ILY 

CAF 

TkEL Vt 



01C7 

_P E f 

4 

LAST 

1005 

17,2742 

1 2766 

c 


TCF 

TABVCCH *2 
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paicfi litLt fCP FUCK Y/IVlL C£HI».i|iDS _ 

KLiC9 BUS - PllCht X-lP/iNSLATICN JtlS SeiFCTfO 

RQIIQ BUS IC.q * NC. P!TCH JETS LSEC TC PERfCRP PQTATICN 

fttllll BUS U7tfci5 X-IPANiL^lICK J£7S Stt.6CTIQ 

R0112 BUS 12 1 11 : NL» JETS tS EC TC FERFCPP ftCTATlCN 



AfllU RCT TP ANS Ql;*C BUS 


Ull<l 

17.2793 

OGOCO 

1 

PVTABLE 

00 T 

0 

0 

0 


0 

0115 

17.2 799 

C5125 

1 


CCT 

5125 

4 

0 


0 

_0il6 

17,2795 

C 5 2 5 2 

1 


OCT 

5252 

- 

0 


0 

Cll7 

17.2796 

C02 31 

1 


CCT 

0231 

0 

4 


3 

cue 

17,2797 

C2921 

_L_ 


OCT 

2921 

4 

4 


3 

C119 

17,2750 

C261C 

1 


OCT 

2610 

- 

♦ 


3 

Ui2C 

17,2151 

CC 196 

1 


OCT 

C19S 

0 

- 


6 

llLZI 

17.2752 

C25C9 

_L_ 


OCT 

2 509 

4 

- 


6 

C122 

17,2753 

C2992 

1 


CCT 

2992 

- 

— 


6 

0123 

17,2759 

COOCO 

1 


OCT 

C 

c 


A(a I 

q 

0129 

17.2755 

C2921 



QC T 

2921 

4 


A(e } 

9 

Cl 2 5 

17,2756 

C2992 

1 


OCT 

2992 

- 


AOI 

9 

0124 

17.2157 

COOCO 

1 


OCT 

0 

0 


C(0) 

12 

0127 

17.2760 

02509 

1 


OCT 

2 509 

4 


C(CI 

12 

Gi2e 

17,2761 

C2610 

1 


OCT 

2610 

- 


CIO) 

12 












pouq 

N3SKS FCP U7CI- A^C YAK CCPNAPOS 




















013C 

17,2762 

C1917 

1 

PJETS 

OCT 

1917 





Q131 

^ 17.2763 

C636C 

J_ 

YJETS 

CCT 

6360 






P0U2 

TABU 

LCCK LP 

FOR YAW COMPANCS 

talTF AhC KITHCUT 

X“TRvNSLATICN ANC 

AC QUAG FAILURES 

PRESENT 


RC139 

BUS 


12 CONTAIN 

THE NLHBER 

CF YAK 

JETS USED 

TO PEPFCRH TEE YAK 

ROTATION 


















Cl 36 

REF 


LAST 

lOOE 

17,2769 

51*519 

C TABYCCK 

INDEX 

XN0X2 





0137 

- REF 

_2_ 

LAST 

lOOS 

17.2765 

3 2707 

C 

CA 

XLNNLX 





<,138 

REF 

3 

LAST 

1005 

17,2766 

6 1521 

c 

AO 

Y INDEX 





C139__ 

REF 2 

3 1 

LAST 

1005 

17,2167 

5C OCO 

1 

INDEX 

A 





a9o 

REF 

2 

LAST 

1005 

17.2770 

3 279 3 

c 

CA 

PYTABLE 





0191 

ref 

1 



17,2771 

7 2763 

c 

NASK 

YJETS 

» 6360 

OCT 



0192 

REF 

2 

LAST 

95 

17,2172 

5;'955 

c 

TS 

YKCP Cl 





0193 





17,2773 

0 G0C6 

1 

EXTEND 






0199 

REF 

37 

LAST 

1007 

17,2779 

7 9706 

c 

MP 

6IT5 





0195 

REf 

1 



17,2775 

55*529 

1 

TS 

NYJE IS 

NC. CP 

YAK 

JETS USED TC 

PERFORM RCTAT ION 
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1) ^<>7 

RFF 

fc- 


IQflA 


1 1*S61 

c 

RkQRC CCS 

TAU 


CHECK FOR HCLL CCNMANDS 


R£i 1C9 

List 

arias 


JL 4112- 

.1 

.. £AJ=. 

__ mt 



U14lS 





LT.iCCO 

1 10 C2 

1 

TCF 

±2 



ul50 

AEf 

A1 

LAST 

IQOS 

17.3001 

3 <i711 

_L_ 

CAP 

TWL 



fllf 1 

REP 

2 

LAST 


U. 3Ci2 

55 '517 

X 

TS 

P INDEX 
















RFF 


-■LA^ I- 

AAA 

17^3003 

11*630 

1 

CCS 

ACCF ED 


FLAG FCR iC OR EC QUAD SELECTION FOR 

Qi53 

^EF 

1 



11i3CCa 

1 3075 

1 

TCF 

60FCLL 


ROLL CCMMANCS 


REF 

2 

L ASl 

iOl 1 

17,3C05 

i 30 75 

i 

TCF 

BOFCLL 


4f fC * BC PCLL 

iil55 





17.3006 

1 30C7 

J_ 

TCF 

♦ 1 


-0 ■ AC BOLL 


Q156 

REF 

L 

LAST IQ QJ 

11*3007 

ll*62e C 

ACRCLL 

CCS 

kACFA IL 

CHECK FOR BEAL FAILURES 


Giai„ 

—Elf. 

1_ 


17* 30 ICJ 

i 3014 

0 


TCF 

PAF 1 IL 

ON AC QUADS 


Qm_ 

REF 



i7j_im 

1 3024 

( 


TCF 

RXLNS 



Q159 

flEf 

_ a_ 


17,3012 

1 3016 

JL_ 


TCF 

RCFAIL 



Clou 

-R£f 

2 

LIST IQI 1 

17.3C13 


C 


TCF 

RXLNS 















Q161 

REF 

7 

LIST lOUS 

17., 3 014 

2 ^334 

1 

RAFAIL 

CAP 

NINE 

GLAD FAILURE HILL GET 


C162 

REF 

1— 


17.3015 

1 3026 

1 


TCF 

TA6B CGR 

l-JET CPEBATICN 


Ult3 

REF 

4 

LIST IOCS 

17,3016 

3 5660 

1 

RCFAIL 

CAF 

T If* E L V E 



0164 

REF 

2 

LAST 10 1 1 

17,3C17 

1 3026 

i 


TCF 

TAbKCCR 




0165 

il, 3.02 Q 

coocc 

1 

XLNINCX DEC 

0 


0166 

17.3021 

CGOCi 

C 

DEC 

1 

INCECES FCR TRARSLATION 

Clc? 

17.3022 

. 000 02 

C 

DEC 

2 


0166 

17,3C23 

COOCC 

1 

DEC 

0 



■feQIii9 lAELE LCCK Uf FOR ^C-ROLL CCPKAhDS hlTh AND WITHOUT Y-TPAML4T1CN AND ACGGAO PAILiJUES PRESENT 

AfllTl fills Siltjil CCNTAiN THg MGNIH^OL AhC CiP ECTICN CF T HE ftQlL 


0172 

RLF 

_5 LAST 

iOQC 

11*3024 

51*515 

1 

PXLHS 

Index 

YNDX 


NO AC QUAC FAILURES 



0173 

REF 

3 LA^l 

-IQ 1C 

17,3025 

3 2707 

C 


CA 

XLNNOX 


INCLUDE ♦,-,0, V-TPANSLAT ION 



0174 

REF 

3 LIST 

10 IJ 

17,3026 

6 1517 

c 

TAfihCCM 

AU 

R INDEX 





0175 

REF 222 LIST 

1010 

17,302? 

5C 000 

1 


INDEX 

A 





_0176 

REF 

1 


17,3030 

3 3157 

1 


CA 

T A B L E 





0177 

REF 

1 


17,3C3l 

7 3176 

c 


MASK 

ACF JETS 


- 3760 OCT 



C176 

REF 

-1 IIST 

904 

17.3C32 

5S'451 

_L_ 


TS 

kkCftCl 






RC179 

CFECK 

FCR 2-TRINSLATlCNS CM BC 























ulfiC 

REF 

4 LIST loot 

17,3023 

1 

w 

15 16 

1 

eozcHECK 

CA 

ZNDX 




oiei 



i7,3C34 

0 

y Q C6 

1 


EXTEND 





. . 0U2 

.. REF 

J 

17,3035 

6 

3C67 

C 


B2MF 

NCJEOZ 


NO z-translaticm 


* - 
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lABi£ l.l]U(_Ui_f£lP OO 

Z-TRANSLIT IQN liJTH 

AND withcot peal ,bc 

QUAD FAiLDRES. 2- TR INSL A T ( ON hILL BE POSS- 

RQiaS 

ifiLE 


Life 

AS A£L L 

CC*1 RINDS 

CAh Hi 

SATISFIED with THt 

AC RCLL JETS. 

CRITERION.. IF THE REStLTANT NET ROLL 


CCKPdhCS 

« Q 

<kUh 1 

-■JiLANSLATlCM INC 

IF TAU * Q 

. THEN INCLOtE THE EO 

Z-TRANSLIT ICR CCHPANDS. IF THE RESULTANT 

Kiiev 

RCLL 


• Qt IRC IF Tig 

NZj IFEN 


ICNCRUHE 

BD Z-TRANSLATICN 














019L 

Rfcf 

6_ 

-ULll 

-IQLS 

17f 3C3fc 

11*627 

1 


CCS 

RBDFAIL 


Q 

Alt 

24 

UST 

iooe _ 

AlxJQll 

J 6214 

C 


CAF 

THREE 


ul92 . 





iioo^o 

1 3042 

0 


TCF 

+ 2 


CI93 

ntf 

21 

_Llil 

-979 

i7.3C41 

6211 

c 


CAF 

SIX 


QI9<t 

RtF 

5 

L/IST 

101 1 

17,3042 

51*516 

1 


I NOEX 

ZNDX 


C195 

REF 

1 



17, 3C43 

6 302C 

0 


AD 

XLKl NCX 


0196 

— RjJL- 

21i_ 

im 

1011 

17«3044 

50 OCO 

X 


INDEX 

A 


U1S7 

REF 

1 



17,3045 

3 3200 

C 


CA 

VZTAELL 


cise 

REF 

1 



17,3C46 

7 3211 

1 


MASK 

BDZJETS 

- 341? OCT 

0199 

REF 

4 

ERST 

1011 

17,3047 

6 1451 

i 


AO 

KWOHCi 

ADO TC ROLL CCMMANOS 

_(LiOO 

REF 

34 

LRST 

IQ 01 

17t30_5Q 

55*502 

0 


TS 

TSTEFP 

IF PCSSIBLE. MUST CHECK TAU FI«ST 













C2C1 





17.3051 

C 0006 

1 


EXTEND 



W2C2 _ 

R£F 

44 

LIST 

1009 

17,3052 

7 4704 

1 


MP 

&fT7 

□ETERMINE THE NET ROLL COMMAND WITH 

Q2C3 

REF 

1 



17, 3053 

6 6061 

c 


AD 

4 

2>TRANSLAT ICN ACOEO ON 



REF 

^ 

LIST 

40 3 

17,3054 

55*522 

1 


TS 

NRJ6TS 

NET NC. OF 4,- POLL JETS ON 

02C3 





17,3055 

0 0006 

1 


EXTEND 



0206 

REF 

1 



17,3056 

1 3062 

1 


ezf 

TAUCPECK 














02^2 

Rif 

12 

LIST 

JLQi2 

17j_aQJ7 

J 1502 

1 

ACR8CZ 

CA 

T5TEPP 

Z-TBAN5LAT ICN ACCEPTED EVEN THO WE MAY 

0208 

REF 

5 

LIST 

1012 

17, 3060 

55*451 

1 


TS 

KVtORDl 

HAVE INTROCDCEO AN UNOESIREADLE ROLL 

C2C9 

—REF 

1_ 



17,3061 

1 3323 

1 


TCF 

ROLL T IPE 

BRANCH TO JET CR-TIME CALCULATIONS 


0210 

REF 

7 

LIST 

101 1 

1T.3C62 

11*561 

c 

TIUCHECK 

CCS 

TAU 


0211 

PEF 

2 

-LAil 

1011 

17,3063 

1 3067 

X 


TCF 

NDbC2 


C 2 12 

_R£F 

1 



17,3064 

1 305 7 

1 


TCF 

ACRBCZ 


0213 

REF 

1 

LI51 

1012 

17,3065 

1 3067 

1 


TCF 

NCBD2 


— 02U 

REF 

_2_ 

LIST 

1012 

17,3066 

1 3057 

1 


TCF 

ACREC2 



U213 

REF 

6 

LIST 

10 12 

17,3067 

3 1451 

c 

N03DZ 

CA 

‘*WCRCl 

Z-TRINSLAT ICN NCT ACCEPTED 

0216 





17,3070 

C 0006 

1 


EXTEND 



0217 

REF 

45 

LIST 

1012 

17,3071 

7 47C4 

1 


HP 

ulT7 


0218 

REF 

1 _ 



17,3072 

6 77 15 

c 


AO 

— 2 


0219 

REF 

1 

LIST 

1012 

17,3073 

55*522 

1 


TS 

MRJE T S 


C220 

REF 

2 

LIST 

1012 

17,3074 

1 3323 

i 


TCF 

RCLLTIPE 

IRANCH TO JET CN-TIME CALCULATION 


XU£-: ^SSEUBie BfeVISIHK ?3? CF AC,f. PhftiBAK CQL0S5US E V NASA 2Q2lill-C31 Lil? AUC, 2A,\9iU UAPCS^ .186 PACE IQ13 

L JEl SiLiCJtlCN LUGiC ~ tSEM S P/JQC NO. 7 Zb S3 


EXl221 

&£ CLIL 

lElECTlQh ECK _RQLL_CCFKAKCS . 


















0222 

Bfcf 

2- 

LAST 

la 1 2 

n,3C75 

11*627 


HDRCLL 

HCS 

RBDFAIL 


0223 _ 

Ktf 

1 



17,aC76 

LJ1Q2 

C 


TCF 

K6FA IL 


C224 

P£F 

1 



17,3077 

1 31C6 

1 


TCP 

F 2 X L K S 


0225 

REF 

1 



_ 11 A 3100 

1 31C4 

c 


TCF 

KOFA IL 


CZ2i 

fl£f ^ 

2 

iA-LT 

10ii_ 

J7,310l 

1 31Q6 

1 


TCP 

R2XLKS 


0227 

REF 

.8 

LAST 

10 u 

17,3102 

3 4334 

1 

PBFAIL 

CAP 

NINE 


0228 

REF 

L_ 



■17.1 J 1.03 

1 3110 

X. 


TCF 

TABR 2CK0 


0229 

KEF 

5 

LAST 

10 1 1 

17.3104 

3 5660 

1 

PIFAIL 

CAF 

Twelve 


0230 

KEF 

2 

LAST 

1013 

17,31C5 

1 3110 

C 


TCF 

TABR2CPD 














_ -0231 - 

il£f 

6 

J.AS1 

iOil 

n»aic6 

51*516 

1 

.B2ALKS 

INDEX 

2NLX 

NC eC FAILURES 

J]232_ 

AEP 

4 

LAST 

101 i 

l7i31C7 

3 27C7 

c 


CA 

XLNNCX 

♦♦-,0 Z-TRARSLAT ION PRESENT 

Q222 

REF 

4_ 

LAST 

-Iflll 

17.3110 

6 1517 

c 

TAERICMO 

AO 

K INDEX 


0234^ 

R E f 

224 

LAST 

AOll 

iijim 

5C QCC 

J 


INDEX 

A 


_ iL233_ 

ALL 

2 

LAM 

IQl 1 

L7 1^3-172 

3 3157 

1 


LA 

RTABLE 


0236 

REF 

L_ 



17. 3113 

13177 

1 


HASK 

hOP J ETS 

» 34017 OCT 

0237 _ 

PEF 

7 

LAST 

10 1 i 

L7t,3JL14 

-55*451 

1 


TS 

RWOR L 1 














0238 

RPF 

£_ 

LAST 

1011 

17.3115 

3 1515 

1 

ACVCH6CK 

CA 

YNt X 

ANY Y-TRANSLATICN 

0239 





17,3116 

C 0006 

1 


EXTEND 


. 024 0 

REF 

1- 



17,3117 

1 3151 

c 


BZF 

NCACY 

NC Y-TRANSLAT ION 

C24i 

-REF 

_z_ 

LAST 

10 1 1 

ni3l2Q 

11*626 

c 


CCS 

RACF AIL 


0242 

KEF 

25 

LAST 

1012 

17,3121 

3 6214 

c 


CAF 

TliKE E 


0243 





17,3122 

1 3124 

1 


TCF 

♦2 


0244 

REF 

_22 LAST 

-1.012 

17^3123 

3 62 11 

c 


CAF 

SIX 


0245 

PtF 

7 

LAST 

1013 

17,3124 

51*515 

1 


INDEX 

Y NC > 


0246 

KEF 

_2 

Uil 

10 1 2 

J7i3123 

6 3020 

c 


AO 

XLNINEX 


C247 

REF 

0 1 1; 

^ ^ > 

LAST 

1013 

17.3126 

5C OCO 

) 


INDEX 

A 


024 8 

PfF 

2 

LAST 

IQ12 

17.3127 

3 32C0 

L 


CA 

Y2TA8LF 


0249 

-REF 

- -L 



17,3130 

7 32 12 

1 


MASK 

ACYJETS 

- 34360 OCT 

ilZ'nQ 

REF 

fi_ 

LA S 7 

1013 

17.3131 

_6 J1451 

c 


AD_ _ 

KWORDI 


Q2S1 

REF 

33 

LA$T_ 

-10 12 

17,3132 

55 *502 

c 


TS 

T5TEKF 


0252 





17,3133 

0 00 €6 

1 


EXTEND 

FGR EXPLANATICN SEE CODING ON RTABLE 

0253 

REF 

3 5 

LAST 

99C 

17.3134 

7 47C7 

_L. 


MP 

BITA 


0254 

PEF 

2 

LAST 

1012 

17,3135 

6 6061 

C 


AO 

*-4 


0255 

REF 

4 

LAST 

1012 

17,3 136 

55*522 

1 


TS 

NKJE TS 

NC. CF NF.T ROLL JETS 

U256 





17.3137 

0 00C6 

1 


EXTEND 


0257 

REF 

1 



17,3140 

1 3144 

1 


tJ2F 

TAUCPCK 

IF NRjETS” • 0 













«j25 & 

R£f 

- 34 

LAST 

1QI3 

17,3141 

3 1502 

J_ 

K0RAC2 

CA 

r 5 T £ P P 

Y-TRANSLATlCN ACCEPTED 

C259 

PEF 

9 

LAST 

10 13 

17,3142 

55*451 

1 


TS 

RWORCl 


. 0260 

REF 


LAST 

1012 

17,3143 

1 3323 

1 


TCF 

KCLLT IKE 

BRANCH TO JET CN-TIHE CALCULATIONS 


8 LIJT JOll_ _llf3HA IPS^l C TAUCHCK CCS TAO 

2 LA ST 1013 17, 3145 1 315 1 C TCP NCAO 

J 17# 3146 1 3141 1 TCP BORACZ 

3 L/ST 1013 17 . 3 147 I 3151 C TCP NOACy 

2 LAST 1013 17,3150 1 3141 1 TCP oDPACZ 


Q2cl RLF 

0262 ^EF 

0263 REF 

0264 ^ 
CttS PEf 
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L - JET ^tLECT ION LQC 1C UStH' S PAGf NC. 8 06 S3 


u266 

RIE 

10 LAST 1013 


3 i45^i 

C__iiQACY 

CA 

f Vii P Cl 

V-TRANSLAT ICN NCT ACCEPTED 

U26 7 



17.3152 

Q QQil6 

1 

eatencl 



Q2fcfl 

RBS_ 

3ft LIST 1Q13 

nt31S3 

7 A7C7 

J 

MP 

&1T4 



Jllf 

2_J.iS.I_ iCULi. 

It. 3154 

4_ 7J I5 


AO 

«-2 


MllQ. 

-Jl££_ 

5 Li51 luU 

17.3135 

55*522 

_J 

TS 

NHJL7S 


Q271 

REF 

^ LiSI-IQIl.. 

lt.31Sfe 

1 3323 

1 

ICE 

PCLITIHE 




* 




a 


c 


^ 0 


4 




II 


i 

i 


f 




|i 








aI 


I 


10 
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J£l-^iL£CI IQfc JJJfiiL 


USER’S PAGE NO. 9 E6 S3 


JUUU T ABLE FCB PCLL. T ANC 2-T R A N S 1. / T ICf» COMNAMDI 

A v2T3 Af HR BC RCLL HAY HE SELECfycV IF AC ROLL IS SELECTEL. Y-TR ANSLAT ICN S WAV bT°SA T I SF I ED S I NUL T AN ECuTlY 

AilZU PRCVi CgQ T HAT THERE APE NC AC flUAQ FAiLtHtS. _LF THtRC ARC AC FAILURES# V-TAANSLAT ION COMHANDS bILL BE IGNORED, 

RCZ7I lA hFlCF XiSt IHE A^STRCNAIT SFCULD ShJlCF TC_JG P ClL. 

RC27a IE Enprii is SEI ECT ED. 7-TRANqt at I CKS f<AY flE SATISFIED S I FULT ANECUSLY PRCVIOED TEAT THERE ARE NO 6D QUAC 

&il2.aO F^lLyPEl. IF THERE ARE tJQ FAlLUREix Z- TPAN SLA TION CCMRANDS F ILL BE IGNOR ED, IN WHICF CASE THE ASTRONAUT SHOULD 

HQ2aZ ShlTCF JC ^ ILCLL.*. 

KQ2B3 hCIE THAT IP CFE CUAD FAIlS (E,G. E FAILEO, Z~TP ANSLAT 1 C N IS STILL POSSIBLE AND THAT THE UNDESIREABLE RCLL 

«y2JS5 IMFCCUCED BY THIS TRANSLATICA WILL BE CC MPENSATEC BY THE TwC AC ROLL JE TS ACTUATED BY T HE AUTCPILCT LOGIC. 


mZBJ hCRO RAKE tiP ,,, .PTABLE 

RjJZaa luC kCPtS, CQRPESPCaOlAC 1C CR Ic PCLL SELECTION, HAVE BEEN CCH BINEC INTC O NE TABLE. ThE WORD COPRESPORC- 

PC 29G IhG TO AC POLL HAS THE FOLLOWING INTERPRETATION.. 

atl9L ens S . 10,1 1 ape CCCEC TL give the AET roll TCROuE for the wOPC selecte d. T hE CODING IS.. 

KQ293 B IT NO, U 10 9 NC. CF R^OLL JETS 


R02SA 

RQ295 

P0297 

RC29e 


iI_C_C 
0 C I 
0 1 0 

0 1 1 
ICC 




F0299 This WOiC i^AY THEN fiLE ADDED TC TH| kCRD SELECTED FPCH THF VZ- TRANSLAT tCN TABLE, WHICF HAS THE SANE TYPE OF 

RQ3Q1 CCCINC AS iflOVE. AKC THE NET RCLL DETERHIHEC BY SHIFTING THE RESULTANT WORD PIGHT 8 PLACES AND SUBTRACTING FOUR, 

_PjQJ^i THE kCPC COP kESFLNCING TC E D RClT FAS A SIPILlAR INTERP RETAT ION, E ACEPT^HAT SITS 12, 13, lA ARE COOED 

-J.I13L5 CAS JE(VP) TC GIVE THE NET RCLL TOPCUE. 


AD3flA ROLL TRANS CUADFAIL BIAS 


. 03e_7 

17,3157 

ilOCC 

1 R7AELE 

OCT 

11000 


0 



C 


03Ce 

17,3160 

2212S 

1 

UC T 

2212 5 


♦ 



0 


Q3C9 

17. 3161 

CC252 

1 

OCT 

OC252 





0 


0 310 

17,3162 

11231 

1 

OCT 

112 31 


0 

♦ Y C + Z) 


3 


- ^ 0311 

17,3163 

15921 

1 

OCT 

1592 1 


♦ 

♦ V (*2 1 


3 


0il2 

17,3169 

C9610 

1 

OCT 

0961C 


- 

♦Y(,ZJ 


i 


0313 

17,3169 

11196 

1 

CCT 

lU9t 


0 

-Yl-21 




C31A 

17,3166 

15509 

1 

OCT 

1550 9 


♦ 

-Y (-ZI 


6 


C315 

17,3167 

C9992 

1 

CCT 

0999 2 


— 

-YI-Zl 


6 


0316 

17,3170 

11000 

1 

OCT 

liCiOC 


0 


Aid) 

9 


03 1 7 

17,3171 

15509 

1 

CCT 

155C9 


♦ 


ACB > 

9 


0 JIB 

17,3172 

C96K 

1 

UCT 

0961 C 


• 


ACe ) 

9 


0319 

17. 3173 

1 1000 

1 

OCT 

llOOC 


0 


C(D) 

12 


Q32C 

17,3179 

15921 

1 

OCT 

15921 


4 


CCD) 

12 


0321 

17,3175 

C9992 

1 

OCT 

09992 


- 


CCD) 

12 



1M2 AIQm DAPCSW ,LSA PAGE 1016 

OSFP'S PAGE NC. 13 66 S3 


R0322 PlA BLfc >«ASK S - 








^ ^ _ 

— - — 

0323 

17^3116 

C3760 C ACRJETS OCT 

0376 C 





il32^ 

1 ImJ 111 

34017 C eCRJETS OCT 

a40 1 7 
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QAPi ASSfligLg flgV|tlnK Cf- AGf PRCGBAH CCLCSSUS BY NASA 2j2iLIi-C31 


1;17 4UC,. 2^.l9fe8 D*PCSH 
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L- JLl SELECT iCiH J^IC 


USEP’S P/iGt NC. ll €6 S3 


JUmi Z lRiL», iLAIICh TAflL£^ 


r.hCf AC CR hP RTLL IS. SLLlCT£C THE CUAJ PAlK WHICH IS NCT 6E1MG USED TO SATISfV THE ROLL CCHM*hOS MAY BE 

iloaza Lilt IC iAlXS-F-t TI-L fiLMAlMNH LRAftScATICh CmitL4NQS^ , ^£„MUST PAKE SUR E THilT POLl, COf^WANQS AR£ SATISFIED 

AII33L kti-ih IhEY CCCUii. TFEFEF CPE* THE Y-Z IRANSLATI CNS FROM ThIS TABUt "RL BE iChCPEO R THE NET RCLL TOPOUe CF THE 

Rnil2 COBIKEC taCRL IS lEfiC ANC THE RCLL CCPH/>NOS AR£ UCh-ZEPlJ. TUS SITLATICN tiQLLC CCCLR* FC« EXAMPLE. IF HE EN- 

iiQlAh CCUslEJ SIFU LTANECLS »Y -Z .CCHMA^CS A QUAQ Q FARUPE kHlLE CSING AC FCR R QLl> 

^iJ336 1C FACULTAIE THE UC6ICt TF^J^-Z^^M^LAT RN TABLE HA S BETH COC EC IN A H ANNER SIM LIAB TO THE RCLL TABLE 

RG 33a AECYfct 

FQ 33S enS S tlOtAl API CCO EC TC CIVE THE NE T ROLL TORQUE RCURPEC BV Z-TWAhSLAT 1 CNS . THE hCBC SELECTED CAN THEN BE 

RQ3A1 ACCEC TO THE AC-PCLL WQkO AN D THE RES U LTANT ROLL TORQUE DET ERMINE D FRQH THE COHBIN ED WORD. SIWILIARLY BITS 

RU3A3 12.13.1A AFE CCDEE TC GIVE THE NET RCLL TCRQUE INCURRED bY V-TPANSLAT 1 CNS wHEh 80‘PCLL IS SELECTED# 


AC3A5 TRANSLATION CUAOFAIL BIAS 


C3^7 

Q34B 

C350 

0351 

Q3>2. 

0353_ 

03S<t 


uacc I YZTAtJLe CCT IRCC L 0 

17t320I 11231 I CCT 1 1231 ♦Zl4y)_ 0 

17.3202 111A6 1 OCT 11146 -H-it 0 

17*3203 llO OC 1 OCT I ICCC 0 B (A) 3 

17.3204 C4 61Q 1 OCT 0461 C tZUY) 8(A) 3 

17.3205 155C4 1 OCT 15504 -Z(-YI 6(A) 3 

17 , 32 C6 UgOQ 1 OCT I10(i0 _ 0 0(C) 6 W 

17,32C7 15421 1 OCT 15421 ♦^(♦V) C(CI 6 

17.321C C4442 1 OCT 04442 -Z(«Y) 0(C) 6 


fia355 Yl-TABLE MASKS- 


Ci56 



iix^zn 

Qi4l7 C 

ECZ JETS 

OCT 

0341 7 

0357 



17. 3212 

34360 C 

ACY JETS 

OCT 

3436 C 









jTUse 



ACCIT lONAL CLKSTANTS 













C3S4 

REF 

4 

-LAST 2_LJ 7715 



S 

NEG? 

C3tg 

REf 

_JL_ 

6C61 


--4 

s 

N EG^ 


PRQGHAM COLOSSUS BY riASA 2Q21111-C31 


fiAEi ^SStHBLt flEViSlOh 2 37 CP ACC 


l;17 AUG, 24.I9AB LAPCS>« « 1 36 P4GE 1018 


A JO iiLEctiCh goau.. 


USER'SPAGE NO. 12 E6 S3 


PQJfcl tiLCULAOCN QF JFT Ch-TlMtS_ 


Rfi362 TP£ RCT/TICN LL»X/f,CS iTAUtSI. MHiCh h KR E CETEPHlNfcP FPCK TPE JET SRT TCHNC LOGIC CN THF BASTj OF SINGLE JFT 

RQ3fe 4 CPE Pilllt h. ?<UST NCh d£ UPCAT EC BY THE AC TUAL NUf^BER OF JETS TO BE USED IN S^n SFYING T HESE CC HPJNDS. T AU PUSt 

KkJtfe Ai.SC El ClCHtHyiTiC J.CiOFOKC TC THE EXPECTED TORQUE GENfc PATEC b'i THE NEh CO P LANDS 4CTIKG CVEH THE NEXT T5 INT-_ 

RQT 66 EBViL. 

PC3fc 9 IN CREEP TC HAIKT/IN ACCL R/TE KRCh LECCE CF VEHICLE /ANGULAR F^TES» UE HIST 4L SC PROVI C E EXP ECTED FIRING TIRES 

R0 371 ICFTjJi AiSQ JN T ERHi.OF _l- JE T C PERAT ICM FOR THE RATE FIITEF. 

RP37? KCTE THAI TRANSLATICNS CAN PRCOLCE RCTATICNS EVEN THCUGH FC RCTATICNS ttERE CALLEC FOR. NE VER THELE $ S t ►£ HIST 

H037 <» UPCITE CFTj 

PC 37 5 nHh UE ROTATICNS HAVE F IMSHECt P6 PLST FRQVIOE CHANNEL i_NFCFPATlCN TC THE T6 FRCCRAH TO CONTINUE ON NITH 

ku377 THE TRANSLATIONS. THIS NlLL BE DONE IN THE NEXT SECTION. HCREVER. TC INSURE THAT JETS ARE NOT FIRED FOR LESS 
P037S THAN i WINIKUN IMPULSE (l4HSIf ALL JET CHANNEL COMMANDS HILL BE HELD FIXED FRCP THE START OF THE T3 PROGRAM FOR 

Ru38l ATLEAST l^FS UNTIL THE IN I T I AL L2 AT ICN CF NEW COHMANOS. MORELVERf A MMS CN-IIME WILL BE ACOEO TO ANY RCTATIONAL 

RQ3fe3 CCPMANCS GENERATED BY THE MANUAL CCNTPOLS OR THE JET SWITCHING LCGlCt AND ALL TRANSLATjCN COMMANDS WILL BE 

RQ38^ ACTIVE FCP ATLEAST CNE CYCLE CF THE T* PROGRAM (.iSEC) 


NOSflti PITCH JET CN~ 


Q3fi7 

REF 

t 

LAST 

10 01 

17,3213 

U*562 

C 

PI TCHIIM 

CCS 

taui 



u3afe 

REF 




17.3214 

1 3223 

c 


TCF 

PTAUPCS 



C3es_ 





17,3215 

1 3217 

1 


TCF 

♦2 



C3S0 

REF 

1 



17,3216 

1 3221 

1 


TCF 

PTAUNEG 



Q3S1 

-iif. 


LAST 

IQ5 

17,3217 

55*550 

\ 


TS 

UFTl 

NC PITCH RC7ATILN 


0392 

REF 

1 



17,3220 

1 34 21 

\ 


TCF 

P&YP ASS 

CCMMANCS 















0393 

REF 

3 

LAST 

IQQS 

17,3221 

4 1523 

C 

PTAUNEG 

CS 

NPJETS 





HEF 


LAST 

1011 

17,3222 

55*523 

C 


TS 

NPJE TS 



0395 

REF 

7 

LAST 

ioi£ 

17,3223 

3 1562 

I 

PTAUPCS 

CA 

TAUI 



C39U 





17,3224 

C C0C6 

I 


EXTEND 



0397 

REF 

5 

LAST 

loie 

17,3225 

5 1523 

1 


index 

NPJETS 



C39e 

REF 

1 



17,3226 

T 34C2 

c 


MP 

NJL T 



Oi-99 

REF 

-M 

LAST 

964 

17,3227 

55*461 

1 


TS 

8 LAS 71 



U^GO 

REF 

1 



17,3230 

6 33 3 5 

1 


AO 

ISEC 



0<t01 





17,3231 

C 00C6 

1 


EXTEND 



09C2 

REF 

1 



17,3232 

6 3243 

1 


ttZMF 

ALl 4NSP 



0403 

REF 

6 

LAST 

1018 

17,3233 

51*523 

1 


INDEX 

NPJETS 



04CA 

REF 

1 



17, 3234 

3 3336 

1 


CA 

OFTMAX 

THE PITCH ON-TIHt IS 

GREATER THAN .1 SEC 

0405 

REF 

2 

LAST 

10 1 8 

17,3235 

55*550 

1 


TS 

UFTl 



0406 





17,3236 

4 0000 

c 


COM 




0407 

REF 

e 

LAST 

1016 

17,3237 

27*562 

c 


ADS 

TAUI 

UPDATE TAUI 


04oe 

REF 




17. 3240 

3 333 7 

c 


CAF 

1 SEC 

LIMIT THE LENGTH OF 

PITCH ROTATION 

0409 

REF 

4 

LAST 

10 le 

17,3241 

55*461 

1 


TS 

BLAST! 

CCMMANCS TC O.l SEC 

SO that only 

0410 

REF 

1 



17,3242 

1 3406 

1 


TCP 

ASMBLWP 

X-TRANSLATICNS WILL 

CONT tNUE CN SWITCH 

^0911 











OVER TO TVC 


0412 

REF 

m 

LAST 

101 e 

17,3243 

4 1461 

1 

A014MSP 

CS 

ELAS TI 

SEE IF JET CN TIME LESS THAN 

0413 

REF 

2 

LAST 

1007 

17, 3244 

6 3342 

1 


AO 

«14MS 

MINIMUM IMPULSE TIME 


0414 





17,3245 

0 00G6 

1 


EXTEND 



0415 

REF 

1 



17,3246 

6 3251 

1 


BZMF 

PBLASTCK 

IF SO LIMIT MINIMUM 

DN TIME TO 14 MS 

0416 

REF 

3 

LAST 

1018 

17,3247 

3 3342 

1 


TaF 

1 

1 

l/f 

1 

n 
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OAAi CP Af,Jl_PfeCCBAM CQLClSSLS flV NASA Ill7 AUG, CAPCS^ .186 PAGE 10l<j 


J£1 S£L£CTlCh LOGIC USER'S PAGE NO. 13 66 S3 


iliill 

AIL 


iill luifc 

17f 32SC 

55*^61 1 

TS 

8LASTI 


Q^lft - 

Rif 

1 

Li ST iOlS 

17.325L 

3 1^61 C 

pblastqk ca 

BLASTl 


Q41Q 




I7t325? 

U 0006 1 

EXTEND 


THE PITCH CCMHANOS WILL BE COMPLETED 

-a^2c 

Alf 

1 

LAST iOie 

17t22iJ 

7 1523 0 

PP 

NPJfc TS 

WITHIN THE TS-CTCLE TIME 

Q<i21 

R_Ef 

Lt 

JJ»SJL 1016 

llxl23A^ 

_23*55Q C 

LXCH 

OFTl 

FOR USE IN UPC4TINC RATE FILTER 

(1^22 

REf 

9_ 

LiJSl IQie 

17.325S 

5a'562 C 

TS 

TAOl 

ZERO TAUl (ACC CONTAINS ZERO) 

QhZI 

Pf E 

^2 

LAST 1016 

,1713256 

1 3A0t 1 

TCP 

ASP13LKP 



I 


I 


i 


fi 

\r 


/ 

¥ 


\ 


A 


i 






n 



I 


{ 






/ 

Vx- 


K 




I 












c 


4 

» 


# 

0 



I 


^ J — 
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yQjkZh 



YlJi , 

C^LCLL/iTICN 




















C42S 

Rf F 


ia<;t 

17^3257 

1 1* g63 

_L_ 

lAwTlHE 

CCS 

TAU2 



— 

-a££ 

J— 




1 1261 

t 


TCP 

YTIUPCS 



SAZl 





1 7. 3 2£l 1 1 .12 tl 

.1 


TCP 

♦ E 



04?a 

agf 




17^3262 

-1 1265 

1 


TCP 

JYTAOhtG 



QA23 

R£f 

2 __ 

LA5J 

IQL 

17,3263 

53*551 

C 


TS 

DFT2 

NC YAh ROTATICN COMMANDS 

043fl.. 

Rtf_ 

Jl_ 



17, 3264 

1 35 65 

C 


TCP 

Y6VPISS 
















J431 

BIf _ 

2 

1 ASJ IQ 1C 

L7*1265 

4 1524 

-L_ 

VTAONEG 

CS 

NYJE TS 



04J2 

Rgf 

a 

tRST 

102C 

17, 3266 

55*524 

1 


TS 

NYJETS 



0433 

RE£ 



IQ Z C 

17,3267 

3 1563 

<, 

YTAOPCS 

CA 

TAU2 



Q434 





17, 3270 

C G 0 C 6 

1 


£XTENU 




U4 35 

Rtf 

4 

L/>ST 

1U2C 

17, 327 1 

5 1524 

C 


INDEX 

NVJfc TS 



0<i3c 

_fiJJ 


L<ST 

101 fi 

17.3272 

7 34 C 2 

C 


MR 

NJE T 



g43 7 

Rtf 

3 

LAST 

484 

17,3273 

5£'463 

c 


TS 

8LA$T2 



0438 

R 6 f- - 


l«T 

101 e 

17,3274 

6 3335 

1 


AD 

— . 1 SEC 



Q43S 





. 17.3275 

C 0006 

1 


EXTEND 




J440 

Rtf 

1 



17,3276 

6 33C7 

c 


eZMF 

ADi4PSY 



0441 

REF 

5 

i/5T 

102 C 

17,3277 

51*524 

c 


INDEX 

NYJETS 



Q442 

■Jli . 

_2_ 

L^ST 

iQie 

17.33CC 

3 3336 

1 


CA 

DPTMAX 

YAm CCMMANDS RILL LAST 

LONGER THAN .ISCC 

0443 

REF 

-J 

L. AST 

loac._ 

17j 3301 

55*551 

( 


TS 

DPTE 



04 4^4 





17.33C2 

4 0000 

c 


COM 




Q445 

_flEf 


L#ST 

1020 

17,3303 

27*563 

1 


AOS 

TAU2 

OeCREMENf TA02 


044 6 

REF 


L4ST 

1016 

17,3304 

3 3337 

c 


CAP 

»+.iSEC 

LIMIT THE LENGTH OF YAR 

ROTAT ION CCMMANO 

0447 

REF 

4 

L/IST 

102C 

17,3305 

55*463 

c 


TS 

BLAST2 

TO 0.1 SEC SO THAT ONLY 

X-TRANSLA1 ION 

044 6 

REF 




17.3306 

1 3552 

1 


TCP 

ASMetHY 

WILL CCNTINCE CM SWITCH 

OVER TO TVC 














044 4 

REf 

Si 

L/ST 

102C 

17,3307 

4 1463 

c 

AL14MSV 

CS 

BIAS T2 

SEE IF JET CN-TIME LESS 

THAN 

0450 

Rtf 


L /» ST 

10 le 

- 17,3310 

6 3342 

1 


AO 

* 14M S 

MINIMUM IMPULSE TIME 


0451 





17,3311 

0 0006 

1 


EXTEND 




0452 

Rtf 

1 



17, 3212 

6 3315 

c 


B2MF 

VbLA SICK 

IP SO, LIMIT MINIMUM ON 

-TIME TO 14 MS 

0453 

-REF 

« 



L^ST 

102 C 

17,3313 

3 3342 

1 


CAP 

»14MS 



04 54 

Rtf 

t 

L/ST 

J ■ -= 

102C 

17,3314 

55*463 

c 


TS 

BLA5T2 



0455 

REf 

7 

L>IST 

102C 

17,3315 

3 14 6 3 

1 

Y6LAST0K 

CA 

bLAS12 

YAW COMMANDS WILL BE COMPLETED WITHIN 

0456 





17, 3316 

0 00C6 

1 


EXTEND 


The T5CVCLE TIME 


04 5 7 

REf 

6 

LIST 

102C 

17,3217 

7 1524 

1 


MH 

NYJETS 



0458 

REF 

4 

LIST 

102C 

17,3320 

23*551 

1 


LXCH 

0FT2 



0454 

R£F 

4 

LIST 

102C 

17,3321 

55* 563 

1 


TS 

TAU2 

ZERO TAU2 


0 44 0 

REF 

2 

LIST 

I02C 

17,3222 

1 3552 

1 


TCP 

ASMbLRV 
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PQ4fcl 



RCLXXN-lim CALCLLAIUK- 






















OAA^ 

flgf 

S_ 

IASI 

lax A 

17,3323 

11' 561 

C 

RGLLTIME 

CCS 

TAU 





Alf 

X 



^7t332X 

1 1343 

1_ 


TCF 

RBI AST 




0 4-64, 





Xlt3 22i_ 

L ill! 

C_ 


IGF 

♦2 




Q4fc5 

JIPF 

? 

LAST 

102 1 

17.3326 

1 3343 

1 


fLf 

RbLA ST 




0 4 L t 

Bli 

t 

LiST 

1014 

17.3317 

21*512 

C _ 


INDEX 

NRJETS 




i)4b? 

ELt_ 


LAST 

102 C 

17i 3 230, 

3 3336 

1 


CA 

DFTMAX 

UPDATE OFT EVEN THC NO 

ROLL COMMANDS ARE 



Rgy 

•a 

LAST 

974 

17.3331 

55*547 

X_ 


IS 

DFT 

RESEAT 



Q46S 

REF 

_x 



17,3331 

1 J54J_ 

1 


TCF 

RBYP ASS 


















a47C 





17,3333 

77C37 

0 


DEC 

-480 

- -.3sec 



04 71 





17.3334_ 

77277 

0 


DEC 

-320 

• -.2SEC 



0472 





17.3335 

77537 

c 

— . ISEC 

DEC 

-160 

* -.ISEC 



0421. ■ 





17.3336 

CQOQQ 

1 

GET RAX 

DEC 

0 

^ 0 



04 74 





17.333T 

<0240 

1 

- + • ISEC 

DEC 

160 

» ♦.ISEC 



u<i V5 





17,3340 

CC500 

1 


DEC 

320 

- t.ZSEC 



Q4?6 





17,3341 

LC740 

1 


DEC 

HbO 

■ +.3SEC 



Q477 





17.3341 

CCC27 

1 

•14HS 

DEC 

23 

-lAMS 

















G47fl 

REF 

10 

LAST 

IQ 2 1 

17.3343 

XX561 


rt 1 ACT 

CA 

TAU 




0479 





17.3344 

0 00C6 

1 


EXTEND 





0460 

REF 

7_ 

_L A SJ 

10 2 1 

17,3345 

5 1522 

c 


INDEX 

NKJETS 




0461 

PEF 

3 

LAST 

10 2 C 

17.3346 

J 3402 i 

MP 

NJLT 




C482 

REF 

2 

LAST 

99 

17,3347 

55*457 

1 


TS 

BLAST 

BLAST IS AN INTERHEOIATE VARIABLE 


40463 











USED IN OETERPIMNG THE 

JET UN-TIMES 

0464 

REF 

—L. 

LAST 

1020 

17,3350 

X. 33J2 

I 


AD 

1 SEC 




0465 





17, 3351 

0 OGCb 

* 


EXTEND 





C48t 

REF 

X 



17,3252 

6 3363 

1 


BZMF 

AG14PSF 




0467 

REF 

__e- 

LAST 1021 

17.3353 

_51*212_ 

c 


INDEX 

NRJETS 

ThF ROLL RCTATICN NILL 

LAST LONGER 


_ .0465 

REF 

4 

L AXL 

102^1 

17.3354 

3 3336 

1 


CA 

OFTPAX 

THAN THE T5 CYCLE TIME 



0<»b9 

REF 

4 

LAST 

102 J 

17,3355 

55*547 

1 


TS 

DFT 




- 049Q 





17,3356 

4 COCO 

c 


COH 





0491 

REF 

u 

LAS1 

102 1 

17,3357 

27*561 

c 


ADS 

TAU 




0492 

REF 

3 

LAST 

102C 

17,3360 

3 3337 

c 


CAP 

* 1 SEC 

LIMIT THE LENGTH CF ROLL ROTATION 


0493 

REF 

T 

LAST 

102 1 

17,3361 

52*457 

1 


TS 

BLAST 

tCMMANDS TC 0.1 SEC SO 

that only V 

-Z 

0494 

REF 

1 



17,3262 

1 3426 

c 


TCF 

ASMBLPR 

TPANSLATICN CCMMANDS CONTINUE 
















Q495 

REF 

4_ 

LAST 

102 1 

17.3363 

4 14 5 7 

1 

AIjl4HSR 

CS 

BLAST 

SEE IF THE JET CN-TIME 

LESS THAN 


0496 

REF 

6 

LAST 

1020 

17,3364 

6 3342 

1 


AO 

* 14P S 

MINIMUM IMPULSE TIME 



0497 





17, 3365 

0 C006 

1 


EXTEND 





0498 

REF 

_x. 



17,3366 

6 3 3 71 

1 


BZMF 

RbLA 5TCK 




0499 

REF 

7 

LAST 

102 1 

17,3267 

3 3342 

1 


CAF 

»14HS 

IF SC, LIMIT MINIMUM ON 

-TIME TO 14 

MS 

0300 

REF 

5 

LAST 

102 1 

17,3370 

55*457 

1 


TS 

BLAST 




0301 

REF 

X 

LAST 

102 1 

17,3371 

3 1457 

c 

RBLASTGK 

CA 

bLAS T 




0502 





17,3372 

C C006 

1 


EXTEND 





C5«j3 

REF 

9 

LAST 

10 2 J 

17,3373 

7 1522 

1 


PP 

NFJETS 




050^ 

REF 

c 

LAST 

102 1 

17,3374 

23*547 

c 


LXCH 

DFT 




0503 

REF 

12 

LAST 

102 1 

17,3375 

55*561 

c 


TS 

T AO 

ZERO TAU 



0306 

REF 


LAST 

1021 

17,3376 

1 3426 

c 


TCF 

ASMBlbR 
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OSLJ 


n, 3U1 

65252 

1 

DEC 

-.333333 


-1/3 

. ilSOfl 



57777 

1 

oet 

-.50CCC0 

3 

-1/2 

U5Xi5 


17.3401 

AOOeo 

c 

DEC 


m 

-1 (NEGHAX) 

^510 


17 1 3402 

COOCQ. 

1 NJE7 

DEC 

0 





17f 3403 

37777 

1 

DEC 

.999999 

m 

♦1 (POSRARJ 

0bl2 


J7.340A 

2C000 

C 

DEC 

.5C0CCC 

z 

♦ 1/2 

C5U 


I7t 3405 

12525 


DEC 

.333333 

a 

♦ 1/3 
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PQ514 kiafc lh£ fiClATlCh OCMMiWJS APt CCP Fi £I Eflj. il IS NE CESSARY TC REPLACE ThFSE CCHHANDS EV NE^ COMPANDS NH ICM 

R0316 CCMULE Lh hi IH lh£ TPANSLATIOS IF /NY AHl PHESZtlJ * 

£.0517 IN IHIS SgClICH THESE NEK CCPPAhCS APE GENERATED ANC STLREC FOR REPLACEMENT OP THE ChANNEL CQMHANQS hHEN THE 

R051S CCPPEiPCNLlNG fiQTA.IICNS APE CCMPLETEC. 


RQS^n fiFAFHiiifK re thp $pcrNn p itcn i k-tp an s i ncrc,..phqkd2 


0321 

REF 

8 

LAST 

1012 

n.34C6 

11*636 

C 

ASM&LWP 

CCS 

PACFAIl 


.0522 

RPF 

l_ 



17,2407 

1 3415 

C 


TCF 

FPX2 

IF FAILURE CN AC IGNORE X-TRANSLATICN 

0523 





17*3410 

1 3412 

1 


TCF 

+ 2 


Q52^ 

REF 

JL 

LAST 

1022 

l7f3SU 

1 3415 

( 


TCF 

FPX2 


0525 

REF 

3_ 

LAST 

IQOS 

17.3412 

31*513 1 


INDEX 

XNDX 1 


U52t 

HEF 

^5 

LAST 

1013 

17^3413 

3 2707 

C 


C4 

XLNNDX 


0527 

REF 

22 4 

LAST 

1012 

17*3414 

5C OCO 

1 


INDEX 

A 


0528 

-- Rii 

2 

LAST 

lOlC 

17.3415 

3 2743 

c 

. FPX2 

CA 

PYTAELE 


Q52S 

RLF 


JJIH 

lOOS 

17.3416 

7 llii 

1 


MASK 

PJETS 


C53C 

RJEF 


LAS T 

IS 

J.7j3_417_ 

55*454 

1 


TS 

PkORC2 


QS31 

REF 

1 



17.3420 

1 3257 

c 


. TL.F_ 

YAW7 IKE 














U532 

REF 


LAST 

LQOl 

17 tip 21 

3 1453 

1 

PBYP ASS 

CA 

PWORCl 

IRE 16 PROGRAM WILL LOAD PW0HD2 

0 523 

REF 

2 

CAST 

102 3 

11,3422 

55*454 

1 


TS 

PRCRC2 

UPON ENTRY 

053<» 

RIF 

ui 

L A IT 

10QA_ 

17,3423 

3 47 14 

1 


CAF 

ZtPC 


05 35 

REF 

.8 

LAST 

10 IS 

17,3 424 

55*461 

1 


TS 

bLASTl 

THERE IS NO PWCPD2 

0536 

REF 

2^ 

LAST 

1023 

17.3425 

1 325T 



TCF 

YAWT IMF 



fa^VlSlCK J'l} LF dbC PHCOAM CCLCSSUS BY N4SA 2021111-031 



1:17 AtiG, 2<i.IS66 DAPCS>* , Iflfe PUGe IQ2^ 
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PC537 

Gtfc£ 

RATlCh Of 

THE SECLhQ PCLL 

(Y,2) 

hCf c 

(RWtPOJLl 

1 













0538 

Bff 

E_ 

LiSI 

1013 

17.3426 

11'515 

0 

ASrtfiLhR 

CCS 

VNDX 

CHECK FOR Y-TPAKS 


-0539 

R6f 

1 



17.3427 

1 34 3 7 

c 


TCP 

ACtO?Y 



Ci^Q 

Rtf 

IE2 

eaIt 

1022 

17i3AJO_ 

1 4 714 

1 

4C2Y 

CAP 

ZEHC 



0541 

REf 

2 

■■■LASl 

99 

17.3431 

55'452 1 


TS 

R WORE 2 



_ CL542 

R£F_ 

7 

LAST 


17^3432 

U'5U 

c 


CCS 

ZNDX 

CHECK fCR Z-TPANS 


C543 

REF 

1 



17.3423 

1 35C2 

1 


TCP 

ACbCZZ 



0 544 

BfF 

lfl4 


102 A 

17.343A 

3 4 714 


N02Z 

CAP 

ZERC 



- 0545 

REF 

3 

LAST 

1014 

17i3435 

2_TA52 

1 


AOS 

ftnORC2 



0 5^6 

Rtf 

1 



17,3436 

1 3213 

0 


TCP 

PITCPTIM 

RHCRCZ ASSEKBLEC 















054^1 

Bff 

A 

LAST 

101 1 

17,3437_ 

JLL*63g 

1 

ACbC2Y 

CCS 

ACCROC 



0548 

Rtf 

1 



17,3440 

1 3455 

1 


TCP 

AC2Y 

CAN DC V-TRANS 


C549 

REf 

2_ 

LAST 

102A 

17.3441 

1 3455 



TCP 

AC?Y 



0550 





17,3442 

1 3443 

c 


TCP 

♦ 1 

USING AC PCP ROLL 


0551 

REF 

9 

LAST 

102 3 

17,3443 

11*626 

c 


CCS 

RAtFAIL 



- 0552 

RFf 

1 



17,3A44 

1 3430 

1 


TCP 

N02Y 

USING AC ANC AC HAS 

FA ILEC 

0553 





17,3445 

1 3447 

1 


TCP 

♦ 2 



C554 

RE f 

2 

LAST 

1024 

17,3446 

1 3430 

1 


TCP 

NOrY 

DITTO 















0555 

Rtf 

9 

J.AST 

IU24 

17,3447 

51*515 

1 


INDEX 

VNOX 

NO FAILURES, CAN DC 

Y 

0556 

REf 

6 

LAST 

J023 

17,3450 

3 2 7C7 

c 


CA 

XLNNLX 



0557 

REf 


LAST 

102 3 

17,3451 

£C OCO 

1 


INDEX 

A 



0556 

REf 

3 

LAST 

1013 

17,3452 

3 3157 

1 


CA 

RTARLE 



0559 

REf 

2 

LAST 

1011 

17,3455 

7 3176 

0 


MASK 

ACR JETS 



0560 

Rtf 

L_ 

LAST 

10 2 A 

17.3454 

1 3431 

c 


TCP 

NL2Y *l 
















C561 

REf 

1C 

LAST 

102A 

17,3455 

11*626 

c 

At2Y 

CCS 

RACE A 11 



a56ii 

REf 

36 

LAST 

IQ 13 

17,3456 

3 6214 

c 


CAP 

three 



0563 





17,3457 

1 3461 

c 


TCP 

♦ 2 



056^ 

REf 

2 3 

LAST 

1013 

17,3460 

3 6211 

c 


CAP 

SIX 



0565 

REf 

_JL£_ 

LAST 

1U2A 

17,3461 

51*515 

1 


INDEX 

YNDX 



0566 

REf 

3 

LAST 

101 3 

17,3462 

6 302C 

c 


AD 

XLNl NO 



056 7 

REf 

236 

LAST 

102A 

17.3463 

SC occ 

1 


INDEX 

A 



0566 

REf 

3 

LAST 

101 3 

17,3464 

3 32C0 

c 


CA 

YZTABLE 



0569 

REf 

2 

LAST 

101 3 

17,3465 

7 3212 

1 


MASK 

ACYJETS 



05 70 

REf 

4 

LAST 

lb 2 A 

17 ,3466 

55*452 

1 


TS 

RN0RC2 



0571 





17,3467 

0 0006 

1 


EXTEND 



057i 

REF 

27 

LAST 

101 A 

17,3470 

7 47C7 

1 


HP 

bIT4 



05 75 

REF 

2 

LAST 

101 A 

17,3471 

6 7 715 

c 


AO 

—2 



0574 

REf 

1C 

LAST 

102 1 

17, 3472 

55*522 

1 


TS 

NPJLTS 



0 5 75 

REf 

7 

LAST 

102 1 

17,3473 

4 1457 

1 


CS 

BLAST 



05 76 

REf 

4 

LAST 

102 1 

17,3474 

6 3337 

c 


AD 

* + .lTEc 



0577 





17, 3475 

0 oboe 

1 


EXTEND 



0578 

REf 

11 

L i S 1 

1024 

17,3476 

7 1522 

1 


NP 

NRJETS 



0579 

REF 

no 

LAST 

992 

17,3477 

3 oooi 

c 


CA 

L 



0 5 60 

REf 

6 

LASt 

102 1 

17. 3500 

21*547 

1 


AOS 

DPT 



0561 

REf 

4 

LAST 

1024 

17,3501 

1 34 32 

c 


TCP 

ND2Y *2 
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US 62 

ii££ 

5 

LiST 1024 

17ta5C2 

ll'63C 

1 

AC HO 21 

CCS 

ACCREC 




C563 

KEf 

1 



1.7x3503 

1 3 533 

C 


TCF 

BOf 2 2 

USING 

80-POlL 


as 64 

BEF 


FAST 

1023 

17.3504 

1 3533 C 


- 1C F. 

liCF2.2 

MUST 

CHECK FOR eO 

FAILURES 

QS 6S 





JL7,3 505 

1 3 1C 6 

t 


TCF 

+ 1 




058S 

REF 

a _Li s i 

lull 

Ilf 3506 

11*627 

1 


CCS 

RbLFAIL 

USING 

AC FOR ROLL 

, CAN DC Z-TPANS 

iJb67 

REF 

2? 

LAST 

1024 

X7.35C7 

3 6214 

C 


CAF 

THRFF 




Qsee 





„J17,3 51C 

1 3512 

c 


TCF 

♦ 2 




C5es„ 

REF 

3 4 

LAST 

1024 

17,3511 

3 62 11 

c 


CAF 

SIX 




Q59C . 

5iF 

e 

LAST 

1024 

17.3512 

51*516 

1 


INDEX 

ZNLX 




U5S1 

REF 

4 

LAST 

1024 

17,3513 

6 3020 

c 


AO 

XLMFCX 




Q5S2 

REF 

239 

LAST 

1024 

17,3514 

5C OCO 

1 


INDEX 

A 




0593 

REF 

4_ 

LAST 

1024 

17,3515 

3 3200 

c 


CA 

VITAfiLF 




C594 

«EF 

2 

LAST 

1012 

17,3516 

7 32 1 1 

1 


MASK 

0GZ JETS 




Q59S 

REF 

5 

L A IT _ 

1024 

17,3517 

21 *452 

1 


AOS 

kuCFC2 




U59fa 





17. 3520 

..n 0006 

1 


EXTEND 





GA97 

REF 

44 

-LAilJLfli 2 

17,3521 

2 4 7C_4 

1 


MP 

aiT? 




_ OASjO 

REF 

4 

L_A^T_ 

1024 

lit 3522 

6 77 15 

c 


AO 
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AC1362 IN CASE CHOAPMOD IS NOT +1. 


PCV|<tnK fP AC,r 9RCC,UAH ?Q2tlll-C31 UIl ALC> 24.1968 DAPCSf* ,186 PAGE 1035 

L ClL^lPl_JLtGll^L jaiTCPlLQT— U SER'S PACE NC. „? &6 S3 


0U7 2i2*JtC6 Q taJ14 C _ 

a i3 B 2C»Jtil7 Q UOfl6 a EXTEND 
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20.3637 

6 0025 

c 


AU 

T IP t 1 

CVFL 

GUARANTEED 
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01 0C5 

c 

MR ITfc 

PVjL T S 

SET PYCMAH TO DESIRED EIT CONFIG. 












0387 

REF 

A 

LAST 

103A 

15.3011 

11*711 

c 

cc s 

jetal 


0388 

REF 

1 



15, 3C12 

0 3231 

1 

TL 

CH/FCS 


C3e9 

REF 

1 



15,3013 

0 3677 

1 

TC 

CM/FCAi 


C390 

REF 

2 

LAST 

IDA 2 

15,3C1A 

0 36 7/ 

1 

TC 

CH/F CAl 
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i,c Pkrr.HAH cmn^^u. fiv ma.^a ?fj$nn-f^ii 


CP £MFY CIGITAL ii LTCPlLOT 


USEk'S P^GE NC, 13 


Eh S3 


PC3S1 

CEAC ZChE eMRY-JUGlIAL AITCPUCTS 

JL _ 




— - — 








0392 

— REE 29E LA^1„IQ92 

15.31115 IG QLO C 3DDZ 

CCS 

_ A 

Y A*iL IP »1. 0-3 / 130* 163 69-2 7 3*16 111 


0393 

_Rlf_ _L 

i5t2C16 6 32 UC 

AO 

YAWL IP 





_Rlf A 

15.3C17 1 3CA7 C 

TCP 

02CC P 




0395 

a££ 2 LAST 1043 

15,3020 6 3212 0 

-AO 

YAV^LIP 





QJ96 


R Ef^ I 


15t3C2i i 3q50 C 


TCF 


02NCCCP 


ATP 


0396 

REP 

1 



15,3022 

55*629 

1 

eiAsioz 

TS 

JETEP2 

SAVE RATE/180. ERPCR/ieO IS IN L. 

0399 

REP 

249 

■ 1 A S.T 

11393 

1S,3Q23 

10 000 

c 


CCS 

A 

START ERRCR DZ. 

0900 


L_ 



15. 3C29 

9 3211 



cs 

CM/e IAS 

* .6/180 

0901 





15, 3C25 

1 3027 

c 


TCP 

^2 


l-9Cl-_. 

REP 


LAST 

1093 

l5,3C2e 

3 321 1 

c 


c"a 

CM/BIAS 

— — — — — ^ — — — - - — — — 1 ■ # - . ^ 

09tl3 

REP 

-Li.9 

LAST 

10 3 3 

15.3027 

J- ^ /I ^ 1 



AD 

L 

BIAS THE ERROR, 

U909 

KEF 

2Lt 

LAil 

U?33 - 

15* 303U 

22 0C2 

c 


LACh 

u 

SAVE CALLERS RETURN ADDRESS. 

0905 

REP 

1 



_15i3C3l_ 

0 3C15 

c 


TC 

3DDZ 

GO GENERATE THE ERROR BIT. 

09Q6 

REP 

135 

LAST 

109 3 

15.3C32 

52 0C2 

\ 


OXCH 

L 

BIT TC L, RESTCPE CALLERS G. 

C90? 

-RiP 

JL 

-k-Ail 

109 2 

15, 3C33 

1 1 * 0 2 9 

1 

9L/SLZ 

CCS 

JET EP2 

came here in ext atm. CIL) * tPROP BIT 

y9Cfl 

REP 

1 



15, 3034 

6 320? 

\ 


AD 

9D/SL IP 

IP RATE GEQ 9r/S, SET L*d AND TAKE 

Q9G9 





15.3035 

i 3037 

1 


TCP 

+ 2 

JPT BITS ACCORDING TO SGN CP RATE. 

091C 

REP 

2 

LAST 

109 3 

15,3C36 

6 32C7 

1 


AO 

9D/SL IP 


JNll 

REP 


LAST 

1093 

15| 3C37 

59 OCU 

c 


TS 

t 


Q912 





. 15±M9 0 

1 3092 

c 


TCP 

♦ 2 

PATE CK. CONT INUE 

C913 





15,3091 

22 0C7 

c 


ZL 


RATE GEQ 9 G/S. OVER » IDE ERRQP bIT 

0919 

REP 

3 

LAST 

109 3 

15,3C92 

57*629 

c 


XCH 

JETF P2 

ANO CCNTINUE TO GET SIGN. 













Jj915 

REF 

251 

LAIL 

109 3 

-15,^093 

IX QjQa 

c 

-.2JD/iC2 

CCS 

A 

COME HERE TC TEST IF A WITHIN 20EG/S OZ 

091c 

REP 




1 5, 3C9A 

6 3210 

1 


AD 

YDDT L If 

1 .6 - VCOT CZ I OR PDOTI 

Ci^l? 





15,3095 

1 3050 

0 


TCP 

♦ 3 


.&918 

REP 

2 

LAST 

iQ9 3_ 

15.3096 

6 3210 

1 


AD 

YDCT L IP 

YCGT OZ • 2 CEG/SeC 

Q9i9 





15,3097 

9 00 00 

c 

OZCCH 

COM 




REF 


0^21 

yA22 


i^.EF 

»Ef 


1^^ 

2C? 


l^ST 1015 

L4S7 10A3 


15.3C50 55'721 C CZNCCCM T$ 

15,305 1 
i 5 , 3 C 5 2 


JElfeP ♦! 


GENERATE TAG, SET C(Al» -♦! OUTSIDE 02 


3 ^ 71 ^ 1 
0 Q0G2 C 


TC 


ZER_a 

Q 


SET C(A| « -*0 INSIDE 
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paAZJ 



EAIRA AT^CSPhERIC CltllAL AUTCFItOT 






- 

hn4?4 





IF 





1. IF ABSICALfl -C(A5) PCS. US£ 


CALFA PCS. 

CPOAPHOD* ♦U 

MA26 



bklA: YAR ERRCR « SGMCALF) (BETACCH -bLTA) 


IF 

CALFA NEG, 

CP'JAPMCD «-0 



RQA2e 



RATE * BfcTACCT 


IF 

CPOAPMCC * 

-0, hATE ■ PREL 



RQA3D 



R-AAi£ ■ CCNTPCL 








. 9iCA2l 

PCLL* 

PCCk 

fcPBCR » SGMCALf) (PCLLC - RCLL I 

IF CPCAPHOO • -Cf RATE OAfP ONLY. 

RCA33 



.R.AIt « PP,EL 


PCA3A 


F- 

AXIS - CONTROL 







I<Q435 

LL. 

C(A5) 

GEG CALFA ££G__-C145I. USE 

CHOAPHCO » +1 

PQA3 7 

beta: 

POLL 

EPROP « SGN(-SALF) tBETACCH -BETAI 


RGA3e 



RATE » EETACCT 


RQ439 


P- 

AKIS « CCNTRCl 



_F.0^40 

ROLL! 

YA^ ERPCR 

n 

SCNISAIFJ (PCLLC -HOLLI 


RATE CANP ONLY, 


-Ra<i42 


RATE 

9 

PREL 




P0A43 


R-AAIS 

M 

CCNTPCL 












R044A 

3. FOR 

ALL CASES 


USl _ , . ^ 




P0A45 

ALFA : 

PITCH ERROR 

• (ALFACCH - ALFA) 




R044t 


RATE 

9 

GRCL 




iiG-4_47 


G'AAIS 

m 

CCNTPCL 






























REF 

6 

LAST 1042 

15, 3053 

55'7CC 

C EXCAP 

TS 

CPtJAPNCD 

♦0 FCR NOW 


U450 

REE 

7 

LAST 1041 

15,3054 

4 1666 

1 

cs 

6ETA/180 



v45l 

REE 

2 

LAST lOS 

15,3055 

6 1604 

1 

AD 

BETACCP 



04 52 

REF 

22 

LAST 1043 

15,3056 

55*721 

C 

TS 

JCTEP +l 

PRESERVE THIS FCR A WHILE. 













0453 


5_ 

LAST 1042 

15,3057 

11*506 

1 

CCS 

CALFA 



0454 

REF 

1 


15, 3060 

6 321 3 

1 

AO 

C45L IP 

- l.G-CCS (45 1 


C455 




15,3061 

1 3063 

c 

TCF 

♦ 2 



C456 

REF 

L. 

LAST 1044 

15,3062 

6 3213 

1 

AD 

C45L IP 



0457 

P £F 

212 

LAST 1043 

15,3063 

54 COO 

c 

TS 

A 



045 8 

REF 

1 


15,3064 

1 3143 

0 

TC F 

EXUAF2 

HERE IF AeS(CALFA) L C0S(45I 













C459 

REF 

4 

LAST 1034 

15, 3065 

11*727 

c 

CCS 

P63F LAG 



046C 

REF 

1 


15, 3066 

0 3101 

1 

TC 

EXDA P4 



U 4 6 1 




15, 3067 

0 3C71 

1 

TC 

♦ 2 



04t2 

REF 

2 

LAST 1044 

15,3CTC 

0 31C1 

1 

TC 

EXDAP4 



0463 

REF 

SO 

LAST 1032 

15,3071 

0 5301 

c 

TC 

phaschn^ 

SINGLE PASS ThRCUGH HERE. 


0464 




15, 3072 

40334 

1 

CCT 

40334 



0465 

REF 

i u 

last 1042 

15,3073 

4 4712 

c 

CS 

ONE 



04 66 

REF 

5 

LAST 1044 

15, 3074 

55*727 

c 

TS 

P63F LAG 

SET FLAG TC ASSURE SINGLE PASS. 


C4b7 

REF 

1 


15, 3075 

3 3206 

c 

CA 

NStC 



C4te 

REF 

47 

LAST 103e 

15,3076 

C 5140 

1 

TC 

WAITLIST 



0469 

REF 

39 

LAST lO^C 

E 6 , 1661 



EBANK- 

AUC 
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a47(L 

flXE 

_ 2 

-Xlil 

-2Qi 

15 •1017 

C2374 

C 


2CA0K 

WAKE F62 

call TC TERHINAT6 P62 IN N SEC. 

C)47Q 





_ 15t3l00 

54066 

c 





AQATi 











65 LEG/ 3CEG/SEC - 21 SEC NOMINAL 

AQ472 











TRANSIT TIME FRCM AlFA-45 TO ALFA TRIM, 













Ci>7'^ 

KEf 

e. 

1 A9T 

1Q4; 

14t31C1 

11*711 C 

LJIDAP4 

CCS 

JETAG 

RCLLJET INTERFACE TEST BET^^eEN ,l SEC 

il4I4 


_ 1 



15t3i02 

1 3 lie 

C 


TCP 

tXCAP3 

DAP ANC ThE 2 SFC CM/RCS CAP 

04 75 

PEF 

2 

LAST 

104 5 

15,1101 

1 3UQ 

c 


TCF 

E XUAP3 


Q^7fc 

fi£f 

195 

LAST 

1043 

15 • 3 IC^ 

3 4714 

i 


CA 

ZEKf 


Q477 





15, 3105 

0 0006 

1 


EXTEND 


TURN OFF ROLL JETS IF CN AND WAIT 

0^76 

REF 

2_ 

LAST 

1033 

15.3106 

Cl 006 

c 


WRITE 

KCLl JETS 

UNTIL START CF 2 SEC CM/RCS CYCLE 

Q479 

REF 

X_ 

LAST 

1045 

15.3107 

55*711 

_c_ 


TS 

JETAC 

l^ESTCPE PROPER VALUE ♦€ 


AQ^aC 










KCLL FCAI 

WILL EE IN EPRCR UNTIL NEXT CM/RCS CALL. 

£iXll 

REF 

6_ 

LAST 

1044 

15.3110 

11*_5Q6 

1 

EACAP3 

CCS 

CALF A 

HERE IF ABStCALFAI GEO C0S(45» 

0462 

BEF 

2 4 

LAST 

1Q44 

15t3Jll 

3 1721 

1 


CA 

JETFF +1 


C483 

REF 

1 



15.3112 

1 3116 

c 


TCF 

E>0AP1 


0464 

REF 1S6 

LAST 

1045 

15.3113 

4 4 714 

c 


CS 

ZERO 


0485 

PEE 

7 

LAST 

1044 

15,3114 

55»7CO 

C 


TS 

CNOA FFCC 

FCR CM/RCS 

0486 

REF 

25 

LAST 

1045 

15,3115 

4 1721 

c 


CS 

JETER *] 


C487 

Plf 

L_ 



15,3116 

55*573 

c 

EXCAPl 

TS 

RAXE RP 

FCR YAW FCAI ■ 

04 86 

REF 

9 

LAST 

1042 

15,3117 

55*500 

1 


TS 

AK2 

,<ANT RAX ERR FOR TM. 

0489 

REF 

lU 


1043 

15i3120 

54 OCl 

1 


TS 

L 


U49C 

R E F 



LAST 

104 5 

15.3121 

11*700 

c 


CCS 

CHDAPRGO 

COORDINATE BETA CCNTROL. 

C4 41 





15,3122 

0 3123 

1 


TC 

♦ 3 

C(CMCAPMQC) CAN BE ♦!, 40, OR -0. 

0492 

REF 

1 19 

LAST 

104 4 

15,3123 

3 4712 

1 


CA 

CNE 

USE BETAOCT TC CCORU IN MODE 40 

0493 

-R£f 

2 53 

LAST 

104 4 

15.3124 

_5C OOQ 

1 


INDEX 

A 

OlHEPWlSe USE flPEL. 

0494 

REF 

6 

LAST 

IQ 4 1 

15,3125 

3 1703 

1 


CA 

PRC L 


__ 0495 

Rtf 

1 



15.3126 

0 3022 1 


TC 

DIAS EC7 

GC TEST 02. 40 IF IN OZ, ♦-! OTHERWISE 

A0496 











IF GEC 4D/S, SET ERROR BIT IN L -O) 

0497 





15, 3U7 

0 00C6 

1 


EXTEND 



C496 

REF 

\i 

last 

965 

15,3130 

C4 OCl 

1 


ROR 

LCHAK 

t HAS QETA 8IT 

0499 

REF 

254 

LAST 

1045 

15*3131 

5C QCO 

1 


INDEX 

A 


05tC 

REf 

m 

1 

LAST 

104 2 

13,3132 

3 32 15 

1 


CAF 

Y JE ICCDE 


0501 

REF 

26 

LAST 

1045 

15,3133 

55*72C 

1 


TS 

JETE F 



05X2 

REF 

1 

-K. 

XAST 

A04 2 

15,3134 

3 1572 

c 


CA 

OAXE PF 

ALFA ERROR. 

0503 

REF 

U7 

LIST 

1045 

15,3135 

54 OCl 

1 


TS 

L 


0504 

R£f 

6_ 

^AST 

104 2 

15,3136 

3 1702 

c 


CA 

OREL 

FCR ALFACCT use OREL 

U5c5 

REF 

2 

LAST 

104 5 

15,3137 

0 3022 

1 


TC 

BUSECZ 


05 06 





15,3140 

C 0006 

1 


EXTEND 



- - C5C7 

PtF 

13 

LAST 

1045 

15,3141 

04 001 

1 


ROR 

LCHAF 


Q50e 

REF 

1 



15,3142 

1 300<i 

1 


TCF 

EXDAFIN 

CONTINUE CN IN CAP 













C5C9 

- 

S_ 

LAST 

_104 5 

15,3143 

25*700 

1 

EX0AP2 

INCR 

CFUA FFOO 

SET CMDAPFCC TO *l 













0 510 

REF 

1 2C 

LAST 

104 5 

15,3144 

4 4712 

c 


CS 

CNE 

INDICATE CHANGE FROM .1 SEC UPDATE TO 

0511 

REF 

7 

LAST 

104 5 

15,3145 

55*711 

c 


TS 

JETAG 

TO 2 SEC FCR ROLL JETS.l IF CMDAPMOO 


A0 5U =0 ANO JET4G —It QUENCHES JETS IF DN » 
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QJIJ 

Rtf 

4 

LAST 


15i3146 

11*717 

C 


CCS 

P6 J F LAC 

IF FLAG WAS ♦! , SET -0. 

0514 

Rtf 

7 

Li?5T 

1046. _ 

_Lii3147 

55*727 



TS 

P63F LAG 


0 515 






13 151 



NODP 




0516 

RJEi- 

5 

UJS1 

104 1_ 

15t3151 

11'5C7 

C 


CCS 

SALFA 

BETA CCNTfiCL WITH P JETS 

0517 

REf 

2 ? 

LAST 

104 5 

15.3152 

4 1721 



Ci 

JLTEF 41 


Q5ie 





JljJlSJ 

1 3155 

1 


TCP 

♦ 2 


0519 

REF 

28 

U»1L 

1046 

15,3154 

3 1721 

1 


CA 

JETER *l 


C52Q 

Rtf 

5_ 

LAST 

IQ34 

15.3155 

55*713 

1 


TS 

PAXb PRl 

TEHP SAVE. ERRCR/190 

Qf>2l 





15,3156 

0 0006 

1 


EXTEND 



C522 

REP 

C 

LAST 

1035 

15,3157 

7 4675 

d 


NP 

HALF 

CR/FCAI EXPECTS ERROfl/360. 

Q523 

REF 

ft 



L4ST 

1046 

15,3160 

57*713 

c 


XCH 

PAXE RRi 

ERRCR/36U FCR FCAI, GET ERRQR/IRO. 

0524 

REF 

138 

LAST 

104 5 

15,3161 

54 OCl 

1 


TS 

L 


0525 

REF_ 

t 

LAST 

1046 

15,3162 

11*507 

c 


CCS 

SALFA 


. 0526 

RtF 

5_ 

LAST 

1042 

15.3163 

4 1704 

1 


cs 

EETACCT 

USE 8ETA00T TC COORD IN NODE ♦! 

C527 





15,3164 

0 3166 

c 


TC 

♦ 2 


0528 

REF 

6 

LAST 

1U4 6 

15,3165 

3 1704 

c 


CA 

BtTACCT 


0529 

REF 

T 

L 4S T 

1045 

15, 3166 

0 3022 

1 


TC 

BIASECZ 


U530 





15, 3167 

0 0006 

1 


fcX rCND 



C531 

REF 

14 

LAST 

1045 

15,3170 

C4 OCl 

1 


ROR 

LCHAK 


Q5j2 

REF 

255 

LAST 

104! 

15j_3ni 

50 QCO 

1 


INDEX 

A 


0533 

REF 

2 

LAST 

104 2 

15,3172 

3 3220 

1 


CAF 

P/RJCCCE 

GET RCLL CCCE 

0534 





15,3173 

0 0006 

1 


EXTEND 


ROLL CONTROL WITH VAW JETS. 

0535 

REF 


LAST 

104 5 

15,3174 

01 0C6 

c 


WR IT6 

ROLL JETS 

UE,LL SKIP REGULAR ROLL SVST 













0536 

RiF 

3 

iast 

103 5 

15,3175 

3 1717 

1 


CA 

ROLLHCLO 

ROLL/180 AT CR/OAPCN TIRE. 

0537 





15,3176 

0 0006 

1 


EXTEND 



0538 

REf 

1C 

LAST 

1042 

15,3177 

21*664 

c 


MSU 

RCL L /18C 

l,S CCRPL, BUT SO WHATS A BIT.? 

0539 

REF 

129 

LAST 

104 6 

15,3200 

54 001 

1 


TS 

L 

FORCE A LINIT CYCLE IN YAW RATE. 

0540 

REF 

7 

LAST 

1046 

15,3201 

U'5C7 

c 


CCS 

SALFA 


0541 

REF 

lU 

LAST 

1046 

15,3202 

3 OOCI 

0 


CA 

L 

TO REMOVE ITS BIASING EFFECT ON M OCT. 

0 542 

REF 

2 

LAST 

104! 

15,3203 

0 3116 

1 


TC 

EXDAPl 


0543 

REF 

HI 

LAST 

1046 

.15,3204 

4 OOCI 

1 


CS 

L 


C544 

REf 

3 

LAST 

104 6 

IS, 3205 

0 3116 

1 


TC 

fcXOAPl 














0545 





15, 3206 

C4064 

1 

NSEC 

DEC 

2100 

65 DEC/ 3 0EG/5EC 

A05^6 










IF NSEC IS 

CHANGtC, REREMBFR TO CHANGE 4.33SPCT. 

0547 





15, 3207 

37734 

c 

40/SLlM 

DEC 

16346 

l.O -4/18C 0/5 * 4/1800 EXP 14 

0546 





15,3210 

37756 

1 

YCC TL IM 

DEC 

16366 

>1.0 - YCCT 02« 16384 -18 

AC549 











YCOT 02 - YCOT TCDL/180 • 2/1600 EXP 14 













Q55C 





15,3211 

00067 

c 

cw/eiAS 

DEC 

55 

>•6/180 6l4 > 55 

0551 





IS, 3212 

37267 

c 

YAWLIR 

DEC 

16055 

Y A hL I M*1 .0-3.6/190*163 84-329*16055 

G552 





15,3213 

1127/ 

c 

C45L IN 

DEC 

.292 89 

»1.0-CCSI45 1 


R0553 


A0 5 5A JET CCDE TABLES FCLl Ch _ 


Q553 i5t32i6 C012Q 1 OCTAL 00120 PCS V 

0556 15.3215 CQOCO 1 YJETCCDE OCTAL 00000 RCS JET BITS 

C55T 15,3216 002A0 I OCTAL 0C2^C NEG Y 


i.APi ZS'iflpfil.f fiFVI!ilCN 71.1 Vi- ALL PRCIiHAM LULLiiUi ILY NA^A 1117 ALL. CAPL5P .186 PAGE 10A7 


Ci»- EUlPt tltillL )SLTCP1LLT 




USER ' 

S PAGE 

NC. 17 


E6 53 

- 

— 












iiuics 1 

DCTAL 

00005 

PCS R JET 

e ITS 

ALSO PCS 

P 

JET PITS 



L55S 

A5t3l2C 

OQOQ5 .1 

P/PJCCDE octal 

OOGOC 








n5fto 

16,3221 

__flQQ12 1 

OCTAL 

__Q00A2 

NEC R 


ALSO NEC 

P 





fl 
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PQSfel _ RCS .iKii StClKH-tSlhT LRIC £ACF i SFt ii.V WAITLIST CALI FCLLCWINC A DELAY OF 1.2 5EL AFTER PIPUP. 

F0563_ lt£ -UiK JiTJLAO SETS A ILAd Ih JETAQ TO SIGNIFY THAT POLL LPOATE IS OLE. IN RCLGFLY 5 CS JPDVRATE WILL dt 

P.Qb&S 1:>£CL1EC AhD JETAC WILL CAUSE CP/PCS TC ACT CN ROLLL IHMEOIATELY THEREAFTER. THE 

PJS6 7 TASK !AYES TFE CALL TlME_it THAT CH /RCS CAN DETEPH INE HOW HUCH CP ThE 2 SEC INTERVAL PEPAINS BEFORE THE 
_iLfl569 LPXm._ 


C5K 

R£X__1S 

LiXT iQ3t A5,3222 

- -^.0025 

1 StTjTAG CS 

T 1 HEl 


SAVE NCNINAL LPCATE TINE FCR SYNCH 

Q3I1 

fiXl ^ 

XAST IQfi i3tJ223 

55*712 

C. 

TS. 

TUSEC 




AQS72 








the 5 CS APPEARS IN 

TIMETST. 

ii5 73 

REf lii 

L AiT _ J3_i 322A 

3 9712 

1 

CA 

ONE 


rather than INCP. FOR 

SAFETY 

C57h 

^REP e 

LAST lyjtS 15t3_a25 

55*711 

C 

TS 

JETAG 


SFT JETAC»1 TC CAUSE 

CA/RCS TO BE 

LS75 

REP SI 

XiST 1Q4A 15.3226 

_ 0 5301 

c 

TC 

PHASCHNG 




057<l 


15.3227 

COCCI 

c 

OCT 

OOClil 














Q5 77 

REF 

LAST IQ^C 15.3230 

L 5213 1 

TC 

TASKCVEF 


EXECLTEO AFTER NEXT BOCYRATE UPDATE 


HQS76 

PRtCICTIVE ROLL SYSTEH LNTRY STEERINC PBCVIUES ROLL 

COHMANLi IN 

LCC 

RGLLC. THE FCLLCWING CALCULATES THE 

RLSfiQ 

TRAJECTCRY IC THE CRICIN IN 

PHASE PLANE (K • V 1 . 

PRQGRAH 

ENTERS JET 

ON 

AND OFF CALLS INTO wTCST 

TO PRODUCE 

P0S82 _ 

TFE OESIREC TRAJECTCRY. OFLY 

THOSE CALLS WHICH 

CAN BE 

txeCUTEC WITHIN 

THE INTERVAL T (2 SECI 

ARE ENTERED IN 

RC58^ 

WIL S 1 1 

TFE RERAINCER ARE RECCKSluEREC 

AT NEXT 

UPDATE. 















-L&8S 

—RiP ^ 

LAST 185 ^t7A 


HALF’ PH 

LOCALS NECl/2 ♦! 














ALSe6 






CLEAR 

JETAG BEFORE TINETST. SET 

TO TO SHO*. 

ALSe? 






ROLL 

OAF 

called. IN EVENT CF RES 

TART, eOOVRATE 

Aosee 






NAY NISS 

A CYCLE. CN/RCS WILL MISS A CYCLE ONLY 


AC5e9 IF A HESTAhT CCCLIRS AFTER TIPETST CCNMENCES. 


0590 

HEP 

122 

LAST 

lOAE 

15,3231 

9 97 12 

C CN/KCS 

CS 

ONE 


u591 

HEF 

2_ 

- LA S T 

109 

IS. 3232 

55*617 

1 ^ 

TS 

JNDX 

SET NDX FCR PCS ROLL, AND CHANCE LATER 


0592 

PEF 

1 



15,3233 

9 9726 

1 

CS 

2T/Tf DC 

FCLLCOT - OELAQC ♦ DELAIC SINM -DELP 

05 9 3 





15.3239 

C (iOCb 1 

EXTEND 



C599 

HEP 

( 

LAST 

10 9 1 

15,3235 

7 17CI 

1 

HP 

PFEL 

06LR/1P0 ■ RDCT TCOU/ieO • ROCT/ieCO 

0595 

HEP 

1A2 

LAST 

1'j9 6 

15,3236 

6 COG 1 

C 

AO 

L 

-2 aCCT T/180 IN L 

0596 

REP 

2 

LAST 

iC9 

15, 3237 

5 5 • 6 1 3 

c 

TS 

-VT/16C 

SAVE -2VT/ieO HERF 












0597 

REP 

11 

LAST 

1096 

I5f 3290 

9 1669 

c 

CS 

•'DLL yiBC 


0598 

REF 

12 

LAST 

109 1 

15.3291 

59 C21 

c 

TS 

SF 

SAVE (-F/10O1 /2 












c 3 9 9 

REP 

21 

LAST 

1092 

15,3292 

9 G102 

c 

CS 

CN/FLAGS 


0600 

REF 

_3i_ 

LAST 

10 29 

15,3293 

7 97C7 

1 

mask 

BIT9 

LATSw • lOlt HIT9 

0601 





15,3299 

0 C0C6 

1 

EXTEND 


HCLL OVER TCP i 

06Q2 

REF 

1 



15,3295 

1 3253 

1 

t32F 

OLTLCX 

NO, TAKE SHCRTEST PATH 

060 3 

REF 

22 

LAST 

1096 

15,3296 

26 1C2 

L 

AOS 

CH/FLAGS 

YES, ENFORCE POLL OVER TOP.. IBIT -0 » 

06 CA 

REF 

13 

LAST 

10 3 5 

15, 3297 

3 1715 

c 

CA 

ROLLC 

IRCLLC/lflOJ /2 

0605 

REf 

13 

LAST 

109 8 

15,3250 

6 0021 

1 

AO 

SR 

-<R/180) 22 

0606 

REF 

2 

LAST 

IC9 

15,3251 

57*619 

0 

XCH 

LCX/360 

DIFFERENT X REQD HERE. OISCONT AT lr)0. 

0607 

REf 

1 



15, 3252 

1 3313 

I 

TCP 

CCHP AT 

POSSIBLE CVFL ABOVE. 
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j 6 Cfl 

R£f 

3 

liSI 

Idle 

15,1253 

3 9675 

1 

GETLCX 

CA 

PC $1/2 _ 

FCRH RCCH/360 

^ 0609 





15^1214 

6 COQQ 1 


_DOUaLE 





Sill- 

_J-4_ 

-i-A^ T 


15^3255 

6 1715 

c 


AD 

POLL C 


^611 

Rif 

3 

Llil 

U09 8 

15,3256 

5 7 *614 

0 


XCH 

LCX/260 

IGNORE PCSSIBLE CVFl. 













i3Al2 

Btf 

— U- 

E ^ S 1 

1Q9£ 

15,3257 

T QQ71 



CA 

SR 

FCRH -R/360 

Q6L3 

RtF 

r 

L^SI 

109 fi 

15,326C 

6 9673 

1 


10 

NEGl/2 


Q61h 

REF 

6 

LIST 

L0„9 9 

15,32eL_ 

6 46 7 3 

1 


AO 

NEtl/2 

IGNCPE QVFL 

OelS 

il£E_ 

4_ 

-13 ST 

1Q9 9 

15*3262 

57*619 

c 


XCH 

LCX/36C 

-H/360 

0616 

REF 


L4ST 

IU99 

15,3263 

27*619 

1 


ADS 

LCX/360 

LCX/36C « RCCH/26C -R/360 RANGE t-l,l) 













ftn£j_z 

r.f FS 


IVT/lRQl (VT/lflOi (lflQ/t9 

11 TT CUSALf 11 1 

♦ X/26C ♦ 

SGNIXI / 2 OVFL ? 


C619 

REF 

3 

LiST 

lU9.fi 

15,3269 

11*613 

c 


CCS 

-VT/ 180 

TAKE SHORTEST ANGULAR PATH 

06^0 

REF 

lii 

LAST 

1Q9E 

15.3265 

_ -6-9712 

1 


AD 

ONE 

(BASED ON SINGLE JET ACCELERATION! 

C621 





15tl26jfe 

L 32 70 

c 


TCF 

♦2 



REF 

129 

LiSl 

109 9 

15,J267 

6 9712 

1 


AO 

UNE 


0623 





15.3270 

C 0006 

1 


EXTEND 



__a62h 

REF 

9 

14ST 

J,09S 

15,3271 

7 1612 

c 


HP 

-VT/ 180 

C(-V7/180l * -2 VT/i90 

062^ 





lSi32T2_ 

C OOC6 

1 


EXTEND 



0626 

RIF 

L_ 



15,3273 

7 3759 

c 


MP 

l/ltll 

■ 180/(16 A1 TT I 

062 7 





15,3279 

C 0006 

1 


EXTEND 



0626 

REF 

7 

L/ST 

109 5 

15,3275 

u*5ce 

1 


OV 

CALFI 


0629 

REF 

193 

13 ST 

1098 

15.3276 

59 6gi 

1 


TS 

L 


C 63 C 

REF 

6 

E3ST 

1099 

15,327? 

11*619 

1 


CCS 

LCX/360 


0631 

REF 

4 

LIST 

109 9 

15(3300 

3 9675 

1 


CAF 

PDSl /2 


0632 





IS. 3301 

1 3303 

0 


TCF 



06 3 i 

REF 

6 

LIST 

109 9 

15,3302 

9 9 6 75 

c 


CS 

FOSl /2 


0639 

R t F 

J. 

IIST 

109 9 

L5,13QJ 

6 16 l9 

c 


AO 

LCX/360 

IS LCX/360 LESS THAN 180 DEG % 

0635 

REF 

199 

LIST 

1099 

15.3309 

6 OCOl 

c 


AD 

L 


0634 

REF 

195 

LIST 

1099 

15,3305 

59 OCi 

1 


TS 

L 


Q6J7 

REF 

2_ 

LAST 

109 fi 

-lS«33Ce 

1 3313 

1 


TCF 

CCMPAT 

YES, CC ON. 

0636 

REF 2!t 

LIST 

109 6 

1S.3 3C 7 

5C 000 

1 

TRTICXPI 

INDEX 

A 

NC, SHIFT X 0V - SGN(XJ 2 PI 

0639. 

REF 

1 



15. 33 10 

9 9679 

1 


CS 

HALF FR 

♦A yields -1/2 

0690 





15, 3311 

6 Q GCO 

1 


DOUBLE 



069 1 

PEF 

fi_ 

LIST 

109 9 

15.3312 

27*619 

1 


AOS 

LCX/360 














0692 

REF 

9 

LAST 

109 9 

I5i33l3 

3 U19 

c 

CCMPAT 

CA 

LCX/360 

CORRECT FOR ASSUMED CCCRO TURN. 

C693 





15.3319 

.0 0006 

1 


EXTEND 



06^4 

REF 

e 

LAST 

1099 

15,3315 

7 15C6 

1 


MP 

CALF A 

CCS ALFA 

0695 

REF 

IC 

LAST 

1099 

15,3316 

55*619 

1 


TS 

LCX/36C 

scaled lcx ck herf. 













0696 

REF 

10 

LAST 

109? 

15,3317 

1.1 *700 

c 


CCS 

CMDAPHCD 

FCUfl POSSIBILITIES HERE 

0697 

PEF 

1 



15, 3220 

0 3675 

c 


TC 

OZCALLl 

EXIT, SETTING J E T AG-O . (C ( A ) -0 » 

&Q696 











ALL 3 AXES ILPEIOY DONE. 

06^9 





15,3321 

0 3322 

1 


TC 

♦ 1 

G LESS THAN .C5. Cl POS. CCNTIMUE 

Ot5C 

REF 

1 1 

LIST 

1099 

15,3322 

3 1619 

0 


CA 

LCX/3tO 

G GEQ .05. CONTINUE [N CM/RCS 

Q65L 

REF 

12 

LAST 

109 9 

15.3223 

52*bl9 

1 


rs 

LCX/36C 

CI04PHC0*-0. DIPPING CNLY. SET LCX*0 

0652 

HEF 

6 

LIST 

109 6 

15,3329 

35*713 

1 


TS 

PAXL RRl 

SIVk LCX FCR FOAI AND EOIT.( /36G) 
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LA -VT/ieC GET - 2 VI /I 80 

Tb SP _____ 

LA IE ££T -VT/iaO. LEAVE -VT/J6C IN Sh FOR CZ 

IS -V T/ieCE DIAGNOSTIC •••• 

XCM -V T/ 160 NCW CONTENTS CF -VT/iaO AS LABELED 

EXTEND 

NP -VT / 160 6(A1 » "2VT/1B0 

EXTEND 

MP leO/£ATT " 

TS VSC/^APl 


RQfcfcT 

IS 

-ianivu 

I (liCy^Al Til 

VT/160 vT/iec - 

.5 bOFLIH/360 1 -X/360 

- .5 eUFLlP/360 

PQS 

? 













0665 





_lLi333? 

6 OOCO 

1 nhkhalf double 

FCR SECOND BURN, 

Al 


Ufi66 





15.3560 

^ 0000 

_£ 

COM 




0667 

AIL 

1 



15,33<il 

6 3761 

1 

AO BUFL IP 

*eUFLlP/(2 36CI 



0666 

PEF 

1A6 

L/ST 

10L_1_ 

IS. 33A2 

5 A OCl 

1 

TS L 




C66S 

REf 

e_ 

L AS T 

lose 

15.33R3 

li*6t3 

c 

CCS -VT/18C 




0670 

REf 

lAl 

LAil 

I05C 

15t336R 

A 0001 

1 

CS L 




C671 





15i33A5 

1 33A? 

c 

TCF +2 




0672 

REE 


iL Jt ^ f 

1Q5C 

15.33A6 

i Lfl C 1 

c 

CA L 




0673 

REF 

13 

LAST 

aOLS 

15.33^7 

6 161A 

c 

Al) LCX/36C 




C67A 

REF 

2 

L AST 

105C 

15,3350 

6 3761 

1 

AD fiUFLlK 




0675 





15.3251 

Q 00C6 

1 

EXTEND 




C676 

REF 

X 



15,3352 

6 3367 

c 

fl2-HF REFLECT 

POINT (X,V> IN LHP 

• 














RQ677 

LS. 

SGMVll 

t (leo/RAi ni 

vi/ieo vT/ieo - 

.5 B0FLIH./360 ) -X/360 

♦ .5 0UFLIP/36O 

NEG 

? 













C679 





15,3353 

A 0000 

c 

CCM 




OfcfcC 

-RIF 


LAST 

-lQ5i 

15.3356 

6 3761 

J 

AO eOFLIP 




06.81 

REF 

<1 

LAST 

105C 

15,3355 

6 3761 

1 

AO euFLIP 




C682 





15,3356 

C 00 C 6 

1 

EXTEND 




0663 

REF 

1 



15,3357 

6 3376 

c 

BZVF 021 

POINT (X,V) IN RHP 

# 



IS fClNT XITPIN VE LCCITV 0£ ? 


0685 

REF 

1 



15,3360 

*1 3753 

1 

1 


CS 

VSCMIN 

IS VSG/AAPI - (VSO/AAPn 

PIN NEG ? 


0606 

REF 


LAST 

lose 

15,3361 

6 1616 


AO 

vsl/aafi 




06tt7 





^5.3 362 

G C0C6 

1 


EXTEND 



0660 

REF 

1 



15,3363 

6 36 71 

1 


B2MF 

DZCALL 

VES. 

















PU60S 


PCINT IS 

IN eUFFER 2CNE 

. THRLST 

TC 

X AXIS. 




















C6SC 

REF 

IX 

41 # 

LAST 

10 A € 

15,336A 

A 1617 

1 


CS 

JNLX 




Q691 

REF 

2 

LAST 

lie 

15,3365 

55*620 

C 


TS 

JNOXl 




U692 

REF 

1 



15,3366 

0 3A51 

1 


TC 

QVRL INEl 


















0699 

REF 

9 

LAST 

lost 

15. 336? 

A 1613 

0 

MEFLECT 

CS 

-VT/ 10(: 

f<EFLECT LHP INTO RHP HEL 

TC TERN CCNTR 


07CC 

REF 

1C 

LAST 

105C 

15,3370 

55*013 

c 


TS 

-vT/ leo 




0701 

REF 

17 

LAST 

10 5 C 

15,3371 

5A C2i 

c 


TS 

SK 

-vT/360 SAVED FCR D2. 




0^53 



LAST iUAS 

15,3225 3 1613 1 

065 A 

REf 

15 

LAST 10A9 

15*3266 5A 021 C 



14 ;;^ 

J_1ST 10 5 C 

15.3327 

i ClC 7 1 1 

_C656 

Rll 



15.3330 55*570 C 

0657 

A£f 


LISI 1Q5L 

15.3231 57*613 1 






15.3332 

0 QQC6 1 


OfLS^ NET ? last 105C 

Ct 6 _(l 

Q 601 

0662 


Mi 


1 


15,3333 

l 5 t 333 A 

lSt3335 


7 1613 C 


C COGt 1 


7 375A ( 


REF 


2 LAST lOS 15,3336 55*616 C 
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CIC2 

R£E 

X_4 

xi&j lasc 

15«J372 

4 X614 

1 


cs 

LCX/3tC 


i]7C3 

REf 

li 

LAST 1U51 

15.3273 

55*61X 



TS 

LCX/36t 

' 

0204 


4_ 

Li^T iQ5C 

15, 3374 

4 1617 

_X_ 


CS 

JNDX 

• - 

0705 

R£1 

m 

XiSl 105 X 

15 1 3315 

55* til 

x_ 


TS 

JNCX 



kUIOA 

li- 

- IU!;C/4APIi Mih 

hfiG 

_1_ 
















070 7 

REF 

2 

LAST 105 C 

15,3370 

5.Lli3_ 

_x_ 

021 

C5 

VSCH IN 

IS vsq/4APi - (vsq/<fAP(i ptn neg % 

o7oa 

R£i 

■ 4 

LAST IQiC 

15.3377 

Ji iQ Ifc 

1 


HD 

VSC/^tAPI 


0705_ 




15,34CQ 

0 0UC6 

L= 


EXTEND 



C710 

Rfcf 

1 


15,3401 

6 3403 

X- 


aZHF 

0Z2 

YES, GC TEST FURThFP, 

t^7ll 

REF 

L_ 


15.34C2 

X 3410 

_c_ 


TCF 

MAXVTEST 

NO 












FC712 

IS 

X/3CC - J1RJN/26C -VT7260 

fiiQ 1 







07X1 

- R£f 

X 


_I5, 3503 

4 3757 

_Q_ 

C22 _ _ 

C$ 

XNI N/36C 

XMlN/360 * 4/36C 

QllM 

R5f 

It 

L45XXQ51 

X5,14C4 

t It 14 

C 


AO 

LtX/36C 


0715 

REF 


1 JCY 

15.34C5 

6 0021 

-L. 


AU 

SP 

C(SRI * -VT/3tO 

Q7ifc 




15.34G6 

0 QOCt 

1 


EXTEND 


IS X/360 - XNlN/3tO -Vl/360 NEG S 

C717 

REF 

2 

U>ST 105 0 

15,34C7 

6 3671 

1 


BZHF 

DZCALL 

YES, IN OZ. EXIT SETTING JETAG-0. 











- ^ 

AO 7 18 

IS 

lOiLltC - VH/36QK - X5/3^C 

PCI 


7 















C719- 

AEf 

_t 

LIST 1051 

15.3410 

.4_X617 

1 

RAXVTEST 

XS ! 

JNDX 



QIZQ REF 2 LA51 IQ5C 15,3^11 55*62C_C TS JNDX 1 CAN SET JNDXl FOR T0N2 JETS. 


0721 

REF 

1 



15,3412 

4 3 761 

C 

CS 

XS/36U 

XS/36J « (XHIN -VHIN/KI /360 

0722 

REF 

K 

^ 

LAST 

1Q5 1 

15.3413 

6 1616 

1 

AO 

VS0/4API 

• — 

0723 

REF 

17 

LAST 

X051 _ 

15,3414 

6 1614 

C 

AD 

LCX/360 


0 714 

REF 

2 

LAST 

IXS 

15.3415 

55*615 

C 

TS 

XO/360 

XD/360- X/360 ♦VSQ/4API X INTERCEPT 

A0725 










BIT C{XD/360> * ( XD - XSI /3b0 

0126 

RtF 

1 



15,3416 

6 3760 

C 

AO 

-VM/ 360K 

X INTERCEPT FCR HAX V (VHJ 

07 2 7 





15.3417 

4 0000 

C 

COR 



0728 





15.3420 

C 0006 

1 

EXTEND 



0724 

REF 

1 



15,3421 

6 3427 

c 

BZHF 

HAXVTIHI 

YES, THRUST TC VM 

07 30 

REF 

3 

LAST 

103 1 

15.3422 

3 1615 

1 

CA 

XD/360 


w731 





15.3423 

0 00C6 

_L_ 

EXTEND 



U732 

REF 

1 



15. 3424 

7 46 7!) 

c 

MP 

KTFCS 


0733 





15,3425 

2C 001 

1 

DDOUtL 


GC SAVE PRECICTEO DRIFTING VELOCITY. 












j 734 

^AEF 

_L 



15.3426 

0 3432 

1 

TC 

GETOM 

INSURE THAT Q IS POS AS TAG. 

X735 . 





15, 3427 

0 000b 

1 

HAXVTIHI EXTEND 



0736 





15,3430 

22 0C7 

c 

ZO 


SET *0 AS TAG 

0737 

REF 

1 



15,3431 

3 3755 

c 

CA 

VHT/ lac 


0736 

REF 

1 



15,3432 

5 5 • 5 1 7 

c 

GETCM TS 

VDT/ 160 

VOT/180 OR VHT/ldO. 

0734 

RLF 

n 

LAST 

lose 

13,3433 

6 1613 

1 

AO 

-VT/ IfO 

-- - 

0 740 





15,3434 

6 COCO 

1 

DOUBLE 



0741 





15,3435 

0 0006 

1 

EXTEND 



0 742 

H6f 

2 

LAST 

lose 

15,3436 

7 3754 

c 

HP 

180/fiATT 


0743 

REF 

2 
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15,3437 
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1 

TS 

TONI 
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07^6 
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0 ao o6 

1 


ex TEND 





C765 

R£f^ 
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6 344i_ 

1 


6ZMF 

OVRL INE 


FROM MAXVTIMI 



R6F 

1 



15.3442 

0 3455 

_c_ 


TC 

GLTCN2 

RESET Q PCS IF CAME 
















H 

U7^7 

R£f u 

ILL 

U»SJ 1Q4X_ 

_ 15t3443 

10 Q.Q1. 

1 

CVRLINE 

CCS 
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REF 




15i3444 

1 3451 

x_ 


TXF 

CVRL IFF 1 





0749 

REF 

4 

LAST 

1051 

I5f 3445 

3 1620 

1 

MAXVT IM2 

CA 

JNDXl 

ABOVE VM, SC THRUST 

DCWN 



C71)C 

REF 

7 

LliT 

i05J 

15,3446 

55*617 

1 


TS 

JNDX 





0751 

Alf 

1 

M 

LAST 

1051 

15.3447 

4 U21 

_L_ 


CS 

T or. 1 





0752 

REF 

1 



15,3450 

1 3454 

C 


tCF 

DVRl INF2 ♦! 



















1 

0761 

ft£f 

-12. 

LAST 

105 1 

15.3451 

4 1613 

0 

CVRLINEI 

CS 

-VT/18Q 

DRIFT AT V 
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REF 

2 

LAST 

1051 

15,3452 

55*567 

C 


TS 

VDT/ 160 





0755 

RiJLJ 
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LAST 

1045 

15,3453 

3 4 714 

1 

QVRL INE2 

CA 

ZERO 




1 

i]?S6 

ft£F 

4 

LAST 

JOSi 

15.3454 

5 S * 62 1 

J_ 


TS 

TCNl 





0757 

HtF 

3 

LAST 

10 52 

15 . 3455 

3 1567 

\ 

GET0N2 

CA 

VDT /I CO 

VOT/180, CR VMT/180 

OR VT/180 



0756 





15,3456 

6 0000 

1 


OUUtiLE 




( 

0 759 





15.3457 

0 C0C6 

i 


EXTEND 





0760 

REF 

3 

LAST 

.105 L 

15,346C 

7 3754 

c 


FP 

1 eC/BATT 





0761 





15,3461 

6 OOCQ 

1 


DOUBLE 

FOR SECOND BURN, Al 



i 

0762 

REF 

_ 2 _ 

LAST 

109 

15.3462 

55'6C7 

c 


TS 

TtN2 

• TO 42 / 4T 


.. ^ 
















« 

0763 





15,3463 

4 COCO 

c 


COM 






0764 





15.3464 

0 0006 

1 


EXTEND 





0765 

R£F 

1 



15,3465 

6 3471 

c 


B2MF 

GETCFF 





0766 

REF 

3 

LAST 

1052 

15.3466 

55*6C7 

c 


TS 

T0N2 




W 

07661 

REF 

E 

LAST 

10 52 

15.3461 

3 1617 

c 


CA 

JNDX 





07662 

REF 

5 

LAST 

1052 

15,3470 

55*620 

q 


TS 

JNDXl 



















f 

Lltl 

-■ a£f 

4 

-LAST 

10 5 2 

15.3471 

4 1607 

c 

.G_E T.C F f 

CS 

TCr'2 

TCN2 / 4T 




07 6 6 





15,3472 

0 0006 

1 


EXTEND 





0 769 

REF 

4 

LAST 

105 2 

15,3473 

7 1667 

c 


HP 

VDT/Iec 

V0T/18Q, OR VT/ISO, 

CR VMT/130. 


r 

0770 

REF 

4 

LAST 

1051 

15.3474 

55*615 

c 


TS 

XD/360 

USE AS TEMP 




0771 

REF 

C 

LAST 

1052 

15,3475 

4 156? 

c 


CS 

VDT/ 180 





07711 





15, 3476 

0 0006 

1 


extend 




c 

0^1712 

REF 

1 



15,3477 

1 3513 

1 


BZF 

TCFF CVFL 

OMIT THE C IVICe IF DEN * 0. 



0772 

REF 

13 

LAST 

1J52 

15,35CC 

6 U13 

1 


AD 

- VT/18C 




i 

0773 





15,35C1 

0 0006 

I 


EXTEND 





0774 

REF 

5 

LAST 

1052 

15,3502 

7 1621 

1 


MR 

TCNl 

tCNl /4T 




ons 

REF 

5 

LAST 

1052 

15,3503 

6 1615 

i 


AO 

XD/36C 

TEMP - -VOT/ieO / 2 




Qlib 

REF 

le 

LAST 

1051 

15,35C4 

6 1614 

c 


AD 

LCX/26C 




i 

0777 





15,3505 

22 007 

c 


ZL 






0778 

REF ] 

149 

LAST 

105C 

15,3506 

56 CCl 

c 


XCH 

L 

TEST THE CIVICE 




0779 





15, 3507 

0 0006 

1 


EXTEND 




4 

0760 

REF 

6 

LAST 

1052 

15,3510 

11*567 

c 


ov 

VET/ 160 





0781 





15, 3511 

0 0006 

1 


EXTEND 





0762 

REF 

1 



15,3512 

1 3515 

1 


BZF 

GETCFF2 

Di VICE GK 



4 
















07 6 7 

REF 

1 



15,35 U 

3 4740 

c 

TOFFCVFL 

CA 

2 JETT 

OVFL, USE 21 FCR CONVENIENCE. 



0766 

REF 

1 



15, 3514 

1 3522 

c 


TCF 

T IFSCAL 




0 


I 


II 


.gap 
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P 


t 



C79L 


l‘C LAS I 

1G52 

15 •3515 

5E Cfil 

C 

1 

G.ETCPF2 

XCjh 

L 

GET ^gf'EfiA7CB. 



Q7S7 




15,3S16 

Q 0006 


EXTEND 






REP 

7 1 i*^T 

^Q93 

3517 

ll»5fc7 

C 


cv 

vcT/ieo 

C«A1 - TOFF / 2T 




0799 




L5j.352.0_ 

CLJjoao 

1 


EXTENL 





C8C1C 

REP 

^ LAST 

IQSl 

15«3531 

1 ^74Q 

I 


MP 

2JETT 





aaci 

REP 

2 LIST 

ICS 

IS. 3522 

5-'6€5 

1 

7IRSCAL 

TS 

TCP F 

IN CS 


















QfiCi 

AU 

1_ 


15i3523 

3 3756 

c 


CAP 

4JETT 





cac3 




--L51.352.S 

C Q Q Q 



extend 





Qsg^ 

PEF 

6 lAST 

105 2 

15t3525 

7 1621 

1 


MP 

TONI 

CdONlI * TCNI / <►? 





BfcP 

7 1/5T 

1Q5J , 

I5t3526 

55'62l 

1 


TS 

TCNi 

IN CS 




CfiQ6 

REP 


LAST 1052 

15^3527 

i 3756 

C 

CAF 

AJETT 


QflOT 




15f 3530 

0 OOC6 

1 

EXTEND 



OBCB 

PEP 

5_ 

LAST Tq52 

15.3531 

7 16C7 

c 

MP 

T0N2 

C(T0N2J ■ TCN2 / AT 

0309 

A£F 

6 

lAST 1053 

i5i3532 

55*6C7 

G 

TS 

T0N2 

IN CS 











calf} 

RFF 

I9fe 

LAST 1052 

15^3533 

3 A71A 

1 

CA 

ZLRC 

CANNCT REOC APTER TIMETST. TUSEO CONE 

cell 

REF 

S 

ilST IftAi 

15 1.3535 

55*7U 

C 

TS 

JETAC 

SET *0 TC SHOh BOLL CAP CALLED. 











60812 








CAUSE 

THE TM CF aOOV RATES VIA UPEUFF TO BE 

A0813 








INITIALIZED. ALSC CAUSE NEEDLES TC BE DONE ON NEXT 

AC 81^ 








AND CN 

ALTERNATE PASSES THRCUGH CM/OUMPP. 


0815 

REP 

125 

LAST lOAS 

15, 3535 

3 ^712 

1 

CA 

ONE 


0816 

REF 

2 

LAST 1034 

15,3536 

5 A 305 

C 

TS 

SW/NCX 
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RQJ2Q JNCXl. SECTION PRCCESSES TINE INTEHVALS FUR WTLST CALLS AND ASSURES THAT wTLST CALLS 4PE MADE ONLY 

PCB22^ IIJ _tCJ» flui lM£RAALS_eRtATJB THAN A £PECIFI6C WINIPUN ( hEPE CHOSEN A S 2 CSI A NC 

R Qtt2<i J2i tCpLjEE IN TERVAL S THAT WILL BE EXECITEO V ITM IN JTHF H PE PEP AINING IN THE SAMPLE INTERVAL T <2 SEC). 

PLa26 TIPEUT ESTABLISHES 6 LCCS CCNTAINING JLT CODES AND CLHRESPCNCl NG TINE INTERVALS. THUS* TQNl , TIPITS, 

ROB2e T CFf. TBIT S. 10N2t T2eiT S. OF THESE THE FIRST 2 LCCS APE TFNPORAPy, FCP IH NECIATE ACTION, IN GENERAL* 

RC83C SECTICN jE TCALL eELCW PROCESSES THIS LIST. __________ 


jjflii. 

fi£f 

16 

LAST 

1046 

3 QQiS 

JL_ 

TIMETST 

CA 

TINE 1 

CCRRECT FCR PCSSIBLE T IHEl 

OVFL. 

_ ^8.32 

ref 

6 

LAST 

1049 

I5i3540 

6 4675 

1 


AO 

POSl/2 



0B33 

REF 

J- 

LAST 

IQS A 

15.3541 

6 4675 

_1_ 


AD 

POSl /2 

OVFL GUARANTEED. 


083A 

REF 

3 

LAST 

1048 

1 b f 3 5^2 

27*712 

c 


AOS 

TUSEC 

BITUSEDI «-TUSEC — OLTlMEl 















U&35 

REF 

1_ 



15.3543 

3 3752 

1 


CA 

-1-3 

»-T ^2 -5 (SEE SETJTAGI 


AQe36 











THE +2 REQUIRED FCP PROPER 

BRANCH. 

0837 

REF 

A 

LAST 

10 3 4 

15.354<^ 

27*712 

c 


AUS 

TUSFC 

TUSEC • TIWE(K)-TIPE(K-i)- 

T42 














Gii3e 

REF 

4 E 

LAST 

1UU_ 

15*3545 

4 47U 

c 


cs 

TWO 

USE 2 SINCE T1ME3 UNCERTAIN TO 1 

083S 

REF 

e 

LAST 

10 5 3 

15*3546 

6 1621 

c 


AO 

TONI 



CeNQ 





15.3547 

G C0G6 

1 


EXTENU 




ua^i 

REF 

1 



15,3550 

6 3562 

c 


B2MF 

TIMLTSTl 



!se<>2 

REF 

l__ 

L AS T 

105 2 

15,3551 

51*617 

c 


ir4DEX 

JNOX 



06^3 

REF 

-* 


104 6 

15,3562 

3 3220 

1 


CAF 

P/P JCCDE 



CGNA 

REF 

2 

LAST 

lie 

15,3553 

55*622 

1 


TS 

T16I TS 


















REF 

S_ 


« f ** 1^ J 

15.3554 

_3 1621 

c 


CA 

TONI 



08^6 

RtF 

5 

LAST 

105 A 

15,3555 

27*712 

0 


AOS 

TUSEC 



•Jb47 





15* 3356 

C 00G6 

1 


EXTEND 




CB^e 


L_ 



15.3557 

6 3564 

c 


B2HF 

TCFFTEST 



OBAS 

REF 

ISS 

L/ST 

1053 

15,3560 

3 4714 

1 


CA 

2EPC 



O05C 

REF 

1 



15,3561 

1 3615 

1 


TCP 

TIHCTST3 




REF 

lU 

LAST 

1053 

15.3562 

4 4712 

c 

TiPEISTi 

CS 

ONE 



0852 

REF 

K 

LAST 

1054 

15,3563 

55*621 

1 


TS 

TONI 



C853 

REF 

AS 

LAST 

1054 

15,3564 

4 4711 

c 

TCFFTEST 

CS 

Two 



0 054 

REF 


LAST 

1053 

15,3565 

6 1605 

c 


AO 

TrFF 

► 


0855 





15,3566 

0 C0G6 

1 


EXTEND 




0056 

REF 

1 



15,3567 

6 3576 

c 


dZHF 

T IHETST2 



0857 

REF 

4 

LAST 

"id 5 4 

15. 3570 

3 1605 

c 


CA 

TOFF 



0050 

REF 

6 

LAST 

10 5 4 

15,3571 

27*712 

c 


AOS 

TUSEC 



0 059 





15, 3572 

0 C0G6 

1 


EXf END 




C86C 

REF 

1 



15,3573 

6 36CC 

1 


aZMF 

TGN2 TEST 



0 861 

REF 

2C0 

LAST 

10 5 4 

15,3574 

3 4714 

1 


CA 

ZERO 



C862 

REF 

1 



15,3575 

1 3617 

c 


TCP 

T IME TST4 



006 3 

REF 

127 

LAST 

1054 

15,3576 

4 4712 

c 

TIHEtST? 

CS 

ONE 



0064 

REF 

5 

LAST 

10 5 4 

15,3577 

55 *6C5 

1 


TS 

TOFF 



u665 

HEf 

5C 

LAST 

105 4 

15,3600 

4 4 711 

c 

TCN2TEST 

CS 

Two 



0 066 

REF 

7 

LAST 

1053 

15*3601 

6 160^ 

1 


Ad 

T0N2 



0667 





15,3602 

0 0006 

i 


EXTEND 




0668 

REF 




15,3603 

6 3620 

c 


BZHF 

TINE tSTB 
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QB69 

R£f 

fc 

IASI 

1051 

1 5 13 604 

51'62Q 

1 

INQEX 

JNC X i 

0 tiTQ 

REE 

^ _ 

LAST 

1051 

15*3 6C5 

3 3220 

1 

CAF 

P/PJCCDE 

CM71 

A^f 



10 9 

I5,3ec6 

58*61C 

C 

LS _ 

T2bITS 



3 . 

LAST 10 5 A 

_ 15*36(L1_ 

3 16Q? 

1 

CA 

T0N2 

0073 

AIF 

7 

list 

1054 

15s 38 IQ 

27'?U 

c 

AOS 

TUSFC 

CHTA 





15.3611 

C 0Q06 

J 

EXTEND 


0875 

R£f_ 

1 



15 aim 

6 3422 

1 

bZMF 

JETCALLl 

0876 

REF 

2C1 

LAST 

105A 

15,3613 

3 4714 

I 

CA 

2f PC 

0077 

REF 


LAST 

1054 

15.3614 

1 3621 

c 

TCP 

TIMETST5 ♦! 

0876 

R-EF 

u 

LAST 

1054 

15,3615 

55*621 

1 TIM6TST3 

TS 

TOM 

08 79 

PCF 

ue 

LAST 

1U5 4 

15,3616 

4 ^712 

C 

CS 

ONE 

oaac 

REF 

t 

LAST 

105 4 

15 » 3617 

55*605 

1 T1METST4 

IS 

TOFF 

Oifii 

ME 

129 

LAST 

105 5 

15 si 620 

4 47J2 

C TIMETSTS 

CS 

CNE 

06S2 

REF 

S 

LAST 

105 5 

15,3621 

55*6L7 

C 

TS 

T0N2 


^aai SECllCh JETCiLL EXAPIWES CtMgKTS OP JET TIHES IN LiSJx CSTABLISHES hlLST ENTHIESf ANC EXECUTES CORPESPCNC I NG 

poaas JEl CCCES. a PCSITIVE KZ NUHBEP IN^ TIPE ftfcGlSIER INDICATES THAT A wTLST CALL IS TC BE HADE, AND ITS JFT BITS 

iUiaflT EXECLIEC. A 40 INCICATES THAT ThE TINE INTERVAL DOES NCT APPLTi BUT THE CQRRESPCNCING JET BITS ARE TC BE 

80889 EXEtkieC. A NEC NLPeiP INCICAlES THAT THE TIME INTER VAL HAS BEEN PRCCESSEO. IN EVENT CP *0 OR -I, THE 

80891 SLCSELLENT TIME RI515TER IS EXAMINEE fCR POSSIBLE ACTION. THIS JET BITS TC BE E XECUTED MAY COME PROM MORE 

EO&aa IHAA ChE REGISTER. 


OB 94 

REF 

2C2. 

_LA5T 

1055 

15.3822 

3 4714 

1 

JETCALLl 

CA 

ZERO 





0695 

REF 

2 

LAST 

109 

_ 15*3^23 

55*611 

1 


TS 

OUTTAC 





CM4 

Rif 

2 

LAST 

109 

15,3624 

55*612 

1 


TS 

NUUE T 





0897 

REF 

2 

LAST 

109 

15,3625 

55*606 

1 


TS 

TBI T S 





089B 

REF 

_L2 LAST 

10 55 

15.3626 

52*622 

1 


DXCH 

TDNl 





0899 

REF 

2L7 

_LASriQ49 

1 5*362^7 

1C QCO 

c 


CCS 

A 





0900 

R£i_ 

1 



15,363C 

1 3645 

1 


TCP 

JETCALL2 

CALL 

WTLST 



09Q1 

REP 

1- 

LAST 

1Q55 

15.3631 

23*612 

c 

JETCALL3 LXCH 

NUJET 

WTLST 

ENTRIES CCME HERE 

pf-OM 

JETCALL 

0902 

REF 

lie 

LAS_T_1055 

15i38i2 

4 4712 

c 


CS 

CNE 





0903 

REF 

7 

LAST 

1055 

15,3633 

52*6Ce 

1 


DXCH 

TOFP 





0904 

HEF 

258 

LAST 

1Q5S 

15.3634 

id cco 

c 


CCS 

A 





0905 

REF 

2 

LAST 

1055 

15,3635 

1 3645 

X 


TCP 

JETL ALL2 

CALL 

WTLST 



0906 

REF 

4 

LAST 

10 5 5 

15,3636 

23*612 

0 


LXCH 

NUJL T 





0907 

REF 

XU. 

LAST 

1055 

15,3637 

4 4712 

c 


CS 

ONE 





0908 

REF 

10 

LAST 

1055 

15.3640 

53*610 

c 


DXCH 

TCN2 





0909 

REF 

259 

LAST 

10 5 5 

15,3641 

1C 000 

c 


CCS 

A 





0910 

REF 

a_ 

LAST 

1055 

15.3642 

1 3645 

1 


TCP 

JETC ALL2 

CALL 

WTLST 



0911 

REF 

5 

LAST 

1055 

15,3c43 

23*612 

c 


LXCH 

NUJE T 





0912 

RFF 

1 



15,3644 

C 3654 

c 


TC 

JETACTN 

CU) 

■ +0 



0913 

REF 

151 

LAST 

1053 

15,3643 

56 001 

c 

JETCALL2 

XCH 

L 

SAVE 

JET BITS FCR AFTER 

WTLST 

CALL 

0914 

REF 

6 

LAST 

1055 

15,3646 

27*612 

1 


AOS 

NUJE T 





0915 

REF 

152 

LAST 

1055 

15,3647 

56 OCi 

c 


XCH 

1 





0916 

REF 

JJ2 

LAST 

1055 

15,3650 

6 47 12 

1 


AO 

ONE 

RESTCRE FOR CCS 



0917 

REF 

48 

LAST 

104* 

15,3651 

C 514C 

1 


TC 

WAITLIST 





w4 18 

REF 

40 

LAST 

1044 

E 6, 1661 




EBAKK> 

AOG 





0919 

REF 

1 



15,3652 

C3662 

0 


2CADR 

JETCALL 





C91S 

REF 

1 



15,3653 

32066 

( 








C92L 

REF 

7 

LAST 

1055 

1 S f 3 1 54 

3 1612 

c 

JETACTN 

CA 

NUJET 

CCME 

HERE WHEN CESIREO 

JET CODE IS KNOWN 


4 
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X 

Ch 

EMFY CIGITAL AXICPlLLT 
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a924^ 



15,3655 

0 0006^ 

1 

EXTEND 


NC NEED rc SAVE OLC CODES 


fl£f 

M XiS 1X0X6 

15*1656 

01 0Q.6 

C 

RR ITL 

ftCLl JETS 

SET RCHAN TC NEW BIT CONFIG. 










iia23_ 

RXf 

X LXSX 1Q5X 

X5*3657 

11 '611 

1_ 

CCS 

OUT T AC 


a92^ 

R£f 

ii LfiS t Ili4-L 

_ 15*3ttt 

0 5213 

1 

TC 

taskcvep 


U925 

axx 

J 

15.3661 

0 3711 

_£_ 

PCLLDUMP TC 

CM/FCAIF 











i^a92t 







ELIT DUMP 

AT ABOVE LOCATION. 










R£a27 

iUillUS t XMRiiii. CCH L KiiLtiu. 















0926 

axL 

42 LAST aJLSL_ 

15.3662 

3 4711 

1 

JEICALL CAF 

B1T2 

CR/OSTBY -IC3D BIT2 

0929 

BEf 

^ LAST lost 

15t3663 

3 ^ ^ 6' 1 1 

1 

TS 

OUTTAC 

SIGNIFY WTLST entry 

09 30 

R£F 

23 LAST 1046 

15,3664 

7 0102 

0 

MASK 

CM/FLAGS 

IS SYSTEM CISABLED f 

0931 



15.3665 

0 0006 

1 

EXTEND 



U932 

REF 

2 LAST 1055 

15,3666 

1 3655 

c 

BZF 

JETACTN ♦! 

YES, CUENCP ROLL JETS, IF ON ANO EXIT. 

0933 



15,3667 

22 007 

c 

ZL 


NO, CONTINUE. 

u93A 

a£f. 

X 

15.3670 

X 36 3 i 

1 

TCF 

JETC ALL3 

C(A) PCS. C(L) •♦O 










R093i 

Cl AC 2Ch£ ENTRIES 

CCHE FERE 







n 


£l936 

REF 

2C_3 

XA5T 

10 5 5 

15,3671 

3 4714 

1 

CZCALL 

CA 

ZEPC 

COME FERE IF IN 02, ANO CANCELL JETS 

0937 





15,3672 

C 0006 

1 


EXTEND 


INHINT NOT NEEDED FERE. 


REF 

5_ 

Ci»S7 

1056 

15.3673 

01 OCt 

C 


WRITE 

RCLL JETS 

TURN CFF ALL POLL JETS. 

0939_. 

REF 

6 

LAST 

1052 

15, 3674 

55'567 

C 


TS 

VDT/ 18C 

SET *0 TO SFOF in dead ZONE. 

0940 

REF 

1C 

LAST 

10 5 3 

15,3675 

55*711 

C 

CZCALLl 

TS 

jetag 

COME HERE WITF C(A}«0. 

0941 

REE- 

1 



15.3676 

C 2661 

C 


TC 

ROLLCLPP 
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USER’S PACC NO. 27 


Ff S3 


xa942 u til XCil 01 SPLAY 


£J9A3 r.Atf.i.lA1F fiV INTrr.RAIiriN Iii£ flCLL EflBCfi EfcTt.EEN THE 2 SEC CN/RCS UPDATES , DISPLAY ATTITUDE ERRORS AS FOLLOWSl 


Afl545 ATM C APt CISPLAY CNLY POLL ATTITUC E ERR OR. . 

_Rfl9i6 EXT ATM CAPi MJESI^lI J ATTITUCE EPRCRS RfLATIVL TC jLHE. APPRCPRIATE 0OCY AXES EACH .1 SEC. 

RQ9Aa ROLL RQLLC-RCLL 

PCSA S FITCH ALFAC-ALFA ______ ____ 

K0950 yah EETAC-RETA 


KOSil 

OLRINC 1 

EMFY* 

IHE fXALNEEOLES 

KA Vi_ 

FILL SCALE Of 

= 67.5 

CEC IN RCLL AND 

16.875 DEG IN PITCH AND YAk. 

P0953 

TFE 

SLERCUTlhE 

NEEOLEB EXPECTS {ANGLE/ieO» AND 

SCALES 

TO U.875 DEC 

FULL SCALE. 












C95-5 

R£f- 

11 

LA SI 

OOAS 

15.3m 

11*700 

C CR/FOAI 

CCS 

CMOA FRCC 

COME HERE EACH C.l SEC- 

0956 

PfcF 

2 

LA5T 

105 

15.3700 

1 3710 

C 

TCF 

CM/FCAIR -1 

CIA) -0, FCR DUMP. 

0957 





i5.3?Cl 

l.lTCi 

1 

JCF _ 

*■2 


C95 6 





_15t37Q2 

1 37C3 

1 

TCF 

+ 1 

( IN ATM, CCX£ HERE TO 1 

U959 

REF 

7 

LAST 

10 9 2. _ 

15,3703 

3 1705 

c 

CS 

PHIDCT 

INTEGRATE «CLL ERROR. dET^ EEN 2 SEC 

0960 





15.37C4 

C C006 

1 

CXTEND 



0961 

REF 

9 

LAST 

10^9 

15,37C5 

7 1506 

1 

MP 

CALF A 

FCR ASSUMEC CCOPO INAT ION. 

0962 





I5jt3?06 

0 0006 

1 

EXTEND 



0963 

REf 

L 

LAST 

1046 

l5t37C7 

7 4675 

c 

MP 

HALF 


Q96A 

REF 

7 

LAST 

LO 49 

15,3710 

27*713 

1 

AOS 

PAXE FRl 

RCLL FRROB/36U. OVFL OK, 












AC965 









EriT DUMP 

AT ABOVE LOCATION. 

0966 

REF 

7 

LAST 

1051 

15.3711 

3 4675 

1 CM/FDAIR 

CA 

HAL F 


0967 





15,3712 

0 OOC6 

1 

EXTEND 



6968 

REP 

fi. 

LAST 1057 

15.3713 

7 1713 

1 

MP 

PAXfcRPl 

FULL scale fop FOAl (RCLL) IS 67.5 0 

0969 

REf 




15.3714 

55*476 

1 

TS 

PAXE FP 

.25 (ROLL 6RRCR/190) FCR FDAl NEEDLE. 












AQ976 









PROGRAM TO 

FILE BODY RATES FOR TM ON ONE PASS ANC 

AQ971 









TO UPDATE 

THE NEEDLE DISPLAY CN THE NEXT. 

AQ972 









SYNCHRONIZATION RITH CM/RCS IS USED SC THAT THE TM 

AC973 









IS DONE kITH THE ROLL SYSTEM AND NEECLES START CN 

A0979 









THE SU0SECUFNT PASS. 

AC975 






















0976 

REF 


LAST 

1053 

15,3715 

A 03C5 

C CM/CUMPR 

CS 

Sk/NCX 

CCMdINED ALTERNATION SkITCH ANC FILE 

09761 

REF 

A 

LAST 

10 5 7 

15,3716 

5A 305 

C 

TS 

Sk/NCX 


09 77 





15.3717 

C 00C6 

1 

EXTEND 


INDEX. 

097a 

REf 

1 



15.3720 

6 3724 

c 

BZMf 

CMTMFILE 

FILE STARTS WITH Sk/NOX f 1 AND GOES TC 

AQ979 










END8UF. 

- AC9eQ 










INDEX IS PCS FOP NEEDLES 












C9fei 

REF 

3S 

LAST 

932 

15.3721 

0 ^633 

c 

TC 

IBNXCALL 


0962 

REF 

_ 9 

LAST 

9a€ 

15,3722 

42404 

1 

CACR 

NEEDLEF 













0983 

P.EF 

1 



15.3723 

U 3742 

c 

TC 

CM/ENC 



I^DEX IS NEC FOP TM FILE 


iCSfiA 


OABJ a SSEfc B t e ^37 r . F FRff.R A H C C IGSS U S PY NA S A 2021111-031 Itll ALG, Z^.l9tS GAPCSF .lHf> PAHF 105B 


L Cf* ENTRY tlGIIlL ALICPILJIT , » <1 PAGE NO. P8 E6 SJ 




AEf 

19 

LAST 

103 2 

15i3724 

6 6214 

C 

CHTfF ILE 

AD 

THFEE 





Q9B6 





15,3125 

0 0006 

1 


EXTEND 






0987 

REJL 

L_ 



lS,i72t 

6 3732 

_1_ 


B2NF 

SAVENCX 



— - - - - - . _ . 

















09 ee 

_R1L 

_11 J.AS.L 

-105.4 

_ 15x1727 

1 M25 

0 


CA 

T IRE 1 

imtialiie the tn 

LIST 

IN UPbUFF. 


CMS . 

-AEP 

3 LAST 

SlS. 

15.3730 

54 3C4 

1 


IS 

CNTHT IRt 





U990 

PEF 

3 

-lAST 

812 

15,3731 

4 4720 

1 


cs 

THIRTEEN 

INITIALIZE COUNTER 



Q9SL 

R EL 

5 

L AST 

105 7 

15»3732 

54 3C5 

c 

SAVENCX 

TS 

SW/NCX 

A negative nupber. 




0992 





15.3133 

G 00C6 

1 


EXTEND 






09S3 

REE 

7 

LAST 

1046 

15,3734 

3 17C2 

c 


OCA 

PEEL 





0994 

REF 

6 

LAST 

10 5 6 

15,3735 

5C 3C5 

1 


INDEX 

SM/NCX 





0995 

aiL 

2_ 

LAST 

69 

15.3736 

52 324 

c 


bXCH 

ENOtLF - 1 





0996 

REF 

7 

LAST 

104* 

15,3737 

3 1?C3 

1 


CA 

FREL 





0997 

ref 

7 

LAST 

105 6 

15,3740 

50 3C5 

1 


INDEX 

SW/NCX 





0998 

ARE 

•3 

LAST 1056 

15.3741 

54 325 

1 


TS 

ENDBLF 4l 




















Q999 

p_ef 

1 

LAiJ- 

-1041 

15x1742 

i 16i3 

1 

CW/ENC 

CA 

CM/SAVE 





IQOC 

REE 

L9_ 

LAST 

1051 

15.3743 

54 021 

( 


11 

SR 





/LlOOl 










DOE 5 

NCT PROTECT TEMK, SC IN 

SPSI N/COS 

















lflii2 





15.3 144 

0 00C6 

1 


EXTEND 






1003 

REF 

1 



15,3745 

3 3751 

1 


OCA 

T51DLER2 





1004 

REF 

25 

LAST 

104C 

15,3746 

53'3n 

c 


OXCH 

T5LCC 





- 1005 

REF 

46 

LAST 

103C 

15.374? 

0 5222 

c 


TC 

Hf SURE 




















iOCe 

REF 

16 

LAST 

IQ56 

1312 




EBANK- 

T5L0C 





JJS£I 

REF 

Z_ 

LAST 

10 3 T 

15 ,.3750 

C3I32 

1 

T5ICLER2 

2CA0R 

T5ItlCC 





1007 





15,3751 

12062 

c 








A 1008 










DEFINE the FCLLOWINC UC REGISTERS 

IN UPBUFF TO BE 












USED 

TC TtLEWLTER CM VEHICLE 

BODY 

RATE INFORMATION. 


A 10 10 










THE 

INFORMATION IS FILED EACH 

0.2 

SEC, GIVING 15D 


AlQll 










DATA 

POINTS EACH 1 SEC. TP LIST IS READ TitICE 


-11012 










EACH 

2‘SECONDS. 



















A1013 










THE 

SECUENCE ISt SP TIME 


INITIAL TIME 


A1014 











SR ITCH 


ALSO INDEX. 


A1015 











P 


RCLL RATE 


A1Q16 











Q 


PITCH RATE 


A1017 











R 


YAH RATE 


Aloie 











ETC. 



















A1019 








CMTPTIME 

m 

UPEUFF 





A1020 








Ste/NCX 


UP6UFF ♦! 




A 1021 








ENoeuF 

IS 

UPbUFF ^UC 



















R1C22 CLC^S1i^^S Lb_EC IN Tl-6 POLL CCATPCL SYSTEP* 

Piu23 CChSTAMS < RE THE PCL LLwING? 1-9.1 CEC/SUSfct VM • 20 DEC/StC, t « 2 StC, TCCU - .1 SfcCt 

K1025 ^ OfcGt YHIN - 2 OEC/SEC, K • .25, Al - A. 55 OEG/SECSG, VI - I OEG/StC, INTERCEPI Ulth Dt SIDE 

P1027 xetf « A CEG 


CAP t 


I np PALCiiAM rCLCiiiL^ BY WA^A 2a2111i-C31 


till ALG, ZA.196a OAPCSK .166 PAGE 1059 


CM INlflY CIGITJL AUJCULXLl 


USER’S PAGE NO, 79 


E6 S3 


lOZfi 





15*3 152 

7 746.4 

1 

-T-i 

0£L . 

-2ki_ 

Q5 

iQ^9 





15t3753 

0001 2 

1 

V.SUtf IN 

DtC 

.61O50C61 E-3 

vso MIN/4 A PI « 4/(4 (9.H 160) 

lillt 

2£i 

■ 3— 

■X1S.1- 

262 

_ 4^226. . 



2TyiCCU 

a 

DCT5(J 

T/TCCC EXP-14 TCDU •.ISEC 

1Q31 





15.3754 

J11417 

C 

180/a4TJ 

CEC 

,6iauie7„ 

160/(6 (9,1) 4)«(180/AT7) EXP -3 

1032 





15^^55 

C7Q71 

jQ 

vMT/ieo 

DEC 

.222222222 

20 (2) / ISO 

1033 

BEf 


■LiiiT 

■ 524. 

4740 



2JtT7 

4B 

4SECS 

CS 2 <2) IOC INTECER 

103^ 





15.3756 

CL440 

C 

4JETT 

DEC 

POO 

CS 4 (2) 100 INTEGER 

loas 





15,3757 

C026t 

C 

;iHIN/36G 

DEC 

1 62 

XMIN/360 = 4/ 360 EXP 14 * 192 INTEGER 

1036 





15. 3160 

70706 

1 

1 

U2 

£^ 

O 

: 

DEC 

-.22222222 

»-20/( 360 (.25)) 

1037 

PEE 

4 

LiST 

10 5 2 

15.3754 



1/16A1 

m 

leC/PATT 


Ai0371 










1/16AI 

• 1§0/(16 A1 IT) 

Aloae 











=lfl0/(l6 4,55 4) 

1039 





15,3761 

00133 

c 

)(S/360 

DEC 

91 

«(XMIN ♦VI (T-l/K))/36C » 2/360 EXP 14 

109C 

REF 

2 

L^ST 

10 51 

15.3761 



ei'FL IP 

S 

XS/360 

4/(2 360) 


1041 

R£f 

a 

XlSJl 

loai 

_ 4615 



K7BCS 

31 

HAIF 

KT « (.25) 2 = .5 


Ehll Cl£_UiCSl! .16fe 



fF AQC PflCCHAM Ll^LCSSUS fiV NASA 2Q21ill~C31 
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L ncufc-lf I E>« FT FY PRCGS A^ ISfR '_5 PACT NO. I E O 


i»cooi 

FFCCR7F 

NAM- CQWF TELEMETRY FRCGRAH 




JOQQZ 

M£ «t.* 

0 TC CCRFLtTELY REhRITC Tpfc OCWN TELEMETRY PRLGRAH AND DOWNLINK ERASABLE DUMP 

PRCGRAM FOP THE 

RCiQOA 


_^PPCSE OF SAVlNu APPRO IMATeL¥__150 mRCS_QF C_CKE_ JlQRAfiC. 




R CQ&t 


THIS CHANCE RECtlRES AN ENTIRELY NEW METHOD CF SPECIFYING CCWNLINK 

L IS7S. REFER 

TO DOWNLINK 

KQQoe 


LISTS LOG SECTION FOR NCRE DETAILS. HOWEVER THIS CHANCE WILL NOT AFFECT THE 

GROUND PROCESSING 

BQCID 


CF ECWN TELEMETRY CATA. 




RMll _ 

ACC 0>- 

KILRGYf SMlTHt DEWlTT 




R0012 

CMF- 

C2CCT67 




ftQtjl3 

ALTFLF£« 

KILRCY. SMITH. DEwITT, CEWCLF. PAGIN 




ROOi^i 

UCC SFCllCR- CCWN-TELEHeTRY PPCCRAR 




R0015 

FLRCIICNAL CESCRIPTlCh- THIS ROlTIKE 1$ IMTUTED BY TELEMFTPY END 




Eflflifc 


PLLSE FRCM THE DCWNLINK TELEHETRY CCNVERTER. THIS PLLSE CCCUPS 




R0017 


AT 50 TINES PER SECIEVERY 20 RSI THEfiEFCRE OCDCWNTM IS 




R0018 


EAECLTEO AT THESE RAIES. THIS ROUTINE SELECTS THE APPROPRIATE 




R0019 


ACC DATA ?C £fc TRANSMITTED CCWNLINK ANC LOADS IT INTO OUTPUT 




R0020 


CHANNELS 3A AND 35. THE INFCRMATION IS THEN GATED CUT FACM THE 




K0021 


LCC IN SERIAL FASHICN. 




R0P22 


THIS PROGRAM IS CODEC FUR A 2 SECOND OOWNLIST. SINCE OOWNRUPTS 




^ Mg23 


CCCLR EVERY 20MS AND 2 AGC CCMPLTER WORDS CAN bfc PLACED IN 




R002A 


CHANNELS 3A AND 35 CURING EACH COhNftUPT THE PROGRAM IS CAPABLE 




RQQ25 


Cf SENDING 200 ACC WCROS EVERY 2 SECCNOS. 




Rq026 

CALL IFC 

SeCUENCE- NCNE 




F50i7 


PROGRAM IS EMEHEC VIA TCP CCCCWNTM WHICH IS EXECUTED AS A 




R0Q2 9 


RESULT OF A CCMNPUPT. CCNTRCL IS RETURNED VIA TCF RESUME WHICH 




R0029 


IN EFFECT IS A RESUME. 




R0G30 

SCeFCniNES callbc- rcne 




H0031 

hCPFAL EXIT HCCE- KF RESURE 




P0032 

ALAfR CP 

AEORT EX n MCCE- NONE 




RCC33 

HESTAPl 

FPCTECTIGN i 




RdQ3A 


CN A FRESH START AND RESTART THE 'STAKTSUB' SUBK0U7 INF «ILL INITIALIZE THE OOWNLIST 

PCINTEM actually 

R0Q36 


DMMGCTCI TC THE BECINNING OF THE CURRENT DOWNL I ST ( 1 .E . CURRENT CONTENTS 

OF CNLSTAORI. 

THIS HAS THE 

HUOBfi 


EFFECT OF IGNORING THE REMAINDER OF THE DGwNLlST WHICH THE OCWN-TELEMETR Y 

PRCGRAM WAS 

WORKING ON WHEN 

K0090 


THE RESTAPTCCR FRESH START) CCCUMRED AND RESUME OOwN TELEMETRY FROM THE BEGINNING OF THE CURRENT 

R00A2 


CCWNLIST . 




P00A3 


ALSC CF INTEREST IS THE FACT THAT CN A RESTART THE AGC WILL ZERO CCWNLINK 

CHANNELS 

13, 

34 AND 39. 

R00A7 

CCkNL INK 

LIST SELECT ION £ 




RCOAE 


THE APPRCPRIATE CCwNLINK LISTS APE SELECTED BY THE FCLLGWING: 




ROOAS 


1. FRESH START 




hOOSb 


2. V37EXKE WHERE XX » THE MAjCP MCOE BEING SELECTED. 




R0051 


3. LPLATE FRCGRAM(P27} 




P0C52 


A. NCN-V37 SELECIAELE TYPE PROGRAMS (E. C. AGS IMT lAL IZ AT ION( SUNCANCE t 

LUMINAR Vi 

AND 

P6 1-P62 

t- 00522 


TRANSiTI CNICCLCSSUSI ETC.). 




R0052S 

UCk«NL INK 

LIST RULES ANC LIMITATICNS* 




R0052e 


READ ScCllCN(S) WHICH FClLCW 'DEBRIS* WRITEUP. 




R0053 

QLTPL 1- 

EVERY 2 SICCNUS 100 CGUBLE PRECISION WORDS ( 1 . E . 200' LCC 




r UQ 54 


CCMPUTER WCRCS) ARE THANSMITTEC VIA CCWNLINK. 




80055 

EPASALLE 

IMT lALlZATiCN PEOUIREC- NCNE 




80056 


•CNTMGOTC AND 'CNLSTACR* ARE INITIALIZED BY IHE FRESH START PROGRAM. 





♦<0058 CEEP IS (ERASABLt LCCATICNS CESTRCYEC CY IH IS PROGRAM I- 


*^0059 lUTALST iOMREUFF TC ChTHeuFF 42 IQ ,T H I NCEX , ONC . 


f flPUKIfIK 2\1 HP Af^f. PATl.ftArt fill ii<;sLi 5 ; BY NASA 7 1 1 1 1 - 1 1 1;17 ^UG, SATRAP ,QGA PACE IGol 


i. DChf‘-Ut£i‘nK¥ PRLtPAl* L SHR’ S PAGE NL. 2 EQ S3 

RCOAO _ __ 

,t ~ — - 1 



i 



K 




<5 


I- 




lA 


P 


k 










i 






UiBJ AlAIfcfli g flfwisinr. Cf AGC PkCGPAf* CQLCSSU^ ev NASA 202illl-C31 LI17 »UG. 2A.19feb SATRAP .OOA PAGf 106;^ 


DCifL-JELEAlTRY MCiLfiAll UStB'S PAGt NO. 3 £0 53 <• 


Baciei5 DCCChMl*. IS ENTERIC tVlR¥.J.C JLS Jil Ah IhURPt^FT TPICGEPfc O 6V THE 

ROutG RECEIFI Cf AN ENCPULiE FKCh TFL SPACECRAFT TELEHETRV PPCQRAPPEF. 

BCCt7 RCIES FEGARCING DChMlNK L 1 s7s ASSCClATtC hITF THIS PRCCftAN: ~ ZIZ~ ~~II H 

JiQQtt Lm HCkhL Ui IS M ~ DCWMI STS POST BE COhPlLEC IN TH F SAME BANK AS THE ^ 

RflCfcS LHiF-TLLEl>£lRY PPCCPA^. THIS IS CChE FOR EASE GF CQDlNGt FASTER 

RCJTC i>ECLTlCN. 

R0U7*» 2. UCF CC^NLINK LIST CON SISTS CF A CChTP CL LIST AND A NUNBEP CF ^ 

FQQ76 SLELISTS. 

f>c:ir 3. A S LeilS T refers tc a snafshct c r cata cofncn to the same cp cthfr 

P0j 78 CC^M I FF LIS TS . ANY SteilST CON TAINING CCMMCN DATA NEEDS TC BE 

PCQ7S CCCEC CFLV CNC F fCP THE APPLICABLE CChNLlNK LISTS. ~ ^ 

RC060 A. SNAfSHDT SOELISTS PEFEP SPECIFICALLY T C HOCGENOUS CATA M UCH RUST BE 

PJuBJ SAVEC Ih A BUFF ER CUR I NC ChE DC hNPLPT . ' - 

F.UQB2 5. Th£ ICNACF FOR IFF 1ST hCRC CF SNAFS hCT CATA IS FOUNC AT THE EhC ~ “ 

„P0OB3 OF E ACH SNAPSHCT SU BLI ST, SIhCE T HE PRQG PAH COOING SENDS THIS OP WORD 

apOBA IPFECIA1ELV AFTER ST ORING THE CTHEFS IN THE SNAPSHCT BUFFER. ^ ^ 

RDOeS 6. ALL LISTS ARE CCMB INAT I CNS CF CCDEC ERAS ABLE ADDRESS CONSTANTS 
RQP06 CPEATEC FDR TH E CChNL lST PROGRAM. 

HCOeT A. ICNALR l-RCRC CCWM IST A CGRESS. C 

ROQSa SAME AS ECADR. BUT USEC MHEN THE MORE ADDWESSEO IS THE LEFT ~ ' 

._^Q39 HALF CF A CCU E L E-PR E C I S I C N hQR C FCP C OhN TELEME TRY. d 

PQG9 0 a. 2ChACR - toPN ACR O CWN L 1ST ACCRESSt N * 2 - 6. 

PQ091 SAME AS ICNACR. BUT NlTH THE A LhLSEC BITS CF THE ECACP FCRMAT ' ' 

RCg92 FILL ED IN »I TH OQOl-OlCl. USEC TC PCINT TO A LIST CF N DQU8LE- 

R0C93__ FPECISI CN hO PCS. STCREC CCN S E C L T 1 VEL V , FCR OCWN TELEMETRY. $ 

RQU9A C. ChCHAN COMN L 1ST CHANNEL ADDRESS. - 

_RCpS5 SAME AS ICN ACRi BUT H IT H PR£Fl)i BITS 0111. USED TO PCINT TO 

RC 096 A PAlP CF CHAN NELS FCR DCwN TELEMETRY. “ 0 

R0C97 C. CNFTR LCWh TE LEMETRY SUELlST POINTER. 

Ma09B SAME AS C AP A LT TACGEC AS A CONSTANT. USED IN CONTROL LIST TO POINT TC A SOBLIST. 

ROICO CALTICN A C NPTR CANN OT BE USED Ih A SJ^BLIST. 0 

MOiQl 7. TEE liCRC CRCER CCDE IS SET TC ZERO AT THE bE GlNNlNC CF EACH CChNLIST (I.E. CONTRCL LIST) ANC mHEN 

R0103 A * UNACP T I ME 2' I S DETE CTED IN THE CCNTRCL LISTtONLV). 

ROiOA a. IN THE SNAPSHOT SLELIST ONLY, THE CNAOP'S CANNOT POINT TC THE FIRST WCRC CF ANY EBANM. « 


RC1G6 

CCliNLlNK LIST RESTRICTIONS: 






RC107 

ITHE FCLLCxiNG FLINTS MAY BE LISTEC ELSEWHERE BUT ARE LISTED HERE SC I) 

IS CLEAR 

THAT THESE THINGS CANNCT BE 


FQ1G9 

CCNi) 







PCili. 

1. SNAfSHCT CChNLlST: 






HOlli 

(A) CAMNCT CONTAIN THE FCLLCwlNG tCACRSd.E. 10NA0k*S): 

C, ACCt 

ICOO, lAOC, 2000, 

240C, 3000, 3^00. 


Mull3 

(B) CAN CONTAIN CHLY IDNADR'S 













PQllA 

2. ALL CChFLlNhcG CATAIEXCEPT CMANNELSi IS FlCKEC UP BY A 

<CCA<SC 

DCRNL INK 

LISTS CAhNCT CCNTAIN THE 


R01I6 

EQLlVALtNT OF THE FCLLCMING ECAOPSd.E. ICNAORS): 377, 

777, 1377, 1777, 

2377, 27777, 3377, 3777. 









PQiie 

INCTEJ THE TERM EQUIVALENT » MEANT THAT THE ICNACR TO 

6ChACR 

mill be 

PRCCESSEC 

like i tc 6 ECAOPS) 



RC120 3. CCNTPCL LISTS ANC SU0L1STS CAhNCT FAVE ENfRIES « OCTAL OCOOC CR rCTAL 17717 




parnfiAw rnr^SiJS av hAS4 2Q2liii-C3l 
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liSEB'S PAGE NO. 


EO S3 


KU122 

AQiZh 


1P£ '.IJihACR TiRe2» kHlCe JtiLL CAUSE TKE CChNLINK PftOGPAP H SET THt tiOPDEP CODE TO 3 »*UST APPEAH IN THE 
CCMFCL SEC^IC^ Cf THE CChhLIllLi. 


_RiU25 


QVXAHUCT BE iLS£E. 


aili2A 6. *Chf1 P C * CANNCT BE USEC^ 


RQ127 7. ENfTP CAKNCT AFPlAP IN A^ SltiLlST. 


RG126 


Aai29 

RQ13Q 

leilK SETTINGS 






- 

IN THE PPCCESiJ QF SETTING THE E8ANK{WHEN PICKING UP 

CONNL INK 

CATA) THE OOWN 

TELEMETRY PROGRAM 

PUTS 

R0i32 

^GARBAGE* INTO BITS15-12 CF EBINK. HUGH HLAIP-SHITH 

NAP NS US 

THAT aiTS15-12 

CF 6BANK MAY BECOME 

8_Qi3^ 

SIGNIPIGIM SCHECAY IN THE FCTIPE. IF/HHEN THAT HAPPENS. THE 

program should 

INSUREIBY MASKING 

ETC.I 



R013A 

THAT BITS15-12 OF EBINK APE 2EPC. 







R0137 

IMtllLIZATlCN RECUIREC- TO INTERRUPT CUPPEM LIST AND START 

A NEW CNE 

• « 





P.Q13B 

1. ACRES OF CCWNLINK LIST INTC CNLSTACR 







RQ139 

2. NEGCNE INTC SUBLIST 








MtlAJ 3. NEGCNE IMC CNECACP 

Q1A2 22.3505 HANK I F F 

Q1A3 Rtf 2 LAST 165 C5.2C00 SETLOC DGWNTELN 

ai^A 05.33 31 BANK 

Q14S REP 31 LIST 174 ~ YUtC gBANK« DNTHLLPF 


Q1A6 AU J COUNT 0 5/CPNCC 


0147 

R£f 

21 

LAST 

104 1 

C5.3331 

54 016 

1 

1 

CCCCViNTM 

TS 

RANKPLPT 



0146 





05.3332 

C 00C6 


EXTEND 




Ci49 

Htf 

17 

-LAS T 

1041 

05.3333 

22 012 

I 


QXCH 

ORUPT 

SAVE C 


0150. 

REH 

AT 

LIST 

102 5 

C5,3334 

3 47C4 

C 


CA 

H IT? 

SET WCRD CRCEP CODE TO 1. EXCEPTION- AT 

0151 





05.3335 

0 0006 

1 


EXTEND 


THE BEGINNING OF EACH LIST THE 

WORD 

Q152 

PEN 

12 

LIST 

_lOiC 

05.3336 

05 GIJ 

c 


nor 

CHAN 13 

CCDE WILL BE SET BACK TQ 0. 


0153 

REF 

3 

LIST 

253 

C5t3137 

0 0335 

1 


TC 

ONTMCCTO 

GC TO APPROPRIATE PHASE OF PROGRAM 














0154 

— Slf ■ 

19 

-LAJLL 

933 

05.3340 

3 7716 

G 

CNPHASEL 

CA 

NfcCONE 

initialize all ccntrcl words 


0155 

REF 

1 



05.3341 

54 337 

1 


TS 

SUOL 1ST 

WCROS TO MINUS CNE 


0156 

REF 

1 



05,3242 

54 336 

c 


TS 

DNEC ICR 



U15 7 

REF 

1 



05.3343 

3 3463 

c 


LA 

LCNPHAS2 

SET CNTMGOTC «0 ALL SUBSEQUENT 

dqwnpupTs 

_C158 

REF 

4 

LIST 

1063 

05,3344 

54 3 35 

c 


TS 

ONTHCCTC 

GG TO CNPHASe2 


C15S 

REF 

1 



05f 3 3^5 

1 3361 

1 


TCF 

NE WL I ST 



OitoO 

REF 

2_ 

LIST 

-10.6J 

05.3346 

1C 336 

c 

0NPHASE2 

CCS 

ONECAOR 

SENDING CF DATA IN PROGRESS 


jltl 

REF 

1 



05,3347 

0 3476 

1 

COONACM 

TC 

FETC H2MD 

YES - THEN HETCH THE NEXT 2 SP 

WORDS 

uU2 

RtF 

27 

LIST 

70 3 

05,3350 

T7 75 3 

c 

MINT IHE2 

-lONADR 

T iHti 

NEGATIVE OF T1HE2 lONAOR 


y i 6 3 





C5, 3251 

1 3 3 52 

1 


TCF 

♦ 1 

(ECADR OF 3176 ♦ 74001 « 777771 














Clt4 

REF 

2 

LIST 

1063 

C5,3252 

1C 337 

1 


CCS 

SUBLIST 

IS THE SUBLl^T IN CONTROL 
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UIClS 

iltt_ 

J 



Q5t 3.353 

1 3511 

c 


TCP 

NEXT USL 

YES 

uiec 





J35f3354 

74001 

0 

CNADROCR 

OCT 

7400 1 

ONADR COUNT AND ECAOH DECREMENTER 













Q167 

REF 

1 



05^3355 

3 0334 

c 

CHKL I ST 

CA 

CTL I ST 


cue 





05f3i56 

C 0006 

1 


EXTEND 



C169 

REP 

2_ 

LAST 

1063 

05.3357 

6 3361 



BZMF 

Nf WL 1ST 

IT hILL be NEGAIIVE AT END OF LIST 

Qi7C 

Rlt 

_ 1 



0 ^ f 3 3 6 C 

1 3366 

C 


TCP 

NEXT UCL 


Q171 

REF 

c; 

LAST 

74 3 

CSt 3361 

5C 332 

0 

NERLIST 

INDEX 

DMSTCCC 


0172 

REF 





. 05tJ362 

3 2342 

c 


CA 

DNTA0LE 

INITIALIZE CTLIST WITH 

Ci73 

REF 

2 

LAST 

1064 

05t3363 

54 334 

1 


rs 

CTLI ST 

STARTING ACDRESS OF NEW LIST 

017<* 

B6f 

6 

LAST 

106 4 

05,3364 

4 0332 

1 


CS 

DNL51CCD 


Q175 

REF 

L_ 



05.3365 

1 3601 

i 


ICF 

SENDIO +3 


vil77 

REF 


LAST 

106^ 

05,3366 

50 334 

c 

KEXTIhCL 

INDEX 

CTLIST 


C178 





05,3367 

3 0000 

1 


CA 

0 


0179 

HEP 

2EC 

LAST 

10 5 5 

CS.337C 

1C ccc 

c 


CCS 

A 


OldO 

REP 

A 

LAST 

106 4_ 

05,3371 

24 334 

0 


INCR 

CTLIST 

SET POINTER TO PICK UP NEXT CTLIST WORD 

oiei 





05, 3372 

1 3 3 76 

1 


TCF 

♦ 4 

ON NEXT ENTRY TC PROG. (A SHOULD NOT »0 ) 

iLLai_ 

; &£i_ 

aL_ 

-LAST 

1064 

05.3373 

56 334 

c 


XCH 

CTLIST 

SET CTLIST TO NEGATIVE AND PL ACE (COO ING 1 

C183 





05.3374 

4 0000 

c 


COM 


UNCORPLEMENTEC CNACR INTO A. (FOR LA) 

U18A 

REP 

6 

LAST 

1064 

C5,3375 

56 334 

c 


XCH 

CTLI ST 

(ST IN ) 

oies» 

REF 

281 

LAST 

106 4 

C5,3376 

24 000 

1 


INCR 

A 

(CRIST) 

0186 

REF 

H 

•40 

LAST 

106 3 

05,3377 

54 336 

c 


TS 

ONEC AOR 

SAVE CNAOR 

0187 

REP 

1 



05, 3400 

6 3350 

i 


AO 

MINT IRE2 

TEST FOB TIME2 (NEG, OF ECAOR) 

ciee 

REP 

H2 

LAST 

106 4 

CS,34C1 

10 OCO 

c 


CCS 

A 


0189 

REF 

1 



05,3402 

1 3406 

i 


TCF 

SETWC +1 

DON'T SET WORD CROER CODE 

0190 





05,3403 

47777 

c 

R1N613I4 

OCT 

47777 

MINUS BIT 13 ANC 14 (CAN'T GET HERE) 

0191 

REP 

2_ 

LAST 

1064 

05. 3404 

I 3406 

1 


TCP 

SETWC ♦! 

DON'T SET WCRD CRDER CODE 

0192 

REF 

1 



05,3405 

0 3430 

0 

SETRO 

TC 

MGZE PC 

GC SET WCRC CRDER CODE TC ZERO. 

0193 

REF 

A 

LAST 

106 4 

05,3406 

3 0336 

1 

♦ 1 

CA 

ONE C A OR 

RELOAC A WITH THE ONADR. 

Cl 9^ 

Hii_ 

1 



05.3407 

6 3403 

c 

♦ 2 

AO 

MINE 1314 

IS THIS A REGULAR DNA0P7 

0195 





05,3410 

0 0006 

1 


EXTEND 



0196 

REF 

2 

LAST 

106 3 

05,3411 

6 3476 

1 


eZRf 

F E TCF2UC 

YES. (A MUST NEVER BE ZERO 

0197 

REP 

1 



05.3412 

6 7710 

0 


AO 

HINB12 

NO- IS IT A PCINTER (ONPTP) OR A 

0196 





05, 3413 

0 0006 

1 


EXTEND 


CHANNEL(DNCHAN) 

0199 

REF 

1 



05,3414 

6 34 34 

1 


BZMF 

DCDNFTR 

IT'S A POINTER. (A MUST NEVER BE ZERO) 













C200 





05,3415 

0 0006 

1 

OGDNCHAN 

TC 

6 

(EXECUTED AS EXTEND) IT S A CHANNEL 

0201 

REF 

5 

LAST 

1064 

05,3416 

50 336 

1 


INDEX 

0 NEC A DP 


0202 





05,3417 

44'OCO 

1 


INDEX 

0 -4 000 

(EXECUTED AS BEAD) 

0203 

REF 

152 

LAST 

10 3 5 

C5, 3420 

54 OCl 

1 


TS 

L 


020A 





05,3421 

0 0006 

1 


TC 

6 

(EXECLTEO AS EXTEND) 

0205 

REF 

6 

LAST 

1064 

05,3422 

5 0 336 

1 


INDEX 

DNFCADP 


0206 





05,3423 

43*777 

1 


INDEX 

J -4 col 

(EXECLTEO AS HEAD) 

0207 

REF 

7 

LAS1 

1064 

05,3424 

54 336 

c 


TS 

DNtCAOL 

SET CnECACB 

0208 

REF 

2C 

LAST 

1063 

05,3425 

3 7 7U 

c 


CA 

NEGChE 

TC MINUS 

02U9 

REP 

8 

LAST 

1064 

05,3426 

56 336 

1 


XCH 

ONCCAOP 

WHILE PRESERVING A. 

0210 

REF 

1 



05,3427 

1 3524 

c 


TCP 

DNTMfcX IT 

GC SEND channels 













0211 

REP 

Ae 

LAST 

1063 

05,3430 

^ 4i7C^ 

1 

RCZERC 

CS 

BIT7 


C212 





05,3431 

C OOC 6 

1 


Extend 




tp 


I 
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0213 

REf 

12 

i.ASl 1062 

C5,3432_ 

_ai 013 

Q 

manc 

CHAMl „ . 

SET J^QHC CRCER CODE TC ZERO 


0214 

REF 

2CS 

LAiT 1Q12 

05*3413 

0 0002 

C 

TC 

u 

RETURN TO CALLER 












4215 

REP 

S 

Xiil aU64 

05*1434 _ 

5C 336 

n CCDPPTH 

INDEX 

DNLCADft 

DNECADR CONTAINS ACRES OF SUPLIST 


0216 





0 QOOO 

1 


C 

CLEAR AND ACO LIST ENTRY INTO A. 


02 17 

RFF 

213 

LAST 1064 

C5.3436 

1C OCO 

0 

CCS 

h 

IS THIS 4 SNAPSHOT SUBLISl 


U218 

R££ 


_tAST lft6S 

05 *3437 

3 0336 

1 

CA 

DNEC ADR 

NO* IT IS A REGULAR SUPLIST. 


a2i9 

RET 

JL- 


05t 3440 

1 3510 

1 

TCF 

OLSUELST 

A MUST NCT EE ZERO. 













02ZC 

REf 

U 

LA5I 1Q62_ 

05.3441 

336 

1 

XCH 

DNEC ACR 

VES, IT IS A SNAPSHOT SUBLIST. 


0221 

REF 

3 

LAST 1063 

05.3442 

54 337 

1 

TS 

SUtL 1ST 

CIDNECADRI INTO SJBLIST 


0222 

P£F 

2CA 

LAST 1Q56 

05.3443 

1 4114 

1 

CAF 

ZEPG 

A IPTC A 


0223 

REF 

2 

un 1£ 

05 1 3444 

56 336 

1 

XCH 

TMINCEX 

(NOTE*. TMINOEX « ONECAOR) 
























P.a224 

TIE 

FtlUUaM CQO IPG 

IFROP 5MFLC0P 

TC JSHAPEML) IS _FQR 

the pwppcse 

OF TAKING A SNAPSHOT CF 12 DP REGISTERS. 



RC226 ins Li_£QKI_&V 54_YlhU-lA DP PEQISTgM IhCMMBgFP ANOIENUIJNG THE FIRST DP ViCRO I RPED I A T ELY. 


R022B TF£ IMPSHCT PROCESSING IS THE POST T IPE CCNSlWlNu AND THEP.fcFCRE THE CCDlNG AND LIST STRUCTURE RFRE OESIGNfcO 

RQ23Q TC PIMP 121 liPE- TFfi TJHE GPTIPUATICN R ESULTS tN RU LES UNICUE TC THE SN4PS HCT PQRTICN OF THE OOWNLIST. 

RG232 THESE PULES ARE,....« 

RQ233 I. CPLY 1DNADP»S CAN APPEAR IN THE SNAPSHOT SUBLIST 

RJ3234 2i THE ICNADP*S CAPNOT RE FER TO THE FIRST L^AT ION IN ANY BANK. 


0216 

REF 

4 2 

LAST 

ID 11 

C5 1 3 44 5 

54 0C3 

c 

SNAFLCCP 

TS 

EBANF 

SET EBANK 

0237 

REF 

3 

LAST 

37C 

05*3446 

7 4373 

c 


MASK 

1 owe 

ISOLATE RELATIVE AOORFSS 

Q23a 





05.3447 

0 OOOe 

1 


EXTEND 



0239 

REF 

264 

LAST 

1065 

C5.345C 

S COCO 

i 


INDEX 

A 


0240 





E3f 14C1 




tttANK« 

1401 


0241 





05.3451 

3 14C2 

c 


OCA 

1401 

PICK UP 2 SNAPSHCT wChCS. 

0242 

REF 

- 24 

LAST 

106 2 

0340 




EaANKc= 

DNTMPUFF 


0243 

REF 

2 

LAST 

10 6 1 

C5.3452 

50 336 

1 


INDEX 

TMINCEX 


0244 

REF 

25 

LAST 

1065 

05.3453 

52 341 

c 


dxch 

CNTMELFH 

STORE 2 SNAPSHOT WORDS IN BUFFER 

Q245 

REF 

4 

LAST 

106 i 

C5t3454 

24 336 

1 


INCR 

TMINCEX 

SET BUFFER INDEX FOR NEXT 2 WORDS. 

0246 

REF 

5 

LAST 

1065 

C9.3455 

24 336 

1 


INCP 

TMINCEX 


0247 

-R-£F 

4 

LAST 

106 5 

C5. 3456 

24 337 

L 

SNAPAGN 

INCR 

SUei 1ST 

SET PCINTER TC NEXT 2 WORDS OF SNAPSHOT 

0248 

PEF 

5 

LAST 

1065 

C5, 3457 

5C 337 

c 


INDEX 

SUBLIST 


0249 





C5t3460 

0 0000 

1 


0 

0 

> CA SSSS (SSSS « NEXT ENTRY IN SUBLISTI 

0250 

-REF 

265 

LAST 

1065 

C5.3461 

1C 000 

c 


CCS 

A 

TEST FOP LAST TWO WORDS OF SNAPSHOT. 

0251 

REF 

1 



05,3462 

1 3445 

c 


TCF 

SNAPLCCP 

NCT LAST Two. 

02 52 

REF 

1 



05,3463 

C3 346 

c 

LCNPhAS2 

GENADR 

ONFh ASE2 


^253 

REF 

t 

Li S T 

1065 

C5.3464 

54 33 7 

1 


TS 

SURL iST 

YES, LAST. SAVE A. 

0254 

REF 

2 1 

LAST 

1064 

05,3465 

3 7716 

c 


CA 

N t fc Ca ^ E 

SET ONECAOR AND 

0255 

PEF 

12 

LAST 

1065 

C5, 3466 

54 336 

c 


TS 

DNEC ADR 

SUBLIST PClWTcRS 

0256 

REF 

L 

LAST 

1065 

C5,3467 

56 337 

0 


XCH 

SUPL IST 

TC NEGATIVE VALUES. 

0257 

REF 

43 

LAST 

1065 

C5,3470 

54 0C3 

c 


rs 

EfcANK 


0258 

REF 

4 

LAST 

1065 

L5,347l 

7 4373 

c 


MASK 

LCWP 


C259 





05,3472 

0 OOC6 

1 


EXTEND 



0^60 

RE F 

266 

LAST 

1065 

C5,3473 

5 0000 

1 


Index 

A 


0261 





E3, A4CI 




EBANK* 

14C1 
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0262 





a5i3A7A 

3 1AC2 

C 


0L4 

lAOi 

PICK LP FIRST 2 ROROS CF SNAPSHOT. 

Q263 

REF 

It 

U>5l_i06S 

_ JELLA Q 



EOANK* 

DNTM8UFF 


_ ■■ 026^ 

REF 

2_ 

LAST 

lOftA 

0St3A75 

i J52A 

C 

SNAPEND 

rCF 

DNTNEX IT 

NCR GO SEND THEH. ” 












n 

_ UZtl 

JlEf 

ii 

LAST 

1065 

_(L5t3A76 

3 0336 

1 

FETCH2H0 

CA 

ONECADR 


C2A^l 

REP 

4A 


1Q6_5 

C5 ,3 A 7 7 

5A QC3 

C 


_ „ 

EBAKR 

SET EfiANK 

Q2fel 

All. 

5 _ 

LAST 


. 05,3500 

7 A373 

C 


MASK 

L0K8 

ISOLATE RELATIVE ADDRESS 

026S 

HEF 

ISA 

LAST 

106 A^^ 

05,3501 

5A OCl 

1 


TS 

L 


tS2t9 

REF 

1 - 



C5.JS02 

3 335^ 

C 


CA 

ONAORCCR 

DECREHENT COUNT AND ECAOR 

^70 

REF 

H 

LAST 

1066 

C5. 3503 

26 336 

d 


AOS 

DNECACP 


0271 





C5,350A 

0 0006 

1 


EXTEND 



0272 

REF 

iss 

LAST 

1066 

05.35C5 

5 0001 

0 


iNuex 

L 


Q273 





E3, lAOO 




EBANK* 

lAOC 

% 

f 

027^ 





C5,3506 

3 lAOl 

c 


DC A 

1400 

PICK UP 2 CATA RGROS 

0275 

RLE- 

_21_ 

LAST 

1066 

0 3A0 




EBANKb 

onthbuff 


0276 

REF 


LAST 

1066 

05,3507 

1 352A 

c 


TCF 

UNTREX IT 

NCR GO SEND THEM. 













0277 

' REF 

fi_ 

LAST 

1Q6S 

C5.3510 

5A 33? 

1 

CCSLBLST 

TS 

SU6L 1ST 

SET SUBLIST POINTER 

0278 

REF 

9 

LAST 

106 6 

05,3511 

50 337 

c 

NEX7INSL 

INDEX 

SUBL 1ST 


0279 





05,3512 

0 cobc 

1 


0 

0 

= CA 55SS (5SSS *• NEXT ENTRY IN SUBLISTI 

0280 

REF 

iiJL 

LAST 

106S 

05.3513 

10 000 

c 


CCS 

A 

IS IT THE END OF THE SUBLIST 

0261 

REF 

1C 

LAST 

1066 

05,331A 

2A 337 

c 


INCR 

SUbL I ST 

NO- 1 

0262 





05,3515 

1 3521 

c 


TCF 

♦4 


0263 

REF 

_ii_ 

LAST 

1066 

05,3516 

5A 337 

1 


TS 

SUBL 1ST 

SAVE A. 

026^ 

REF 

22 

LAST 

ia6S 

05,3517 

3 7716 

c 


CA 

NEGUNE 

SET SUdLIST TL RINUS 

02 8 S 

REF 

12 

LAST 

1066 

05,3520 

56 337 

c 


XCH 

SUBLIST 

RETRIEVE A. 

ii 2 66 

REF 

lit 

-LAST 

1066 

05,3521 

2A OCO 

\ 


INCR 

A 

j 

0287 

REF 

IS 

LAST 

1066 

05,3522 

5A 336 

c 


TS 

ONEC AOF 

SAVE CNADR 

0268 

REF 

3 

LAST 

10 6 A 

C5,3523 

1 3907 

c 


TCF 

SLTUC 42 

GC USE CORRCN CCD INGI PROBL EHS WOULD 

A02k9 











OCCUR IF THE PRCGRAH ENCOUNTERED A 

AC29C 











CNPTP NCR! 













0291 





05,352A 

0 0006 

1 

DWTREXIT 

EXTEND 


OORN-TELERETBY EXIT 

0292 

REF 

1 



05,3525 

01 03A 

1 


»^R ITE 

ONT HI 

70 SEND A 4 L TC CHANNELS 34 4 35 

0293 

_REF 

1S6 

LAST 

1066 

05,3526 

3 OGOl 

c 


CA 

L 

RESPECTIVELY 

0294 





05,3527 

0 0006 

1 

THEXITL 

EXTEND 



Pi_9b 

REF 

1 



05,3530 

01 035 

c 


RRITE 

DNTH2 

K 

o2 96 

REF 

A 7 

LAST 

lose 

05,3531 

1 5222 

1 

TRHESUME 

TCF 

RESURE 

EXIT TELEHETRY PROGRAM VIA RESUME. 













0297 

REF 

1 



7710 



RINei2 

eUOAL S 

-1/d 


0298 

REF 

6 

LAST 

106 5 

0336 



CNECACR 

EQUALS 

THINCEX 


C299 

REF 




033A 



CTL 1ST 

equals 

LOAT ALST 


0300 

REF 

1 



0337 



SUOLIST 

equals 

DNL 
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PQ3C1 SLtEQLUM. RAMt- ChCAiPP 


RfliCZ F^.^CnCfcAL DtSCRlFTICh - TlI_SERC ( QURP ) ALL fcRASA8LE STCRACfc 'N* TIMES. (N • I TC BANKS ARE SENT liNE AT A TIME 

miXiA EACH BANK IS PRECE£DED BY AN 1C MQAC. STMCH BITS. CCACR AND TIMEl FCLLOMED BY THE Z56D WCMOS OP EACH 

PQ3QCl^ E.tAAK._LeAM<i. A&f CUPPEC JN CR CER ( I.b. EBANK C F IP ST. THEN EBANKl ETC.) 

JLU3CLB CALLUG 5£CU£RGE- ThE CKCUNt CH ASTRCAAliT BY KEYIN G VTa E CAN INITIAL IZE THE D UMP. 

JLflilfl AFTER KEYING IN V7AE THE CURRENT DCWNLIST WILL BE IMMEDIATELY T EBMINATED AND THE DOMNLINK ERASABLE DUMP 

iiailZ ___K1LL BEGlIN. 

RG31J CACE IN11IA1EC TEE DCWMINK ERASABLE CUMP CAN BE TEPMINATEO (ANC INIERROPTEC CCmNLIST REINSTATED) ONLY 

MSLil3 BY THE FCLLCNINGI 

P03I6 1. A FRESF START 

RfliU i, CCMPLEiTICN o p all CC HNLINK DUMPS REQU ESTED ( A CCCPClNG TC BITS SET IN CUMFCNT). NOTE THAT CUMPCNT 

RU3i9 CAN BE ALTEPED BY A V21NC1. 

RC320 2* AND INVCLUNTAPUY BY A RESTART. 

RQ321 NLPPAl, EAIT MCCE- TCP CNPFASEl 

iULiZi ALiEM CB AECBT HLCE- NQNE~ ~ 

Ru323 •SLEPCUllNES. CAL1£C- HCNL. 


PQ32A EPASAUE IMTIAkLlAAICN RECUIREi;' 


iiii325 

DLMPCNT 

CCT 

20CQQ 

IF 


.tXMPLETE 

frasable 

DUMPS 

ARE 

OESIFEC 

RQ326 

CINPCNT 

OCT 

icooo 

IF 

7 

CCMPLtTE 

ERASABLE 

LUMPS 

ARE 

DESIRED 

PQJ27 

OLMPCM 

CCT 

OAOOO 

IF 

L 

CCMPLtTE 

ERASABLE 

DUMP 

IS 

DESIRED 


ftQ32e CliPIS- CLPPLCC. CUMPSM. CNTMCQTC. EflANk ANC CENTRAL REGISTERS 

^0329 TIP INC- TIMEIIN SECS) • ( (NC. CUMPSI* INO.E BANKS )* (WDSPEREBANK ♦ NC-IOmOS) ) / NC. WCS PEPSE C 

Hg33j TlMbdN SECl) » ( A _ )<i 8 )• ( 256 ♦ 4 ) / 100 

fifl333 IMS UPEIIN SECS TC SENC CUMP Cf ERASABLE A TIHLS VIA CCNNLINK) « 83.2 SECONDS 


R0335 SIPLCIWE CF CNE EBANK AS IT 1$ SENT EY LOmNLINK PROGRAM- 

&033Jb lEEPIhPEH’THlS CNLY DESCRIBES CNE CF THb b EBANkS X A (DUMPS) » 32 

RC338__ CCYNLLST W 

PU3 39 KCRC TAKEN FR CP CCMEN TS C F E XAMPLE 0 COM MENTS 


EBANKS WHICH MILL BE SENT BY ONDUMP ) 



1 

tPASIO 




0177X 

0 

DliHNL 1ST 

I.C. FCR DOWNLINK ERASABLE 

DUMP (X*7 CSM, 6 LM) 


RfliA2 

2 

LCMIOCCO 




77 3^0 

1 

oomnl ink 

SYNCH BITS. 

(SAME ONE USED IN ALL GTHFR 

DOWNLI STS) 


RQ3AA 

.3 

__ DLPfLCC 




i2A00 

1 

(SEE NOTES ON DUMPLOC)l« 3RD ERAS DUMP. 

3400-ECADP OF 5TH WD 



A 

T IHEl 




1^120 

1 

TIME IN 

CENTISECCNOS 






HQiAT 

5 

FIRST MCRC 

CF EBANK 

X 


03400 

1 

IN THIS 

example THIS 

WORD ■ CCNTEMS 

CF 

£7 ,140C 

(fcCADR 3400) 


Ra3^9 

6 

2N0 WORD OF EBANK 

X 


00142 

1 

IN THIS 

EXAMPLE THIS 

WORD * CONTENTS 

OF 

£7 ,1401 

( fcCADR 3401) 


RQ351 

7 

3RC hORC 

CF EBANK 

X 


00142 

I 

IN THIS 

EXAMPLE THIS 

NGRO « CONTENTS 

OF 

E7 ,1402 

(ECAOR 34Q2I 


RQ353 

• 






1 








RQ35A 

• 






1 








R0355 

• 






1 








R 0 356 

2600 

2S6TH MQRC 

CF EBANK 

X 


U3777 

1 

In THIS 

EXAMPLE THIS 

WORD • CONTENTS 

OF 

E7 , 1777 

( ECAOR 3777) 

















R 0.35_S 

ncte- CCMPLOC 

CONTAINS THt 

CCUNTER 

ANC 

ECACP FOR 

EACH mCRO being SENT. 






R0359 

THE Elf 

STRICTURE UP 

DUMP LOU 

IS FCLLOmS 









R036C 




X 

m 

NCT USPO 






* 

■ 

HU361 

X A6C 

EEE PRMRRPPR 


ABC 

M 

ERASABLE 

DUMP CCUNTEHII .e. ABC 

• 0»l,2 OR 3 WHICH 

MEANS THAT 


P0363 






COMPLcTE 

ERASABLE 

CUMP NUMBER 

1,2,3 OP 4 RESPECTIVELY IS 

IN PROGRESS) 


R0365 




EEE 

m 

tSAKK 

BITS 







Mu3e6 



PRRPRRFP 

m 

RELATIVE 

AODFbSS MITHIN A.N EBANK. 






A$SF>R 1 F BFVi^.irN ?^7 f F AHC PkCfiRiH COLQSliLlS RY KASA 2u211II-C31 Llll ALG. 2A.lS6a SATRAP .004 PAG! 1368 

X Cthh-ULE>«tTPY PRCGBJI M USEK'S PAOP NO. 9 EO S3 " 

JL5ti31i J ^71^ 1 DN0UMJ»I _CA ZEKG I NITIA LIZE CGKM INK 

Jlit3S3a 5^ 326 C TS DUHPLCC EBA SAfeiE CUP' P 

Q5.3g34 0 3576 C *2 TC SEND 1C GO S£NC IG AND SYNCH BITS 

_.C5^12-15 1_1544 1 CA L UKO LPPl SIT CATNGCTC 

05x3-536 - TS G NTNGC TC IQ LCCATICN FCR NE XT PASS 

C5.3537 3 Q02 5 C CA TIHEl PLACE TINEl 

J;5i354Q 56 CCI C ACH L IhT C L 

C5f35Al 3 0 336 1 CA JUHPICC ANO ECADR CF THIS EBANK INTO A 

05. 3542 1 3524 C fCF DNTNEXIT SEND CUHPlCC AND TIMEl 


Oil 7 


L_ 



05.3543 

C3545 

C 

LONCUMP 

AORES 

ONbU F P 


C37tJ 

REF 

L_ 



05.3544 

03560 

_J_ 

LCNCUHPl 

AORES 

ONDUFFl 



0379 _ 

^Ef 

51 

LAST 

_1054 

C5ji1-5A5 

3 4711 


CNOLINP 

CA 

TWO 

lACREMENT ECACR IN DUMPLOC 

fl3ao 

REF 


LAST 

1066 

C5.3546 


C 


AOS 

UUMfLCC 

TO NEXT DP WORD TO BE 

03 01 

REF 

6_ 

LAST 

1066 

05.3547 

7 4373 

c 


MASK 

LOh S 

OUMPEC AND SAVE IT. 

0362 

REF 

2« ^ 

LAST 

1066 

05.3350 

10 000 

c 


CCS 

A 

IS THIS THE BEGINNING OF A NEW E6ANK 

03B3 

--JRLF 

1 



05.3551 

1 3562 

1 


TCF 

DNUUFP2 

NO- THEN CCNTINUE DUMPING 

0M4 

R|F^ 

4 

LAST 

-106! _ 

C5|3552 

3 0336 

1 


CA 

DUMPLCC 

YES- IS THIS THE END OF THE 

03ti5 

REF 

1 



05x3553 

7 0333 

c 


MASK 

OUMPCNT 

K TH(N ■ 1 TO 41 COMPLEIE ERASABLE 

0 3 66 

REF 

3_ 

-1A3 T. 

983 

05.3354 

7 7671 

1 


MASK 

PR IC34 

OUMPI0IT14 FOP 4, eiT13 FOR 2 OR BIT12 

0367 

REF 

2TC 

LAST 

106 6 

05,3555 

iC 000 

c 


CCS 

A 

FOR 1 COMPLETE ERASABLE DUMPISH. 

0368 

REF 

2 

L ASX 

187 

05,3556 

1 3340 

1 


TCF 

DNPHASEl 

YES- START SENDING INTERRUPTED OOWNLIST 

AQ3a9 











AGAIN 

039C 

REF 

2 

LAST 

252 

05,3557 

1 3534 

1 


TCF 

DNDCFPI *2 

NC- GO BACK AND INITIALIZE NEXT BANK 













0391 

REF 

L_ 



05.3360 

3 3543 

c 

ONOUNPl 

CA 

LDNDUMP 

SET ONTMGOTC 

C392 

REF 

6 

LAST 

1066 

05,3561 

54 335 

c 


TS 

DNTMCCTC 

FOR WORDS 3 TC 2560 OF CURRENT EBANK 













Q393 

REF 

5_ 

LAST 

106! 

C5.3562 

3 0336 

i 

CNDLHP2 

CA 

DUMPLCC 


^394 

REF 

45 

LAST 

1066 

05,3563 

54 0C3 

c 


TS 

EBAhK 

SET EBANK 

0395 

REF 

7 

LAST 

1066 

03,3564 

7 4373 

c 


MASK 

LOR 8 

ISOLATE RELATIVE ADDRESS. 

0396 

-K.EF 

2 10 

LAST 

106 5 

05. 3565 

54 0C2 

1 


TS 

Cl 

(NOTE: MASK INSTRUCTION IS USED TQ PICK 

0397 

REF 

1 4 

LAST 

6 9 2 

05,3566 

3 4713 

c 


CA 

NEGO 

UP ERASABLE REGISTERS SO THAT EDITING 

0396 

REF 

ISC 

LAST 

106 6 

05,3567 

54 001 

1 


TS 

L 

REGISTERS 20-23 WILL NOT BE ALTERED.! 

C399 

REF 

i.u 

LAST 

106 6 

05.3570 

50 0C2 

c 


INDEX 

U 


04CC 





€3,1400 




EBANK< 

* 1400 

PICK UP LOW ORDER REGISTER OF PAIR 

0401 





05,3571 

7 1401 

1 


MASK 

1401 

OF ERASABLE REGISTERS. 

0^02 

RIF 

15^ 

LAST 

106! 

05,3572 

56 OCl 

c 


XCH 

L 


^403 

REF 

2 12 

LAST 

1066 

05,3573 

50 QC2 

c 


INDEX 

Q 

PICK UP HIGH CRCER REGISTER OF PAIR 

0^ C4 





05, 3574 

7 1400 

c 


MASK 

1400 

CF ERASABLE REGISTERS. 

0405 

REF 

28 

LAST 

1066 

0340 




EBANK> 

‘ ONTMfcLiFF 


0406 

REF 

«; 

LAST 

1066 

05,3575 

1 3524 

i 


TCF 

ObTFEX IT 

GO SEND THEM 

























04C7 





05,3576 

C 0006 

1 

SEND 10 

EXTEND 

♦♦ENTRANCE USED BY bRASABLE DUMP PROG.** 

0408 

REF 

7 

LAST 

10 ce 

05,3577 

22 335 

1 


tiXCH 

DF TMCCTC 

SET CNIMCCTC SO NEXT TIME PRQG WILL GO 

04 0 9 

REF 

1 



05, 3600 

3 4747 

i 


CAF 

ERAS IX 

TC ICC ATI CN FCLLOWING :TC SEND ID : - 













0410 

RIF 

UC 

LAST 

1066 

05,3601 

54 OCl 

1 


TS 

L 

♦•entrance used by REGULAR DOWNLINK PG** 


mta R1LK3 LiSI 106 5 

-QJ69 Rf F i 

0370 Bfeff 2 LAST 1Q64 

0311 _af F i 

Qi 72 _ REF - JSl __L131 106^3 

0373 ££f l£ LAST 1Q5F 

0314 H E F 151 L A ST 106 6 . 

0375 REF 2 LAST 1061 

0376 REF 4 LAST 1066 


CAfci 

P ai:m<;inK y7i np Ar.f PwrnPAM 

HY KASA 

llil-C31 

Itn AliG. 24.l9Afl SATRAP . 

004 

PAGE 1C69 











L 

QClih-1£LE>«gTI>Y PRCGRAP 




LSFR*S PAGE NO. 10 


EO S3 











U4il 

Rll 2 LitST 1044 Jli*i602 

.Q J4Hi C 

_ TC 

WCZEK 

GC SET NCPC CPCER CCOE TC 

ZERO 




ft£f _i_ iia^603 

3 2Q00 C _ 

CAF 

_Law I CCOL 

PLACE SPECIAL IC COOE INTO 

L 



QAX±. 

ft£f lil LiST iU6g C5.3tO^ 

56 CCl C 

XCh 

L 

AND 1C BACK INTC A 




QM*t 

il£f _4_ L45T iQoe C5.36Q5 

1 35i^ C 

TCF 

DNTMEXIT 

SEND CCWNLIST IC CGOEISl. 
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L lUlfR-fiihK CCMBUMC^T IPN , U SEH*S P4GE HC, I £0 S.3 

iiiJjQlil ~~~ IfcE, FILLCkJAti. aauilfii CA-N 6E llSEO IQ CALL A SUBROUT INL IN ANOTHER tlAhK. IN Th£ BANKCALL V6RS1UN, THE 
Aaac3 Ciice Cf in 3teR^:LTl^f: If'HEOUTtLY FCLLCk«5 the TC BANKCALL INSTBLCTICN, with ^(Al ANO CIL» PRESERVED. 


ilQCi 





^535 



OLOCK. 

02 



C005S 

Rif 

1 






COUNT 

02/(3 ANK 




QQEi6 

Rl£ 

4 

LIST 

-klL 

JlS15 

52 124 

c bankcall 

DXCH 

CUF2 

SAVE INCOMING A,L. 


C007 

REF 

<13 

L^5T 

106 E 

^556 

50 0C2 

c 

INDEX 

C 

PICK UP CACB. 


OOC6 





^557 

3 COCO 

1 

CA 

0 



OOCV 

Rtf 

4 lA 

LAST 

107C 

^560 

24 002 

c 

INCR 

Q 

SC WE RETURN TO THE LOC. «FTER THE CAOR. 














BflOlO 



ShCALL IS IDEKTICAL 

TC BANKCALL. EXCEPT 

JHAT 

THE CACft 

ARRIVES IN A. 














QQ12 

REF 

lii 

mi 

„IQ6S 

J* § 6 1 

54 OCl 

1 SVtCALL 

TS 

L 



Qt^i3 

REF 

1 

LAST 

374 



C 

LXCH 

FBANK 

SWITCH BANKS* SAVING RETURN. 


001^ 

REF 

7 

JMl 

6 Li 

4563 

7 474? 

C 

MASK 

LOHtO 

GET Sue-ACCRESS OF CAOP. 


il015 

KEF 

a IS 


LOTi 

«t5t4 

56 CC2 

c 

KCH 

Q 

A,L NCW CCMAINS OP RETURN. 


OQIb 

REF 

5_ 

LAST 

10 7 0 

-4i56-5 

52 134 

d 

OXCH 

BUf 2 

RESTORING INPUTS IF THIS IS A BANKCALL. 


C017 

REF 

au 

LAST 

10 7 C 

4566 

50 0C2 

0 

INDEX 

Q 



QOie 





4567 

C 20C0 

c 

TC 

lOf OC 

SETTING Q TC SWHETUHN. 














iJOls 

REF 

t 

LAST 

_mc 

4570 

56 134 

1 SWRETURN 

XCH 

BUF2 +1 

CCMES HERE TO RETURN TO CALLER. C(A,LJ 


0C2O 

REF 

f 

LAST 

10 7 C 

4571 

56 CC4 

0 

XCH 

FHANK 

ARE PRESERVED FCR RETURN. 


Q021 

REF 

7 

LAST 

10 7 C 

4572 

56 134 

1 

XCH 

&UF2 ♦! 



0022 

REF 

8 

LAST 

107C 

45 73 

C 0133 

c 

TC 

bUF2 













• 














RQ02 3 



TFL 

FCLLC^INC 

ROLT IRE CAN BE 

ISEO AS A 

UNILATERAL JLHP 

WITH C(A,L) PRESERVED AND THE CAOR IMMEDIATELY 



R0025 FCtLCt»lAC I HE TC ECSTJUWP INSTRlCT l ON. 


0026 

REF 

a 17 

LAST 

AQT(, 

4 5 74 

5 6 C02 

C 

POST JUMP 

XCH 

Q 

SAVE INCGMING CIA I. 




- 

0027 

REF 

271 

LAST 

1066 

4575 

5C 000 

1 


INDEX 

A 

GET CADR, 




CC28 





4 5 76 

3 0000 


CA 

0 







8002?^ 



BANKJUHP IS 

THE SAME 

AS PCSTJUMP, EXCEPT 

THAT 

The cadf 

ARRIVES IN A. 





















0031 

REF 

5 

LAST 

1070 

4577 

54 004 

1 

f ANKJC'MP 

TS 

F BANK 






0032 

REF 

E 

LAST 

107C 

4 600 

7 4747 

C 


MASK 

LOW! C 






0033 

REF 

aie 

LAST 

107 C 

46C1 

5 6 0C2 

c 


XCH 

0 

RESTORING INPUT CIA) 

IF This was a 




0034 

REF 

4 IV 

LAST 

i07C 

4602 

50 0C2 

c 

O+ICOOO 

INDEX 

G 

PCSTJUMP. 





du35 





46C3 

1 2000 

I 

PR1C12 

TCF 

lOCOC 

PRIC12 « TCF 10000 

« 12000 
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_PQCJb If-t tCLLChlfiC ROUJlhE CtTi TEE HETOSN CAOR SAVtO tv SkCAU OP BANKCALL AND LEAVES IT IN A. 


C03B kl£ S lAil AiiTL ktSiJk 3 47 * i7 1 EAKECADR CAP LOhiC 

0031 l£f 9 LASl lUJ-C 7, Q133 1 f^ASN RUf2 

2040 RE.f It LAST Jill 4606^ fc 0134 1 AO 0UE2 *l 

dfl4I REf 22C LAST 1Q7C 4EC? 0 C002 C TC Q 


au4AS 

REF 

4- 

1-i^T 

37^ 

4E1Q 

54 135 

1 

SLPLACAL TS 

WETLAP 

' 

0047 

REF 

§ 

LAST 

10 7 C 

4611 

56 004 

C 

XCh 

FBANK 

SET FBANK FCR DATA. 

0C475 





4612 

0 40 Ch 

1 

EXTEND 



QQ4B 

PEF 

-It- 

LAST 

575 

4613 

04 007 

1 

ROR 

SUPER6FK 

SAVE F6ANK IN BITS 15-llf AND 

10445 

REF 

5- 

LAST 

10 71 

^614 

56 135 

c 

XCH 

HPTfc RP 

SUPERBANK IN BITS 7-5. 

0C49 

REF 

K 

LAST 

107 1 

4615 

7 4747 

c 

MASK 

LLMlC 


QC495 

REF 

±tl. 

LAS! 

10 7 C 

4616 

--56 PCI 

_fi_ 

XCH 

L 

SAVE REL. ACR. IN BANK. FETCH SUPERBITS. 

0050 





4617 

0 00C4 

c 

INHINT 


BECAUSE RUPT CCES NOT SAVE SUPFR0ANK. 

00505 





4620 

C 0006 

1 

extend 



0051 

REF 

11 

LAST 

1071 

4621 

01 007 

1 

Rft in 

SUPEPeNK 

SET SUPERBANK FCR DATA. 

00 52 

R E F 


LAST 

1071 

<*622 

5C OCl 

c 

INDEX 

L 


QOS25 





4623 

3 200C 

c 

CA 

loooc 

pinball (FIX PEP OISP) PREVENTS CCA HERE 

PC 53 

REF 

t- 

LAST 

1071 



__56 135 

c 

XCH 

HPTF RP 

SAVE 1ST ^D» FETCH OLD FBANK AND SBANK. 

0Q534 





4 62 5 

Q 00C6 

1 

EXTEND 



0W535 

REF 

U 

1 A ST 

10 7 1 

4626 

Cl 0C7 

1 

MkITE 

SURE RANK 

RESTORE SUPERBANK. 

0u54 





4627 

Q 0003 

JL_ 

RE LINT 



00545 

REF 

7 

LAST 

lj7 1 

<*t3C 

54 CC4 

1 

TS 

FbANK 

RESTCRE FeANK. 

0055 

REF 

7 

LAST 

1071 

46 21 

3 0135 

C 

CA 

MPTF PP 

RECOVER FIRST KCRO OF DATA. 

00555 





4412 

-Q 00C2 


RETURN 


24 HCS. OATACALL 516 HU. SUPOACAL 432 NO 
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1*0056 Tl-E FCLLChlhC KLLTINES APE ICEMlCAi. TC ttAMKCAU ANC SV»CALU EXCEPT THAT THEY APE USEC IN IMERRUPT. 


005 a SU 2 LIST 6JJ At33 52 073 1 

0055 PEi 2n_ L/il lOlI .A61A 5C 0C2 C 

OOaQ A635 3 OOCQ I 

ilOOi Rfef 222 LIST 1072 A636 2A QG2 C 


QC&2 

REP 

Its 

LAST 


A 6 37 

5^ QCl 

1 

ISHCALL 

TS 

1 


0063 

REP 

fi_ 

LAST 

^071 

A 6A0 

22 QOA 

C 


LXCH 

FRANK 


Q.06A 

REF 

a 

LAST 

1071 

AeAi 

7 A7A7 

c 


MASK 

LGWl C 


C0t5 

PiP 

223 

LAST 

1072 

A6A2 

66 CC2 

c 


XCH 

0 


0066 

--Rif 



LAST 

10 7 2 

A6 A 3 

52 073 

1 


OXCH 

RUPTFEC3 


0067 

HPF 

22 A 

LAST 

10 7 2 

A6AA 

5C 0C2 

c 


INDEX 

0 


Q Q 6 8 





A645 

0 2000 

0 


TC 

1 000 c 














CC65 

REf 

3 

LAST 

65 

A6A6 

56 C7j 

c 

iShPETRN 

XCH 

ROPTPECA 


0070 

REF 

9 

LAST 

1072 

A6A7 

56 OOA 

c 


XCH 

FRANK 


Qf.71 

REP 

A 

LAST 

107 2 

A 1 50 

56 C73 

c 


XCH 

RUPTREGA 


0072 

REF 

A 

LAST 

1072 

A651 

0 0072 

1 


TC 

RUPTREG3 














RCC5Q 

2^ 

ISPFCICR ACCESSES 

INTERPRETIVE CCCING 

IN OTHER THAN 

THE USER'S 

FBANK, THE CALLING SEQUENCE IS AS FOLlOhS* 


ACCS2 








L 

TC 

USPKCACF 


A0053 








L^l 

ca'or 

INTPPETX 

INTPRETX IS THE INTERPRETIVE CCDING 

AQ09A 











RETURN IS TC L>2 













0103 

REP 

— ^ , 

LAST 

A12 

A652 

54 16A 

c 

LSPRCAOR 

TS 

LCC 

SAVE A 

OlOA 

REF 

25 

LAST 

915 

Aesa 

3 A7C3 

1 


CA 

B ITB 


Ul05 

REF 

7 

LAST 

363 

A65A 

5A 023 

1 


TS 

EOGP 

EXIT INSTRUCTION TC EDOP 

0106 

PEP 

14_ 

LAST 

S73 

A€55 

3 C0C6 

J 


CA 

OEANK 


0107 

PEP 

1 



A656 

5A 165 

1 


TS 

RANK SET 

USER'S B6ANK TC BANKSET 

0106 

REF 

225 

LAST 

10 7 2 

A657 

5C 0C2 

c 


INDEX 

C 


mo 5 





A66C 

3 0000 

1 


CA 



Clio 

REF 

U 

LAST 

10 7 2 

A661 

5A OOA 

1 


TS 

FLANK 

INTERPRETIVE BAKK TO F8ANK 

am 

REF 

12 

LAST 

1072 

A662 

7 A7A7 

c 


MASK 

LOHIO 

YIELDS INTERPRETIVE RELATIVE ADDRESS 

0112 

REf 

226 

LAST 

1072 

4663 

56 0C2 

c 


XCH 

Q 

INTERPRETIVE ACCRESS TC C* FETCHING L*l 

0113 

REF 

6 

LAST 

1072 

AetA 

56 16A 

1 


XCH 

LOC 

L*l TC LCCt RtTRlEViNG ORIGINAL A 

01 lA 

REF 

1 



A665 

L A602 

c 


TCP 

U+IOCOO 















DXCH P.UHPFG3 USES PUPTPEG3.A FOR OP RETURN ADDRESS. 

INDEX Q _ 

CAP 0 

INCP Q 


CAP* 

g BFHKIflN Cf Af.C PHCLRAM CQLCiSSUS BY NASA 2G21I11-C31 1:17 4LG. 2^.1968 SATRAP ,OOA PAGE 

1073 


L 

IN 1 EH - PA liK fLCRJ^U N 1C A 1 1 


USER'S PAGE NO. EO S3 



PQil? 

TJ?£P£ Afit fCLR 

PCSSIBLE SETTIRUS 

FCP CHANNEL 07. (CHANNEL 07 CCNTAINS THE SUPER0ANP SETTING.) 


&Q119 



PSEODO-FIXEL 

OCTAL PSEUDO 


ftQl 2r 

Si.PFftEARK 

SFTTIRG S-REG. 

VALUE HANK NUMfitRS 

ACCPESSES 


kaiJLL 












snip? 

SLPERPAAM ? 

QXll 2C0C - 

3777 30 - 37 

7CCOO - IQ7777 (NHERE XX CAN BE ANYTHING AND 


KQlZk 




HILL USUALLY BE SEEN AS 11) 


HUlZt 

SOFERBAhK A 

ICC 2000 - 

3777 40 - 47 

110000 - 127777 (AS FAB AS IT CAN BE SEEN, 


Rfll26 




CNLY BANKS 40-4'' WILL EVER BE 


R013C 




AND ARE PRESENTLY AVAILABLE) 


pgi32 

SEPEReARK 5 

ICl 2C0C “ 

3777 50 “ 57 

130000 - 147777 (PRESENTLY NCT AVAILABLE TO 






THF, USER! 


BOiliii 

SlFJRfi.ARK i 

lie 200C - 

3777 60^67 

150C0Q - 16777? (PRESENTLY NCT AVAILABLE TC 


H013e 




THE USER) 


R0102 

♦ •A IMS PCLTIME PAYEE CALLEC fiY ANY PRCCRAM LOCATED 

IN BANKS GC > 27. I.E.t NC PPOGRAP LIVING IN ANY 


Bai4^ 

StPtREARK 5HCULO LS£ SOPERSN, 









rQlA5 

SLPEPSP PAVBE 

CALLEt IR THIS FASHION: 




R 01 *t 6 

CAE _ 

. AEBCOR 

HHERE — AUBCCN BbCON SCPETHIN — 



TCR 

SLPERSh 

(THE SOPEPtfNK HITS ARE 

IN THE BBCON) 




• 11 




HOMS 

• 

• 




ROlbO 

i 

— 





hOlSl 

OP Ih IMS FAitlO _l 










- R_01 52 

CAP 

SLPERSeT 

NHERE SLPERSET IS ONE 

CF THE FCUR AVAILABLE 


RQ2-5S 

_ 

StPERSh 

SUPERe/NK BIT CONSTANTS: 


RQ155 


« « • 


SUPEPGll OCTAL 60 


R0I57 

_ . J 

• 


SUFERIOO OCTAL 100 


_ .R0159 

i 

1 . 


SUPEPlOl OCTAL 120 


BOlfel 




SUPEPllO OCTAL 140 



_SLUi 


4 66ti 0 

0006 1 SUPEP.SM EXTEND 



■ P£F 12 LAST 

1071 4667 01 

007 1 hRITE 

SUPEPBNK WRITE BITS T-6-? OF THE ACCUHULATCP 

INTO 

A0165 




CHANNEL 0? 


_C IcO 

REF Zil LAST 

1072 4670 0 

0002 C TC 

U TC TC INSTRUCTICN FCLLCwlNG 


AQ167 




TC SUPERSH 



CAP I 


l:17 ALG. SATRAP .QQA IQ7^ 


AKSftflIF faFm«;tnK ?ai if aCA. PRLGfi^!^ CGLCS^ttS riV NASA 2u21Ill“C31 

iMgflFPgTtfi USER'S page NO. I EO S3 

i’flfifll - SICIKA X_tlSPATCh£R ~ 

ft.irn? PKtRV Tn ThE INTERPRETER. IMP^ET SETS LCC TO THE FIRST INSTRUCTION. BANKSET TO THE BHANK OF THt 

KUQiih object INTER PRET I VE PPXGjiAH, A NC I NTB IT 15 TO THE S U15 CONTE NT S OF FBANK. INTERPRETIVE PROGRAMS MAY BE IN 

fcUOOfe VIP TLALLY ALL TANKS PPfcitM UI^CEP ANY SUPFit-0ANK SETTINOf NMh Thfi RESTRICTION THAT PPQCBANS TN HIGH BANKS 

RQQOa iiilTi! CF PflANK = 1) CC NCT REFER TtJ LCtiBANKS* AND VICE-VERSA. THE INTERPRETER DOES NOT SWITCH SUPERBANKS. 

KQQIQ E- EA RK S NITCHI RG CCCUPS NPtNEVER GENERAL ERASABLE (lOo - 37771 IS ADDRESSED. 


0012 




6QQ6 




JILCCK, 

03 




QP13 

RU L_ 







COUNT 

03/INTEfl 




QQ1J2 




_ 6C06 

_Q_Q 003 

1 

INTPPET 

REL INT 




Qillit 




6007 

0 0006 



eXTENO 


SET LCC TO THE NGRD FOLLOWING THE TC. 


U015 

REf 7 

LAST 

10 7 2 

6C1C 

22 U4 

1 


QXCH 

LOC 















QulX 

R£f IS 

LAST 

1012 

6C11 

3 QOuc 

1 

♦2 

CA 

bOANK 

INTERPRETIVE BRANCHES FINISH HERE. 


Qfll7 

REf 2 

LAS.T 

10 7 2 

6C12 

54 165 

1 


TS 

BANK SET 



UCIB 

REf A2 

CAST 

964 

6013 

7 46 7^ 

1 


MASK 

BITI 5 

GET 15TH BIT FOP INDEXABLE ADDRESSES. 


OQiS 

_aXE 5_ 

LAST 



6Q14 

54 IIS 

c 


TS 

INTblTlS 















CC20 

Rif 5 

LAST 

IQ 7 2 , 

6G19 

54 023 

1 


TS 

EOOP 

MAKE SURE NC INSTPUCTICNS LEPT OVER 














CL02J^ 

REF 1 



6016 

i 6037 

1 


TCP 

Nb HOPS 

PICK UP OP CODE PAIR AND BEGIN. 















OQ21 

REE 16 

LAST 

1074 

6C17 

22 0C6 

1 

INTRSM 

LXCH 

bHANK 

RESUME SUSPENDED INTERPRETIVE JCB 


0023 

REF 22 T 

LAST 

886 

6C20 

1 ecu 

c 


TCP 

INTPPET *’i 



l<002<i 


CLCAC 

LG ACS 

MPAC. MPAC «lt 

LEAVING 2ER0 

IN MPAC 

♦ 2 • 















QU2$ 




6C21 

0 C0C6 

1 

CLOAO 

EXTEND 




0026 

Rfcf 1 



6022 

5 0116 

1 


INDEX 

ADDPNC 



0027 




6023 

3 OQCl 

C 


CCA 

0 

LOAD CP C(C(ACbPMOn INTO mpaC.MPAX 


0026 

REF 2SC 

LAST 

688 

6t24 

52 155 

1 

SLOA02 

OXCH 

MPAC 



0029 

REF 2C6 

LAST 

1068 

60 23 

3 4714 

1 


CAP 

ZERO 

ZERC MPAC *2 



g 7^1 CF Ar,r PBrf.fiAM COLOSSUS £Y NASA 2L211I1-C31 Itl? AUG. 24tiq68 SATRAP .00<» PAGE 107^ 


Ill1£R.FEtT£i) 


USER'S PAGE N(?. 2 


EO 53 



PCfliO 



_ 41 THt Etc 

LF MOST 

INSTRUCT IChS 

1 CCMRCL IS 

GIVEN TC CANZIC 

TO dispatch the neat cperaticn. 












nn^3 

REF 

?5t 

1 4ST 

1079 

6026 

_ 3A 156 1 


TS 

HR AC *2 

AND CECL4RE DP HOPE 


0033 

JIEE 

4 

LAST 

511 

. 6.027 

59 163 1 

KEN HGC E 

TS 

HOC 6 

PROLCCUE FOP HOCE-CHANGING INSTRUCTIONS. 


ooa-t 

Rtf 

3 

LAST 

lOIA^ 

6030 

3 0X65 C 

CAN! IQ 

CA 

t AhKSET 

SET BBANK BFFORE TESTING NEHJOB SC THAT 

QU3S 

REF 

17 

LAS 1 

1019 

6031 

59 0C6 C 


TS 

ttBANK 

IT HAY 0F SAVED DIRECTLY BY CHANJOB. 


0036 

Rtf 

3 

1 

1 

_iai9 

6032 

__XQ J12X_1 

JlC I E N K 34i 

CCS 

EOOP 

SEE IF AN ORDER CODE IS LEFT OVER FROM 

0037 

REf 

1 



603 3 

1 6096 1 


TCF 

LPJURP 

the last PAIR RETRIEVED. IF SO, EXECUTE. 

40038 










EOOP IS SET TC ZERO ON ITS RE-EDITING. 


DU39 Rtf 5 LAST 825 4CJ9 It 067 1 CCS NEHJCB ___ SEE If A JCE CF HIGHER PRIORITY IS 

JQ4U REf 1 6035 1 5063 C TLF CHANC2 PRESENT* ANC IF SO# CHANGE JOBS. 


ViQ9l R.Ef 8 LASl 1Q7A (it36 2< 16^ 1 LNtR LOC ___ ACVANCE THE LCCA7ICN CCUNTEP. 

jtLimAi IIRACE (11 RtFEHS TC "NEWCPS"* ^ ^ 

0093 Ait^ S LAST iO?5 _6G37_ 50 U9 1 NE NCPS IN DEX LOG EKTBV TO BEGIN EY PICKING CP CCOE PAIR. 

0Q99 60 40 3 QOQU 1 CA^ 0 MAY BE AN OPCCUE PAIR CR A STORE CODE* 

CC95 REF 272 L/ST I07C 6C91 IC CCO C CCS A ^ TEST SIGN AND GET CABS(A). ^ 

0Q46 REF 1 6 0 ^2 I fe33l I T CP DOSTCRE PROCESS ST ORE CCOE. 0 


QQ97 





6 0A3 

CQ177 

_C_ 

LCH? 

- OCT 

177 




Q09fi 

REF 

IQ 

LAST 

X0 7J 

6C99 

59 Q23 

1 


TS 

ECOP 

CP CCCE PAIR. LEAVE THE OTHER IN EDCP 


QUA9 

-REF 

6_ 

LAST 

163 

6C95 

7 60A3 

1 


HA SK 

LOW? 

k^HERE CCS FDLP WILL HONOR IT NEXT. 



QQ5U 

PXP 

X2 

L Aj T 

37C 

6096 

59 020 

1 

CPJUHP 

TS 

CYk 

LCWWC ENTERS HERE IF ft RIGHT-HAND CP 


0Q51 

—REf 

19 

LAST 

107! 

6C97 

1C 020 

i 


CCS 

C YR 

CODE IS TC BE PRCCESSEC. TEST PREFICES. 


0052 

REF 

1 



6050 

1 6216 

C 


TCF 

CPJUHP2 

TEST SECOND PREFIX BIT. 



00 5 3 ati 1 6051 1 ft712 1 TCF EXIT *C CP CODE IS FXIT. 


IR 


nlpi AS^tltHL£ RPW lCIflK 7\ 1 kGt p TFnBAM C ULQSSUS BY NASA 2021111-031 lill AUG. 2<nl9fc3 SATkAP .00<t PAQj IQlb 


X lAlEfillLIJA tlStP'S PAGt NC. 3 EO S3 


PQQSA 


Pi OCE SS J C EH E S S E S J< H 1 CH H A Y B E 

C I H E C Ij 

INOEXEO 

T CF REFERENCE 

THE P^hDCkN list. 











nc^ 

f 1A_ 

LAST IQiE 

faC52 

_2 4^112 il_ 

ACDHtSS 

MASK 

bill 

SEE IF ADDRESS IS INDEXED. CYR CONTAINED 

0057 

_8Ei 2IJ 

LULAOlfi 

_ _6 C5_3 

IC CCQ C 


CCS 

A 

400XX« SO BIT 1 IS NOW AS IT WAS IN CYR. 


C05Q 

1 


6054 

1 6U5 C 


TCP 

INDEX 

FCRM INCEXEt AOCRESS. 












Ui359 . 

REf 1Q_ 

LiS^I_lD.15 _ 

6C55 

5C 16^ 

CIHACRES 

INDEX 

LOC 

LOOK AhEAC TC NEXT WORD TO SEE IF 


QG 00 



6C 56 

A QOGl 1 

CCTAObOl 

CS 

1 

ACORESS IS GIVEN. 


0061 

PEE 27A 

LAST 1076 

6^57 

U oco c 


CCS 

A 



0062 

REF 1 


6C60 

1 6UA ( 


TCP 

PUSHUP 

IF NCT. 












QQ6»3 



6C61 

77773 1 

NEGS 

DEC 

•4 













._CC6^ 

REE 11 

LAiTUOlO 

6062 

2A It** i 


INCH 

LOC 

IF SC, TC SHOW WE PICKED UP A hOHC. 



REF 2 

LAST IQ7A 

6063 

5A 116 C 


_Li 

ADDRHC 




C 




.004 P*Gfc 1077 


Q*Pi agyi<;iflK 7?1 CP all PftCr.RlM COLC^SUS fiv NASA 202I111-L31 1:I7 AUG. 24.19£a SATRAP 

L ihua^JiEiia^ - u5eR.'5 p^oe no. 4 



to S3 


FlKAl aiiLtSllTN CF CLRECI ACCRfeSSES CF CP CODtS I»IJF 01 PREFIX |S CCNE hERF. IN EACH CASE, THE 

RQQta RECLIFEC 12-fclI_SCE-ACC«£5S IS LEFT IN ACIj«.iD, WITH ANY PtCUlREC E C« F BANK SWITCHING DCNE. AOORtSSES LESS 

flfiOTO T^AW 4SQ AtP TAKEN 1C E£ RELATIVE TG THE WORK AREA, THE OP CCCE IS NOW IN BITS 1-9 CF CVR WITH BIT 14 - 1. 


0072 aif I 6Cfc4 6 6220 1 AD SEE IF ALtPESS PElATIVE TC WORK AREA. 


^ 

. 0073 

R£f 

27* 

LASl lQ7t 

6 CIS 

1C 000 

C 

" 

CCS 

A 


C074 

Rif_ 

L_ 


6C66 

6 77 12 

1 


AD 

-ENOEPAS 

IF NCT, SEE IF IN GENEPAL ERASABLE. 

Q075 

a£f_ 

L_ 


6067 

1 6074 

_C_ 


TCF 

URASTST 



vl076 

a£F 

1£ 

Un 82 7 

J-CTQ 

2 QUO 

1 

JlETiERC 

_£A 

FIXLCC 

IF SC, LEAVE THE MCOIFIEC ADDRESS IN 

0077 

BUL 

i_ 

LAST lQ7t 

6071 

26 116 

JQ_ 


AOS 

ADDF' WO 

ACDRNC ANO DISPATCH. 

.ao.7a 

fill 

li 

LAST 1075 

6C72 

50 02C 

C 

ITR 15 

INDEX 

CYR 

THIS INDEX WAKES THE NEXT INSTRUCTION 

007^ 

REF 

1 


6073 

7 6242 

1 


7 

INDJLMP -1 

TCF INOJUMP ♦ OF, EDITING CVR. 












ooao- 




6C-74 

Q 0QC6 

1 

lERASTST IKTtHD 



noei 

KEF 

1 


6075 

6 6105 

c 


BZMF 

GEAOCR 

GC PROCESS GENERAL-ERASABLE ADDRESS. 












QC62 

RIF 

12 

LA IT 1071 

6C76 

7 4747 

c 


MASK 

LOHl C 

FIXEC bank address. RESTORE AND ADD B15. 

0QB3 

REF 

14 

LAST 1071 

6C7? 

6 4747 

1 


AO 

LCWIC 

SWITCF BANKS AND LEAVE SUBAOORESS IN 

0084 

REF 



LAST 107? 

61C0 

56 Il6 

1 


XCH 

ACORLC 

ACCRkC FOP CPERAND RETRIEVAL. (THIS 

QQti3 

filF 

E 

LA5T 107A 

6 101 

6 CU5 

1 


AD 

INTC 1715 

NETHCC PRECLUDES USF OF THE LAST 

OGEE 

REF 

11 

,LAST 107_2__ 

6102 

54 0C4 

1 


TS 

f BANK 

LCCATIGN IN EACH FBANK.l 

QOfi? 

filf_ 

u 

LAST 1077 

6103 

50 020 

c 

ITR12 

INDEX 

CYP 


0068 

REF 

i_ 

LAST 1077 

6 104 

7 6242 

1 


7 

INDJLKP -1 













QQfiq 

BtP 

p 

J-ASl 106€ 

6 1C5 

7 4373 

c 

CEACDR 

MASK 

LOWS 


009C 

REF 

*3 

LAST 37C 

b 106 

6 ^ 744 

1 


AO 

CCT 1 4CC 


0091 

KEF 

5 

LAST 1077 

6 107 

56 116 

i 


XCH 

ACOK RO 


0092 

tAL 

AE 

_1AST 1061 

4110 

54 003 

c 


TS 

FBANK 


0093 

REF 

1? 

LAST 1077 

6111 

5C 020 

c 

ITR 10 

INDEX 

CYP 


0094 

REF 

*3 

LAST 1077 

6112 

7 6242 

1 


7 

INDJLPF -1 














CAPS iSSftBLg HF^iljvinn nf AC.C PRrnRAM CGLQSSLS ev NASA 2Q21111"C31 l;n AUU. ?<itl968 satrap .004 PACS 107H 


L rhTE PPPtl gP UStH'S PAGE KC. 5 EO S3 


RQa95 - TEE P CLL CkIhG ROUTINE PRUCfeSSIS IN T ERPAfeT I VL INUEXEC A DDRESSES. AN INTERPRETER INDEX REGISTER MAY 

RQU97 CCMAIN TKE ACCRLSS CF ANY .ERASABLE REGISTER (O-A^ UE I NG ^KE L AT I VE TO THE VAC AREAI CP ANY INTERPRETIVE PPCGRAM 
RCCRq EAUt^ Cfl ANY INTEGER IN THAT RANGE. 

QIQQ Rgf 1 6113 3 7702 C DCOLOAQ* CAP PlC/Tc* STOCL* CORES HER E TC PROCESS LCAC ADR. 

OlQl RFF L£ LAST 1Q77 6llA 5A Q2Q 1 TS CYR (STOVL* ENTERS HERE). 


0102 B.EE 11 LAST 107 1 6 115 3 CU0_1_ INDEX CA FI XL CC S ET CP INCEj* LOCATION. 

illOi Bfl 1 6116 5A 130 1 TS INOEXLOC 


QiOA 

REF 

12 

LAST 

1076 

611? 

2A 16A 

1 


I NCR 

LCC 

(ADDRESS ALWAYS GIVEN). 

0105 

REF 

U 

LAST 

1076 

6 120 

50 1 6 A 

1 


INDEX 

LLC 


0106 





6121 

A OOCQ 

C 


CS 

G 


G107 

REF 

UJL^ 

LAST 

1077 

6122 

10 OOO 

C 


CCS 

A 

INDEX 2 IF ADDRESS STORED COMPLEMENTED. 

cice 

_aEF 

2 

LAS T 

107 6 

6122 

2A 130 

C 


I NCR 

INDEX LCC 


Q1C9 





6UA 

16 125 

C 


NOOP 















0 11 0 

REF 

t 

LAST 

1071 

0125 

5A 116 

C 


TS 

ADDk hC 

lA BIT ADDRESS TO ADORMD. 

0111 

REF 


L A ST 

120 

6126 

7 7711 

c 


MASK 

higha 

IF ADDRESS GREATER THAN 2K, ADO INTB1T15 

0112 





6127 

0 0006 

I 


EXTEND 


Q113 

REF 

1 



6120 

1 612 3 

1 


B2F 

1N0EX2 


QUA 

REF 

7 

LAST 

1077 

6131 

3 C115 

1 


CA 

iNTfc ni5 


0115 

REF 

7 

LAST 

1076 

6132 

26 116 

c 


AOS 

AOOF RO 














Jllfc 

REF 

3 

■ liSJ 

107 6 

6133 

50 130 

c 

INDEX2 

INDEX 

INDEXLCC 


C117 

REF 

46 

LAST 

679 

6nA 

A 00A6 

1 


CS 

XI 


01 U 

REF 

E 

LAST 

1076 

6 135 

2i 116 

c 


AOS 

AODFNC 

DC ACGMENTf IGNORING AND CCRRECTING OVf. 













0119 

REF 

5 

LAST 

73A 

6136 

7 77 13 

1 


MASK 

H IGH9 

SEE IF ADDRESS IS IN mCRK AREA, 

0120 





6137 

0 Q0C6 

1 


EXTEND 


Ql21 

REF 

L_ 



6 lAO 

1 6153 

} 


DZF 

INDWCRK 


0122 

RCF 

3 

LAST 

1076 

61A1 

7 7711 

c 


MASK 

HIGHA 

SEL IF IN FIXED BANK. 

0123 





61A2 

0 0006 

1 


extend 


Oi2A 

--fi-EF 

L_ 



6lA3 

1 6155 

1 


8ZF 

INDEPASE 



0125 

REF 

s 

LAST 

1076 

6 lAA 

o 

o 

1 

1 


CA 

ACbR \^C 

IN FIXED - SNITCH BANKS AND CREATE 

0126 

REF 

12 

LAST 

1077 

61A5 

SA OJ^ 

1 


TS 

FBANK 

SCB-ADOhFSS. 

Cl 27 

REF 

15 

LAST 

1077 

6 1A6 

7 A7A7 

c 


MASK 

LGl^l C 


012 6 

REF 

1 



61A7 

6 A700 

1 


AO 

2k 


C129 

REF 

1C 

LAST 

1076 

6 150 

5A 116 

c 


TS 

ADDP nO 


0130 

REF 

19 

LAST 

10 7 6 

6151 

50 020 

c 

ITR 1 1 

INDEX 

C VP 


0131 

REF 

A 

LAST 

10 77 

6152 

3 62A2 

c 


3 

INDJIMP -1 



013«; 

REF 

2C 

LAST 

1076 

6153 

3 0120 

1 

INORORK 

CA 

F IXLCC 

MAKE ACDRNO RELATIVE TC WORK AREA. 

0133 

REF 

1 



615A 

1 6161 

c 


TCF 

ITRia -1 














Cl JA 

REF 

A 

CAST 

1077 

6155 

3 A 7AA 

1 

INOERASE 

CA 

GOT 1 ACO 


0135 

REF 

1 1 

LAST 

1076 

6 156 

56 llo 

1 


XCH 

AOOF NC 


0136 

-JlEf 

A7 

EAST 

107? 

6157 

5A 0C3 

c 


?S 

bBANX 


0137 

REF 

9 

LAST 

107 ? 

6 16C 

7 A373 

c 


MASK 

LGwa 


3136 

REF 

12 

LAST 

10 7 8 

6 161 

26 116 

c 

-1 

AOS 

ACDF 
















A<f 5 Cin^i g ocwKinfc. PP M-.c. P_ftfifl8AM r nir^<;ii<: by ka<;a 2:)31111-C31 lil7 ALG, 2A. 1969 SATRAP .OQ<t P4GE 1079 ' 
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flijs Rit . 2L lisi loje «Lm_. 5 C 02C c TTrTT jiuix cyr 

QIAQ REt. 5 LiST IQTl 0143 3 ^2^2__C 3 TROJIHP -I 




f 


* 


$ 


I 



H 





$ 





n 


I ^ 

- ? 

I 

- # 





4, API f BPyiSIOh 23 ? Cf Af.C PPCCBAH CGLCSSUS BY NASA 2021I1I-C31 1:17 ALG, 2^*1966 SATRAP .004 P<ICE 1080 
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fUl41 



PLSh-UP PQOtlNES. MIEN NO OPERAND ACORtSS IS GIVEN. THE APPRCPPfATF CPERANC IS TAKEA FRON THE PUSH-CQhN 

KUl^3 

LIST. It 

MCST GASES 

TFE MCCE 

Cf TJIE BESLLT (VECTCR OR SC A LAP ) CF THE 

tA 

ST arithmetic CPERATICN PERFORMED 

KOI ^5 

LS_ 

Tft SANE AS THE 

TYPE OF nPERANC DESlFfcD (ALL 

AOiiySUEJRACT ETC.). 

EXCEPTIONS TO THIS GENERAL RULE ARE LISTED 


atLCM llLLTlJIhAT Ul 

EkERY^ASE ThE FCCE RtOlSTER 

IS LEFT INTACTI: 







_ _VJlSi:_ IKC V/SC hAM THE CPPCStTE TYPE OF OPERAND. E.G.. 

IF 

THE LAST OPERATICN YIELDED A VECTOR 


RLSLili 

VASC hAniE. 

A SCALAR. 
















{.0151 



-2^ THE LCAf CODES SHCLLU LCAC THE ACCUHULATCR 

INUEPENDEKT 

OF 

THE RESULT CF THE LAST CPERATICN. THIS 

P0153 

INCLUCeS 

VLCAC. CLCAO. TLCAC. 

. POOLt aaq POVL (NC 

PUSHUP 

HIIH SLOADl. 













RCI5<i 



3. SOME AfllThMETIC 

IIPEPATICAS RECLIPE 

A STANDARD TYPE QF CPERANC PEGAPOLESS CF THE PPEVICUS OPERATICN. 


Ttl 

5 J^CLLCIS^LG^ 

MANTINC OP 

AND 1A0 REQUIRING 

TP. 














Q1S7 

Rtf 

L_ 


6 16A 

_J1 437A C PLSHLP 

CAF 

OCT23 


IF THE LON 5 EITS CF CVR ARE LESS THAN 

_ Olie 

REP 

n 

LAST 107? 

6 165 

7 0020 1 

MASK 

CYP 


20. THIS CP REQUIRES SPECIAL ATTENTION. 

_ _Q.l59 

fifF 

1 


6 166 

6 6171 C 

AO 

-OCT 10 


(NO -01. 

— OlfcC 

REP 

_2Ji_ 

last 107 E 

6167 

1C OCO C 

CCS 

A 



uiei 

PEP 

1 


6 170 

1 62C2 C 

TCP 

REGUP 


FOP ALL COOES GREATER THAN OCT 7. 











d 162 




6171 

77767 1 -CCTIC 

- QC T, 

-10 




Qifc3 

REF 


LAST ion 

6172 

6 6061 C 

AO 

NFG? 


f»£ NCh HAVE 7 - CP COOEIMOCA). SEE IF 

aitk 

R£F 


LAST 108C 

6173 

10 COO c 

CCS 

A 


THE CP CODE (MCC?» IS THREE (REVEHSEJ. 


REF 

27? 

LAST lOdC 

6 1 7^ 

5C OCO 1 

INDEX 

A 


NO - THE ^'OCE IS DEFINITE. PICK UP THE 

gi6t 

Rtf 

1 


6 175 

<« 6213 C 

cs 

N G • In C S 



QU7 

-REP 

L_ 

LAST 108C 

6176 

1 62C^ C 

TCP 

REGUP ♦2 




u 16U 

REF 

5 

LAST 

10 7 5 

6177 

5C 163 

C 


INDEX 

HOOF 

FOR VXSC ANC V/5C HE WANT 

THE REQUIRED 

C169 

-REP 

L_ 



__ 6200 

A 62 11 

I 


CS 

R eve NT 

PUSHLCC DECREMENT WITHOUT 

CHANGING THE 

ul7C 

REF 

3 

LAST 

lOdC 

62C1 

1 62CA 

c 


TCP 

PEGUF 

MODE AT THIS TIKE. 















Q17i 

REF 

fi_ 

LAST 


6202 

_50 163 

c 

REGUP 

INDEX 

MODE 

MOST ALL CP COOES PUSHUP 

HERE . 

0172 

REF 

2 

LAST 

loec 

62C3 

A 6213 

c 


CS 

NO.NCS 



0173 

PEF 

1 



6 20 A 

26 166 

1 

♦ 2 

AOS 

PUSH ICC 



017^ 

REP 

13 

LAST 

„m7e 

6205 

5A 116 

c 


TS 

AOOP KC 



C175 

REF 

22 

LAST 

loec 

62G6 

50 020 

c 

1 TH lA 

INDEX 

CYP 



0176 

REF 

6 

LAST 

107? 

6207 

7 62A2 

1 


7 

INDJUMP -1 

(THE INDEX makes THIS A TCF.I 














C177 





621C 

OOOC2 

c 


UCT 

2 

REVERSE PUSHUP DECREMENT. 

VECTOR TAKES 2 

0176 





6211 

0G0O6 

1 

REVCNl 

OCT 

6 

WORDS, SCALAR TAKES 6. 


Cl 7? 





6212 

C00C6 

1 


OCT 

6 



0180 





6213 

C00C2 

c 

NC. ADS 

OCT 

2 

CCNVENTICNAL DECREMENT IS 

6 WORDS VeCTCF 

0161 





6 2 1 A 

00UU3 

1 

CCTAL3 

OCT 

3 

2 IN CP, ANC 3 IN TP. 


0182 





6215 

C00C6 

1 


oct 

6 
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PaiA2 ~~ ~ JiSLJME^^CtNU PREFIX BU TC SEE IF THIS iS A MU_C ELlANLCt S CR i UNARy/SHC«1 SHIFT qP£fl«TR'N. 

GIBS - fl-EP 23 L AS T IQftJC LZlh 10 Q2Q 1 CPJUMP? CCS CYR TEST SECOND PREFIX BIT* 

ait>6 a_Et___J 6217 1 6232 C TCF GPJLP P3 TEST TH IRD BIT TO SEF IF IjNARY OR SHIFT, 


■ GUJ 6220 7772? C -FKCVAC Il££^ ^ 

RUlfliB TtE FCLLChlhG ftatllJlE PROCESSES AOOBESSES OF SUFFIX CLASS 10. THEY ARE aASICALLV MGRK AREA ACORESSES 

JUUJlC lA Jht RtSQP a - 52. ERASABLE ECAUR CChSTAKTS FRQH lOQ - 3777, AND FCADRS ABCVE THAT, ALL IS BITS ARE AVAILABLE 
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REF 

14 

LAST 1Q7B 

6221 

2A 164 1 

15BITADP INCR 

LOC 

(ENTRY 

HERE FROM STCALD# 

01^4 

R£f 

15 

LiSl IQQI 

„J).222 

5C_ 164 1 

INDEX 

LOC 

PICK UP 

ACCPESS KOPO. 

JliSS 




6223 

.3 OiiQQ 1 

CA 

0 



0196 

REF 


LAST 66 

622^ 

34 117 1 

LI — ■■ 

RCUSH 

hE may 

NEEC A SU6AD0RESS LATER. 


6225 2 ^750 1 C AF L0W742K ^TFESE INSTRUCTIONS ARE IN BANK 1. 

6226 5A OCA 1 15 FBANK 

6227 7 0020 1 MASK CYP 

6230 5C OCO I ITP? INDEX A 

t>231 1 630A C TCF MjSCJUMP 


U1S7 

J?Ef 

1 


Gisa 

REF 

13 LAST 107e 

C15S 

PiF. 

24 

LA5.T loei 

C200 

REF 

’2IC 

LASI 108C 

Q2U1 

REF 

L_ 



CAg-1 


F _R^VJAlDh 211 rP ARC PUCHRAM tQLCSSUS BY NASA 2Q211il~C31 


lil7 />UC. 2A*19€e SATRAP .004 PACF IS 


iMEflPitEliiL 


p*ce NO 


EO S3 


£0202 


0203 


OliP.AlCMhG Qf l.JS^£Y ANC SHORT SHIFT CPEF/kTICNS. 


All U LAST lOai 


iOll 5^ CC4 I GPJLRP3 T 


r 


f RANK 


RQ2Q4 
0205 
02QjCl 


0?0B 


021C 

0211 


0212 


LlRACl LAI R£f£i<^10 "j; £2gJl Pi" . 

il LAST igil _ ^ 6233 IC C20 1 

KLf 2 61 L#ST 108 1 623A 50 QCQ 1 


CALL IH BANK 0 IBITS 11-15 OF A ARE C 


CCS 


CYP 


INDEX A 


TEST TH IRC P REFIX BIT. 

THE CECREREMED UKARY CODE IS IN BITS 


C2CT A£F 


1 


6235 1 2000 1 


TCF 


UNAJLPP 


l-<f CF A (ZERO, EXIT, HXS BEEN DETECTE 


■ELEf 


2 LAST IQBC 


6236 10 163 1 


c2CS PfcF 


1 


MODE 


6237 1 2C17 1 


TCF 


SHOP IT 


ITS fl SHORT SHIFT COPE. SEE IF PRESENT 
SCALAR CR VECTOR. 


REF 


2 LAST 1082 


62A0 1 2017 1 


TCF 


REF 1 


0241 1 2121 C 


TCF 


shurtt 

SHCRTV 


CALLS the APPROPRIATE ROUTINE. 


RFF 


1 


4364 


0213 REf 22 LAST 297 


6242 


FBANKPSK EQUALS HANKPASK 

C0I22 C LVBLF AORES VBCF 
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USER'S PAGE NC. 13 EO S3 








_ PU21<i 



!iX:_LS Ill£_211£P_ TABLE FCft_i:f 

CODES 

WHICH PAY 

MVl.lhDEXABLE ADDRESSES Cfl PAY PUSH UP. 


021^ 

at# 

4_ _ . 

JL C INDJLPP 

TCF 

VLDAC 

00 - 

LCAC HPAC WITH A VECTCK. 

■Jill 

fiif- 


J^lk^ a TQ^O C 

TJCF 

. TAt! 

.... _.Q.l. - 

triple PRECISION ADO TO MPAC. 

OPlfi 

fill 

1 

62^5 1 7624 1 

TCf 

•i IGN 

02 - 

CCPOLEPENT HPAC IV OR SC » IF X NEC. 

£3219 

Mtf 

1 

6246 1 7350 1 

TCH 

YXSC 

03 - 

VECTOR TIMES SCALAR. 

C220 

Rif 

1 

6247 1 6652 1 

TCF 

CGCTC 

04 - 

CCPOLTEO GC TO. 

0221 

A^f 

2 LAST 396 

6250 1 6437 C 

TCF 

TLC/C 

05 - 

LOAD MPAC WITH TRIPLE PRECISION. 

L222 

Atf . 

__J 

6251 1 6021 C 

TCF 

OLOAC 

06 - 

LOAD MPAC WITH A CP SCALAR. 

G223 

PEF 

1 

6252 1 7573 C 

TCF 

V/SC 

07 - 

VECTOR DIVIDED BY SCALAR. 


n224 

Rf f 

_J 

6253 

_X- 

6450 

1 

TCF 

SLG A C 

10 

- 

LCAO MPAC IN SINGLE PRECISION. 


C225 

R£f 

1 

6 2 54 

1 

6567 

1 

TCF 

SSP 

1 1 

- 

SET SINGLE PRECISICN INTO X. 


0226 

REF 

1 

6255 

1 

6472 

1 

TCF 

POOL 

12 

- 

PUSH CCWN MPAC and RE-LOAO IN DP. 


Q227 

REf 

_! 

6256 

1 

7303 

1 

TCF 

HXV 

13 

- 

MATRIX post-multiplied BY VECTOR. 


022 fi. 

.REF 

1 

6251 

1 

6526 

1 

TCF 

POVL 

14 

— 

PUSH nCWN AND VECTOR LOAD. 


Q22S_ 

R tF... 

X 

6260 X 

6575 

\ 

TCF 

GCAL L 

15 

- 

CCMPLTED call. 


0230 

— &££ 

_1 




1 

TCF 

VXM 

16 

— 

MATRIX PRE-MULTIPLIED BY VECTOR. 


.0231 

REF 

1 

6262 

1 

7565 

I 

TCF 

TSLC 

17 

- 

NORMALIZE M3AC (SCALAR ONLY*. 















0232 

RFF 

_1 

6263 

1 

_714X 

i 

TCF 

CMPR 

20 

- 

OP MULTIPLY AND ROUND. 


0232. 

REF 

X . 

6264 


7546 

C 

TCF 

OOV 

21 

- 

OP DIVIDE BY. 


0234 

REF 

^ 

6 26 5 

i 

.7552 

c 

Tcr 

dOCV 

22 

- 

CP DIVIDE INTO. 


0235 

R£F 

-J 

6266 

1 

7570 

0 

TCF 

GSHIFT 

23 

— 

GENERAL SHIFT INSTRUCTIUN. 


02.36 

REF 

1 

6 267 

1 

672C 

c 

TCF 

VAC 

24 

- 

VECTOR ADD. 


0237 

REF 

1 

6270 

1 

6 716 

c 

TCF 

VSL) 

25 

- 

VECTOR SUBTRACT. 


Q23B 

REF 

_x 

6271 

1 

7005 

1 

TCF 

evsu 

26 


VECTCR SUBTRACT FROM. 


0239 

REF 

1 

6272 

1 

7300 

1 

TCF 

OCT 

27 

- 

VECTCR OCT PRODUCT. 



Q24Q 

—REF 

_X 

6273 

1 

7427 

C 

TCF 

VXV 

30 - VECTCR CROSS PRODUCT. 

- _.il241 

REF 

1 

6274 

1 

7374 

1 

TCF 

VPFC J 

31 - VECTCR PROJECTION. 

0242 

REF 

1 

6275 

1 

6 754 

c 

TCF 

DSU 

32 - CP SUBTRACT. 

C243 

REP 

_x 

6276 

X 

7031 

c 

TCF 

60SU 

33 - OP SUBTRACT FROM, 

0244 

REF 

1 

6277 

1 

674^ 

1 

TCF 

DAD 

34 - CP ADD. 

C245 



6300 

1 

63C0 

c 

TCF 


35 ' AVAILABLE 

0246 

PEF 

_x 

62C1 

\ 

7541 

1 

TCF 

DMPl 

36 - CP MULTIPLY. 

C247 

REF 

1 

6302 

1 

7562 

c 

TCF 

SETPC 

37 - SET PUSH DCWN P01NT6M (DIRECT ONLY] 


RQ2^6 CCCES 10 ihC lA MIST NOT PlSH UP. CCC£ C<. MAY BE USED FDR V^CTCf^ DECLARE BEFCHE PLSHUP IF DESIPEO> 


J 
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^ ^ m ■ 

X 

lAlEfiPFETEP 

USER • S 

PAGE 

NC. 11 

EO S3 

f " , 

, ^ ♦ 


PQ25Q TfcE-FCLLtftlhG JUfP T^BLE APPLIES TC U.CeXi e«4NCH, 4KC H 1 SC EL LANECU S INSTRICT ICNS. 


tr 

0252 

— M If 

1 

6 30 3 

1 23 71 


l<15CJyMP TCP 

_AAT 

00 

• 

ADDRESS TO INDEX TRUE. J 


J125l3__ 

Rtf 

jk 

.6^104 

1 23 76 

je_ 

TCF 

AXC 

01 

• 

ADDRESS TO INDEX COPPLEMENTED. 


125 <1 

REF 

1 

6305 

1 _2ACl 

1 

TCF 

LAA 

02 

- 

LCAC index FRON CRASAetE. 


np»i^ 

flFf 

1 

6306 

1 2AC5 

_c_ 

TCF 

LXC 

03 

«P 

LOAD INDEX FRCP CCPPLEMENT OF ERAS, 


Q256 

REE 

% 

6307 

i 2A 1 1 

c 

TCF 

SXA 

04 

— 

STORE INDEX IN ERASABLE. 


u257 

REF 

1 

6310 

1 2A17 

c 

TCF 

XCHX 

05 

— 

EXCHANGE INDEX mITH ERASABLE. 


0258 

REf 

i 

6311 

__L 2433 

c 

IGF 

INCR 

06 


INCREMENT INDEX REGISTER. 


0255 _ 

REF 

i 

6312 

1 2442 

0 

TCP 

TlX 

07 

- 

TRANSFER ON INDEX. 














0260 

REP 

1 

6 313 

1 242 5 

1 

TCF 

XAD 

1C 

• 

INDEX REGISTER ADC FROM ERASABLE. 


02G1 

REF 

1 

6 3 1 A 

1 2436 

c 

TCF 

xsu 

11 

— 

INDEX SUBTRACT FROM ERASABLE. 


0262 

REF 

L 

6315 

1 2514 

1 

TCF 

BZE/GCTC 

12 

- 

branch zerc and GCTQ. 


0263 

REF 

1 

6316 

1 2521 

1 

TCF 

3PL/ EPN 

13 

— 

BRANCH PLUS AND BRANCH MINUS. 


:J264 

REF 

1 

6317 

1 24 74 

c 

TCF 

F TO/ EFIZ 

14 

- 

RETURN TO BASIC AND BRANCH HI ZERC. 


0265 

REF 

1 

6320 

1 2534 

c 

TCF 

CALL/ITA 

15 

- 

CALL AND STORE QPRET. 


0266 

REF 

1 

6321 

1 2 543 

c 

TCF 

Sw/ 

16 

- 

SNITCH INSTRUCTIONS AND AVAILABLE. 


0^67 

REF 

1 

6322 

1 25C4 

c 

TCF 

0OV( B) 

17 

- 

BRANCH ON CVERFLOW TO BASIC OR INT. 


BPWKtnh 211 fP &f,e Pkrr.R^M COLCSSLS ay JkASA 2Q2Iill-C31 1:1? ALG. 24.19t>j SATRAP .004 P40E IQ%1 


IlilE*fX£ltR 


USE«*5 PAGt NC. 12 


Eg_ S3 


J=Q26fi 



IFE FCLLCWIRG JUFp 

TIBLE JiPPJEi 

TO UNARY INSTRUCT! CFS, 















— - - 


L 




COUNT 

CO/1 NTFR 




Q27Q 



CO, 2000 



BANK 

0 

00 


EXIT - DETECTEO EARLIER. 

0271 

flEf 

1 

C0.2CQ0 

1 320 7 

C 

LNAJLNP TCP 

SORT 

01 

— 

SQUARE RCOT. 

£i272 

afi_ 

_ 1 

j:o,20oi 

1 352 7 


TCF 

SINE 

02 

- 

SIN. 

0273 

REf 

1 

. ^ CCLtlCC2 

1 3516 

1 

TCP 

COSINE 

03 

- 

CCS. 

027^ 

ftEE 

1 


1 360? 

1 

TCP 

AFCS IN 

09 


ARC SIN. 

- 0275 

REf 

L 

CC.200A 

1 36U 

C 

KF 

ARCCCS 

0 5 

- 

ARC CCS. 

g27<! 

REF 

1 

C0,2009 

1 3179 

1 

TCP 

DSC 

06 

- 

OP SQUARE. 

027? 

REF 

L 

CC,2QC6 

1 2116 

1 

TCF 

ROUNC 

07 


RGUNC TO CP. 












0278 

REF 


CC,2Cv7 

1 763? 

c 

Top 

CORF 

10 

- 

CG^PLERENT VECTOR OB SCALAR. 

0279 

REF 

L 

OQ.2010 

I 3232 

_I 

ICF 

VOEF 

_ _ll 

— 

VECTCR DEFINE. 


JJi 

-1 

- CQt20Ii 

1 302 3 

1 

TCF 

UNI T 

12 

— 

UNIT VECTOR. 

^Q2 111 

REF 

1 

Q0f20A2 

1 3176 

c 

TCF 

A6VALABS 

13 

— 

LENGTH OF VECTOR OR RAG CF SCALAR. 

0282 

REF 

L 

00.2013 

i 3295 

c 

TCF 

VSC 

19 

— 

SQUARE OF LENGTH CP VECTOR, 

0283 

BE F 

1 

CO, 2019 

1 6323 

1 

TCF 

STADF 

15 

- 

PUSH UP CN STORE CODE. 


C289 

REF 

1 

CO, 2015 

1 3279 I 

TCF 

BVO 

16 * RETURN VIA QPRET. 

11 

REF 



00,2016 

1 3297 1 

TCF 

PUSH 

17 - PUSH RPAC DOWN. 
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PQiefc -iijCJLXCJi 2^ LLIC AALJSlCflE PACKAGE. ~ " 

HQ2fl7 ^ 5LT DF~£1CHT STCRE CCCES IS PRQVlCEC AS THE~F^/>PY HETHCC CP STCPING THE >*ULT I-PUP POSE 

JU12B9 ACCLMLJKP IJiPACK If I N THE bilNZlC, SHTIQilJLOC RfcfCRS Tt AN Al GE BR A I CALLY PCSITI VE WORD, IT IS TAKEN AS A 
RQ291 SURE CCCE iilT h A CCR PESPCNDlhG EHASAELE ApCRESS. M05T CF THESE CODES APE TV. C AOORESSt SPECIFYING THAT THE NOHO 
FLLLChlAG THE STORE CCCE IS TC BE USEE AS AN ADDRESS FROM NH ICH TO Rf-LGAC MPAC, FCtR OPTIONS AKE AVAILABLE? 

Ra295 STCRE sfCRE PPAC. THE £ ADDRESS HAY BE INCEXED, 

RQ297 2. STCDL STORE PPAC AND RE-LCAD IT IN CP WITH THE NEXT ADDRESS ITHE LOAD HAY BE INCEKED)* 

_R0299_ 3, STCV L STORE PPAC AND RE-LOAC A VFC ICR US ABOVE). 

R030I A. STCAU STCRE ARC DC A CALL (BCTH ADCRESSES NIST BE DIRECT HERE ). 

SQ3Q3 STCDL ANC STC VL NlLL TAKE FRCP THE POSH-DQNN LIST IF hC L OAD ADDRESS IS GIV EN. 


Q3C5 





6323 




BLOCK 

3 














LJ3QA 

REE 

m 

4- 

LAST 

107 A IC 

icasi 

iLi 2C5A 


COUNT 

03/IMER 














Q307 

REF 


LAST 

107 5 _ 

6323 

3 0165 

C 

stadr 

CA 

BANK SET 

THE STADR CEDE (PUSHUP UP ON STORE 

03CS 

-R-Bi 


LAST 

1062 

632A 

5A 0C4 

1 


TS 

F BANK 

ADDRESS) ENTERS HERE. 

0309 

REE 

L6 

LAST 

1031 

6329 

2A 16^ 

1 


INCR 

lgc 


G310 

R EE 

17 

LAST 

108 C 

6326 

SC 16^ 

1 

ITRl 

INDEX 

LOC 

THE STCR6CCC6 NAS STORED CC»‘PLENENTED TC 

0311 





632 7 

^ 0 0 C 0 

Q 


CS 

U 

MAKE IT LOOK LIKE AN OPCODE PAIR. 

0312 

REF 

23 

LAST 

1064 

633C 

6 7716 

c 


AO 

F.xGCNE 

(YUL CANT REMCVE 1 BECAUSE OF EARLY CCS) 













0313 

REF 

_iA. 

LAST 

108 C 

6331 

54 116 

c 

CCSTCRE 

IS 

ACDRNC 


03U 

REF 

7 

LAST 

37 1 

6232 

7 A372 

1 


PASK 

LONl 1 

ENTRY FROM CISPATCHER. SAVE THE ERASABLE 

0315 

REF 

15 

LAST 

1086 

6333 

56 U6 

1 


XCH 

A OCR VC 

ADDRESS AND JUHP ON THE STORE CODE NC. 

0316 

REf 

L 



633A 

7 7671 

1 


MASK 

B12T U 


0317 





6335 

C C0C6 

1 


EXTEND 



0316 

REF 

28 

LAST 

lOlC 

6336 

7 ^t7C6 

c 


MP 

tslT5 

EACH transfer VECTOR ENTRY IS ThO NORCS. 

0319 

REF 

.111. 

LAST 

1062 

6337 

5C OCL 

1 

ITRO 

INDEX 

A 



032 0 REF 1 fc3A0 \ 63AI C TCF 


STOP JLPP 
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__S1QR£ COCE ^OMP lAliLE* CALLS 

THE APPROPRIATE 

5TQRINf RCUTIAE ANC EXITS TO DANZIG CR TO AOOPESS VITH 


RQ323 

A iLPfLlEC OPERA? ICh 

caoE. 













iUli221 



ilCilE STXJ*! 

.1 ANC STCRE.2 PeiLPh K CANZIG, THUS PESETTIKG THE EEANK IQ ITS STATE AT INTPRET. 










- 

C224 


u 


63A1 Q fe37i 

1 

.JJTQRJLRP TL 

STORE STCRE, 

C32S 

REF 

s 

LAn 751 

6342 i 6Q3Q 

C 

_ TXF 

OANZ IG PICK LP NEK OP COOEfSl. 


UJ26 

RIF 

1 


6143 0 6363 

1 

TC 

STCRE.l 


a32 7 

BEF 

IQ 

Li5T IQtf 7 

6244 1 6030 

c 

1C F 

OANZ 10 


03ie_ 

PEF 

1 


6345 0 6366 

1 

TC 

STCR E,2 


0329 

BEF 

11 

L/ST 1007 

6346 1 6030 

c 

TCP 

OANZ IG 



11330 

REF 

2 

iiSI 

laai 

6347 

0 6371 1 

TC 

STORi 

STCOL. 


0331 

REF 

1 



63 50 

1 6427 1 

TCP 

OOOLCAD 


- - - - -- — 











--0332 

REF 

2 

J^SJ^ 

iQJi - 

— JlH 51 

0 6371 1 

TC 

STORE 

STCOL KITH INCEXEO LCAC 

ADDRESS. 

0333 

REF 

1 



635? 

i 6113 C 

TCP 

OODl CAO* 














11334 

REF 

4 

LAST 

1081 

6253 

0 6371 1 

TC 

STOR £ 

STOVL • 


Q335_. 

REF 

1 



6354 

1 6432 C 

TCP 

DOVLCAD 




J13ifc 

REF 


LAST 

108? 

6355 

0 6371 1 

TC 

STCR E 

STOVL rtITH INDEXED LCAC 

ADDRESS. 

0337 

RtF 

1 



6356 

1 6435 1 

TCF 

OOVLCAC* 



0338 

REF 



103? 

6357 

_C 637 L I 

TC 

STCRE 

STCTC, 


0 319 

REF 

1 



6 360 

3 4723 C 

CAE 

CALLCCCE 



0340 

REF 

26 

LAST 

1062 

636 1 

54 020 1 

TS 

C YR 



034 J 

REF 

1_ 



6362 

1 6221 1 

TCF 

15brTACR 

GET A 15 an ADCRESS. 



QAPi CP PHCGRAM CQLCCSUS BY NASA 2u211iI-L31 It IT AIQ» SATRAP ,004 PACE IQB6 

L IMt&iMIift ^ L SER’S PAC& NO> 15 EO S3 


jPC3h2 ilClRE CCCE ilLCflESS Pf>CCESSOPt 


034? 

Si^f 

21 

1.151 

lu7fl 

l»3fc3 

5C 120 

\ 

STORE. 1 INDEX 

FIXLCC 



PEP 


.u ii 

icLie 

636A 

4 0C46 

1 

CS 

XI 

n 

_ Q3A5- 

Pll_ 

X- 



6365 

. 1 6370 

_1 

TCP 

PPESICBE 



..■1346 

REf _ 

^2 

X15T 

lasLfi . 

6366 

50 120 

1 

STQftEA2_ INDEX 

r rxL cc 


03^7 

PtP 

4E 

LtfST 

8 e 7_ 

6 367 

4 CC47 

( 

CS 

X2 


03^5 

REP 


LIST 

1081 

6370 

26 116 

C 

PPESTCRE AOS 

ADDR^L 

RESULTANT ADDRESS IS IN ERASABLE. 


CJ49 

PEE 

J1 

LASl 

lOflE 

6 271 

4 i;Ll6 

c 

5TCLPE iLX 

ACDPV>C 


i13 5Q 

REP 

2_ 

_LiiI 

93 E 

6372 

6 4727 

1 

AD 

DEC45 


0351 

REP 

ii2 

L^ST 

i U 8 6 

6373 

10 000 

c 

CCS 

A 

DOES THE ADCRESS POINT TO THE NORK AREA? 

0352 

REP 

i2 

L^ST 

ioee 

6374 

3 012C 

I 

CA 

PIXLOC 

YES. 

C353 

REP 

L- 



6375 

1 6402 

c 

TCP 

AHEAC5 


__fl354 

REf 

5 

L/»5T 

.10 7 a _ 

6376 

3 4 744 

1 

CA 

tCTl40C 

NO. SET EfiANK C MAKE UP SUBACORESS. 

0355 

REF 

lb 

L^ST 

10 a E 

6377 

56 U6 

1 

XCH 

AOOK^C 


C356 

REP 

_41_ 

L/ST 

1Q7E 

6400 

54 0C3 

( 

TS 

EbANK 


. 0357 

RPF 

1C 

L^ST 

1076 

6401 

7 4373 

c 

MASK 

LOW 8 


035b 

REf 

IS 

L/ST 

10 8 8 

6402 

26 lit 

c 

1HEAD3 AOS 

ADOI k«C 
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t fit tail iiSe«*s PAot no. i* ec i3 

^ nOPlhC fiCLllhES. SlLht DP* IP* OR VECTOR A Su INI) ICifi ItC ,6 V PiLCE, ZZ 





6^03 

0 0006 

_L_ 

STAPTSTQ 

EXTEND 

MPAC.+l BIST bE STOHEC IN ANY EVENT. 


fi-03oi 


_ IJRfitLt 151 flEFERi IE 

"STM IS 1C 

•» ^ 




Q162 

Ri±.2^2 

Eiil 1Q71 

641)9 

3 Ci55_ 

C 


DC -A 

NPAC 




ftif 2M LAST loae 

6405 

5C 116 

.x_ 


INDEX 

ADDfthC 


oat 4 



64C6 

52 ILtl 

1 


OXCH 

0 












0 36 5 

BBf a_ 

1 i s T 1 g fl ? 

6 407 

_lll 163 

1 


cc s 

MODE 


C366 

BIF 1 


6410 

1 6423 

c 


TCF 

TSTCHE 


flat? 

Ptf 2it 

LAST IQ 7 3 . 

tAll 

0 OOC2 

( 


7C 

Q 















A412 

0 GOflO 

i 

vstcrl 

EXTEND 



0369 

RI i li3 

L7SI i0fi5 

6 413 

3 OltC 

c 


OCA 

KPAC *3 


tijiTu 

atf ;i 

LAST loas 

6,4.14- 

_5C 116 

1 


INDEX 

ADLPfiC 


C311 



6 415 

52 003 

c 


CXCH 

2 
















__6_416 

fl DOLL 

1 


EXTEND 



Qi.7a 

iLEf 2^^ 

LAST 1069 

A417 . 

Jl 1 62 

J 


OCA 

HPAC +5 


fl3 7^ 

B6f i2 

LAST IflflS 

64«C 

5C 116 

1 


INDEX 

ACDPfiC 


0375 



6431 

32 CCS 

c 


OXCH 

A 


alb 

Jff -21i 

__LJS1 

-6,422. _ 

jLoaca 

c 


TC 

Q 












Q171 

xtFf 2SB 

LAST loas 

6423 

3 0156 

f 

TSTCHfc 

CA 

HPf>C +2 


0376 

P-tf_ .13_ 

LAST 10B9 

6 4i4 

SC 116 

1 


INDEX 

ACO(' fiC 


0379 



6425 

54 0C2 

1 


TS 

2 


C3BC 

PEf 21C 

LAST IQdS 

6A2jt_ 

G 0CC2 

_£_ 


TC 

e 
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PXaiil- JtL.llA£5_l£^££Qlfc. PfiCC£SilM .CE- 1 Hi ittCNO ADDRESS ASSCCtATEC WITH ALL SJORE-TYPE COOES EXCEPT STCRE 

RQJ£3 nSELf . . 


illEA 

JEf 

_1_ 


fiAZl 

1 T7CL C 

CCLLCAO CAP 

DLCACCCC 



U36!: 

REf 

21 

LAiT XCil 

6 Aik 

lA OiQ. 1 

TS 

CYF 





REE 

L_ 


6A31 

_X 4055 C 

TCP 

D1RACP4S 

CO GET A 

CIPECT ADDRESS. 













L 


feA12__ 

a A67A C 

CCVLCAO CAP 

VLCACCCC 




— ■B.Ef. 

2R 

LiST iQqc 


54 020 1 

TS 

CYP 



L369 

. _EiF 

1 


6A3A 

1 4055 C 

TCP 

OIRALRES 













Q3QQ 

REP 

L_ 


6A35 

3 6056 1 

LOVLOAD* CAP 

VLCAC* 



Q 3 9 1 

REF 

1 

kAST ipei 

6A36 

1 4114 1 

TCP 

DOULCAC* ♦! 

PflCLCGLE 

TC INDEX POLTINE. 


QLPl 
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111 

FCLLlhlNt 

LUAC I\SlRU£TIChS 

AHE 

PROVIDED FOR LCACINC THE 

Poll I-FUPPGSE ACCLPULAIOR MPAC. 

















ME 

- 14 ■ 

-■ LASX 

lOfiS 

44^7 

5C life 

_1 

TLCAC 

INDEX 

ACDAiiA 



QA95 





_44AQ 

J3 COOi 

C 


CA 

2 . 

LCAC A TRIPLE PRECISION ARGUMENT INTO 

_£liiA 

_ Jill 

246- 

LiST IQBS 

_ 6441 

14- lie 

1 


IS _ 

-MPAX *Z 

TFE FIRST THREE HPAC REGISTERS. 

NlTh THE 

035»7 





6442 

Ci QQ06 

J 


ex TEND 


CONTENTS OF THE CTHER FOUR IRRELEVANT. 


Hit 

21 

LIST 

109 1 

6443 

5 cue 

1 


INDEX 

ALD(< VC 



C3SS, 





6444 

3 0001 Q. 


OCA 

0 



GACO 

HEf 2<1 

ljLAS.1. 

-1091 

6445 

52 155 

J_ 


CXCH 

MPAC 



OAOl 

BEE 

122 

L/IST 

1055 

6446 

3 4712 

\ 

TftODE 

CAF 

ONE 



- Q^QZ 

ft £ f 

1 



6447 

1 6027 

c 


TCF 

NtUPCCE 

CECLARE TRIPLE PRECISICN MODE. 















OACU 





6450 

22 (ICl- C 

SACLAO- 

2L 


LCAC A SINGLE PRECISION NUMBER 

INTO 

_ _ Q404 

ft 11 

It 

J^ilSJ 

2U9 1 

6A51 

-10 lUi 

1 


INDEX 

ADOR VC 

MPACf SETTING MPAC-U,2 TO ZERO. 

THE 

OAXLS— 





6452 

3 OOCQ 

1 


CA 

-0 

CONTENTS CE THE REMAINING MPAC 

REGISTERS 

0406 

REF 

1_ 



-Jt45.a__ 

A 6024 C 


TCF 

SL0AC2 

APE IRRELEVANT. 















040? 





ij4 54 

0 0006 

1 

VLDAD 

EXTEND 


LCAC A DOUBLE PRECISICN VECTOR 

INTO 

_Q4ca 



list 

1091 

6455 . 

5 0U6 

1 


INDEX 

ADDF VD 

MPACf^lf MPAC'»>3t4f AND MPAC-t-if^ 

. THE 

C4C9 





6456 

3 0001 

c 


DCA 

Q 

CONTENTS CF MRAC >2 ARE IRRELEVANT, 

04 1C 

REF 

246 

-lis I 

1Q91 

6457 

_12 155 

1 


OXCH 

HPAC 
















04il 





6460 

0 0006 

1 

ENOVLCAO EXTEND 


PCVL COMES HERE TO FINISH UP FOR DP, TP, 

J412 

REF 

m ^ 

11 SI 

1091 

646 1 

5 0116 

1 


INDEX 

ADOPVt 



^(J4L3 





6462 

3 G0C3 

1 


DCA 

2 



0414 

REF 


L^ST 

1091 

6463 

52 UO 

1 


OXCH 

HPAC +3 
















Q<tl5 





6464 

0 0006 

1 

+4 

EXTEND 


TPDVL FINISHES HERE. 


0416 

ft If 

is 

_Li SI 

109 1 _ 

6l4<l5 

5 0116 

1 


INDEX 

ADDP VC 



0417 






3 00C5 

1 


OCA 

4 



0416 

J1£F 

icc 

L4ST 

1091 _ 

6467 

52 162 

c 


OXCH 

HPAC +5 




G419 

—BUL 

124 

.„US1 

1Q9 1 

2i47C 

4 4712 

c 

VftCCE 

CS 

ONE 

OeCLABE VECTCR POOF. 


0420 

ft.EF 

i 

UST 

msi 

647_i_ 

-J- 60.2? 

c 


TCF 

NEHPCOE 
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Pa^^LL - IhE FiXLChlhG INSIRICTICKS ARE F^^VICEt FM STCAINO CPERA^CJ^JN THE PUS.HCCWN LIST: 


L, PLSH PUSHCCWh ANX NO LQAC. 

Ail4^ 2.4 RCQi PUSHUC HK fihC CC UtlLE PRECIS I C N LCACj 

Jli342^ I 4 PiM. PUSmC.kN.MC VECTOR tOA^Di 


QkZL _ .44.12. 0 POOL EXTENO 


i3A27 

Jitf_ 

14 

LAil 

J49 1 

6473 

.5 QU6 

1 

INDEX 

ACCRVC 

LOAD HPACt+li POSHING 

THE 

FORMER 

042 fl 





6AL4 ■ 

3 0001 

c 

DC A 

0 

cqntMts dcwn. 



C42S 

REf 

3C1 

LAST 

109 1 

6475 

52 155 

1 

OXCh 

NPAC 




UA30 

REF 

2_ 

LAST 

108 C 

6476 

SO 166 

c 

INDEX 

POSHLCC 




Q±1L- 





6477 

52 001 

} 

DXCH 

e 

















0432 

R£F 

9 

LAlLJiial 

454Q 

10 1.63 

c 

INDEX 

HDD E 

ADVANCE THE POSHOOWN 

POINTER APPRC- 

0433 

REF 


LAST 

i08C 

6501 

3 6213 

1 

CAF 

N C • M C 5 

ppiately. 



0434 

REF 

.3 

EAST 

IQ92 

6502 

26 166 

1 

ADS 

POSHLCC 

















0435 

_R£f_ 

- 1C 

LAST 

1Q92 

o5C3 

10 163 

1 

4C1. 

MODE 




043C 

PEF 

L 



65C4 

1 652 1 

c 

TCF 

ENDTFCSH 




0437 

Kf F 

1 



6505 

1 6517 

c 

TCF 

ENDDPOSH 

















44311 

REF 

._LL_ 

LAST 1092 

65C6 

54 163 

1 

TS 

MCC E 

NON OP. 



0439 

fl£F 

1C2 

LAST 1092 

6507 

54 156 

i 

ENOVPLSH TS 

MPAC *2 




0440 

REF 

JCl 

LAST 

1092 

6510 

52 160 

i 

OXCH 

hPAC *3 

POSH DCkN THE REST OF 

THE 

VeCTCP HERE. 

U441 

REF 

4 

LAST 

109 2 

6511 

50 166 

c 

INDEX 

POSHLCC 




04*2 





6 512 

51*775 

c 

OXCH 

0 -4 

















4443 

N£F 

.144_ 

LAST 

1092 

6513 

52 162 

c 

OXCH 

WPAC +5 




0444 

REF 

5 

LAST 

1092 

6514 

5C 16 6 

c 

INDEX 

POSHLCC 




0445 





6515 

51*777 

1 

DXCH 

0 -2 





. Q446 

REF 

12 

LAST 

108 7 

6516 

1 6cao 

C 


TCF 

DANZ 1C 















0447 

REF 

3C5 

LAST 

109 2 

6517 

54 156 

1 

ENOCPOSH 

TS 

MPAC +2 

SET MPAC *2 TO ZERO AND EXIT ON 

OP. 

044 6 

REF 

12 

LAST 

109 2 

6520 

1 603C 

c 


TCF 

DAF.Z iC 
















C449 REF 

12 

J.A ST 

1092 

6521 

54 163 

1 

ENOlPLSH 

TS 

MODE 



0450 

REF 

3C6 

LAST 

1092 

6522 

56 156 

c 


XCH 

MPAC *2 

CN TRIPLE, SET RPAC *2 TC ZERO, 

POSH INC 

04 51 

KEF 

6 

LAST 

109 2 

6523 

50 166 

c 

♦ 2 

INDEX 

POSHLCC 

OCkN THE DLL CCMENTS 


C452 





6524 

52*777 

c 


TS 

0 -1 



0453 

REF 

14 

LAST 

1092 

6925 

1 6030 

c 


TCF 

OANZ iC 

















p 


tt 


0 
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PXVL - PLihCChN INC VECICJ* LCAC 


C4i5 





6526 

Q QQ06 

_l 

J>CWL 

EXTEND 


PELCIC MPAC AND PUSH OCWN ITS 

CONTENTS. 

Ji456 

KIP 

2J. 

LiSSI 

lim __ 

6327 

5 C116 

1^ 


INOEX 

ADLP^D 



0457 





(lSJjQ 

- j ,caci c 


OCA 

0 



045E 

ftp P 

2C7 

LiST 

1092 

6931 




DXCH 

MPAC 



ja45S 

HEP 

7 

LIST 

1092 

SS12 

3C lit 

C 


INDEX 

PUSH LCC 



Q46C 





6 533 

52 OCl 

1 


OXCH 

0 
















C46I 

Jllf 

13 

LASl 

1092 

6334 

SC 161 

c 


INDEX 

HOCt 

ADVANCE the PUSHDOWN POINTER. 


Q46£ 

BEf 

4_ 

LIST 

1092 

6535 

i 6213 

1 


CAF 

NC.MCS 



CAA3 

Ril 

E_ 

LIST 

1093 

6336 

2t 166 



AOS 

PUSHLCC 
















. U4 44 

PEf_ 

±*L 

LIST 

1093 

6537 

1C 163 

1 


CCS 

MODE 

TEST PAST MCOE. 


0465 

WPP 

L_ 



6940 

A 6557 

1 


TCP 

TPDVL 



C46A 

REP 

1 



6541 

1 6460 

1 


TCF 

ENCV LCAC 

JUST LCID LAST POOP REGISTERS 

ON OP. 














04t»7 





6542 

C QQC6 

_L_ 

VPDVL 

AO END 


PUSHOCHN ANC RE'LOAO LAST TWO 

COMPONENTS 

04t6 . 

Jfef 

22 

J.AST 

10 9 2 

6543 

5 CU6 

1 


INOEX 

AODP WC 



046^ 





6544 

3 C0C3 

1 


CCA 

2 



0470 

PEP 

3ca 

LIST 

1092 

6945 

52 lec 

1 


DXCH 

MPAC +3 



0471 

PEP 


LIST 

1093 

6 546 

50 166 

C 


INDEX 

HUSHLCC 



Q472 





6547 

51' 775 

c 


DXCH 

0 -4 
















-CiLli 





-6.SUQ 

Q 0006 1 


EXTEND 




0^ 74 

PEP 

23 

LAST 

iCL93.. 

6 551 

5 0116 

1 


INDEX 

A OOP EC 



0475 





6552 

_3 0005 

1 


OCA 

4 



04 76 

PEP 

3CS 

LIST 

1092 

6553 

52 162 

c 


DXCH 

MPAC *5 



U477 

PEP 

10 

LIST 

1093 

6554 

50 166 

c 


INOEX 

PUSHLCC 



04 7 8 





_6553 

51'7?7 

1 


DXCH 

0 -2 
















04 79 

RLP 

15 

LIST 

109 2 

6 556 

_1 6030 

c 


TCP 

OANZ IG 
















0480 





655 7 

C 0006 

1 

TPOVL 

exi ENL 


ON TP, WF MUST LOAD THE V COMPONENT 

0461 

HEP 

24 

LIST 

109 3 

6560 

5 C116 

1 


INDEX 

A DDF FD 

BEFORE 5T0PINC MPAC *2 INCASE 

THIS IS A 

. .. .0482 





6 96 i 

3 0003 

1 


CCA 

2 

PLSHUP. 


o*t8J 

REP 

ilC 

LIST 

1093 

6562 

52 160 

1 


DXCH 

MPAC +3 
















0404 

— aki 

311 

LIST 

1092 

6563 

1 0196 

c 


CA 

MPAC *2 



0465 

PEP 

1 1 

LIST 

1093 

6564 

5C 166 

c 


INDEX 

PUSHLCC 

IN OP. 


0486 





6565 

53'777 

c 


TS 

0 -1 



0487 

PEP 



LIST 

1093 

6 566 

1 6464 

c 


TCF 

ENOVLCAD +4 




BQ4 6E 



IIP 

(STORE SINGLE PRECISICNI 


IS EXECUTED 

HERE . 






















0489 

N£F 

18 

LIST 

1066 6567 

24 164 

1 

SSP 

INCP 

LCC 

PICK UP 

THE 

WCRC FOLLOWING THE GIVEN 



C490 

ft tP 

19 

LIST 

1093 6570 

5C 164 

1 


INOEX 

LCC 

ADOPESS 

ANC 

STORE IT AT X. 



0491 




6571 

3 0000 

1 


CA 

0 






U49_i 

PEP 


LIST 

1093 6572 

5C 116 

1 

STCftEl 

INOEX 

ACDHWD 

SOME INOEX 

AND Ml SCELLANECUS OPS END 



0493 




6573 

54 OCO 

C 


TS 


HERE. 
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«Ef Ifc 1A57 iQ9J 


1 fcClQ ( 


TCP 


DANZ iC 




( 


t 


(■ 


$ 



t 





6 


f 


*=a 


* 













1 




' -Ik 

* 


* 



ill 





II 


4 


\ 


A 





i 



I 


I 
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PQ49S SECLE^CE CHANGING i>^C SUBIiCUTlNE CALLlhC LPTICNS, ] ~ 


Tt-F FriifhilUC QPPRA1J.CAS ARE j>\iAALABLE FOR S£CUt:NCiNC CHANGINGi BRANCHING. AND CALLING SLBBOUTlNtS: 


RQ%9fi 



1- 

GOTO 


CO TO. 






fi<-4qQ 



2^ 

LALL 


CALL 

SLEfiCUl INF. 

SETTING QPPET. 



Ri}SilQ 



!• 

CfiOLC 


COPPCTEC CO TQ. 





P05C1 



4, 

CCALL 


CQRPgTEC CALL. 





RQ5C2 



_Z_. 

a£L- 


ER4NCP 

IP MPAC 

POSITIVE 

OR ZERC. 



B0503 




B2E 


8kA^CH 

IF RPAC 

ZERO, 




PC504 



9 . 

BRN 


8RANCP 

IP HP AC 

NEGATI VL 

NDN-ZfPO. 




05X15 

RLE 

2C 

LIST 

1091 

6i5l5 

2 9 169 

1 

CCALL 

INCR 

LOC 

MAINTAIN LOC POP QPRET COMPUTATION 

I. 

-0506 

PEL 

il 

LAST 

10-9 J _ 

6576 

50 169 

_L 


INDEX 

LOC 



06C7 





6577 

3 0000 

1 


CAP 

0 

GET BASF AOCRTSS OF CACR LIST. 


0508 

PEP 

1jE_ 

_LAS1 

10^2 

6tCC 

5C 116 

u 


INDEX 

ADORkC 



Q5JQS 





-6 601 

6 0000 

1 


AU 

u 

ACO INCREMENT. 


csic 

REP 

16 

LIST 


66 02 

59 009 

1 


TS 

F6ANK 

SELECT OESIPEC CAOR. 


0511 

PtP 

16 

LISJL_JyIl_ 

6 6Q3 

7 9797 

c 


HASK 

LOWl C 



0512 

REP 

115 

LA S 1 

10 9L_ 

6 6 

5C OCC 

1. 


INDEX 

A 



0513 





6605 

_A^OC 

c 


CAP 

lOCCC 



OSU 

ALL. 

6_ 

L/>$T 

_1Q1_L_ 

6606 

59 U? 

1 


TS 

POL I SH 
















0515 

REF 

5- 

—LISJL 

10 8 6 

6607 

_J 0165 

c 

CALL 

CA 

BANK SET 

FOR ANT CF The GALL CPTIQNS. MAKE 

UP THE 

0516 

REF 


LAST 

1082 

6610 

7 9369 

c 


MASK 

BANKPASK 

ADDRESS OF THE NEXT OP-CODE PAIP/STORP 

Q517 

REP 

^ 

LAST 

1092 

6611 

6 9369 

1 


AO 

BANKMASK 

CODE AND LEAVE IT IN QPRET. NOTE 

THAT 

OSIB 

aii_ 

22 

LAST 

1092 

6612 

-L 0169 

1 


AD 

LOC 

BANKMASK ^ -(20C0 - 1 » . 


Q51S 

REP 

54 

LAST 

1086 

6613 

50 12C 

1 


INDEX 

FI XLCC 



05^0 

PEP 

1? 

LAST 

79 5 

6619 

59 052 

1 


TS 

QPRET 
















0521 

ALP 

1 

LAST 1095 

6615 

3 Oil? 

c 

GCTC 

CA 

POL I Sh 

BASIC BRANCHING SEQUENCE. 


0522 

REF 

9 

L A S T LQ 7 8 

6616 

7 771 1 

JL 

♦“ 1 

MASK 

HIGH9 



0523 





_6617 

G 0006 

1 


EXTEND 




052<i 

REP 

1 



6620 

1 6631 

1 


BZF 

GOTOEPS 

SEE IF ADDRESS POINTS TO FIXED OR 

ERAS. 

0525 

REF 

■ ■■.6 

LAST 

109 5 

6621 

3 0165 

c 

♦ 4 

CA 

BANKSET 

SET EBANK PART OP EBANK. NEXT, SET 

UP 

>j526 

L£f 

ifl 

LAST 

1Q7 2 

6622 

59 006 

c 


TS 

BEAN K 

F8ANK. THE CCM6INATICN IS PICKED UP C 

052? 

REP 

e 

LAST 

109 5 

6623 

3 Oil? 

c 


CA 

POLISH 

PLT INTO BANKSET AT INTPRET *2. 


0528 

REP 

1? 

LAST 

1092 

6629 

59 009 

1 


TS 

FBANK 



0529 

LLf_ 

17 

LAST 

1095 

6625 

_J 9797 

c 


MASK 

LOMIC 



0.530 

REP 

2 

LAS-T 

1078 

6626 

6 97C0 

1 


AD 

2K 



0531 

REP 

23 

LAST 

1092 

6627 

59 169 

c 


IS 

LOC 



0532 

REP 

2 <8 

LAS! 

1079 

d6 3C 

1 6011 

c 


TCP 

INTPPET 43 




0533 





E3, 1900 




EBANK* 

140C 

SO YUL DOESN'T CUSS THE "CA 1900" 

BELOW. 














0539 

REP 

9 

LAST 

109S 

6631 

3 0117 

c 

GOTCERS 

CA 

POL I Sh 

THE GIVEN ADDRESS IS IN EHASABLE - 

SEE 

u535 

REP 

2 

LAST 

1077 

66 32 

6 6220 

] 


AO 

-ENOVAC 

IF RELATIVE TC THE WORK APEA. 


0536 

REF 

2ef 

LAST 

1092 

6633 

10 OCC 

c 


CCS 

A 



053? 

REP 

10 

LAST 

1095 

6639 

3 0117 

c 


CA 

PCL I Sh 

GENERAL ERASAELE. 


0538 

REP 

i 



6632 

1 6699 

c 


TCP 

GOTCGE 










Purr.RtM rOLQ^SU,* ; t>V MA<; A 2QJ/1111-C31 l;17 ilLC, 2^.19fca SATf^AP .JQ4 P/>GE 1096 

INT gR f PETE P ~ ~ __ US6H» s P^GE NO. 23 E3 >? 


J5a5 

P£F 

2t 

LIST 

IQSi 

<i£i6 

3 0120 

1 


CA 

F IXLCC 

RQPK AREA. 



Q54jy 

PEf 

11 



662 7 

6 CU7 

C 


AD 

POLISH 




il541 

R£f 

1E6 

LiSl 

1095 


5C OOQ 

1 


_lWIi£X 

A 

USE THE GIVEN flCOPESS AS THE ADDRESS 

OP 


05^2 





6 641 

i_ 0000 

1 


CA 

0 

THE BRANCH ADDRESS. 



Jl5^ 

Hlf 

JU^ 

L^SlUQSt . 

6 6 A2 

54 U7 

I 


TS 

POL ISH 




0544 

REF 

L_ 



6642 

1 6616 

1 


TCP 

GCTC +1 

ALLGrS ARBITRARY INDIRECTNESS LEVELS 

• 



0545 

REF 

45 

L/iST 


6644 

54003 

c 

tCTCGE 

TS 

EBANK 




054fc 

RFP 

11 

LAST 

10 6 8 

6645 

4313 

c 


MASK 

Lcne 




- C34 7 

REF 

26 7 

LAST 

1Q5JS 

6 646 

5C 000 

1 


INDEX 

A 

USE THE GIVEN ADDRESS AS THE ADDRESS 

OF 


0546 





6 64 7 

3 1400 

1 


CA 

14C0 

THE BRANCH AOLRESS. 



aiit5 

--REf- 

■ J3 

LAST 

1058 

6850 

54 117 

_i_ 


TS 

PCL I SH 




0550 

REF 

2 

LAST 

IU56 

6651 

1 6616 

1 


TCP 

GOTO ♦! 


















Q551 

REF 

24 

LAST 

IQ9S 

6652 

5C 164 

1 

CGCIC 

INDEX 

LOC 

CCHPUTEO GO TO. PICK UP ADDRESS CP CAC« 


0552 





6653 

3 0001 

c 


CA 

1 

LIST. 



0553 

REF 

27 

LAST 

1095 

6654 

5C 116 

1 


INDEX 

AEDRRC 

ADD RCCIPIER. 



0554 





6655 

6 COCO 

1 


AO 

C 




0555 

REF 

18 

LAST 

109 5 

6 6 5 6 

54 0C4 

1 


TS 

FBANK 

SELECT GOTO ADDRESS, 



0356 

REF 

16 

LAST 

1095 

6657 

7 4747 

c 


HASK 

LGMIC 




0557 

R E > 

288 

LAST 

1096 

686C 

5C OCG 

1 


INDEX 

A 




C556 





6661 

3 2000 

c 


CA 

lOCOC 




0555 

REF 

14 

LAST 

109 6 

6662 

54 117 

1 


TS 

POL I SH 




0560 

REF 

3 

M 

LAST 

_i096 

6662 

1 66 16 

\ 


TCP 

GOTO +1 

HITH address in a. 

















0561 

REF 

7 

LAST 

A093 

6664 

3 0165 

c 

SwbRANCH 

CA 

BANK SET 

SrITCH instructions NHICH ELECT TO 



0562 

REF 

15 

LAST 

1096 

6665 

54 0C4 

T 


IS 

F6ANK 

BRANCH CONE HERE TO 00 SO. 



05to3 

REF 

25 

LAST 

1096 

6666 

50 164 

1 


INDEX 

LOC 




0564._ 





6667 

3 0001 

c 


CA 

1 




0565 

-Rtf 

15 

LAST 

1098 

667C 

54 117 

1 


TS 

PCL I SH 




0566 

REF 

4 

LAST 

1096 

6671 

1 66 16 

1 


TCP 

GOTO +1 





QtPi i Rf W i_^lQfc 23 


AGC PROGRAM CCLCSSUS BY NASA 2t;21ill-L3l 


l;17 ALG. 2^.1966 SATPAP ,QQA PACE 1097 


L IAl£«f fLEItH USER'S PAGE NO. 24 E3 S3 

_ TRIPLE PPECtSlQN fcKANCUNG KCLTlNg. IF CALLING TC 1 S AT L* RglURN IS ftS PClLCwS: 

■B05A«i 1 <1 IE »PiC CREATES T LAh lERC. ^ 

Bfl57.fi L^2 If PP4C IS EQUAL TC -*0 CP -’0. 

fiC57i U fJj|X„liAESS zero. 


05 72 

Ktf 312 

iiS-t 

109 3 

6672 

10 154 

C aPAKCH 

CC5 

RPAC 


X5 73 

REE 211 

LAST 

lOBS 

6673 

C 0002 

C 

TC 

0 






6674 

i 6676 

1 

TCF 

+ 2 

CN ZERO. 

U575. 

REF 1 



6675 

1 6 7 10 

c 

TCP 

NEC 



0526 

RE t 113 

LAST 1097 

6676 

JLQ 153 

1 


CCS 

HPAC 

♦ 1 


U577 

R£f 232 

JL15T 10^1 

6677 

Q 13QG2 

c 


TC 

g 



Q5J£ 



67CG 

1 67C2 

c 


TCF 




Q5 71 

REF _ 1 

L15T 1Q9 7 

_6lOl_ 

- -1 .6710 

i 


TCF 

NEC 




m _ _ 










65flC 

- REE 3 14 

LAST 1091 

67C2 

10 156 

1 


CCS 

>-PAC 

♦ 2 


ftiaL 

REE 221 

LAST 1097 

67C3 

C 0G02 

0 


TC 

0 



0562 



6 7C4 

1 6 7C6 

1 


TCF 

>2 



05 63 

REE 3 

LAST 1097 

6705 

1 6710 

c 


TCF 

NEG 














JQ584 

R£E 23 A 

LAST iQ5J„. 

6706 

50 aC2 

<; 

G + i 

INOEX 

L' 



C565 



67C7 

0 0001 

G 


TC 

1 














C566 

R£t 215 

LAST 109 7 

.6^7 1C 

Jlfl 0C2 

c. 

NEG 

INOCX 

Q 


IF FIRST NCN-ZEPO REGISTER HAS NEGATIVE. 


fi5a7 6711 Q 0Q02 C TC 2 


LSAB 


&£i ^ LiST 1QR7 6710 



fltii 


_ PU589 



llRACfc (3» REFERS TQ 

"EX P 




RESTGKE USER*S BANX 

C590 

REP 

fi__ 

LIST 1096 6712 

3 0165 

C EXIT 

CA 

OANK SET 

0591 

REF 

19 

LAST 1095 6713 

54 006 

C 

TS 

BBANK 

INTERPRETIVE XQCE. 

0592 

REE 

1 

1 

fns 

LAST 1096 6714 

5C 164 

1 

INDEX 

LOC 


.0593 



6715 

Q OCCl 

i 

TC 

1 





2 RfW!«>inK >1? C.f ACC. PRff.BAM CGLlSSLS BY NA:^A 2Q21111-C3I 1;1? fliiC. 24tl9tB S<>TR4P .QQ4> PAGE 1096 

-L_ - PAGE NO. 29 63 S3 _ 

g£^5S4 IICJICA 1 • AC£/SLeiP4CT PACKAGE. 

.RaS9S Tt-F FCLLCylNcTTpfRATrChS AHTTpOVlCfcC FOR ADdTnG T_C and subtracting prop the ><tLTI-PUPPOSfc ACCUWOLATOR 

t.flS9X MPiiCi 


RQSSe L. LIO CCLSIE FRECISICN ADC. 


£0599 



flSU 


COUBLE 

PRECIStCN SUBTRACT. 


PQOOC 



1. BCSU 


OCUBLE 

PRECISION SUBTRACT F^-LR. 










iUlAOL_ _ 



4. TAD 


TRIPLE 

PRECISION AOG. 










auALi 



5. VAD 


VECTOR 

ACD. 


B06C3 



6 . VSU 


VECTCP 

SUBTRACT. 


POtOA 



7. fiVSU 


VECTCP 

SU8TRACT FPOR. 



Ha4Q5 . 

TFt 

iKTiRp^me cverflq 

R INOICATCP C\fINC IS SET NCN-2EPC IF LVERFLCW 

OCCURS IN ANY CP THE A3CVE. 

















_ Q607 

REf 

44 

LliT 1 jD14_ 

6716 

3 4674 C 

VSU UAF bIT15 

CHANGES 0 TC CCS. 

C6ce 




6717 

1 6721 1 

TCP +2 










C6C9 

JlEi 

L2 

LAIT _J93 C 


3 4371 C 

VAU CAP PRIC20 

CHANGES 0 TC CCA. 

Qjb US 

«EF 


k^ST 1096 „ 

6721 

26 116 C 

ADS ADOR hC 


0611 




6 722 

0 C0C6 i 

EXTENT 


0612 

REF 

39 

LAS! 1096 

6723 

5 0116 1 

INDEX AOORRC 


0613 

REF 

2 

l/ST 422 

6724 

OC OCi 1 

READ HISCALAP 

OCA 2 CP DCS 2 

wcl4 

REF 

JJl. 

LAST 1097 

6725 

2C UQ 1 

DAS RPAC *3 


t615 




6726 

0 Q0C6 1 

evTENt 

CHECK CVERPICR. 

Ctl6 




6727 

1 6731 C 

B2F +2 


0617 

REF 

L 


6730 

0 6763 C 

TC OVEFPIWY 










C618 




6731 

0 0006 1 

EXTEND 


Q619 

-P.£F 

4C 

LAST 1098 

o732 

5 0116 1 

INDEX AODRrC 


G62C 

REF 

e 

LAST 103C 

6733 

OC 005 1 

READ CHANS 

OCA 4 CR DCS 4 

0621 

REf 

3 16 

LAST 1096 

6734 

20 162 C 

OAS rtPAC +5 


C622 




6735 

0 0006 1 

EXTEND 


C623 




6736 

1 6740 C 

BZF +2 


0624 

REF 

I 


6737 

0 6760 C 

TC UVERFLV.2 










0625 




6740 

0 0006 1 

EXTEND 


C626 

REF 

*> 1 

LAST 1098 

6741 

5 0116 1 

INDEX AODRVL 


0627 

REf 

15 

LAST 1046 

6742 

OC OCI c 

READ LCHAP 

DCA C CR OCS 0 

0628 

REF 

1 


6743 

1 6747 1 

TCP ENCVXV 










0629 




6744 

C 0006 1 

CAC EXTEND 


063C 

REF 

A2 

LAST 1098 

6^4 5 

5 0116 1 

INDEX ACDRhL 


U631 




6 146 

3 OCCl C 

DCA 0 


0632 

REF 

3 13 

LAST 1098 

6747 

2C 155 1 

ENCVXV CAS HPAC 

vxv finishes here. 

0633 




6750 

0 C0C6 1 

EXTEND 


0 634 

REF 

17 

LAST 1094 

6 7 51 

1 6030 C 

biP OANZTG 



HEVlSIOtit 221 Cf A;.C-PPXGRAM colossus by N ASA 2{I21111-C31 L:i? AUG, 24.1966 SkJHAP ,QQ4 P^GE 1099 

L IMFBPRI-Tg B USER ' S PAGE NC. 26 E3 S3 

0635 REP 1 6752 C fc?fc6 t SETCVF Tc OViR PLCfe ' 

C636 REF le LAST 109E , .6153 I 6Q20 C T CP 0AN2 1C 


f 211 CP ACC PRCGHAM ■ CQLCSSUS BY NASA 20211il-C31 LUl ALC. 24il9ee SATSAP .00<t P4CE UOO 

L IMEH PPgTtiS US ER’S PAGE NO. 27 £ 3 S3 " 

J16J7 ~ 6754 0 0006 1 clg tXTENC ^ 

Q63£ R£f 43 i.iSJ <lT55 5 G116 1 INDEX AO[K»C 

ili;39 6756 4__QQG1 i DCS o 

a64t Rif 2 LIST 109t till i 67 47 1 TCP EN^XV 

DA41 REf Itfe LiST 1D72 676Q 54 PCI 1 CVEBFLWZ TS L PGR THRQ COMPONENT. 

0642 R2f 2.5 JjliT 10J6 6l4l 34715C C AF FIVE 

0643 6762 I 6765 i TCP »3 _____ 


0644 Bll 16? LAST AIQC tltl 5.4 OCl 1 QV£RFLt<Y TS L EKTPV FCft SECCNC COMPONENT. 

Q645 PEP 40 LIST iQ5B 67 64 3 6214 C CAP THREE 

C646 REf lit LiST IIQC 6765 56 QCl C XCH L 


0647 

R£f 

2ES 

Llll 

1Q9 6 

6 766 

5C 000 

I 

CVERFLON 

INDEX 

A ENTRV FOR 1ST CCNP OR CP (L-Ol. 

aii4fl 

RPP 


LAST 

1Q33 

6 767 

4 4673 

C 


CS 

LIMITS PICK UP PCSPAX CR NEGMAX. 

Q64S 

JEF 

44 

LAST 

367 

6770 

54 130 

1 


TS 

BUF 

0650 





6 771 

0 0006 

1 


EXTEND 


0651 

- R E f 

25C 

LiST 

11 Q£ 

6772 24 000 

1 


ADC 

A PCRCE CVERFLGR. 

06 52 

REF 

165 

LiST 

HOC 

6773 

50 GCl 

c 


INDEX 

L 

0653 

Rf F 

3 18 

LiST 

lQ9f 

6774 

26 155 

1 


ADS 

HPiC +1 

0654 





6775 

5 4 0C7 

1 


TS 

7 

06 55 

REF 

2C7 

LiST 

10 7 4 

6 776 

3 47 14 

1 


CAF 

ZFRC 

0656 

PEF 

4 5 

LiST 

1100 

6777 

6 0130 

0 


AO 

6UF 

C657 

REF 

nc 

LiST 

HOC 

7000 

50 QCl 

c 


INDEX 

L 

Qc58 

REP 

3 19 

LiST 

HOC 

7C01 

26 154 

c 


AOS 

MPAC 

C65S 





7C02 

54 0C7 

1 


TS 

7 

C66C 

REf 

226 

LiST 

1097 

7cb3 

0 00C2 

c 


TC 

Q NC OVERFLCh EXIT. 

0661 

Kef 

1 



7CC4 

1 7121 

c 


TCF 

SET0VF2 SET CVFINC iNC EXIT. 


066^ 





7CC5 

0 C0C6 

1 

. f:vso 

iXTEND 


C663 

REF 

44 

LiST 

HOC 

7CC6 

5 0116 

1 


INDEX 

AODF hC 

0664 





7007 

3 00C3 

1 


OCA 

2 

G665 

REf 12L 

LiST HOC 

7010 

52 160 

1 


CXCH 

MPAC +3 

0666 





7C11 

0 00C6 

1 


EXTEND 


l667 





7C12 

4 0001 

1 


OCCR 


0666 

Rif 

321 

LiST 

UQO 

7C13 

2C 160 

1 


CAS 

MPAC 43 

C669 





7C14 

0 C0C6 

1 


EXTEND 


06 7 C 





7C15 

1 7017 

1 


BZF 

♦ 2 

0671 

REF 

2 

LiST 

1098 

7Ci6 

0 6763 

c 


TC 

dVERFlNY 


C672 





7C17 

C 0006 

1 


EXTEND 


0673 

PEF 

45 

LiST 

HOC 

7C20 

5 0116 

1 


INDEX 

ADDRWC 

0674 





7C21 

3 0005 

1 


OCA 


0675 

«EF 

3 22 

LiST 

HOC 

7C2 2 

52 162 

c 


OXCH 

NPAO *5 

C676 





7C23 

0 0006 

1 


EXTEND 


C677 





7C24 

4 OOCl 

1 


bCCN 


Uo76 

E F 

323 

LiST 

HOC 

7C25 

2C 162 

c 


OAS 

MPAC 45 

06 79 





7C26 

0 00C6 

1 


EXTEND 


U66C 





7027 

1 7031 

c 


BZF 

*2 

0661 

REF 

2 

LiST 

1096 

7C3C 

0 6760 

c 


TC 

f»V6Rf LRZ 


0^1 (.BAM tnin^sti^ t>Y MASA ?n21111-Cll 1;17 AUG, 24.1968 S&Tfv/iP .00^ PAGE 1101 


L IhlBePMtllB US£RVS PAG? NO. 28 E3 S3 


4J4A2- 



7t21 

Q-ilQCft 

1 CCSL 

£XTEN.C_- 



0683 

ft£f 4ft iiST 

HOC 

7C32 

5 Clift 

1 

INDEX ADD PhD 



CA^A 



7Q33 

3 OQCl 

C 

CCA 0 



£885 - 

_a£E J^iA LAST 

JXQiL 

laiA 

IZ 13 A 

1 

DXCH HPAC 



_Ji8 66 



7C35 

a 0006 

1 

EXTEND 



QAhl 



_ 7C36 

4 QOCl 

1 

DC CP 



_ 

3 Ain 

U_QC 

7C37 

1 6747 

1 

TCP ENDVXV 




QAPf ?•»•> rp Ar,f Pftrr.aAM rnir^<ii,<i a y nasa 2J2llli-C2] lill ALG. 24.19^6 SATBAP .00<i PAGE HOZ 

T ihTFftP PgTPR USE R'S PAGE NC. ^9 El S3 


UXPLE PPtCISlQK PCC PCUTIffE. 


u69fc 70^0 Q QjCUL 6 1 lAC EXT END 


-Xtai 

RXf 

47 

L4ST 1101 

_ - lC4i - 

3_ C1L& 

1 

INDEX 

ADDRLC 







... 7Q9 2 

3 CQC2 C 

CCA 

1 

ADO 

MINOR PARTS FIRST. 

iiiSJ 

REF 

22i 

LAST UGl 

7C43 

2C 156 

1 

DAS 

MPMC +1 




HEP 

4t 

LAST llOi 

7C^9 

5C 116 

1 

INDEX 

AOCF VC 



y&95 




7C45 

6 0000 

1 

AO 

0 



Cfc96 

REF 

221 

LAST 1102 

_ _ 1LA& 

6 0154 

1 

AD 

MPAC 



Ct97 

REF 

277 

_UiJ 1102 

7C47 

54 IS^f 

C 

TS 

MPAC 



U69e 

REF 

19 

LAST 1U99 

7C50 

1 6030 

C 

TCF 

OANZ IG 




Cfe99 

KEF 

1 


7C51 

1 6752 

c 

TCF 

StTOVF 

SET 

CVFINC IF SLCh OCCURS. 






l» 






211 Cf^Gf. CCLCSSUS BV NASA 2021111-C31 


L tM£at£tLtfl 


U17 AUG. ^^^1966 
USSR'S PAGE 


SATRAP .OOA PAGE 1IQ3 
NC* 33 E3 S3 


PflTfiL AfUt^tllJC iLiJAaulU£S- Ri^CUiBEB JJL_f DtEC-FI J'EC. 


pgTci 

L-- 

QWPSLR 

DCLAlE PfltCISlCK MULTIPLY- MULTIPLY Ih£ CONTENTS CF MPAC.*1 BV THE OP 

WORD WHOSE ADDRESS 


ROJ03 



IS IN ACfiRND ANC LEAVE A TRIPLt PR^C ISItN RESULT IN “PAG. 



RU7Cc5 

2m 

RCUtULSlB 

RCUKC IFE TRIKE PREClSCh CCNTENTS OF MFAC TC CCUBLE PReCISION. 



kolLil 

3_a- 

dqtslb 

TAKE THE OCT PRCOUCT CF THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADORWD 


RQ7Q9 



AM LEAVE IHE TRIPLE PRECISION RESULT IN MPAC. 



PQ710 

A, 

PCLY 

USING THE CCMEMS CF MPAC AS A DP ARGUMENT, EVALUATE THE PCLYNCMIAL 

WHGSE DEGREE AND 


P.0712 



CCEFFICIENTS IPHELIATELY FOLLOW THE 1C POLY INSTRUCTICN (SEE ROUTINE 

FOB details.) 



£MJ* REt i31 IASI HOC 


1L52 SO QC2 C LUR 


INDEX Cj 


IWE FOR use BV PINBALL, ETC 


ACRES OF AflGUPEM FOLLOWS TC DHP 


0716 

REF 

126 

LAST 

110 2 

7C5A 

24 002 

C 


INCR 

w 



0717 

R£f 

--IS. 

LAST 

11Q2 

7055 

54 116 

c 

-1 

TS 

AGOP WC 

(PROLOGUE FCR SETTING ADORWD.) 


- ailfl 

REF 

iC 

LAST 1103 

7C56 

5C llo 

1 

CMP SUB 

INDEX 

ADDR WO 

GET MINOR PAPT CF OPERAND AT C(AODRWD). 


CiLS 





7C57 

-3 0001 C 


CA 

-1 



U72Q 

MF. 

J.2£_ 

-Llil 

_U02 

7CtO 

54 156 

1 


TS 

MPAC +2 

This WCRKS FOR SCUARING MPAC AS WELL. 


0721 

REF 

2 te 

LAST JLICLC 

. J-C61 

3 4714 

1 


CAF 

ZCPO 

SET MPAC ♦! TC ZERO SO WE CAN ACCUMULATE 


0722 

REF 

32.9 

lAST 1102 

7C62 

M 155 

c 


XCH 

MPAC +1 

THE PARTIAL PRODUCTS WITH CAS 


0723 

Rtf 

€ 

LAST 

10 7 1 

7063 

54 135 

I 


TS 

PPTEMP 

INSTRUCT ICNS. 


0 72A 





7064 

0 0006 



EXTEND 




0 725 

PEF 

■iic 

LAST 

1103 

7C6 5 

7 0156 

1 


MP 

MPAC *2 

MINOR CF MPAC X MINOR CF C(AODRwO). 















0 726 

REF 

2 21 

LAST 

1103 

7C66 

56 U6 

c 


XCH 

MPAC +2 

DISCARD MINOR PART OF ABOVE RESULT AND 


0727 





7C67 

U 0006 

i 


_ EXTEND 


FCRM MAJOR CF MPAC X MINOR OF C(AOOPWO). 


o7ie 

REF 

222 

LAST 1102 

It 10 

7 JQ154 

c 


PP 

MPAC 



0729 

REf 

3 22_ 

-U S T 

ILOl 

7C71 

20 1*6 

1 


OAS 

MPAC +1 

GUARANTEEC NO OVERFLOW. 















0730 

REF 

51 

XAST 

11Q2 

7C72 

5C UP 

1 


INDEX 

ADDP WL 

GET MAJOR PART CF ARGUMENT AT CIACCRWC). 


0731 





7073 

3 0000 

1 


CA 

J 



0732 

RIF 

9 

LAST 

11Q3 

7C74 

_56 125 C 


XCH 

MPTFMP 

SAVE AND BRING CUT MINCR CF MPAC. 


_ 0733 





7075 

C 0006 

1 

CMPSUB2 

EXTEND 




073A 

REF 

--IfiL 

LAST 

_ii02 

7C76 

7 0135 

1 


MP 

MPTEMP 

MAJOR CF C(AOCRWO) X MINCR OF MPAC. 


Ul3b 

-REf. 

-33 A 

LAST 

1103 

707 7 

1 

inj 

1 


OAS 

MPAC ♦! 

ACCUMULATE, SETTING A TO NET OVERFLOW. 















0?3j£i 

REF 

32* 

LAST_ 

U<13 

71C0 

56 154 

1 


XCH 

MPAC 

SETTING MPAC TO 0 CR ♦-1. 


0 73 7 





7101 

0 C0C6 

1 


EXTEND 




C73e 

REF 

ll 

LAST 

110 2 

7iC2 

7 0135 

1 


MP 

MPTEMP 

MAJOR OF MPAC X «AJOP CF C(ADORWD). 


0739 

REF 

1 1 A 
^ ^ 

LAST 

1103 

7 103 

20 155 

i 


OAS 

VPAC 

guaranteed no overflow. 


SJA.Q 

RFF 

219 

LAST 

1103 

7 104 

0 0002 

c 


TC 

U 

49 MCT » .573 MS. INCLUDING RETURN. 



<;ap: AsstJiei£ ? .ii qp agc p rlgrah colossus By n asa 2t;2iiii-C3] i;n alg. 2 ^.isfea satrap .004 page iiqa 

L IM g PP RETLP USER'S PAGE NO. 31 E3 S3 


B.ILNL MRA-0 IC_OUlB.L£ PPEC JS 1C^ t SiJT OVE IND ON TeE PAPE EVENT OP OV EPPICW. 

C741 MFf 2 cT~ last 11Q3 71QS 3 ^7lA 1 RCUNDSUfl CAF~~ ZERO ^ SET MPAC ^2 ^ Q FOR SCALARS AND CHANGE 

XJ 4A A£J 15 XAIT . iai2 TiQ6 5A 1 61 1 ♦! TS MODE HOPE T fl_0 P . 

Rtf 337 LAST 1102 7 107 5^ Llfi C VPCLNC XCH KPAL -*2 BUT iit NEEQNT TAKE THE TIPE FOR VECTORS. 

Q7N6 7110 6 aOOQ I QOUaiE ____ 

07^1 REF ill LiSl UQC Mil 5A (ICl I TS I __ 

074a R£f 2AC LAST 11Q3 7112 ■■0 QQC2 0 TC C 


1745 

RiJ^i2£ 

L All 1151 

7113 

6 C155 

c 


AO 

MPAC 

♦ 1 

AOD RCINCING 617 |F PPAC *2 WAS GREATER 


C 7bD 

Rif 31^ 


7114 

5A 155 

J 


TS 

MPAC 

♦ 1 

TI-AN .5 IN PAGMTUCE. 


C751 

PEF^-U 

LAST llOA 

7115 

0 00C2 

c 


TC 

Q 






C7b2 

REF 

3AC 

LAST 

IlOA 

7116 

6 0154 

1 

AO 

HPAC 

PROPAGATE INTERFLOW. 



- /53 

REF 

3^1 

LAST 

liOA 

7117 

54 154 

c 

TS 

MPAC 




G75A 

ref 

2A2 

LAST 

IIOA 

7120 

C C0C2 

c 

TC 

Q 





U755 

REF 


_LliT 

84 1 

7 12 1 

54 121 

i 

SeTGVF2 TS 

OVF INC 

(RARE ) . 



Q75C 

HEf 

2^3 

LAST 

o 

7122 

Q 0CC2 

c 

TC 

u 
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90157 



IfctJlCT .PRLCLCT SUBPCLILNE 

L5LALLV 

FCRRS the 

CCT PPCCUCT 

CF THE VECTOR IN HPAC wITH A STANOARO SIX 

ha759 

REOl&Ufi 

VECTOR WhCSE 

ADDRESS 

IS IN 

ACCPhC* 

I^ 

THIS CASE CIDCTINC) ARE SET TO 2- VXR* HCMFVtR , SETS ClDOTINCl TC 

kOTiLl 

A m 

IMA 1 

1 COTSLft cns 

RPAC hllH A COLLAR VECTOR 

QF THE 

HATRIA IM 

GUEST ION IN THIS CASE. 





gf t 

_*i 

1 A91 

lu&g 

7 123 

3 471 1 

_1 PRFCCT 

CAF 

Tmc 

PRCLCGUE TC SET COT INC TO 1. 

a? 64 

PEF 


LPST 

67 

7124 

54 136 

1 


TS 

UCTINC 














QlfcS. .. 





712S 

G 00C6 

_J DQllLa 

EXTEND 


0766 

BJ F 

5 

LAST 

67 

7126 

22 137 

1 


OXCH 

DOTPtT 

SAVE RETURN. 

0767 

PEF 

L_ 



7127 

0 7036 

( 


TC 

DHPSCe 

DOT X COMPONENTS. 

w7fca 

i^EF 

342 

LAST 

1104 

7 130 

32 160 

_i 


OXCH 

HP AC +3 

PCSITICN V CCHPCNENT OF MPAC FOB 

wJ6^ 

P£F 

34 3 

17 ST 

1105 

7 131 

52 155 

1 


OXCH 

MPAC 

MULT IPLICAT IQN NHILE SAVING RESULT IN 

0770 

BCF 

46 

LAST 

HOC 

7132 

52 131 

c 


OXCH 

BUF 

THREE MORO BUFFER t BUF. 

Q771 

REF 

Jjtit 

aiST 

110 5 



c 


CA 

HPAC +2 


C772 

P£F 

47 

L A ST 

1105 

7134 

54 132 

c 


TS 

BUF 42 














0773 

hFF 


LAST 

11Q5 

7135 

_Jl C136 

c 


CA 

DOT 1 Nt 

ADVANCE ACCRWC TC V COMPONENT QF 

0 774 

PtF 

12 


1103 

7136 

26 116 

c 


AOS 

AODRND 

OTHER ARGUMENT. 

0 776 

BEF 


LAST 

1105 

7 137 

0 705o 

( 


TC 

DNPSLB 


0776 

REF 

34S 

LAST 

110 5 

7 140 

111 116 

1 


DXCH 

MPAC 4l 

ACCUHULATE PARTIAL PRQCUCT5. 

0 77 7 

BEF 

46 

LAST 

U0 5 

7 141 

20 132 

c 


CAS 

bUF 4l 


0 770 

RLF 

146 

LAST 

1108 

7142 

6 0154 

1 


AG 

MPAC 


0716 

REF 

_tfi_ 

LAST 

1105 

714 3 

± C13C 

c 


AD 

BUF 


0 7 04, 

BEF 

5C 

LAST 

1105 

7 144 

54 130 

1 


TS 

BUF 


u70l 





7 145 

1 7147 

c 


TCF 

♦ 2 


Q7B2 




LAST 1104 

7146 

54 121 1 


TS 

QVF 1 NO 

IF cvepflcm ccclrs. 













0 7 83 

Rta 

lAl 

JJLST 

1105 

714 7 

52 in 

c 


OXCH 

HPAC 45 

MULTIPLY 2 COMPTNENTS. 

07fi4 

REF 

34£ 

LAST 

Aidl 

. 7150 

52 155 

1 


OXCH 

MPAC 


0705 

REF 

6 

LA S T 

U05 

7151 

3 0136 

c 


CA 

OOT INC 


(. ?6f 

REF 

5 3 

LAST 

U05 

7152 

26 116 

c 


ADS 

ACOF UC 


0 76 7 

BEF 


LAST 

1105 

7152 

0 7056 

L 


TC 

OHT sue 


0 7 e e 

B£F 

5 1 

LAST 

1105 

7154 

52 132 

C ENCCQT 

OXCH 

faUF 4l ^ 

LEAVE FINAL ACCUMULATICN IN MPAC. 

w 706 

REF 

3 4 9 

LAST 

1105 

7155 

2C 156 

1 


OAS 

MPAC 4l 




-REF 

35C 

last 

110 5 

7156 

6 0154 

1 


AO 

MPAC 



hEF 

52 

LAST 

1105 

7157 

6 C130 

c 


AO 

BUF 


L 792 

REF 

35 1 

LAST 

1105 

7 160 

54 154 

c 


TS 

HPAC 


0 793 

—REF 

6 

LAST 

1105 

7161 

0 0137 

1 


TC 

octret 














0 794 

REF 

2 

LAST 

1099 

7 162 

0 6 766 

c 


TC 

C'VEF FLOW 

ON OVERFLOW HEBE. 

W7-9-5 

REF 

7 

LAST 

110 5 

7163 

0 C137 

1 


TC 

DCTF E7 
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pdlfiA 

DLLEia 

FtECJLSlCN--£Ci.mRUl 

tVALUAICR 




























ti_ 


il- 

X 





F:U.I96 -- 



IMS 

POyiLRfi 

EVALUATES A X 

♦ 

A X 

4 

• « * 

A X 4 A 

LEAVING THE OP RESULT IN HPAC ON EXIT. 

P0300— 






N 


R-l 



1 t 

















fiQaoi 

lh£ 

ECLllAL MAS I kC„ EJLl « I tS 


























1« EhTRY ThRL 

PChRSERS. THE 

CCEFFICIENTS 

1 FiAY BE 

eiTHEP 

IN FIXED CR ERASABLE. THE CALL IS BY 


_ _BoeoA 



7C 

PONRSLRSt ANC 

THE RETURN 

IS TO 

LOC(TC PCWRStRS)4l 

. THE ENTERING DATA MUST BE AS FOLLOWS 















A Q a (ife 








A 


SP 

LOC-3 

ACORESS FOR REFERENCING CCEF 

TABLE 

A 0 a07 








L 


SP 

N-1 

N IS THE DEGREE OF TmE POWER 

SERIES 

AQ30S 








RPAC 


OP 

X 

ARGURENT 
















AC809 








LCC-2N 


DP 

A(0 » 



AC8I0 










• • • 




^MU 








LOG 


OP 

AIN) 




80812 



2. EMRY THRO 

POLY. 

THE CALL 

TC POLY 

ARC 

: THE ENTER IRC DATA MUST BE AS FOLLCRS 
















A'jfll^ 








HPAC 


OP 

X 

ARGUMENT 
















Acais 








LOC 


TC 

POLY 



AObU 








LCC*l 


SP 

N-1 



A0817 








LCC42 


DP 

A(0) 



Aueie 










• • • 




A0ei9 








LCC42N+2 

OP 

AIN) 

RETURN IS TC L0C42N44 
















0320 





7164 

0 0006 

1 

POWRSERS 

EXIF NO 




C821 

ntf 

1 



7165 

22 141 

c 



QXCH 

PCLYRET 

RETURN ADDRESS 


0822 

Rtf 

U 

LAST 

1096 

7 166 

54 in 

1 



TS 

POLISH 

POWER SERIES ACCMESS 


Cfl23 

REF 




7 167 

22 140 

1 



LXCM 

POLYCNT 

N-l TC COUNTER 


cer^ 

REF 

1 



7 170 

1 72C1 

1 



TCP 

HCLYCCM 

SKIP SET UP BY POLY 
















0325 

REF 244 

LAST 

JL104 

717 1 

50 0C2 

0 

PCLY 


INDEX 

a 



0826 





7172 

3 0000 

1 



CAP 

0 



^.627 

REF 

2 

LAST 

1106 

7173 

54 140 

c 



TS 

PCLY CRT 

N-1 TC CCUNTEP 


0623 





7174 

6 0000 

1 



DOUBLE 




0829 

REF 

245 

LAST 

1106 

7175 

6 C002 

c 



AO 

w 



0830 

REF 

17 

LAST 

1106 

7176 

54 117 

1 



TS 

PCLI SH 

HAtN))-3 TC POLISH 


0 831 

REP 

26 

List 

HOC 

7 177 

6 47 15 

t 



AO 

F IVF 



0832 

REF 

2 

LAST 

110 6 

7200 

54 141 

1 



TS 

POLYFf T 

STCRE RETURN ADDRESS 
















0333 

REF 

I 



72C1 

3 6242 

c 

PLLTCCR 

CAF 

L VbUF 

INCOMING X hUL be HCVEO TC VBUF, SO 

0834 

P£F 

54 

LAST 

1105 

7202 

54 116 

c 



TS 

AODR RC 

SET ACORWC SO CMPSUB WILL MPY 

BY VBUF. 















0835 





72C3 

0 0CC6 

1 



EXTEND 




0836 

PEP 

16 

LAST 

110 c 

7 204 

5 0117 

c 



INDEX 

PCL I SH 




J837 7205 3 OCC^ C OCA 3 
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oaae 

Rtf 3it 

LiSl 

llQl 

net 

32 13J 1 


UXLh 

MPA(L __ . .. 

LOAD AIM IMC PPAC. 



RkF 23 

USX- 

1062 

72£i7 

123 C 


OXCH 

vauF 

SAVING X IN VBUF 


lifl4L 

Rtf L_ 



7210 

1 7214 C 


TCP 

PQLY2 















_ A£f 3 



X2.ll 

5A l^C C 

PCLYLCQP 

T^ - 

P.CLYCKT 

SAVE CECPEPENTEC LCCP COUNTER 


faBX? 

Rtf LL_ 

-USX. 

11 Q S 

7212 

4 4711 C 


cs 

ThL 



_ 

R£f 

LIST 

-lifli 

7213 

2t 117 1 


AOS 

POL I SP 

REGRESS CCEFFJCIENT POINTER 













f^«44 

fitt 6_ 

LAST 

llQg 

7214 

a 7G56 C 

PCL Y2 

"XCL 

DPPSlt 

MULTIPLY BY X 


Cfi45 




7J15 

C 0006 1 


tXTfcND 




CeAt REP 2C I / ST lioi 72ie 5 Cl 1 7 C INDEX ^ P C L I S> 


CB47 





7217 

3 OC02 

Q 

OCA 

1 

ADD IN NEXT 

COEFFICIENT 


ce4a 

REF 

^ 5 ^ 

Li S T 

ilQl 

722C 

in 

<M, 

1 

DAS 

MPAC 

USERS RESPCNSie U ITY TC ASSURE NC CVFICN 















0849 

_atJL 

. - -4. 

LAST 

1107 

7221 

1C 140 

0 

CCS 

POLVCM 




Cfl5C 

_8.£X_ 




im 

_1 12U 

c 

TCF 

POLVLICP 




Q931 

REF 

3_ 

LAST 

UQ6 

7223 

0 0141 

0 

IC 

PULYRET 

RETURN CALLER 
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.EiLaSZ- - 



_jaaLElUi ££CtS 

RULTl- 

FRECISlCE 

FCLT |NE5 

RECUIPEC Ih FIXED 

-FIXED BUT NCT USEE B7 THE INTERPRETER 

• 















RFf 

7 10 

1 /ST 11 Q4 

T224 

3 4 714 

JL 

CPAGREt 

CAF 

Z t F.L 

DCUBLE PRECISION ENTRY - 



LLsais 

Kil 

a !A 

Lm 11Q7 

7a25_. 

-.54 156 

1 


TS 

HfAC *2 

ZERO LCR-CRCER WORD 

















ftEF 


CAST llOi 

7226 

^2 0L2 

C 

TPAGREE 

LXCH 

0 

FCPCi SIGN agreement AMONG THE 

TR IPLE 

0455 

ALL 

_ 1 


72Z1_ 

0 6672 



1C 

BRANCH 

PRECISION CONTENTS OF MPAC. 

RETURNING 

QB^t 

PtF 

1 


7230 

1 7234 

1 


TCE 

ARC + 

with signum of the input in 

A . 


OBbl 

REE 

L_ 


7231 

1 7254 

1 


TCF 

ARG2EPC 

















Cfliifi 

^££ 

lA^ 

LAAl 1Q4C 

mz 

4 4412 

1_ 


cs ^ 

POSMAX 

IF negative. 



ofliLa 




7233 

1 7235 



TCP 

J 





QBtL 

RLE. 


IJlLI AlCLfi 

7ja4 

3 46 7.2 

C 

ARC + 

CAF 

POSHAX 




C Efal 

REE 

247 

LASl llOfi 

7232 

54 CC2 

1 


TS 

C 




Qafr2 




7236 

0 00C6 

1 


EXTEND 





ua6 3 

REE 

25 1 

L2S7 HOC 

7237 

24 OCC 

1 


AUG 

A 

FORMS ♦-1.0. 



uflc^ 

REE 

355 

^ILT 110 e 

7240 

6 C156 

c 


AD 

MPAC *2 




-58 CS 

J-6E 

356 

LAST IlOE 

724 1 

54 156 

1 


TS 

MPAC +2 




Q466 

Rf F 

211 

LAST 1108 

7242 

3 4 714 

1 


CAF 

ZERO 




- JI Ai» 7 

REF 

248 

LAST 1106 

7243 

6 0002 

c 


AO 

0 




0866 

REF 

357 

LAST 1106 

7 244 

6 C155 

c 


AO 

HPAC ♦! 




0869 

REF 

3 5E 

LAST 1106 

7245 

54 155 

1 


TS 

MPAC ♦! 




ca7c 

REF 

212 

LAST 1106 

7246 

3 4714 

1 


CAF 

ZLRC 




0871 

REF 

245 

LAST llOS 

7247 

6 0002 

c 


AO 

0 

0 still has pcsmax or negmax 

IN 

1 T . 

0872 

REF 

3 5 9 

LAST lioe 

7250 

6 0154 

1 


AC 

HPAC 




0873 

R£F 

36C 

LAST 1106 

7251 

54 15** 

c 

AWG2ER02 

TS 

MPAC 

always skipping unless argzerg* 


CBT'S 

REF 

3t 1 

LAST 1106 

7252 

54 155 

1 


TS 

MPAC *1 




0875 

RLE 

172 

LAST 1104 

7253 

C QCCl 

c 


TC 

L 

RETURN VIA L. 
















0J76 

REF 

362 

LAST 1106 

7254 

54 156 

1 

ARG2ER0 

TS 

MPAC *2 

SET ALL THREE MPAC REGISTERS 

TO 

ZERO. 

-.0 877 

PIF 

1 


7255 

1 7251 

1 


TCF 

ARGZEPC2 

















Kce7e 



SECRTRP MLTIPLIES TEE TP CCNTERTS CF RPAC BY 

THE S IFCLE 

PRECISION NUMbER ARRIVING IN A. 
















0B6Q 

REF 

12 

LAST 1103 

7256 

54 135 

1 

ShOPTHP 

TS 

PPTEFP 




cefci 




7257 

C 0006 

1 


EXTEND 





0862 

REF 

3<2 

LAST 1106 

7260 

7 0156 

1 


PP 

MPAC *2 




0883 

REF 

364 

LAST 1108 

7261 

54 156 

1 


TS 

MPAC *2 




088^ 

REF 

2 13 

LAST iioe 

7262 

3 ^ 7 1 A 

I 

SHCRTPP2 

CAF 

ZfcFC 

SC SUBSEQUEKT CAS hlLL WORK. 



0885 

REF 

36 5 

LAST 1106 

7263 

56 155 

c 


XCH 

MPAC *l 




0666 

REF 

1 


7264 

1 7C75 

c 


TCF 

DMPSLB2 
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pcaa? 

RflfiSQ 

Rfia9i 

RCia92 


_ _0fl93 

R£f 1 


7265 

. 5^ 135 

1 

CMPNSUB TS 

OMPNTEMP 




ga9<^ 



7368 


1 

EXTEND 




C095 

REf 3<t 

LAiT 

7267 

7 0155 

1 

MP 

MPAC +1 




0896 

REFJE? 

IASI uo s 

727Q 

52 155 

1 

OXCH 

MPAC 

LOW PRODUCT TC MPAC, HIGH 

FACTOR TO A 


0897 



7271 

Q QQQ6 

_L_ 

EXTEND 





Cft9a 

REF 2 

USl lies 

7272 

^ 7 Q13 5 

1 

MP 

DMPNTEMP 




_ CB99 

fl£f 173 

LAST 11Q€ 

727i 

3 0001 

C 

CA 

L 




09Qn 

REf 3AE 

LAST lioq 

121M 

26 154 

C 

ADS 

MPAC 

COMPLETING THE PRODUCT IN 

MPAC 


0901 



7275 

0 00C6 

I 

EXTEND 





09C2_ 

REF 3£S 

_LAi j_JlC S , 

7276 

..J Cl 55 

c 

OCA 

MPAC 

BRINGING the PRCOUCT INTO 

A AND L 


0903 

REF 21C 

LAST U06 

7277 


f 

TC 

_Q 





CPFRSLfl MULTIPLIES TME CF PPACT ICh APRIVIMG IN MPAC 0 >t THE SP 
IMECEF APPIVING U I. ThE CP PHOQUCl CEPARTS BOTH IN MPAC AND IN 
A AKL L. ACTF THAT CPFNSLfa NCHPALLY IhCREASES THE MAGNITUDE CF THE 

CCMEfclS Cf KPAC* TPE CUSICPfP MUST INSURE THAT B(At A 8 ( MR AC ,MF AC+ 11 _ 
A.KC filAJ X 0tMPA(Li AR£ LESS TRAN I IN ^AQMTUOEi WHERE U, AS IS OBVIOUS, 
IhCiCiHS Tl-E ARRIVING CChTEMS. 


1 


_E_i 

HPv isinh 

CP At.f PROGRAM r.OLGSSUS BY 
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ViCliR 

ClP£RAIJ£^ 

S. I^CI.^.CE0. HERt 

ARE THE 

Ft LLCV» ING : 











RCI90S 



1 , OCT 


LP WCCTCR DOT 

PAGDUCT. 



jiaaflfc- 



2^ VXV 


XLR CROSS PROOUCT 

ft 





3. WXSC 


CP VECTCR TIRE 

S SCALAR. 



H.09Clfl 



.A « V/SC 


DP VECTCR DIVIDEC SY SCALAR. 


RC5(I9 _ 



5 . VPRC g 


OP VECTCR PBCJECTION. { 

( PIPAC.X JPPAC 

) . 

FQ910 



6 . vm 


CP VECTCR PCST 

-rultiplied by PATRIX. 


BQ911 



7 . HJtV 


CP VECTCR PPfc- 

PULTIPLIEC bY PATRIX. 












0912 

a£f 

_L 


73C0 

0 7123 C OCT 

TC 

PPEL CT 

DC THE OCT PRODUCT AND EXIT. CHANGING 

0913 

R£f 

_LliT.ilQ8 

7301^ 

3 971^ 1 CMGDL 

CAP 

2EnC 

THE POCE TC CP SCALAR. 

091^ 

REF 

7 

L^ST 1091 

7 3C2 

1 6027 C 

TCF 

NEWMCCE 




_ U915 

R£t 


L li T U Q.1 

73C3 

3 9711 1 MXV 

CAE 

TWC 

SET UP MATING AND OUT INC FOR ROW 

0916 

Rif 

% 

LUST 6T 

730^ 

3A 190 C 

TS 

MAT 1 NC 

VeCTCRS. 

CS17 

REF 



7305 

1 7311 1 

TCF 

VXM/PXV 

GC TC COMPCN PCRTiCN. 


Q9ifi 

REF 

-_a 

L4ST 1031 

7306 

A 9377 1 VXM 

CS 

TEN 

SET PATINC AND DGTINC TO REFER TO MATRIX 

C919 

RiF 

t 

L/)ST lliC 

73C7 

59 190 C 

TS 

MATING 

AS THREE CCLUPN VECTORS. 

0920 

RiP 

35 

L4ST 1025 

7310 

3 6211 C 

— _ - — . — _ — 

CAF 

SIX 
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GQ3? 

s f i 

1_ 

t 1ST 

1104 

/II 1 

54 136 

J WAM/MAV 

IS 

DOT INC 


Ai3923 



__1 IRlCf 1 2 J 

AEFERS TC 

'•VXM/lilV*'. _ 






_Alf 




7212 

0 15 C 1 

1 _ _ 

TC 

MPAC VBOF 

SAVE VECTCR IN NP4C FCR FURTHER USE. 


SIS2S 

Aei 

a 



-Ilii 

U 7125 

C 

TC 

fOTSUE 

QQ fiCT TO GET X COMPONENT OF ANSHFR. 

Q92t 





„ „J3J4 

C 0006 

1 

EXTEND 



QS27 

Rtf 

24_ 

LilST 

UQ7 

7315 

3 0123 

1 

OCA 

Vfcue 

MCVE HPAC VECTCR BACK INTO MPACt SAVING 

0920 

ft£F 

3 2C 

1451 

11M_^ 

7 3J6 

52 155 

1 

OXCH 

HPAC 

NEW X COMPONENT IN BUF2. 

0929 

REF 

11 

1/ 5 T 

1071 . 

_ 7317 

5 2 134 

c 

OXCH 

Bur2 


aS3i; 





7320 

0 00C6 

1 

EXTEND 



0931 

P£F 

25 


1111 

7321 

3 012 5 

1 

OCA 

VBUF +2 


0932 

REF 
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FBINK 


LLU_ 

REF 

1 



7567 

1 2172 

c 


TCP 

TSLC2 



1112 

REF 

7 

list 

10 7 5 

7570 

3 60A3 

c 

GSH IFT 
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1 


TS 
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GENSPIFT 

AN ACORFSS (ROUTINES IN BANK G). 
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1F£ 1 

FLLLCklRC 

IS THE 

PPCLCCte 

TC V/SC. IF the 

PRESENT HCOe 

IS VECTCP, IT SAVES THE SCALAR 

AT X IN BUF 

fiili? 

AhC 

CiLlS THE 

V/SC RCUTIhE IN 

sank 0, 


IF THfc PRESENT NODE IS SCALAR, 

IT MOVES THE VECTOR AT X 

INTO 

MPAC, SAVING 

■EU.19 - 

- Ihl- 

-SXU 

LIR IK 

HP AC 14 

euE BEFCRE CILLlhL THE V/SC ROUTINE IN BANK C. 
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7S73 
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c 
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DUF 
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3 4714 

1 

CAF 
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CHANGE MODE TC VECTOR. 
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1 
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1 
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1 
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111? 

7622 
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jRii X_ 



7623 

1 760 1 

t 

TCF 
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0 

NEGATIVE NCR-ZERO. 
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d 
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DXCH 
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1 

1 

7642 

1C U3 1 


CCS 

MODt 

EITHER COMPLEMENT MPAC 43 OR THE 

PEST OF 
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RIF 

1 


7643 

1 7654 C 


TCF 

DCOMP 

THE VECTOR ACCUMULATOR. 
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LAST lilt 

7644 

.1 76 54 C 


TCF 
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7646 
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CCS 
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7647 

52 160 1 


OXCH 

MPAC +3 
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7650 

C 0006 1 


EXTEND 




1167 

_J«£i_ 

Alt 

LAST me 

7651 

4 0162 C 


DCS 

MPAC +5 
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LAST UU 

7e52 

52 162 C 


OXCH 

MPAC 45 
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Rtf 
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LAST UU 

7653 

1 6030 C 


TCF 
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^26 

LAST UU 

7654 
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CCGHP 

CS 

MPAC 42 
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^27 

LAST UU 
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TS 

MPAC 42 
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P1113 Jhf fCLLChlfiC SMCI»I ShlhT CCCES REQUIRE NU ADDRESS VCHD? 


RIII4 U, Ski Tr Sft4 SCILAR SUFT ftlCMT- 

R 1 1 7 S - _ SiUR - TO £ R SCALAR S H I FT F IGHT AN D ROUHD , 

R1176 1. SLi TC SLA SCALAR SH KT LEFT. _____ 

All 7 7 ^ SLlfi IC SL4H SCALAR SHIFT LEFT AND PCUNC. 


K1178 S. VSRl TC JtSAB_ VECTOR SHIFT BIGHT (ALWAYS RCINOS). 

R1179 Lm VSLl TC VSL8 VECTCP SHIFT LEFT (NEVER ROUKCSI. 


fillBQ TH^ tCLLCWUlG CDCES.PtQUlRE AR ADDRESS WHICH WAY Eb INDEXED:* 


Rliai - - a* SJl _ _= SCALAR SHIFT RIGHT. 

Riie2 2. SRR SCALAR SH IFT RI GHT AND RUOND . 

£-11 A3 2.. £L SCALAR SHIFT LEFT. 

RLia^ At SLR scalar SHIFT LEFT AND ROUND. 


klUS 5-- kSfi VbCTCP SHIFT RIGHT. 

Flieu^ E* ViL VECTOR SHIF T LEFT. 


Alia 7 * IF THE ACCHLSS IS INDEXED. AND THE INDEX PQUIFICATIDN RESLLTS IN A NEGATIVb SHIFT CCLNT. A SHIFT OF THE 

klieS AESCLLU VALLi. OF THE COUNT IS DONE IN THE QPPOSnE DIRECTI ON. 
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Cfl*2(117 




BANK 

00 














1 1 <3 1 

RFF 

i. 

LAST 

icas TC 

ICflfe l 

-L2 

15* 


^OUFil 

OO/IMIR 
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REF 

3e 

LAST 

UU 

0Ct2C17 

3 6211 

C 

SHORTT 

CAF 

S IX 

SCALAR SHORT SHIFTS COME HERE. THE SHIFT 

11**3 

REF 

29 

LAST 

1Q9C 

CQ.2C20 

7 0020 

1 


MASK 

C V F 

COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE 

USA 

REF 

iQ 

LAS_T 

-10.56 

CCa2021 

5A 021 

c 


TS 

SR 

POUNCING BIT IS IN BITl AT THIS POINT. 













L19S 

RFF 

. .. IL 

LAST 

Ills 

QG.2C22 

10 020 

1 


CCS 

CYP 

SEE IF RIGHT CR LEFT SHIFT DESIRED. 

1 1 9& 

REF 

1. 



GC.2C23 

1 2101 

1 


TCF 

TS5L 

SHIFT LEFT. 













1197 





CC.2C2A 

C002A 


SRDJ]V 

OEC 

20 

MPTEMP SETTING FOR SR BEFORE OOV, 


use 

REF 

21 

LAST 

U19 

CCt2(L25 

5C 021 

1 

TSSR 

INDEX 

SR 

GET SHiFTIhi; PIT. 

liS9 

RFF 

■ JL2 

LAST 

IQQT 

C0.2G26 

3 A675 

1 


CAF 

P IT 1 A 


i2CD 

REF 

—LL 

LAST 

uqe 

C0a2C27 

5A 135 

1 


TS 

MPTE RR 














1201 

REF 

—21 

LAST 

-JLI1.S 

CC,2C30 

10 020 

1 


CCS 

C YR 

SEE IF A RCDND IS DESIRED. 

12C2 

REF 

_ 1 



CCt2031 

0 2050 

c 

RIChTk 

TC 

MPAC SRND 

YES - SHIFT RIGHT AND POUND. 

1203 

REF 

A 

LAST 

111 c 

C0t2C32 

1 6027 

c 


TCF 

NtWHCCt 

SET PCCE TC OP (C (A I - 0 1 . 

I20A 

REF 

_IA_ 

LAST 

1119 

C0.2C33 

3 0135 

c 

HPACSHR 

CA 

MPTEMP 

00 A TRIPLE PRECISION SHIFT RIGHT. 
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CCf 2C3A 

0 C0C6 

1 


EXTEND 



i2u6 

HEf 

A2E 

LAST 

UiS 

COt2L35 

7 0156 

1 


MP 

FPAC 


12o7 

REF 

A2S 

LAST 

1119 

CGf 2C3« 

5A 156 

I 

-»3 

TS 

HP AC 42 

(EXIT FROR SOFT AND A6VALI. 

i2oe 

KEF 

15 

LAST 

U 19 

CCf2C37 

3 0135 

c 


CA 

MRTf RP 


12C9 





COf 2C90 

0 COCt 

1 


EXTEND 
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1210 

R£f 

420 

L^ST 

1119 

£ C i2C4 1 

7 0 IS 4 C 


MR 

KP/.i 

SHIFT major part INTC A,L and PLACE IN 

1211 

Rif 

4 21 

L4ST 

112 1 

C_Ci2C42 

52 155 J 


OXCH 

MPAC 

^PACf^l* 

1212 

Mff 

U_ 

L4S7 

1114 

C0.2C43 

^ C135 C 


LA _ 

MPTE HP 


1213 





_ C(Ii25_44 

0 0006 1 


EXTtNO 



_^i2X4 


110 

L/ST 

U15 

CQx2iL45 

7 00 C l -1 


MP 

L 

ORIGINAL CtHPAC 

L2JJI 

flEf 

422 

LllT 

112 C 

CC.2C46 

20 19ft 1 


OAS 

MPAC +1 

GOAPANTEEO NO QXERFLCH. 

121t 

Rif Ifl- 

J^lSl 

lUl 

_£fi*2£47 

1 6030 C 


fCF 

DAN2 1C 













K1217 



RF4f 

-IMI FT 

RIGHT ARC 

RCUHC SoeRCLTlHES, 















X2ia 

RIF 

4 33 

LAS I 

lL2t_ 

^_Cfl.2C5C 

3 - C15ft._i} 

NPACSRNC 

CA 

MPAC ♦2 

wE HAVE TO DO ALL THREE MULTIPLIES SINCE 

1219 






-0 0QQ6 1 


EXTEND 


MPAC 4i ANO MPAC 42 MIGHT H4VE SIGN 

122Q 

REf 

n 

LAST 

112C 

C0i2C52 

7 0135 1 


MP 

MPTf HP 

DISAGPEEMENT NITM A SHIFT RIGHT OF 1. 

1221 

Rff 

434 

LAST 

11 2 C 

C0,2C53 

56 155 C 


XCH 

MPAC 41 


L222 





CC.2tiS4 

-C 0006 1 


EXTEND 



1223 

REF 

le 

LAST 

U2C 

C0r2055 

7 0135 1 


HP 

MPTE HP 


1224 

REF 

435 

LAST 

112C 

CCf2C56 

5ft 155 C 


XCH 

MPAC 4l 

TRIAL MINOR PART. 

1225 

HEF 

lei 

-LAST 

1 1 2 C 

C0.2C57 

6 OCOl C 


AD 

L 













12 2 ( 





C0t2C60 

6 0000 1 

VSHR2 

OOUOLE 


{FINISH VECTOR COMPONENT SHIFT RIGHT 

1227 

REF 

4 2fc 

LAST 

112C 

CC 1204 1 

54 196 1 


TS 

MPAC 42 

ANO ROUND. 

1226 





COf 2062 

1 2064 C 


TCP 

4-2 


122S 

REF 

427 

LAST 

^ _ 

112C 

~C0t2C63 

26 155 1 


AOS 

MPAC 41 

GUARANTEEC NO CVERFLOH. 












1220 

REF 

lie 

LAS 1 

iin 

£Qa2064 

3 4714 i_ 


CAF 

ZEPC 


1231 

REF 

426 

L/ST 

U2C 

COf 2C65 

54 156 1 


TS 

MPAC 42 


1232 

REF 

439 

LAST 

112C 

C0t2G66 

56 154 1 


XCH 

MPAC 

SETTING TQ ZERO SO FCLLOwlNG DAS RCPKS. 

1233 





CO, 2067 

0 0006 1 


EXTEND 



1234 

REF 

19 

LAST 

U2C 

CCf 2C7C 

7 0139 1 


HP 

MPTEHP 


1215 

JLLL 

44C 

LAST 

112 C 

CC,2C71 

20 155 1 


OAS 

MPAC 

AGAIN NO CVERFLCW. 

123c 

REF 

2*4 

LAST 

ui; 

CC,2C72 

0 00C2 C 


TC 

g 













— 1237 

HEF 

iC 

LAST 

11 2 C 

CC.2C73 

3 0135 C 

vshrrnc 

CA 

MPTEHP 

ENTRV TC SHIFT RIGHT ANO ROUND MPAC HHEN 

1236 





CO, 2074 

0 0006 1 


EXTEND 


MPAC CONTAINS A VfCTCR COMPONENT. 

123S 

R£f 

441 

LAST 

11 2 E 

CC.2C75 

7 0155 1 


HP 

MPAC ♦! 


1240 

REF 
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LAST 

U2C 

CC,2C76 

54 155 i 


TS 

MPAC 41 
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REF 

1(2 

LAST 

11 2 C 

CC,2C77 

56 OCl C 


XCH 

L 
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1 2060 1 


TCP 

VSHR2 

GC ACC ONE IF NECESSARY ANQ FINISH. 
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__RtLTIM FCR 

_ ShilKl SCALAR SR TFT 

LIFT 

(AND. MAVbfc 

ROUKC ) . 
















12^A 



22. 

1 A^T 

Ills 

QC^2 1C1 

4 QQ21 

_L_ 

TSSL 

CA 

SK 

GET SHIFT CCUM FCR SP. 


iz45 

R£f 

21 

liST 

112C 

CCx21L2 

54 135 

1 

♦ 1 

TS 

HPTtRP 
















i?44 





QQf 21tj3 

0 QQOfc 

J— 

+2 

EJCTEND 


EhTRT HERE FPCM SL FCR SCALARS. 


124 7 

RlF 

442 

IASI 

112 C 

fiCt21fi4 

3 G1S4 

C 


DCA 

HPAt ♦! 

SHIFTING LEFT ONE PLACE AT A TIME IS 


1246 

REF 

444 

LAST 

1121 

CCt2A0 5 

20 156 

\ 


OAS 

MPAC +1 

FASTER THAN DOING THE WHOLE SHIFT WITH 


1249 

REF 

44 5 

LAST 

1121 

G0.21G6 

6 0154 

1 


AD 

HPAC 

MULTIPLIES ASSURING THAT FREQUENCV OF 


12^0 

Rtf 

4 4e 

LAST 

112 1 

C(J.2107 

6 0154 

1 


AD 

HP AC 

SHIFT COUNTS GOES DOWN RAPIDLY AS A 


i 211 

Rif 

44 7 

U5T 

112 1 

co. 2 no 

54 154 

c 


TS 

MPAC 

FUNCTION OF THEIR MAGNITUDE. 


1252 





QQt21U 

^^113 

1 


TCF 




1253 

RIF 

4 

LAST 

ugs 

CCi2n2 

54 121 

1 


TS 

GVFl NC 

OVERFLCW. (IBAYES OVERFLOW-CORRECTED 


A1254 











RESULT ANYWAYI. 


1255 

-REP 

22 

LAST 1121 

QQtZlli 

10 135 

1 


CCS 

MPTtPP 

LCOP CN DECREMEMEC SHIFT CCUM. 


1254 

JEF 

2 

L AST 

Ills 

Q_Q^2il4 

1 2102 

1 


TCF 

TSSL +1 
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RFF 

12 

LiST 

11 IS 

00.2115 

1C 020 

1 


CCS 

CYR 

SEE IF RCUNC WANTED. 


143 fe 

^EF 

2 

LAST 

1114 

. Q^}>21i6 

0 7105 

1 

POUND 

TC 

ROUNCSUB 

YES - ROUND AND EAIT. 
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REF 

11 
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U2( 

CO* 2117 

1 6030 

c 


TCF 

DAN 2 1C 

SL LEAVES A ZERC IN CYR FOR NO ROUND. 
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f 1261 -XLUak IfclfllAC RCLllhES. 


1?A2 


3_ 

Li97 

723~ 

CQf 3 121 

1 471ft 

( 

SHQRTV 

CAP 

L01*3 

SAVE 3 BIT SHIFT COUNT - 1 WITHOUT 


1263. 

_ fi£f 

21 LIST 

nil 

_C Uli 22 

_1 C02^Q_ 

1 


MASK 

cyr 

EDITING CYR. 


- X264 

atf 

11 Lin^ 

1121 
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54.111 

1 


TS 

MPT E RF 




ft£F 

34 

» AST 
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1C 02Q 

1 


CCS 

CYR 

SEE IF LEFT QR RIGHT SHIFT. 
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J 


TCF 

VSSL 

V6CTCR SHIFT LEFT. 
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1 

CCT176 
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I7t 

USEO IN PPCCESS60 SHIFTS WITH - COUNT. 
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24 
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c 

VSSR 
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IFNTRY FRCM SRI. PICK UP SHIFTING BIT. 
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1 
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71 
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SHIFT X CCMPCNENT. 
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OXCh 
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Swap X AND Y CQPPCNENTS. 
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SHIFT Y CCMPCNENT. 
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SWAP Y AND 1 COFPONENTS. 
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SHIFT 2 CCMPCNENT. 
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RESTORE CCMPGNENTS TC PROPER PLACES. 
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SHIFTING LQCP. 
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00,2196 

3 Cl!3 

C 
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OAS 
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0 CQC6 
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BZF 
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TC 
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0 C0C6 
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1250 
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112 3 
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MPAC *3 
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RIF 951 
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OAS 
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00,2157 

1 216 1 

1 


BZF 

♦ 2 


1299 

RIF 9 

Li iT 

11 1 5_ 

CO 1 2 16.Q . 

0. 6 76J 
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TC 
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EXTEND 


1296 

RfcF 956 

LAST 

U21 

00,2162 

3 0162 

1 


OCA 
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RIF 9S9 
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112 2 

OC , 2 16 3 

20 162 
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OAS 
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00,2169 

0 OOC6 
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_129 9^ ^ 




CC,216S 

1 2U7 

1 


BZF 

*2 


I3QQ 

REF 9 

LIST 

1119 

C0,2U6 

.0 6760 

c 


TC 
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REF 21 

LIST 

112.2 

0C.12167 

10 135 
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CCS 

MPTEHP 

LCOP CN DECREMENTED SHIFT COUNTER. 

1302 

■ , REF 2 

LAST 

1122 

00.2170 

JL 2199 

c 


TCF 

VSSL -1 
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R£f 23 

L A SI 
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c 


ICF 
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131 6 PEF AEl LAST 112 A CCt2203 3 0156 C OCA MPAC +1 

1 317 REF <(E2 LAST 1124 C C.220A 20 1 56 1 CAS MPAC •♦l 

laiB Blf 963 LAST 112A QC.2205 6 015A 1 AD MPAC ~ ^ 

lii’S REF _lAST 1124 CCf2 2Q6 26 ISA C ADS ^AC 

iJ2fi CCf22C7 6 OOOC I TSLCIEST DOUBLE SEE IF (ANCTHERI SHUT IS REQUIRED. 

1321 00.2210 54 QOC C OVSK 

132 2 REF 1 00.2 211 1 220l_J TCF TSLCLC CP YES - INCRBPENT COUNT AND SHIFT AGAIN. 


L12J tlif i£ LAST 1124 CC.2212 A 0139 1 ENDISLC CS MPTEPP 
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R1328 

falls 7 

SUFT CGthf (SLBiCCKESS) LESS THAN 125 CECIPAl. 



AX115 

Bin J. 

PSeuCO SIGN BIT (CETECTS CHANGE IN SIGN IN INDEXED ShlFlS). 



ftl331 

fall 9 

0 FDR LEFT SHIFT. AND 1 FOP. RIGHT SHIFT. 
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1 FOP TEPRINAL RCOND CN scalar SHlFTSt t CThERhISE. 
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fil334 

en lA 

1. 



fri33S 

81 T 19 
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TH 4£CVE kfiCCClNG 
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U37 

-JLtf- 

2 1 

LAST 

11 1 g 

00t22i^ 

7 Cli6 

_C_ 

GtNSHiFT 

MASK 

ADDS KC 

GET SHIFT CCUNT. TESTING FOR ZERO. 

131fl _ 

A£f 

2^5 

LAST 

U15__ 

C^3t2119 _ 

_l C COO C 


CCS 

A 

(ARRIVES KITH C(A) - LCH7). 

1339 

R£f 

_1 



OOtliift 

1 12 2A. 

_C_ 


TCF 

GENSFFT2 

IF NCN-ZEPC, PflCCEED KITH CECREHBNTEC CT 













11^0 

A£F 

34 

^AST 

69 6 

OililZI? 

3 ^701 

C 


CAF 

BITl Ci 

ZERO SHIFT CCUNT, NO SHIFTS NEEDED BUT 

13^1 

BEF 

12 

LASJ 

1121 

CC*2120 

7 0116 

C 


MASK 

AC DR 

KE RIGHT have TC POUNC HPAC ON SLR ANC 

L3A2 

REF 

-2-5 C 

LAST 

1129 

CQt222l 

1C OCC 

c 


CCS 

A 

SRR (SCALAR CNLYI. 

13A3 

KEF 


LASJ 

Jill 

00.2222 
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TC 
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1 3A<i 

RLF 

3 A 

LAST 

112 3 
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21 

LASl 
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TS 

HPTf RP 

OECPEMeNTEC SHIFT COUNT TO MPTEHP. 
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L0K2 
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11 2 S 

CO. 2231 

5C OCO 
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IIST 
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1 

RIGHT 

CLS 

MODE 

SEE IF VECTCR CR SCALAR. 
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TCP 
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Rtf. 

2 

LIST 1126 

Ciix22«_ 
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GENSCR 
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1 flliS 
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CA 

MPTf MR 

SEE IP SHIFT COLNT LESS THAN 19D. 
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1 
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AD 
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CG.2293 

0 0006 
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_eXTtNP 



I3t»2_ 

PEF 

1 



00,2299 

6 2127 

1 


0ZHF 

VSSR 

IF SC. BRANCH AND SHIFT IHHEUIATELY. 
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LIST 
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CO* 22^5 

6 7 Tie 

JL_ 


AO 

NECCPE 

IF NOT, RECUCE PPTFHP BY 1 TOTAL CF 19, 

136f 
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^ -a 

LIST 

112 6 

0Gt2296 

59 135 
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TS 

MPTF HP 

AND CO A SHIFT RIGHT AND BOUND BY 19. 
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1366 
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U2C 
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TS 

L 

ONE BIT ERROR IN A SHIFT RIGHT 15C. 
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PEF 

4E 5 
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56 159 

1 


XCH 

HPAC 
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Mi 
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1126 

00*2252 

56 155 

c 


XCH 

MPAC ♦! 


1369 

R E F 

__1 



CO. 2253 

0 22 7 2 

1 


TC 

SETRCLAC 

X COHPCNENT NCW shifted, SO MAKE UP THE 

1370 

.R.£F 

4^7 

LIST 

U26 

00,2259 

20 155 

1 


OAS 

MPIC 

RCUNOING QUANTITY (0 IN A AND 0 OR ♦-! 

31371 
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1372 
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Jtli. 

LIST 

iI2t 

00.2255 

56 157 

\ 


XCH 

MPaC +3 

REPEAT the leCVE PROCESS FOR Y AND Z. 

1373 

REF 

<i6 9 

LIST 

1126 

00.2256 

56 160 

c 


XCH 

MPAC ♦A 


L3 7<i 

REF 

i 

LIST 

1126 

0C.2257 

C 2272 

1 


TC 

SETPCUNC 


1375 

-- PJLL 

-Hi. 

LIST 

1126 

0C.226O 

2 C 1 60 



DAS 

MPAC +3 

NO CVERFLCk CN THESE ADOS. 
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REF 

971 

LIST 

1126 
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56 161 

1 


XCH 

MPAC -»5 


1377 

REF 
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1126 

00.2262 

56 162 

1 


XCH 
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3 
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1126 
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TC 
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1379 
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20 162 

c 


DAS 
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REF 

29 
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00,2265 
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SEE IF DONE, CQING FINAL DECREMENT. 
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REF 

35 

LIST 
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TS 
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8USLC 
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DOUBLE 
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13 86 

REF 
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00,2273 

59 156 
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TS 

MPAC *2 

C(AI. L IS ZERO INITIALLY. 
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REF 

220 
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00,2279 
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1 
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ZEPC 
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REF 
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LIST 
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56 CCl 
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XCH 
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00,2276 
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TC 
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00,2300 6 3726 
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±1 
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Q 00C6 
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dZHF 

OOSSFFT 
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1126 
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♦4 

AO 

NbCCFE 
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139fc 

REf 

37 

LAST 

1127 

00.2304 

-^4 135 
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IS 

MPTf RP 
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REf 

2il 

Liil 

U2 6 

00^2305 

3 4714 
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CAF 

ZERO 


1396 

PEf 
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LAST 

U26 

<)Ci2306 

56 154 

1 


XCH 

MPAC 


1399 

Rif 

476 

LAST 

1121 

LC.2307 

56 155 



XCH 

MPAC *1 


14CQ _ 

fi£^A77 

LAST 

1121 

00*2310 

54 156 

1 


TS 

MPAC *2 


1401 

Rif 

3£ 

LAST 

1127 

CQ*221i 

IC 135 

1 


CCS 

MPTC RP 

set If FINISHED, CO FINAL DECREMENT. 
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REf 

39 

LAST 

112 7 

00.2312 

54 135 
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TS 

MPTb MP 
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R^P 

- 3 

LAST 1126 

00x2313 

_0 2 3 0 C- 
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TC 
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_ 1404 
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1 
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DEC 
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SORT CONSTANT, 

1405 
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LAST 

1123 

CO. 2315 

3 4701 

C 


CAF 

fllTlC 

FINISHED WITH SblFT. SEE IF RCUND 

. 1406 

RIF 

J4 

LAST 

U23 ^ 

C0t23l6 

7 0116 
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RASK 

AOOR 40 

N A N T E C • 

14C7 

REF 

2S6 

LAST 

112! 

CO *1517 
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CCS 

A 


140e 

REF 

4_ 

LAST 

1125 
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1 


TC 

ROLNCSLB 


1409 

R fc F 

36 
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1126 

00.2321 

1 6030 
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TCF 

DAKZ IG 

DC SC ANO/OR EXIT. 













1410 

Rf f 

4C 

LAST 

112 7 

00.2322 

50 135 

c 

-CCSShFT 
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HPlLf-P 

PICK LP SHIFTING BIT. 

1411 

REF 

65 

LAST 

112 2 

00x2323 

3 4675 
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CAF 

b IT14 


1412 

REF 

41 

LAST 

1127 

00,2324 

54 135 
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TS 

MPTfcRP 


1413 

REF 

_J36 LAST 

112 7 

00,2325 

3 4701 

c 


CAF 

BIT 1C 

SEE IF TERMINAL RCUNO DESIRED* 

1414 

REF 

73- 
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1127 

CC,2326 

7 Cl 16 

c 
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AtOf bC 


1415 

Rif 

299 

LAi^T 1127 

Q0t2327 

1C OCQ 

c 


CCS 

A 


UtliL_ 

REf 
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00.2330 

1 2031 
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TCF 

blChlP 

YES. 

1417 

REf 
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1 2033 
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TCF 
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JUST SHIFT RIGHT. 
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R££ 
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6 2126 

C 


AU 

OCTl 76 

UNOERSTANCING TEAT 8118 t P SEUOQ-S IGN I 


X422 

RU 

- .41. 

XA S I 

lilt 

.£Ci2ii4 

54 135 1 


TS 

MPTFFP 

WAS 1 INITIALLY. 
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REF 

L- 



nG.23JJ5 

1 2236 

C 


TCF 

F IGHT 

DC NORMAL SHIFT RIGHT, 















1424 

REF 

2 

LAST 

lllfi 

C0i233C 

4 2126 

1 

LEFT- 

CS 

OCTl 76 

SAME PROLCGlE TC LEFT FOR INCEXEC RIGHT 


1425 

REF 

44 

LAST 

Xi2JB_ 

0U.2337 

6 C135 

_Q_ 


AD 

MPTFKP 

SHIFTS WHOSE NET SHIFT COUNT IS NEGATIVE 


1426 





C0«2340 

4 COCO 

0 


COH 




1427 

REF 

45 

LAST 

UiE 

C0t234l 

5 4 13 5 
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TS 

MPTE HP 
















lA2a 

REF 

_21 

L2ST 

112 4 

_ .Qtt2342 

1C 163 

1 

LFFT 

CCS 

MODE 

SINCE left SHIFTING IS SONE ONE PLACE AT 


1429 

REF 

1 



00.2343 

1 2346 

C 


TCF 

GENSCL 

A TIME* NC COMPARISON WITH 14 NEED BE 


1430 

REF 

L_ 


XI 26 

CO. 2344 

1 2346 

c 


TCF 

GENSCL 

CONE. FOR SCALARS, SEE IF TERMINAL ROUND 


i4J_L 

REF 



1123 

CC.2345 

i 2145 

1 


TCF 

VSSL 

DESIRED. FOR VECTORS, SHIFT IMMEDIATELY. 



1432 Rgp 7fc LAST 112T CC.23Afe A Qil6 C GENSCL CS ADDRKD PUT BCUNOING BIT IBIT IQ OF ADDRNOnNTO 

1433 0Ct2347 0 0006 I EXTEND ^ 3IT 15 OF CVR KFERE THE ROUNDING 81T OF 

l't34 RtF ^4 last 1031 00*^150 7 47C5 C NP bIT6 A SH ORT SFIFT LEFT WOULD BE 

1435 R£I 2-5-- LAST 1122 QQ.2351 54 020 1 TS CVR 
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NG. 96 

E3 S3 


P1434 


3 CALA fi D 1 V 1 5 JUHUlill R LC T IC N S 1 

CCV ANC dOCV* 

AB£ EAECUTEC 

PtBF. at TUS point, the OlVIOENO IS 

IN NPAC 



AhL 

Tti DIVISOR IN dOl* 





- -- 







4,440 

Rtf 

lit— LAST _Ui?- DC »23S3 _ 4 4112 C 

CLV/DCCV Cl- 

.. - DHL 

^IMlLlALIi AT IQfi. 



X4A1 

R£f 

1 _^0Ca2354 54 136 1 

TS 

OVSJGN 

-♦-1 FCP POSITIVE QUOTIENT - -0 

FOR NEQ. 


1442 

-R£f- 

1 COf239S 94 13? C 

15_ 


DIVIDEND N0RNAL12ATICN COUNT. 




1^43 «EF I CIU235<! 54 l^C C TS Hi^XDVSt. NEA R-C KE ClVICE FLAG. 


1444 

REF 

L5_ 

1 iST 

III 7 

flOf T5? 

1C 13C 

_L_ 


CCS 

auL 

FORCE BUF PCSITIVE WITH THE MAJOR PART 

1445 

REF 

1 



CCl2360 

1 251t. 



TCF 

BUf PCS 

NCh-2ERC. 

1446 
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1 
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+ 2 


1447 

REF 
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DC. 2362 
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( 


TCF 
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REF 

47£ 
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1121 

Il<ljX3fc3 _ 

54 156 

1 
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TS 

MPAC *2 

ZERO THIS. 

L44S 

AEf 

9_ 

LAST 

1124 

_ DC. 23 64 

0 7226 C 


TC 

TPAGPEE 

FC«CE SIGN AGREEMENT BEFORE OVERFLOW 
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Rtf 

4X9 
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C 
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MPAC 

TEST TO SEE If MPAC NON-ZERO. (TCO BIG) 

1451 

REF 
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00.2366 
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1 
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REF 

2 
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REf 

it 
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1 
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BUP 41 

SHIFT OlVIOENO AND DIVISOR LEFT 14. 
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57 
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00,2372 
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MPAC 4l 


1^5? 

REF 

4E 1 

LAST 

U29 

DC, 2374 

56 154 

1 


XCH 

MPAC 


1456 

REF 

56 

last 

U29 

00,2375 

10 130 

1 


CCS 

9UF 

TRY AGAIN CN FORMER MINOR PART. 

1459 

REF 

L 



QQ.2376 

1 2422 

c 


TCP 

PUF4- 


_1A60__ 





_J2Q.,2377 

1 2401 

X 


TCP 

♦ 2 

overflcm on zerc civiscr. 

_ 

REF 

L 



00,2400 

X 2416 

1 


TCF 

BUF- 














1462 

AEl 

4£2 

L35J 

1129 

C)C.2401 

4 0154 

c 


cs 

MPAC 

SIGN CP MPAC CETERMINES SIGN OP RESULT. 

1463 





0C,2402 

0 00C6 

I 

SGNCVQVF 

PXTLNC 



i4t4 





0C.2403 

6 2405 

1 


eZMF 

♦ 2 


1465 

REF 

4 

LAST 

112 9 

GO ,2404 

24 136 

c 


INCH 

DVSIGN 

NPGMAX IN MPAC PERHAPS. 

1466 

REF 

1C 

LAST 

1106 

C0*24U5 

3 4672 

c 

bvovF 

CAP 

PUSH AX 

CN DIVISION OVERFLOW CF ANY SORT, SET 

1467 

REF 

>6 3 

LAST 

1129 

CC.2406 

54 154 

c 


TS 

MPAC 

SET OF MPAC TO 4-POSMAX. 

L46e 

Rif 

1 



X0,24_C? 

0 2630 

c 


TC 

finalcv 43 


1469 

REF 

137 

LAST 

1129 

CO, 2410 

3 4712 

1 


CAP 

ONf 

SET CVERPLCW INCICATCR AND EXIT. 

14 70 

-- R£F 


LAST 

112 1 

00.2411 

54 121 

1 


TS 

GVPl Nir 


14 7 1 

REF 

37 

LAST 

1127 

C0.2412 

0 6030 

1 


TC 

DANZ 1C 


























1472 

ALL 

3 

XAST 

LL29 

0.0,2413 

24 136 

c 

-1 

INCR 

OVSICN 


1473 

REF 

59 

LAST 

U29 

00,2414 

4 0131 

c 

CVF* 

CS 

8UF 4 1 

LCAO LOwM CRDEP part CF OIVISOP. 

1474 

REF 

L 



00.2415 

1 24C2 

\ 


TCP 

SCNOVCVF 

GET SIGN CF RtSULT. 













1475 





o 

Ika 

i 

0 C006 

1 

euF- 

EXTEND 


IF fclF IS NEGATIVE, COMPLEMENT IT AND 

1476 

REF 

-ASl 

LAST 

1129 

00.2417 

4 0131 

c 


DCS 

BUP 

maintain CVSIGN fop final QUOTIENT SIGN. 

1477 

REF 

J 1 

LAST 

1129 

00,2420 

52 131 

c 


OXCH 

PUF 


1476 

REF 


LAST 

1129 

00,2421 

24 136 

L 


INCH 

DVSl CN 

NOW -0. 
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L479 

K£f 


L^ST 

112 S 

CUt2A22 

10 154 

C CUF* 

CCS 

MPAC 

FORCE f»PAC 

FOSniVEt CHECKING FOR ZERO 

X4&Q 

Rtf 

1 



2 3 

1 2437 

1 

TCF 

NPAC + 

OiVlCENO IN 

THE PROCESS. 

U£l_ 





il0^242^ 

1 24 26 

1 

TCF 

♦2 



1^62 

Rtf 

1 



00^2225 

1 2433 

t 

fCf 

HPAC- 



1^63 

REF 


L^ST 

113 C 

CXb2^2A 

IC 155 

1 

CCS 

MPAC +1 



l^e<t 

Hif 

2_ 

L/ST 

U3C 

C0.2A27 

1 2437 

J 

TCF 

HPAC4 




1465 

REF 

38 

LAST 112S 

C0t2430 

1 6030 

c 

TCF 

OANZ IG 

EXIT IPMECIATELT on ZERO CIVID6ND. 

1466 

REF 

2 

LAST 113C 

OOf 2431 

1 2433 

c 

TCF 

MPAC- 


1487 

PEf 

-11- 

LAST 113C 

CO. 2432 

J^jLOia 

J 

TCF 

DANZ 1C 








_ 00*2433 

Q C Q-C-6 

1 7<PAC- 

eXTEKC 

FORCE 

RPAC POSITIVE AS BUF IN BOF-. 

1464 

RfcF 

466 

LAST 

il3C 

C0*2434 

4 0155 

1 

DCS MPAC 



149C 

REF 

467 

L/ST 

11 3C 

CCf 2435 

52 155 

1 

CXCH NPAC 



1491 

REF 

1 . 

LAST 

U2S 

CO. 2436 

24 136 

C 

INCR DVSICN 

NCN ♦! 

• 

0 

1 

aC 

O 

1 


^ * 



X.3t ii 

la i 

—LX iUxL rn 1 

- L} P M n LJ 




LLLl-UJk 

L*li NljUa I M rA||C glJi 

L 
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1492 

Jilt 

4il 

LlSl 

113 0 

at ,2 437 

4 0154 

C 


.C5. 

HPAC 

CHECK FOR DIVISION OVERPLCW. IP THE 

1493 

Aif 

21 

14ST 

U27 

.flQt244(L 

6^ 7716 

C 


AO 

NEOC PE 

HAJCP PART OF THC OIVIOPNO IS LESS THAN 

1494 

ftRg 

62- 

■ -liST 

112 9 

00»2441. 

6 0130 



AO 

eup 

Ti!E PAJQR PART CP THE DIVISOR BY AT 

1495 

fi£f 

ICO 

HIT 

112 7 

QQtX442 

10 OOO 

c 


CCS 

A 

LEAST TWO. ME CAN PROCEED IMMEDIATELY 

1491 

Jl£# 

1 



_fiil.2443 

1 2505 1 


TCP 

OVNCPR 

WITHCUT NCRRAL I2ATICN PRODUCING A OVMAX. 

1497 





Q0»2444 

6QQC1 

_c_ 

"l/2*2 

CCT 

60001 

USED IN SCRTSUB. 













1494 





00.2445 

1 2446 

1 


TCP 

♦ 1 

IF THE ABOVE COES NOT HOLD, PCPCE SIGN 

149.9 


■ 11 

LJ>bT 

1115 

C0i2446 3 4679 

1 


CAP 

HALF 

AGPEENENT IN NUNERATQR ANO DENOMINATOR 

iiOVi 





QQf2447 

6 COOO 

\ 


DOUBLE 


TO FACILITATE OVERFLOW AND NEAR-ONt 

15til 

REP 

4ES 

I.11L1131_ 

_ aCt245C 

6 Cl 5.5 

c 


AU 

HPAC ♦! 

CHECKING, 

LSJZ 

BILL 

490 

LIST 

1131 

00.2451 

54 155 



TS 

MPAC +1 


15 03 

RIP 

222 

IIST 

112 7 

. 0012452 

3 47 1 4 

1 


CAP 

ZERC 


1504 

REP 

il 

LIST 

112 9^ 

C0t2453 

6 4672 

0 


AO 

POSRAX 


i9L5 

ftPP 

491 LIST 

1131 

Q0t2454 

26 154 

_c_ 


AOS 

HPAC 



1504 

REP 

12 

lill 

1131 

. -00*24 5.5 

3 4675 

1 


CAP 

HALF 

SAME FCR eUP* 

1507 





00.2454 

6 CQOC 1 


DOUBLE 



15tl_ 

KEP 

13 

LAST 

113 1 

-00»2457 

6 0131 

1 


AO 

cUF -tl 


1509 

REP 

64 

L15T_ 

1111 

CC*24tC 

54 131 

c 


TS 

BUF ■♦I 


1510 

RfJ_ 

211 

- HST 

1131 

cc.24fel 

3 4714 

1 


CAP 

ZERO 


1511 

_R£f 

32 

LliJ 

113 i 

00*2462 

6. A 6 72 

c 


AO 

PCSP4X 


1512 

REP 

65 

LIST 1131 

CC 12463 

26 130 

1 


AOS 

BUF 














1313 

REP 

492 

LI31 

11 il 

00*2 464 

4 0194 

c 


CS 

HPAC 

CHECK PAGNiruCE OP S I GK-CCRRECT EO 

1514 

REP 

66 

LIST 

113 1 

00i2465 

6 0130 

0 


AO 

BUF 

OPERANDS. 

1515 

fill 

-iCl 

LIST 

1131 

00.2466 

10 OCC 

c 


CCS 

A 


1316 

Ril_ 


LIST 

lUL 

Qif 2467 

1 2505 

1 


TCP 

DVNCPP 

DIVIDE OK - MILL NOT BECOME MAXCV CASE. 

1517 

RiP 

U 

LIST 

111 1 

00f247C 

00133 

0 

LeUP2 

AORES 

BUP2 


ISIfl 

REP 

L_ 



00.2471 

1 2405 

6 


TCP 

DVtVP 

OlVISCR NOT LESS THAN CIVIOENO * CVP. ~ 













1519 

REP 

A 

LAST 

1129 

CQt2472 

54 140 

0 


TS 

MAXO VSta 

IP THE MAJOR FARTS GF THE DIVIDEND AND 

15i;c 

R£f_ 

492 

-LAST 

U3 1 

00.2473 

A 0155 

1 


CS 

HPAC +1 

DIVISDP ARE ECUAL. A SPECIAL APPRCXIMA- 

. _ 1521 

REF 

67 

LIST 

113 1 

C0i2474 

6 cm 

1 


AO 

t UP ■♦1 

TIQN IS USED IPPOVIOEO THE DIVISION IS 

1522 





_IOOi247_5 

C 00i)6 

1 


EXTEND 


POSSIBLE, CP COCflSEI. 

1523 

REP 

2_ 

LIST 

1131 

00.2476 

J!_A409 

1 


ezpr 

OVOVF 


1524 

P E F 


_ LIST 

113 1 

00.2477 

1 2505 

1 


TCP 

DVNC FP 

IP NO OVERFLOW. 
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1125 



CCr254a 

0 0iIC 6 

1 BUFNCRR 

EXTEhC 



ADO -1 TO AIGREM SHIFT COUNT AND SHIFT 

*- - 

- - - 

1526 

REF 

2 Li5T 112 5 

C£l25Q1 

2 A 13 7 

1 

AU G 

OVNt'PFCT 


LEFT CNE PLACE. 

15^7 



QC.2SC2 

0 GUC6 

1 

EXTEND 




152fi 

REF 

68 Li5I 1131 

QC U3Xl3 

^CUl, 

1 - 

DC A 

euF 





152S 

PEE 

45 IASI 1132 

_ QC#2_5^A_ 

1Q_J.31 

C 

OAS 

bUT 
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1531 0Ct2506__ 4 OUQC 1 OOUBLt 


15-12 CC.Z5C7 5^ QCO C CVSK 



REF 

1 



CC»2510 

1 

250C 

1 


TCF 

PUf NCRN 

NC - SHIFT LEFT ONE ANC TRY AGAIN. 














153A 

REF 

-& S A ■ 

EAST 

1131 

PC. 2511 

52 155 

1 


DXCH 

HFAC 

CALL CIVICENO NCPNAL IZ AT IGN SEQUENCE 

1535 



LAST 

11 32 

0G,2S12 

50 

137 

1 


INDEX 

OVNLRF*CT 

PRIOP TO DOING THF OIVtOE. 

1536 

REF 

1 



COf 2! 13 

0 

— ^fe=^-=r-= 

254 5 

C 


TC 

NAXTEST 















153J 

RtF 

A55 

1A_5T_ 

_U32 

50j251A 

5A 

156 

1 


TS 

»^PAC ♦; 

RETURNS WITH CIVISIQN DONE AND CIA) - 0. 

153fc 

REF 

AC 

LAST 

113C 

COt2915 

1 

6030 

c 


TCP 

DANZ 1G 



153S 

REF 

3C2 

-lAST 

JLIXL 

CCf 2516 

10 

OOC 

c 

HUFPCS 

CCS 

A 


i 5 a t 

REF 


LAST 

112 S 

0C,2517 

1 

2A22 

c 


TCF 

BUF + 

TC BUF* IF EUF IS GREATER THAN ♦!. 














15A1 

REF 

71 

LAST 

1132 

O0t252C 


0131 

c 


CS 

CUF ■»! 

IF BUF IS *1, FORCING SIGN AGREFNLNT 

15A2 





UCt2521 

0 

0006 

1 


EXTENU 


HAY CAUSE BCF TC BEGONE ZERO. 

15A3 

_R11_ 

3 

LAST 

_LU1_- 

CO. 2522 

6 

2A22 

_ 1 _ 


BZHF 

bUF + 

BRANCH IF SIGNS AGREE. 


15AA 

REF 

n 

LAST 

_I13L 

00.2523 

3 

A675 

1 


CA 

half 

SIGNS DISAGREE. FORCE AGPEEHENT. 

15.55 





CQ.2S2A 

6 

COCO 

2 

♦ 6 

DOUBLE 



15A6 

REF 

72 

1 A ST 

_J132 

CQf 2525 

24 

131 

c 


AOS 

euF 4i 


15A7 

REF 


LAST 

IL31 

00.2526 

3 

A71A 

1 


CA 

2ERC 


1558 

-REF 

73 

115 T 

1132 

CC.2527 

5^ 

130 

1 


TS 

BUF 


15AS 

REF 

1 



00*2530 

1 

2343 

1 


TCF 

bUFZ EFC 




























_ 155C 

PEF 

3C3 

LAST 

1132 

CCj25 3 l 

1C 

000 

c 

eUFNEC 

CCS 

A 


1551 

REF 

2 

LAST 

112 « 

00,2532 

1 

2A16 

1 


TCF 

BUF- 

TO BUF- IF BUF IS LESS THAN -1. 














1552 _ 

REF 

TA 

LAST 

113 2 _ 

00,2533 


GUI 

1 


CA 

8UF 4l 

IF tiUF IS -1, FCHCINC SIGN AGREFMENT 

1553 





00.253A 

0 

0006 

1 


EXTEND 


NAY CAUSE BUF TC BECOME ZERO. 

I55A 

REF 

3 

L AS T 

1132 

0C.2535 

6 

2A16 



DZMF 

bUF- 

BRANCH IF SIGHS AGREE. 


1555 

REF 

lA 

LAST 

1132 

CO, 2536 

A 

A675 

c 


CS 

half 

SIGNS OISAGREf, FORCE AGREEMENT, 

1556 

_B.EF 

2 

LAST 

112S 

00,2537 

1 

252A 

1 


TCF 

BUFPLS 46 
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PJJil 



IFE FCLLCIlIKG ARE PRCLCGUES 

TC 

SHIFT THE 

; DIVICENO ARFIVING 

IN A ANO L cEFCPE THE DIVIDE. 












lSS*i 

REf 

i?. 

tiST 1121 

CGt2S9Q 

22 02i 


-zLH 

LXCH 

bP 

SPECIAL PROLOGUE FOR UNIT NMEN THE 

i5t>Q 




CG*259l 

-1 0006 

1 


EXTEND 


LENGTH OF THE APGUNENT biAS NOT LESS THAN 

as 61 

REE 

as 

LAST llli. 

C0taiA2 

7 9675 

JL 


HP 

HALF 

.5. IK THIS CASE. EACH COMPONENT HOST BE 

1562 

REF 

1F5 

LAST 1126 

00*2593 

56 QCl 

_C_ 


xch 

L 

SHIFTED RIGHT CKE TO PRODUCE A HALF-UNIT 

1563 

ME 

iA 

LAST 1133 

CC,2599 

6 C021 

1 


AD 

SP 

VECTCR. 

156^ 

REF 

186 

LAST 1133 

C0iZ595 

56 CCl 

C 


XCH 

L 


1565 

M£_ 

1 


C0.2546 

M 25 71 

a_ 


TCE 

GENCCV *1 

WITH CP OlVlOENC IN A.L. 


1566 




0Q> 219 1 

20. 00 L 

1 


OQDUeL 


PPGLCCUE NHICH NORMALIZES THE DIVIDEND 

1567 




00. 2550 

ZC QCl 

j_ 


DDDUBL 


WHEN IT IS KNCWN THAT NO DIVISION 

156 8 




.a.Ci255a 

20. 0 01 

1 


OOOUBL 


CVERFLCW WILL OCCUR. 

1569 




00.2552 

2C 001 

JL 


OOOUBL 



IS7C 




00.2553 ZC 001 

a_ 


DDGUbL 



157a 




0112559 

_ 2 C 001 a 


OOQUBL 



1572 




00*2555 

2C oci 

1 


D00U8L 



1573 




00*2556 

2C QCl 

J_ 


OOOUBL 



157.9 




00.2557 

2C 001 

1 


OOOUBL 



15 75 




00.2560 

2C OCi 

1 


OOOUPL 



1576 




00.2561 

2C 00 1 

a_ 


OOOUBL 



1577 




00.2562 

2C OGl 

1 


OOOUPiL 



1578 




00.2563 

2C 001 

1 


OOOUBL 



1579 

Ml. 

996 

LAST 1132 

00*2569 

52 155 

A 


OXCH 

MPAC 



15BC 

REF. 


LAST 1131 

00*2565 

IC 190 

C 

HAXT6ST 

CCS 

HAXOVSh 

0 IF MAJORS MIGHT BE -1 CTHEPWISE. 

1581 




00.2566 

C6552 

C 

8IASH1 

DEC 

.9192 B-1 

SORT CCNSTAKTS 












1582 

flEF 



-OlxlStl 

1 2_692 

1 


TCP 

HAXCV 

CHECM 1C SEE IF THEY ARE NCW ECUAL. 
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P 15 9 7 



A -» Sd . 

(R - 

LCI 




A + SB 



P159S 



Q 

i S( 

--I WHERE 

C 

AND P 

ARE QUOTIENT ANC RtMAINCEP CF RESPECTIVELY. 




C ♦ SD 

i c 

I 




C 















IAC3 

REF 

JlSX_ 

LAST lli3 

CCt2S7u 

52 153 

1 

GENCDV 

DXCH 

MPAC WE NEED A ANC 0 CNLY FOR FIRST CV. 



LtUL<i 




_Qi) 5 7 \ 

C OOGA 

T 

♦ 1 

EXTEND 

1 special unit PPOLOGUe ENTERS HERE!. 



1^05 

PEE 

T5 

L/ST U32 

00.2572 

10 130 

1 


uv 

BUF A NCW CONTAINS C ANO L* R. 



itcei 

REf 

ASE 

LAST 1134 

CC.2573 

52 15S 

1 


DXCH 

MPAC 




160 7 

Rif 

999 

UAJ T 

U3.A 

00.2579 

A 

0159 

c 

CS MPAC 

FORM CIVIDENO FCR MINOR PART OF RESULT. 


IfcJia . 





00.2575 

c 

C006 

1 

EXTEND 



U0.9 

REf 

Te 

LAST 

U34 

CC.2576 

7 

0131 

c 

MP BUF •♦I 



1610 

REF 

SCO 

LAST 

113A 

00,2577 

6 

0155 

0 

AO MPAC +1 

OVERFLOW AT THIS POINT IS POSITIVE SINCE 


1611 





QC.2600 

59 

000 

c 

OVSK 

R IS POSITIVE IN EVERY CASE. 


1612 





CC,2601 

1 

26C6 

1 

TCF £5 




1613 





C C ff 2 6 Ci2 

C 

C006 

1 

EXTEND 

OVERFLCm can EE REMOVED BY SUBTRACTING C 


161A 

KEF 

77 

LAST 

113A 

CO, 2603 

60 

130 

c 

SU fcUF 

(eUFI ONCE SINCE R IS ALWAYS LESS THAN C 


161S 

REF 

3C I 

LAST 

11 3 A 

CCf 2609 

29 

159 

1 

INCR MPAC 

IN THIS CASE. INCR COMPENSATES SUBTRACT. 


1 6 1 O 

REF 

L 



00.2605 

1 

2610 

0 

TCF ♦DUnN 

(SINCE C(A) IS STILL PCSITIVEI. 














1617 





00.26C6 

0 

0006 

1 +5 

EXTEND 

C(A) CAN BE MADE LESS THAN C IN MAGNI- 


1618 

REF 

L 



Q0t26Q7 

6 

2620 

J 

eZMF -UP 

TU06 BY DIMINISHING IT BY C (SINCE C IS 



A1619 NOT LESS THAN .5» UNLESS C(A) » 0. 
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ItZ C 




_ilil»261fl 

C 11006 1 

♦ LOiih 

EXTEKt 




1621 

f^EF 

76 

L«l 1114 

C0i2611 

6C 130 C 


SU 

LUF 

IF POSITIVE, RECUCF ONLY IF NECESSARY 


U22 




00.2612 

0 QQQ6 1 


EXTEND 


SINCE THE COMPENSATING INC« MIGHT CAUSE 







1 2616_L 


BZF 


OVERFLCW • 


1624 




QQ.2614 

o_oaa6_^ 


EXTEND 


DCNT SUBTRACT UNLESS RESULT IS POSITIVE 


lfa25 

RCf 

L 


QC.2616 



flZMF 

tNDRAXDV 

CP ZERO. 



111^6 

REf 

JC2 

L/Sl U34 

CCl2616 

24 154 1 

♦3 

INCR 

MPAC 

KEEP SUBTRACT HERE AND CCMPENSATE. 


1627 

R£f. 

2 

LIST 1129 

00.2617 

1 2625 C 


TCP 

FINALCV 














1626 




QQ«262C 

,0 0006. 1 

-UP . 

EXTtNC 


IF ZERO, SCT MIKCP PART OF RESULT TO 


1629 

R6f 


L3ST 113! 

CO. 2621 

1 26 3C 1 


aif 

F INALCV >3 

ZERO. 



X63t. 




QQi,2.6j^Z 

Q 0006 1 


EX7FN0 


IF NECATIVE. AOC C to A, SUBTRACTING CNF 


1631 

R£f_ 

5C3 

L^ST 113» 

CQf2623 

26 1*4 C 


OlH 

HFAC 

TC CCMPENSATE. CIM IS CK HERE SINCE THE 


1632 

_MF. 

_?9 

im 1133 

00,2624 

6 C130 0 

ENQH4XC/ AO 

0UF 

MAJOR PART NEVER GOES NEGATIVE. 






ASSEGAI t 

&£V IS lilh ^37 

CF Al.C PRCGftAM CQLCSSUS EV NASA 2o21111-f31 

1 : 17 

Atif!. CATBAD .nnA 

PACF Tl'^A 

- _ _ 











la-J M m r It Y at ^ * r. ... r » V 

r m\J u LAJO 


1 - 

IMEPPfitJli 








USPk*S PAGE NO, 

63 

F 3 S 3 

— 














- 

Ihll- 



- ftO 1 2 42 5 

^ 0C7 

c 

FINALCV 2t 


DC 

cv 

TO CeiAIN MINOR 

PART OF 

RESULT. 





011*2626^ 

. 0 00C6 

1 

EXTEND 






— 

1 

aif 61. 

LiST 113; 

CC.262? 

It 130 

J_ 

DV 

JiUF 




- 

- 

. — ^ — - _ — , ^ . 


aEf 3 (L 9 

CJI 5 T 

CCf 2630 

5 A 155 


♦ 3 TS 

MFAC +l 



















' ' - 

— 

1^37 

P ^ 

L/ST U3C 

00.2631 

10 136 

-L 

CCS 

DVSr CN 

LEAVE 

RESULT POSITIVE 

UNLESS 

C( DVS IGN )« 

— 

1628 

_ e 

1 A 6 J 1 LZ 6 

iLC f 2^4 22 

Q 0 J 5 C 2 

C 

TC 

0 

- 0 . 






1639 

16<i6 

REF 259 

REF 2tQ 

L/»S1 U3t 
tiST il3t 

0012633 
0Q« 26 34 

0 CC02 

-jQ Q C C ^ 

C 

TC 

TC 

0 

C 

— — . 





— 


16A1 _ 



- 001*2636 . 

_J(L Q0C6 

1 

EXTEND 

' - 

1642 

REF 3C* LAST 

1136 

CO. 2636 

4 015S 

1 

DCS 

MPAC 

- ^ — — 

1643 

REF set L/ST 

1136 

ec,2637 

52 155 

1 

OXCH 

HPAC 


1044 

REi .225 LA5T 

UXi 

00^2640 

3 4714 

1 

CAF 

ZERO 

SO WE ALWAYS RETURN WITH C(A1 * 

L645 

REF 261 LAST 

1136 

CC.2641 

0 0UC2 


TC 







n 





r' 


II 



I 







* 
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£J£J 237 CF ACC PROGRAM COLOSSUS flV NASA 2021111-C31 HU ALG. 24tl9fe9 SATKAP 


4 ^UUEflP-fitTER- USER'S PAQE NO- 64 E3 S3 

P1&46 —If _lh£ -Mi-JOB PAKIS tJl£ 1^1 V ISO? AMC CtViOEND APE £ CHAU i6UT THE MINCP PIETS AHE SUCH THAT THE 

RI64B OIVICIAC X5 STRiClLY LESS THA^ THE OIVlSQK IN ^AGMTUDEf THE FClUCNlHG A P PRC X I H AT I CN IS USEO- THE ASSUMPTIONS 

fi.U50 ARP THE 5AIIP A^ T I- E CENTRAL RCtlTtNP iilTH THE AQOITIQN THAT SIGN AGREEMENT IS NECESSARY IB. C. S 0 POSlTIVfcl, 


E 16 S 2 X- A -SB- -* (X - 1 J -_XJ 

&iXS3 37777 4 S( 1 

PUS4 . __X_±_SC ( C I 


R.U5S TPP DlVlSirN MAY BP PPPPCRMEC IMMEDIATELY SINCE B IS STRICTLY LESS THAN 0 ANC C IS NOT LESS THAN .5. 














MPF 5C? 

LIST 1136 

CO. 2642 

4 0154 

C 

_MAACV _ 

CS 

HPAC 

SEE IF MAXCV CASE STILL HCLOS AFTER 


REF El 

XAST 113 6 

Q_Uj2643 

6 X130 

0 


AD 

BUF 

NCRMALIZATICN. 

less 



00,2644 

0 0006 

1 


EXTEND 



Ifa6C 



CO. 2645 

1 2647 

1 


azF 

♦2 


1661 

REF A 

. XliT 113 3 

00,2646 

1 2 5 70 

c 


TCF 

GENOev 

MPAC hCa LESS TFAN BUF - DIVIDE AS USUAL 











1662 

A£F 12 

LAST 1131 

00^2647 

3 4672 


.42 

CAF 

PCSMAX 

SET MAJOR PART CF RESULT. 

itL2 

REF SIfi 

LAST an 

aoxzesc 

54 154 

c 


TS 

HPAC 












L6A4 

REF £-2- 

LIST 113T 

0Q.26S1 

4 0131 



CS 

BUF 

FORM ClVlCEhC OF MINOR PART OF RESULT. 

1665 

REf-5liS 

LAST a 3-1 

--.0^65.2 

6 0155 

c 


AD 

HPAC 41 


16&J6 

PEF 2 

LAsmis 

. X0j26SJ 

1 262^ 

1 


TCF 

FNDM AXCV 

GC AGO C ARC CC CIVIOL, ATTACHING SIGN 

Al6fe7 









BEFORE EXITING. 


XUEJ A^StL»BLf fimlSICh 2^7 CP flf.f. PRCfrRAH CCLCSSUS BY NASA 2021111-031 Itn ALG. 2^. 1968 SATRAP .00^ PAGE 113B 


1 

^LMiXElim 






USFP*5 PAGE NC. 65 E3 S3 


PiALfi 



JILICA 0JV1I1E1 BY SC/JL/P. V/SC 

* IS lAeoureiJ 

HEPC . THE veCTCR 

JS NOW IN HPAC WITH SCALAR IN BUF, 











itlL 

fiff 

I2t 

liET lUS 

QQ » 26 5A 

6 A712 

_C_ 

V/SC2 cs 

ONE 

INITIALIZE CIVICEND NOPBAL IZAT ION COUNT 

l6iL 

Rtf 

Jl ^ 

UlST 1132 


iA li7 

C 

TS 

OVNOPHCT 

AND DIVISION SIGN PEGISTER. 

16 12_ 

Jit 


UliLllli _ 

CQ.2656 

5A U7 

1 _ 

TS _ 

VBUP 45 



X611. 

R£t_ 

. i 


00*2 eiL? 

0 301Q 

c 

TC 

VEC ACPEE 

FQfiCE SIGN AGPEEMENT IN VECTOR 











167^ 

Rgf 

£3 

iiST 11^1 

CL.26feQ 

12 ill 

c 

DXCH 

BUF 



PEf 

L_ 


05 *1 46 1 

U 7513 

1 

TC 

ALS IGNAG 

SIGN AGPEE EUF 

- itilt 

rt£F 


LAiT LLM 

_C 0,2 66 2 

5? 131 

c 

DXCH 

BUP 


1677 

K£JL 

es 

L/ISl 113fl 

Of] *2 66 3 

iC 13C 

a_ 

CCS 

BUF 

FORCE UIVISCR POSITIVE WITH MAJOR PAP7 


PIP 

1 _ 


00t2664 

1 2721 

c 

TCP 

/BUF + 

NCN-2ER0 (IF PDSSIBLEJ. 

107S 




00i266:] 

1 266 7 

c 

TCP 

4-2 


ifeac 

R£f 

■ .1 - 


Qli« 2666 

1 2715 


TCP 

/euF- 



10 il 

REF 

44 

LAST 

11 38 

00x2667 

56 131 

1 

XCH 

POF 41 

SHIFT VECTOR AND SCALAR 

LEFT 14. 

- 1682 

REF 

87 

LAST 

113 6 

-05*2670 

56 130 

5 

XCH 

bUF 



_ ue3. 

REF 

5 1C 

LAST 

1137 

CO f 2671 

56 155 

C 

XCH 

MPAC *l 



16 8 A 

REF 

9 11 

L ASL 

1131 

C 0 , 2 6 7 2 

56 154 

1 

XCH 

MPAC 



1665 





00.2673 

0 0006 

-1 

EXTEND 


CHECK FOR OVERFLOW IN EACH CASE. 

1666 





00*2674 

1 2676 

C 

6ZF 

42 



16 67 

REF 

i 

CAST 

113 1 

0Cf2673 

1 24C5 

c 

TCf 

DVOVF 















icee 

PI f 

111 

LIST 

2L3 6 

55*2 47 6_ 

56 160 

c 

XCH 

MPAC 4<i 



1669 

REf 

! 13 

LAST 

1131 

00,2677 

56 157 

1 

XCH 

«PAC 43 



1690 





CCj27CC 

0 C0C6 

i 

EXTEND 




1691 





00,2701 

1 2703 

c 

6ZF 

42 



U92 

RIF 

A 

LAST 

1138 

CLjl2 7C2 

1 2405 

c 

TCP 

DVDV F 















i69a„ 

REF 

5 lA 

LAST 

1136 

CO. 2703 

56 162 

1 

XCH 

MPAC 46 



169A 

Rtf 

$ 1 ft 

^ i «i* 

LA S T 

1136 

00,2704 

56 l6l 

1 

XCH 

MPAC 45 



loss 





CC.27C5 

0 0006 

1 

EXTEND 




1696 





GO, 2706 

1 2710 

1 

BZF 

42 



1697 

REF 

ft 

LAST 

1136 

CO, 2707 

1 2405 

0 

TCF 

OVQVF 















U96 

REF 

66 

LAST 

1136 

CO. 2710 

1C 130 

1 

CCS 

BUF 



1699 

REF 

4 

LAST 

1136 

CC,2711 

1 2 72 1 

c 

TCP 

/BUF 4 



1700 

REF 

6 

LAST 

1136 

CO. 2712 

1 2405 

c 

TCF 

DVUVF 

ZERO OIVISCR - CVERFLOW. 


1701 

REF 

2 

LAST 

1136 

00,2713 

1 2715 

1 

TCF 

/BUF- 



1702 

REF 

7 

LAST 

1131 

CO, 2 7 14 

1 24C5 

c 

TCF 

DVOV F 















17C3 





00,2715 

0 0006 

1 /faUF- 

EXTEND 


CN NEGATIVE, COKPLEMcNl 

BUF AND MAINTAIN 

170A 

REF 

89 

LAST 

1136 

C Cf f 7 16 

4 0131 

c 

DCS 

BUF 

OVSTGN IN veuF 45. 


1705 

REF 

9C 

LAST 

1136 

00,2717 

52 131 

c 

DXCH 

bUF 



1706 

REF 

A2 

LAST 

113 6 

CC,2720 

24 127 

c 

INCR 

VUUF 45 






.ASSfUfill ! 

Hpm*; inn pn 
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•004 PAGE 1139 















IhJtBEPElEB 








USER'S PAGE NO. 66 

Ul 

1 

1 

1 

1 

1 

1 , 














17t}7 





C11.212L_ 

_fl_ 0006 

1 

/BUF> 

E)«TEND 




11 dH 

RBf 

SI 

IASI 

U36 

£Cj. 2722_- 3 Qlll 

I 


OCA 

BtJF 

LEAVE ABS(ORIC ClVlSOR) IN 6UF2 

17C9 

Rff 

u. 

LiST 

113 1 

COf21P% 

52 134 

_C_ 


UXCH 

fiUF2 

FOR OVERFLOW TESTING 


L710 

Rif 

1 



flQt272R 

1 27 3 2 

1 


TCF 

/NCR R 

NCRPALIZE CIVISCR IN fiUF. 















nil 





QCifZl2^ 

0 CQQb 

JL- 

_7NGfiM2 

EXTEND 


IF LESS THAN .5. AUGMENT 

UVNORMCT and 

1712 

Rll 

IS 

.. . W 

IIST 

U3I 

C0i2_726 

24 137 

1 


AuC 

UVNCFRCT 

DCuaiE DIVISOR. 


1713 





00.2727 

0 0006 

1 


EXTEND 




LIIA 

REf 

S2 

L3S7 

113S 

00.2730 

3 C131 

1 


OCA 

BOF 



1715^ 

REF 

$3 

L3S7 

113S 

00.2731 

20 131 

0 


DAS 

bUF 
















tXU- 

R££. 

L4- 

LIST 

_LL3lS 

00t2732 

3 C13C C 

>KGR^ 

CA 

EUF 

SEE IF DIVISOR NORMALIZED 

• 

1717 





_Q1U2733 

6 OOOO 

1 


DOUBLE 




17U 





_M.273^ 

54 CCO 

C 


OVSK 




1719 

aif_ 

L 



00.2735 

1 2725 1 


TCF 

/NCFR2 

OCUBLE AND TRY AGAIN IF NOT. 


IIZQ 

REi 

_ 1 



GOf 2 1B6 

Q 2750 

1 


Tl 

V/SCQV 

DC X CCMPCNENT CIVIOE. 


1721 

■■ „ R££ 

Slfe 

L/ST 

1138 

00.2737 

_52 160 

_L_ 


OXCH 

MPAC 43 

SUPPLY ARGUMENTS IN USUAL 

SEQUENCE. 

1722 

p if 

2 17 

LAST 

U3S . 

CO. 2740 

52 155 

1 


DXCh 

MPAC 



174 3 

REF 

218 

im 

113 S 

C0i2 7<il 

52 160 

1 


DXCH 

MPAC +3 
















172A 

REF 

2 


Ja£j27f2 

Q 2750 

1 


TC 

V/SCCV 

Y CORPDNFNT. 


172i 

FEf 

ilS 

L/ST 

U3S 

00.2743 

52 162 

C 


DXCH 

MPAC 45 



172fc 

BiJ_ 

-22C 

L/ST 

113$ 

CO. 2744 

52 155 

] 


DXCH 

MPAC 



1727 

RE F 

271 

LIST 

U3S 

CCf2?45 

52 162 

c 


DXCH 

MPAC 45 
















i7?a 

- RFf 

1 

LiST 

U3S 

00.2746 

C 2750 

1 


_ IC 

V/SCCV 

Z COFPCNENT. 


172S 

PEF 

.JL 

LAST 

1122, 

_mi274J 

1 7367 

c_ 


TCF 

VKOT ATFX 

CO RF-ARRANGE CCHOCNENTS 

BEFORE EXIT. 


UiB-1 AS$g>gLf ftFVlSinh 7^7 CP AGC PRCf.ftAM CCLCSSUS BY fiASA 2Q2111I-C3i 1:1? ALG> 2^.1968 SATftAP ,OQA PACE 1140 

L IMEHPPETEP ^ USEP^S PAGE NC. 67 t3 S3 


Pi73C 



SifiRCLILM 

.ui£C _l3r. : 

V/SC TC 

ClVlCt VECTCH CCHPCNENT IN RPAC,+1 

0V THE SCALAR GIVEN IN BUF. 








C 






I73z^ 

Rgf 

L3_ 

1 AST 1138 

Qlj.2750 

3 0127 

V/SCDV 

CA 

ViiUF *5 

REFLECTS SIGN CF SCALAR. 


Xlil 

Jl£f 

IL 

L/ST 1136 

_QQi2 751 

imj6 

I 


TS 

OVSI GN 















1.13A 

R£f 

522 

LAST 1134 

00*2752 

10 154 

_JL_ 


CCS 

JlPAC 

FCRCF HPAC POSITIVE. EXITING ON 

ZERO. 

1733 

RJif 

L 


QOi2753 

1 2747 

1 


rcF 

/HPAC+ 



1734 




. 00 1 2 754 

1 2 756 

( 


TCF 

♦ 2 



1737 

Htf 

L 


Cu.2755 

1 2 743 

C 


TCF 

/HP AC- 















1736 

Kif 

223 

ll4jt_ 

00,2756 

1C 15S 

1 


CCS 

HPAC *l 



ms 

R£f 

2_ 

L3ST 114C 

00*2757 

1 2747 

1 


TJLF 

/MPAC+ 



11^ t) 

ref 

242 

L/ST U34 

00.2760 

0 00C2 

c 


TC 

Cl 



17^1 

Rtf 


JL117 114C 

C6t2761 

1 2763 

c 


TCF 

/MPAC- 



1742 

REf 

■ 243 

L^ST 114C 

00.2762 

0 0002 

c 


TX 

Q I 




1743 




.0ilt2 763 

0 C006 

1 

/MPIC- 

EXTEND 


USUAL COHPLEHENTING AND SETTING 

OF SIGN. 

1744 

Rgf 

524 

LiST 114C 

_ 00.2764 

4 0155 

1 


DCS 

HPAC 



1745 


125 

l^SJ 1144 

CCf2 76 5 

52 155 

1 


DXCH 

HPAC 



1744 

REF 

e 

LAST 11 4 C 

OQf 2764 

24 136 

c 


I NCR 

DVSICN 















±14 7 

REF 

13 9 

LilST llUl _ 

_ C.0t2_767_ 

4 4712 

c 

/MPAC> 

CS 

ONE 

initialize NEAH-CNE SWITCH. 


1748 

REF 

4 

LIST 1133 

0C,277G 

54 140 

c 


TS 

HAXO VSW 















1749 

REF 

226 

L^ST U4C 

00,2771 

4 0154 

c 


CS 

HPAC 

CHECK POSSIfiLE CVERFLOW. 


1750 

REF 

IS 

lAST 113< 

CO, 2772 

6 0133 

0 


AO 

auF2 

UNNCRHALIZfcC INPUT DIVISOR. 


1751 

REF 

3C4 

LIST 1132 

00.2773 

10 000 

c 


CCS 

A 



17 52 

REF 

1 


00.2774 

1 3004 

1 


TCF 

DDVCALL 

NCT NEAR-CNE 


1753 




00,2775 

1 2777 

c 


TCF 

♦ 2 

♦0 IS JUST possible 


1754 

REF 

£_ 

LIST U3E 

00,2776 

1 2405 

c 


TCF 

DVCVF 

NC HCPE 


1753 

REF 

5 

LIST U4C 

00,2777 

54 140 

c 


TS 

HAXDVSH 

SIGNAC POSSIBLE NEAR-ONE CASE 


1756 

REF 

2 57 

LIST 114C 

CCtiCOO 

4 0155 

1 


CS 

HPAC ♦! 

SEE IF OIVISICN CAN BE DONE 


U5.7 

REF 

li_ 

LIST 114 C 

CC,3001 

6 0134 

] 


AD 

eUF5 



1758 




CC. 3C02 

0 0006 

1 


EXTEND 




1759 

REF 

r • ■ 

4 

LIST U4C 

CC, 3CC3 

6 2405 

1 


82F»F 

DVCVF 















1760 

_ J<E F 

2.2E 

LIST U4C 

CC,3004 

52 155 

1 

OOVCALL 

DXCh 

HPAC 

CALL PRE-CIVIOE NORMAL T Zl T I ON , 


1761 

REF 

t 

LIST 1134 

CC.3005 

5C 137 

1 


INDEX 

CVNCPHC7 



1762 

REF 

2_ 

LIST 1135 

CC, 3CG6 

1 2565 

1 


TCF 

HAXTEST 




t 
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_1 IMEPFfEltP 


USER'S PAGE NO. 60 E3 SI 



LI 6a 


Diitaool 

31 ^t C 

slgpelc 

J 3 LC 

.0324 

















- ' - - - — 



lltxik 

^sm Jt4, tAST 11 AC 

cc, ICIC 

56 ac? f 

VtCAGRtt 

XCH 

U 

SAVE Q IN 

A 



a 165 

Rtf 525 L^ai ai4.C 

CD t aci 1 

15S 1 


DXCH 

MPAC 







1166 

Rtf JL -LIST liai 

CDf 3C12 

_jU 13JJ -I 


TC 

ALSlChAG 

S iCNAGREE 

MPAC 





176 ? 

tiff iAST 114 1 

gCf 3C13 

52 155 1 


DXCH 

MPAC 







1166 

«it 5U LAST- 1L41 

C0taci4 

51 160 1 


DXCH 








1769 R£f 1 LAST 11^ 1 CC .3C15 G 7513 1 TQ ALSIGMC SIGN AGREE PPAC ♦> 

mu RLE 5i2 LAST 1141 CC.3C16 52 I6Q 1 DXCH l>‘PAC 


i7?L REF *12 LAiT 1141 COt3C17 3Z U2 C DXCH WPAC -*5 


1712 R£f 4 LAST llAI X(U3Q2C 0 7513 I TC ALSICNAG SIGNAGREE mpac *5 


1773 

Rtf 

534 

LAST 

1141 

OQf3C21 53 162 C 

DXCH 

MPAC *5 


1774 

REF 

ICi 

L AS T 

il4C 

G0t3022 G COOC 1 

TC 

A 









n 




-i^T=«r 









'T 









A SSFhP l f B£ m SIO N 2 2 7 C P Ar. £ .PKCGflAM. LGLC5SLS BY NftSA 2C21111-C31 Ul? AUG, SOTRaP .UQ<t PAGE IH2 

t ihltflPPEliJi USl? ' S PAGE NO. 69 ^ S3 


-EX77i^ THE UMT INSTRUCTION, WHICH TAKES TRfe LNIT CP THE VECTOR IN HPAC. 


i ?77 B-Li 2 LAST I13fi m»3£23 Q 3Q1Q C LAIT K VECACRPE FORCE SIGN AGWPFWENT IN VHCTPR 

1778 ALf 2 LlST_Uil C UQi 1 TO N PACVfaOF SAVE AR GUMENT IN VBUF 

1779 HEE 2ZL LAST JlJ.t £i3xK2i 3V^7H I CAT Z£PC HOST SENSE CVERFLOW IN FOLLOWING DOT. 

1780 aUE t LAST 112^_ CQ.3026 56 121 C XCH OVFINC “ 

JLJiLl REP 3 iiiV 67 C0,3C2? 54 lAl I TS TEWl 

LZfl2 RtF 1 Cfii3Q_3P 0 3317 i TC VSCSL6 OCT WPAC WITH ITSELF. 

1783 an i LAST 11A2 CC.3C31 3 ClAl C CA TEMJ 

I 76A REF 7 LAST UA2 C0,3C32 56 I2 i C_ XCH OVF I NC 

1 785 CC,3C33 0_g006 f” EXTEND 

JJ-St C0.3C3A 1 3036 C 8ZF *2 " ^ 

1787 8EF 1C LAST UAC C0, 3C35 I 2 AC5 C TCF OVOVF 

±n^ CQx35^36 C COCt 1__ EXTEND 

1 789 REf S2S LIST 11^1 C^i3037 3 01 55 C DC A HFAC LEAVE THE SCUARE CF THELENGTH OF THE 

1L9JQ ..RfcF 2t LAS_t_109t _ £0,JCAC 5C WQ J INDEX FUlCC AftCUW ENT IN LVSCUARE. 

1791 REF 1 CJ1a3UA1 52 QA3 1 PXCH LV SCLAPE 


1792 REF I ^ P0,3CA2 Q 33A3 C TC SQRTSte GO T AKE THE NCRNALIZEO SQUARE ROOT, 


1793 

REP 

536 

LAST 

11 N 2 

QC.3CA3 

1C 159 

JL_ 


CCS 

MPAC 

CHECK FOR UNIT OVERFLOW. 

1799 





0013099 

i 3051 

1 


TCF 

+ 5 

MPAC IS NOT LESS THAN .5 UNLESS 

1 795 

REF 

U7 

LAST 

1133 

OOt3C95 

59 OCl 

1 


TS 

L 


1 796 

REf 

27 

LAST 

1192 

CCt 3096 

5C 120 

1 


INDEX 

F IXLCC 


1797 

REF 

1 



C0,3C97 

52 095 

1 


OXCH 

LV 

!!■ nil 

1798 

REP 

11 

LAST 

1192 

C0,3C50 

1 2905 

C 


TCF 

DVC'VF 

INPUT TO SQPT5UP WAS 0. 


17.99 

REf 

1 



Ca,3051 

9 9333 

1 


CS 

FCURTECN 

SEE IF THE INPUT mAS $C SHALL THE THE 

1800 

REF 

96 

LAST 

112S 

CC,3C52 

6 0135 

C 


AO 

MPTENP 

first TWO REGISTERS OF THE SQUARE WERE 0 

1801 

REf 

_1£jL_ 

LASl 

1 1 M 1 

CC.3C53 

10 000 

_L_ 


CCS 

A 


ieo2 





j:C,3C59 

9 COCO 

c 


COM 


IF SC, SAVE THE NEGATIVE CF THE SHIFT 

1803 

R6f 

1 



00.3055 

1 3133 

1 


TCF 

SMALL 

COUNT -150. 


-- 10CA 

REF 

1 



CC.3C56 

1 3065 

c 


TCF 

lafge 

(THIS IS USUALLV THF CASE. I 













161^ 

REF 



LAST 

-AoY i 

Cu.3057 

9 9720 



CS 

ThlP TEEN 

IF THE SHIFT COUNT WAS EXAC7LV 19, SET 

1806 

REP 

97 

LAST 

1U2 

CO. JC60 

59 135 

1 


TS 

MPTFPP 

THE PRE-OIVICE NORM COUNT TC -130. 













1807 

-REF 

527 

lAST 

1192 

CC,3C61 

3 0159 

1 


CA 

MPAC 

SHIFT THE length RIGHT 19 BEFORE STORING 

i8Ce 

REF 

lEe 

LAST 

UA2 

C C f 3 C 6 2 

59 001 

1 

SNALL2 

TS 

L 

(SMALL EXITS TO THIS PCINTI, 

1809 

REF 

227 

LAST 

11A2 

tC.3C63 

3 9719 

1 


CaF 

ZERO 

1 1 

1810 

REF 

i 



CO, 3069 

1 3112 

1 


TC F 

LAFGE2 

GC TC STORE LENGTH AND PROCEED. 


1811 

REF 

A8 

last 

1192 

CC,3C65 

10 135 

1 

LAP CE 

CCS 

MFTt PP 

MOST ALL CASES CO^'E HERE. 

11112 

REF 

L_ 



C0,3C66 

1 3079 

c 


TCF 

LAPGE3 

SEE IF NO NCPNIl IZATICNWAS PEOUIRED 87 













1813 

REf 

1 



Q0,3C67 

9 2029 

1 


CS 

SP DC V 

SORT, ANO IF SO, SET UP FOR A SHIFT 

ieiA 

REF 

_.^9, 

LAST 

11A2 

0C,3C7C 

59 135 

J-_ 


TS 

H PTE HP 

RIGHT I BEFORE CIVIOINC TO PRODUCE 


1815 


00. 3C71 

0 

0006 

1 

fcXTEND 

THE DESIRED HALF UNIT VECTOR. 

1816 

REF 536 LASt U92 

G0,3C72 

3 

0155 

C 

DCA MPAC 

— 


t.AP: F ^ pn f.f £,af pp.i qaam rni by ma,^a i 

IMlBPHtiP - - ~ tiSe?*S PAGt NC. 

-UU ABf 2 LiSl 114 2 CC»3 171-1^112 1 JLf L/^kC £2 ^ 


P 


70 


AS5>£J!fiL£ ft^Vl^lCh .^37 CP ALC PRCfifiAM CQLCSSUS BY NASA 2C21111-031 1:17 AUG. 24il9<6 SATRAP .00^ PAGE li4A 

L mfeR Pfr ETEB USEfi^S PAGE NO, 71 E3 53 ^ 


lUlfl ^ _ Q0. 3Q7 A 4 OGQU C LAPCES CQH LEAVE NEGATIVE CF SHIFT COtNT-l FOR 

iaig_ PtF ;c last 1142 cq .3C7s sa 135 i ts hptffp ^oivide left shift. 


1121 

1822 

1823 

_ _ 16 .;a 

1825 

1 02 (s 

__ U27 

1626 

lE2g 

1630 
1031 


. _ 00.3076 A QOCO C C(JH PIC K UP RECO IPEC SHIFTING BIT TO liNNORM- 

PEF 3C 1 LAST 1142 00.3077 5C OOP 1 INDEX A ALI ZE THE SCHT RESULT. 

&L£ 6i LIST ilZ-l QC.3100 3 A675 1 CAF BiTIA " ^ 

REf Jli_ LAST 113< CQi3lCil 5A 12C 1 „ TS 8U F 

0_0f31fi2 0 0006 1 EXTEND 

REF ^35 LAST 1142 00. 3103 7 Q15S 1 HP MFAC 

PEF se LAST ilAA 00.310A 56 130 C XCH 8Uf 

00. 3105 0 00 06 1 EXTEND lUNNCRHALIZE THE SORT FOR LV). 

PEF 5A0 LAST llAA CO. 3106 7 CI5A C HP MPAC 

REF IflS last U_A2 _CC,31U7 56 OCl C XCH L 

REF S7 L AST 11 A A CO .3110 6 0130 C AO bUF 

fi£F 15C LAST llAA QU.Jlll 56 OCl C XCH L ^ 


1832. 

PEF 

76 

LAST 

1192 

CCf31 12 

5C 12C 

1 LARCE2 

INDEX 

F IXLCC 




1633 

REF 

2_ 

LAST 

1192 

00*3113 

52 09 5 

1 

OXCH 

L V 

LENGTH NOU STORED IN HORK AREA. 



lejA 

REF 

JAk 

liST 

U9( 

0Ct3U9 

9 9712 

C 

cs 

ONE 




1635 

-BULL. 

6_ 

LAST 

-119 0 

00.3115 

59 190 

c 

ts 

MAXCVS^ 

NO HAXDV CASES IN UNIT . 
















1836 

REF 

99 

LAST 

U9t 

OCt 3 1 16 

52 123 

c 

CXCH 

veuF 

PREPARE X CCHPCNENT FOR DIVIDE, 

SETTING 

1637 

REF 

591 

LAST 

1199 

00.3117 

52 155 


OXCH 

MPAC 

LENGIh OF VECTOR AS DIVISOR 

IN 

BUF • 

1836 

REF 

se 

LAST 

1199 

C0»312Q 

52 131 

c 

OXCH 

BUF 




1639 

REF 

1 



00,3121 

0 3151 

i 

TC 

UNITCV 

















16AQ 

REF 

95 

LAST 

1199 

CO, 3122 

52 125 

c 

OXCH 

VbUF *2 

00 y AND Z IN USUAL FASHICN 

SO 

hE CAN 

ia^i 

REF 

992 

LAST 

119 9 

COf 3123 

52 155 

1 

OXCH 

MPAC 

EXIT THROUGH VflCTATEX. 



ieA2 

REF 

-1A3_ 

LAST 

139 9 

C0.3129 

52 UO 

1 

OXCH 

MPAC +3 




1693 

REF 

m. 

i. 

LAST 

1199 

00,3125 

0 3151 

1 

TC 

UNITCV 

















1099 

-JiLF. 

9t 

LAST 

1199 

CC.3126 

127 

1 

CXCH 

VBUF *9 




1695 

REF 

599 

LAST 

1199 

00,3127 

52 155 

1 

OXCH 

HP AC 




1896 

REF 

595 

LAST 

1199 

CO, 3 130 

52 162 

c 

OXCH 

MPAC 45 




1697 

PEF 

3 

LAST 

1199 

CC.3i31 

0 3151 

1 

TC 

UNITCV 




169 8 

REF 

s 

last 

1139 

00,3132 

1 7367 

c 

TCF 

VPOT ATfiX 

AND EXIT. 




?Ai f f Af.r. 


iGfiAM av NASA 2 Q 21111-031 


ni? ALG, 2^. 1968 SATHAP 


QO*f PAG£ IMS 




ISER’S PAGL hO. 72 F 3 S 3 


IF IhE LEhGTh OF Tm ARfiUF^ENT VECTUP WAS LtSS THAK 2(-2a>f EACH COWPCNtNT f'UST BE SHIFTED LEFT AT LEAST 




lA 

PLiClS BEFQPE THE 

IIVILE. 

KDIL THAT 

IN THIS CASE, THE MAJCP PART OF EACH CCHPONEM IS ZERO. 













R£f 

2J 

XASI 

llAA 

£Ci3132 

5A 135 

1 

shall - 

TS 

HPTlRP NEGATIVE CF PRE-OIVIOE SHIFT COUNT. 












|*>S4 

Rjg 

22R 

„LA£J- 

11 A2 

QQf 312A 

3 471A 

X 


CAF 

ZEPC SHlfl EACH COHPCNENT LEFT lA, 

- iliii 

REF 

41 

LIST 

11 AA 

QOtiiaS 

56 lli_ 

X 


XCH 

VPUF ♦! 


PEF 

A6 

LAST 

UA* 

CLt3 126 

56 122 

(L 


XCH 

V8UF 

iflSI 

REF 

4S_ 

LAST 

HAS 

CO. 3137 

56 125 

X 


XCH 

VBUF ♦3 

ifiie 

PCf 

5C 

LAST 

UA5 

ilfit3lA0 

56 12A 

c 


XCH 

VBUF +2 

1859 

AEF 

21 

LA IT. 

11A2 

CCt2XAl 

56 127 

0 


XCH 

VBUF +5 

UlAH 

BEF 

L2_ 

LAST 

HAS 

0Ct31A2 

56 126 

X 




VBUF 44 . 


U61 

REF 

E2 

LAST 

11 A 1 

CC*aiA3 

A Ci35 

1 


cs 

HPT EPF 

idfc2 

■&££ 

-MJL- 

LIST 

11 A4 

COXIAA 

CCC 

1 


INDEX 

A 

lfl_63 

BLt 

t1 

Liil 

11 A A 

CC.31A5 

3 A675 

L 


_0AF 

BITl A 

let^ 





J3G t 3.1_A6 

0 0006 

J 


EXTEND 


IgfcS 

REF S46 

LAST 

11 A A 

0C.31A7 

7 01 5A 

c 


Mp 

mpac 

1866 

PEf 

1 



_0 Cl, 3 150 

1 3062 

1 


TCF 

SMALL2 












166 7 

REF 

A_ 

-LAST 

721 

4720 



THIRTEEN 

m 

CCTIS 

1868 

REF 

2 

LAST 

732 

A333 



FOORTEEN 

a 

OCTl 6 

1669 

REF 

14 

LAST 

367 

4333 



OCT 16 

m 

RlOl 













H 


i i 


h£v 19 »C 

^ Z21 

CF ACC PftCGPAM CfACSSUS BY 

NASA ZLjjl 

1111-C31 L 

:17 ALG. 24.1968 

SATRAP ,004 PAGE 1146 


L 

IMlEflPJl 









liSER'S PACE 

NO. 7^ E3 53 















J_ht_FCLl.CiiiftG_RULIIh£ StLS 

LP 

THE CALL 

TC THf 

CIVICE FGOTINES- 















t H7 1 

it66 ^47 

T 

1145 

CC.3151 

■11 154 

C 

LNl TOV 

CCS 

HPAC 

FCRCE PPAC POSITIVE IF POSSIBLE. SETTING 

lfl7Z - 

R£E ^ J. 



QQ.3152 

1 3170 

C 


TCP 

UHF AC4 

OVSIGN ACCCROING 

TO THE SIGN OF HPAC 

xaJ3 




-jQEUJi lSl . 

1 3151 

1. 


_ TC F 

♦ 2 

SINCE THE CIVISCR 

IS alkavs posit ive 

1B74 

R6f 1 



QQ.3154 

1 3162 

_L_ 


TCP 

UHFAC- 

M£of. 




il£f 5 16 

L2S-I.11 4 E 

CCf3155 

10 155 

1 


CCS 

KPAC 4l 



- - 1&16 

ft£F Z. 

L2ST 

11 4 E 

00.3156 

I 3170 

_L- 


fCF 

UNP AC4 



1677 

A6F 2tt 

L2SI 

1141 

COt3157 

C C(JC2 

C 


TC 

Q 

EXIT IHMECIATELV 

ON ZERO. 

1878 

REF 2 

L/ST 

U4E 

OCt 3 i60 

1 3162 

C 


TCF 

UHFAC- 



1879 

REF 2ti 

. . UL51 

U4t 

0C»3161 

0 0002 

(, 


TC 

ti 















1480 

R E f ^29 

L2ST 

1145 

CC,3162 

4 4 714 

c 

IHPAC- 

CS 

ZERO 

IF NEGATIVE. SET 

-0 IN OVSIGN FOR FINAL 

-1-881 

REF i. 

L2ST 

11-1 C 

00.3163 

54 136 

1 


TS 

OVSI GN 

CCMPLEHENT. 


1862 




0Ct3l64 

C CCC6 

1 


EXTENC 




1883 

REF 549 

L4.S.T 

1146 

0 C f 3 lb 5 

4 0155 

1 


DCS 

HPAC 

PICK UP ABSCLCTE 

VALUE CF ARG AND JUHP. 

1^84 

REF 53 

— LAST 

1145 


_5C 135 

c 


INDEX 

HPTL PP 



1685 

REF 3 

L/ST 

U4C 

00.3167 

1 2564 

c 


TCF 

MAXTEST -1 




1666 

-R£f iL. 


1146 

00.3170 

±A 136 

1 

UHPAC* 

TS 

DVSICN 

SET CVSIGN FCR POSITIVE GUCTIENT. 

106 7 

R£f 55C 

LAST 

114_6„ 

CC,317J_ 

51 155 

1 


OXCH 

HPAC 



1666 

REF 54 

LAST 

1146 

CCt3l72 

5C 135 

c 


INDEX 

HPTEPP 



1889 

REF fL 

LAST 

1146 

00.3173 

1 2564 

c 


TCF 

WAXIEST -1 




l:i7 ALG. SATRAP <.004 PACE ll<i7 



I nil ?n c f icc 


PRCGflAM 


CGLCSSUS 


flY J^iiSA 2Q2Ilil-C31 


i. 


useft'5 PAGt NO, 7^ 


E3 53 



PifiSC 


-iliSOfelL#M£iJS UK4FY 

CPEPATlChS 

i _ - ^ 















CF NPAC. 


ia94 

AfP 

1 _ 

00.3174 

.0 33Cfl 1 

DSQ 

TC 

OSOSLE 

SQUARE the dp CCNTENTS 

1892 

P£f 


CO, 3175 

1. 6030 C 


ICF 

DANLIO 



!* 












tMQ^ 

figP 

i2 LiST 1I2P 

flQ,3nfe 

18 1A3 1 

iatjVJLjtBS 

CCS 

_«CD£ 

ABVilL OR *as INSTRUCT ICN. 


lfl94 

Ktf 

a. - 

00,3177 

_L 3226 C . 


TCP 

AfcS 

DG ABS GN SCALAR. 



1891) 

flEf 

JL_ L/ST li^l 

C.G,3 20C 

1 3226 C 


TCF 

AbS 















X£96 

SiU 

_2__Llil_114^_ 

ilflj-32Cl 

0 331? _1 

ABVAL 

TC 

VSC5L8 

DOT PPAC WITH ITSELF. 



1897 

REF 

12 LAil 1147 

JDCl,J2Q2 

Zl 163 0 


LXCH 

NODE 

HCCE IS NOW OP (L ZERO 

AFTER DASI. 













1898 



00,^203 

0 0006 1 


EXTEND 

STORE SQUARE OF LENGTH 

IN WORK AREA. 

• 

1899 

REf 

551 LA51 1144 _ 

^00x3204 

3 0155 C 


OCA 

HPAC 




1900 

REF 

_2-S LIST 114< 

CC.3205 

50 120 1 


INDEX 

FIXLCC 




i9Cl 

REF 

2 LAST 114 i 

^x3206 

52 043 1 


OXCH 

LVSQLARE 
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L 1M£RPF1I£J _ZirT ^ . ^LSEP’S P>qe NC. 75 E3 S3 ~ 

~mC2 IIElCPmiCh- StaPCLTl^fc SQP T IZZ~IZZZZZ 

E19L3 FLFCIILML Ck5 CRl FT ICN-C_CLELJE PRECIS ICN ifliL4«t RQQT RDUTlKf 

£aa£.<i I>1S PPLifiRiiM T4KgS ThF SCUAPE RCCT CF THE 27 QR 28 HOST S IGK I F ICART blTS IN THE TPIPlE PRECISION SET CF ' 

R19£C ^Lf'E££S-^P/^C»Pi’^C♦UJ^^C PfPC*j2# IFF ROOT !S RETURNEO DfiCBlE PRECISION IN HP<C *N D PPAC + 1. N 

F 19QB fcLPlMItt- li-Ii SUBRCUTINE L SES A TRIPLE PR ECIS ION INP UT . THE PROGRAHRER ^UST ASSURE THE CONTENTS OF MPAC+2 

R191C ESPECIALLY IF THE CONTENTS CF PPAC IS SPALL CR ZERO. FOR DETAILS SEE STG N£NC NO. 949. 

hi3i2_ iLALiJAG itCUENCl- IN INTE RPRE TIVE RQCE !•£., PCLLOwING TC IMPR|T,SQPT NC AO ORES S 15 ALLOWED 

RiSL^ INFLT SCALING Th£ EI NAKY POINT IS AS SUREL TO T HE RIGHT OF LIT 15. TH E ANSWER IS RETURNED WITH THE SA«E SCALING 

-ril.ai6 SLEPCLIINES- GENSCR .RPACSHP . SGRTSUE . AEC RT 

_R191 7 ABCBT EA IT HCOE- AECRTS CN NeqATlVe_ INPUT -1.2X10E“A (7777S CCTAL) OR LESSi 


Pi9 19 CISPLAYS ERR O R CCCE 1302 ^ ^ 


R192C 





APCRt 







-F-L9.Z.1 



OCT 

1302 







ftl922 

UEEPU - 

LCCATiONS 

BUFfRPTERP 

, AOORWC 

APE USEC 





1923 

KEF 

2_ 

LAST 1192 

CC,32C7 

0 3393 

C SORT 

TC 

SGRTSLE 

TAKE THE SQUARE SOOT OF MPAC. 


1929 

AEf 


LAiJ U9 6 

0_C,J21C 

1C 135 

1 

CCS 

MPTE HP 

RETURNED NQRRALIZEC SQUARE ROOT. SEE IF 


1925 




00,3211 

1 3213 

C 

TCF 

+ 2 

ANY LN-NORNAL I ZAT ICN REQUIRED AND EXIT 


1926 

Ief 

_i2_ 

LAST 1197 

00.3212 

1 6030 

c 

TCF 

DANZ IG 

IF NOT. 













1921 

REF 

J 

LAS_T_1L2_1 

-QQi32l3 

6 3726 

1 

AO 

NE012 

A RIGHT SHIFT CF WORE THAN 13 COULC BE 


1928 




00,3219 

0 0006 

1 

EXTEND 


REQUIRED IF INPUT WAS ZERO IN MPAC,-»'l. 


1929 

REF 

1 


00,3215 

6 3221 

c 

eZMF 

SC KT EHFT 

GCES HERE IN HOST CASES. 


19 30 




00,3216 

2 2 007 

c 

ZL 


IF A LCNG SHIFT IS REQUIRED, GO TC 


1931 

REF 

77 

LAST 112 E 

CO, 3217 

22 116 

1 

LXCH 

AODR NO 

GENERAL RIGHT SHIFT ROUTINES. 


193_1_ 

REF 

9 

LAST 1127 

00,3220 

1 2303 

1 

TCF 

CENSCP. +w 

ACORWO WAS ZERO TO PREVENT ROUND. 



00.3221 50 135 C SCRTSHFT INDEX MPTERP SELECT SHIFTING CIT AND EXIT THROUGH 

OOt 32 22 3^ A67A C CAF bIT15 SHIFT ROUTINES. 

00|3223 5A 135 1 TS MPTERP 

00.322A 3 A7U 1 CAF 2ERC TO ZEPC RPAC *2 IN THE PROCESS. 

CQt 322S 1 2026 1 TCF MPAC5HR *3 __ 

ULifl REF 2 LAST 1I2A CC.3226 0 6072 1 AbS TC ~~BRANCH ~ TEST SIGN CF RPAC AND CQRPLEMENT IF 

1939 REF 43 LAST lUB 00 . 3227 I fcC3C C TCF DANZIG 

199ii RE F AA last llAb 00,32 30 1 60 30 C TCF DANZIG 

1991 REF A last me 00.3231 1 7637 C TCF CCHF " ~ 


1933 

REF 

56 

LAST 

ii9e 

1939 

REF 

95 

LAST 

1096 

1935 

REF 

;7 

LAST 

1196 

1936 

REF 

22C 

LAST 

1196 

1937 

REf 

2 

LAST 

1127 


s 


QAPi ?n ct ac.c Pflrr.rtAM cnLO^^iiS av na^a 20211 ii-c 31 nn alg. satrap p/>gf ii^9 


_ 4. IJiURPRtUR USeR*S PAGt MC, 7d 63 S3 


1942 

axp 

__ 16 

LJST 

1113 

CCtJ232 

4 4110 

1 

VDEF - 

XI 

F CUF 

VECTCR DEFINE - ESSENTIALLY TREATS 

1943 

REF 

13 

1A5T 

1116 

L0j3233 

2i 166 

1 


AOS 

PUSHLCC 

scalar in PFAC as X COMPONENT, PUSHES UP 

194t4. . 





QC 43234 

0 OOC 6 

1 


JiXlEijC 


FOR Y AND THEN AGAIN FCR 1. — 

1945 

fi£f 

ac9 

L/51 

1145 

CC.3255 

. l.XOOX 



iNUfcX 

A 


1946 






3 000 3 

1 


OCA 

2 


1947 

auL 

5*2 

1 iST 

1141 

CC,3237 

52 160 

_1_ 


DXCH 

HPAC 0 


JJ!46 





iLQf 3240 

0 0006 

1 


EXTEND 



1949 

REF 

14 

L#ST 

1149 

(LO 1 12 4 1 

5 0166 

C 


INDEX 

PLiSHLCC 


1950 





00# 32^2 

3 COCl 



OCA 

0 


19SI 

REF 

553 

LAST 

U4S 

C0t3243 

52 U2 

C 


OXCH 

MPAC 


1952 

REF 

2 

LAST 

1113 

OOf 3244 

1 6470 

C 


TCF 

VHf OE 

HCOE IS NCN VECTCR. 













1953 

REf 

- 3 

IRS I 

1141 

CQf3245 

0 3317 

1 

vso 

TC 

V SO see 

OCT MPAC WITH ITSELF. 

1954 

REjP 

1 



0 t_il 2 4 6 

i 73C1 

c 


TCF 

OHCjDE 

RCOE IS NCN OP. 


1955 





Ciai.3241 

0 QQ06 

1 

PUSH 

extend. 


PUSH CeWN MPAC LEAVING IT LOADED. 

1956 

PEP 

524 

LA5T 

11A9 „ 

_ 0X432 10 

3 0115 

C 


OCA 

HPAC 


1957 

R22 

15 

LAST 

1149 


5C 166 

C 


INDEX 

PXSHLCC 

PUSH CONN FIRST TWO REGISTERS IN EACH 

1.95 0 





00>32S2 

52 OCl 

1 


OXCH 

0 














1959 

Rf F 

2-4- 

LJST 

1141 

CC.3253 

5C 163 C 


INDEX 

HCDE 

INCREMENT PUSHOCnN POINTER. 

1960 

REF 


LAST 

KlU 

..CX 43 214 

3 6213 



CAF 

NO.wr s 


1961 

REF 

ll 

_LiiJ UM 

. 00*3255 

26 166 

1 


AOS 

PUSHLCC 














1962 

REF 

22 

LiSl 

1149 

XCt3256 

10 163 

1 


CCS 

MODE 


1963 

RtF 

1 



aO-ti 2 5 7 

X 3272 

1 


TCF 

TPUSH 

PUSH DCNN MPAC *2, 

1964 

aEf_ 

45 

LAST 

114 8 

C0.3260 

1 6030 



TCP 

OANZ IG 

DCNE FCR OP. 


1965_ 





QOt3261 

0 Q006 

1 


EXTEND 


ON VECTOR, PUSH DOWN V AND Z COMPCNFNIS. 

19fc6 

REF 555 

LAST 

llAS 

CC.3262 

3 0160 

Q 


OCA 

MPAC +3 


196 7 

REF 

11 

LAST 

114 9 

3 26 3 

5 C 166 

C 


INDEX 

PUSHLCC 


1960 





CO §326^ 

51*775 

C 


DXCH 

0 


1969 





00 * 3265 

G C006 

1 


EXTEND 



i97C 

REF 

556 

LAS1 

1149 

00*3266 

3 0162 

1 


OCA 

MPAC *5 


1971 

REF 

11. 

LAST 

1149 

CO. 3267 

SC 166 

c 


INDEX 

PUSHLCC 


1972 





CO. 3270 

51'777 

1 


OXCH 

0 -2 


1973 

R£F 

46 

-LAST 

U49 

CC*3271 

1 6C30 

c 


TCF 

0AN2 IG 














1974 

iLU_ 

557 

LAST 

1149 

XC.3272 

3 0196 

c 

IPUSH 

CA 

HPAC ^2 


15.75 

REF 

.2 

LAST 1Q9J 

00*3273 

1 6523 

1 


TCF 

ENUTFLSH >2 














19 76 

REf 

1C 

_L15I 

1147 

00.3274 

5C 120 

1 

RVQ 

INDEX 

F IXLCC 

RVQ - RETURN IVA QPRET. 

1977 

REP 

16 

LAST 

1095 

CO, 3275 

3 0052 

c 


CA 

QPi^ t T 


1976 

PEF 

21 

LAST 

U07 

00,3276 

54 117 

1 


TS 

POL I SH 


1979 

KtL. 

s_ 

LAST 

-LQ9 6 

QOti277 

1 6621 

c 


TCF 

GCTO +4 

(ASSUME QPRET PCINTS TC FlXEEf CNLY.l 





B-Lr4 i 

L..|b t 


rui 

Lu nun UJ 




L l^ A. X — U -3 ^ 

1. t i. I m A T 1. C? 3A.|-V«r r^UL A 1 JKJ 

_ -L 

1N7 £PPJ»£TES 
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Ih E 

FCLLCkJNG SUCaCU U feLS_Aft k 

LSEO 

INSQUAAING^ 

f U 1 IK 

&CTH THE SCALAR AND VECTCB SENSE. THEY APE 

jLiaei 

SRELl/L 

CAiES 

_CF C R P sue A NO C C 1 S Uftt 

PLT 

IN 

70 SAVE iOHE 

T INF . 



lSJi3 

fitl 

556 

-Li5T .119^5 

CU^AICO 

3_ ci sa 

_C 

QSUSOE CA 

HPAC +l 

SQUARES TpP SCALAR CONTENTS OF MPAC. 







G 0G&6 

1 


EXTEND 








CC.3302 

7 flOCG 

_IL_ 


SGUARE 



i5et_ 



_il5 

U_5T 

U5C 

QOf i3_03 

54 156 

1 


TS 

HPAC +2 


lSfc7 

RiF 

1 : 1 

L4ST 

1196 

00.2304 

3 4714 

1 


CAF 

Z6K0 

FCRP 2TCflCS5 TERHI- 

IgBfi 


StC 

LiiST 

115C 

tG.33C5 

5E 155 

C 


xch 

MPAC ♦! 


L98S 





0C.33C6 

C 00C6 

i 


EXTEND 



i9<;c 

HtF 

5 6 I 

L4ST 

115( 

00.3307 

7 C154 

C 


MP 

MPAC 


1991 





C0»3210 

20 001 

J_ 


DDCUFL 


AND maybe overflow. 

1992 

PtF 

562 

L/ST 

U5C 

CG,331l 

20 156 

1 


OAS 

HPAC +1 

AND SET A TC NET CVERFLCw. 

1993 

BiF 

562 

t/ST 

U5C 

GOf 3312 

56 134 

1 


XCM 

MPXC 


i9SA 





00.3213 

0 C0C6 

1 


EXTEND 



1995 





00.3314 

7 COCO 

c 


SQUARE 



I99fc 

Hfcl 

5 6A 

L6S7 

use 

C0.3313 

2C 155 

1 


OAS 

HPAC 


1997 

9[F 

2 67 

_LA5JL 

.119 6 

0C!t33ie 

C CCC2 

C 


fc 

0 














i99ti 





^ 00x3317 

C 0 0 C 

1 

VSOSUa EXTEND 


DOTS the VECrCR IN HPAC H ITH ITSELF. 

tail. 

&£f_ 

£_ 

LAST 

1105 

CO. 3 320 

22 137 

1 


CXCH 

DOTF E7 


_^i^C 

. P1F_ 

m 

d 

LAST 

1147 

C0.3321 

0 33CC 

1 


TC 

DSQSie 

SCUARE THE A COMPONENT , 

^oc-i 

BLF 

565 

C^$T 

11 5C 

CO. 3322 

52 160 

1 


CXCH 

MPAC +3 


loan 

REF 

566 

LAST 

115C 

0C.3323 

52 155 

1 


OXCH 

HPAC 


2 U w 3 

PEF 

99 

LAST 

1144 

€0*3224 

52 121 

c 


OXCH 

bUF 

SC NF CAN END IN GOTSUB. 


REF 

56? 

LAST 

U5C 

QC.3325 

3 0156 

c 


CA 

MPAC *2 




BiL 

ICC 

LAST 

J15C 

CC.3326 

54 132 

c 


TS 

PUF *2 















REF 

1 

LAST 

list 

00.3327 

0 3300 

1 


7C 

DSQSte 

SCUARE V CCMPCNENT. 

^ C L 7 

aif_ 

368 

LAST 

U5C 

00t3330 

52 156 

1 


CXCH 

HPAC *l 



REF 

LCJ 

LAST 

1151 

00.3331 

2C 132 

c 


CAS 

bUF -H 


2CC9 

REF 

569 

LAST 

1I5C 

CO, 3332 

6 0154 

1 


AD 

HPAC 


2C1C 

— REF 

Ui 

last 

U5C 

CC.3333 

6 C13C 

c 


AO 

CUF 


2Q11 

REF 

1C2 

LAST 

U5C 

00,3334 

54 130 

1 


TS 

feUF 


2012 





00.3235 

1 3337 

1 


TCP 

♦ 2 


2013 

hEF 

e 

LAST 

1142 

CC,3336 

54 121 

1 


TS 

ovr I Kc 

!F OVERFLOW . 













2vJU 

REF 

57C 

LAST 

U5C 

CO, 3337 

52 162 

c 


OXCH 

HPAC +5 


^015 

RtF 

571 

LAST 

115C 

CO. 3340 

52 155 

1 


OXCH 

HPAC 


2016 

REF 

4 

LAST 

115C 

CC,3241 

0 3iCC 

1 


TC 

DSGSL0 

SCUARE 2 CCMPCNENT. 

2017 

REF 

1 



00,3342 

1 7154 

1 


TCF 

ENOCCT 

END AS IN OCTSUe. 
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XLUfiLi PPtClSilQN SQUARE RCQ1 PCUTINE, TAKL Thb SQUAPT PGQT OP THE TRIPLE PPECISICh (hPAZ *2 USED ONLY 
a2Q£0 lli hCEKALUATlCN) COM ENTS Of RPAC ANC LEAVE THt NORMAL IZEU RESULT IN PPAC (C(MPAC> GREATER THAN OR EQUAL TO 
k2D2? .81. TfE RICH ShlPT CCUNT tTC UNNCRRALlZEI IS LEFT IN KPTEfP. 




222 

1 AST 

n ^0 

nfif 

--3_ 

Alik 

1 

SCRISLE CAF 

2LR£i_ 

S1AR1 

eV ZEPCINC RIGHT 

SHIFT 

COUNT . 


REF 

3fi 

LAST 

11 A1 

CCf 33AA 


13S 

1 

TS 

MP fE RP 




















2SlZi 


‘^'12 

1 A^T 

11 SC 

QCf 3^/iS 

_LC 

15A 

f 

CCS 

MPAC 

check 

FOR PCSITIVE argument. 

SHIFTING 

2Q2t 

K tF_ 

L_ 



00.33A6 

1 

3A0A 

c 

TCF 

SNPAC* 

FIRST 

significant MPAC 

REGISTER INTO 

2Q2I 





Q.Qj3 3^7 

1 

1351 

1 

TCF 

♦ ? 

RPAC 

ITSELF. 



2028 

ELF 

L_ 



Q0.315Q 

_L_ 

33 73 

_J_ 

TCF 

SUKTNEG 

SEE IF NAG CF ARGUNENT 

LESS 

THAN 1C(-A». 


202 S. 

REF 

5.73 

LAST 

115X - 

C0#3351 

5E 156 

C 

XCH 

MPAC *'c 

MPAC IS ZERC - SHIFT LFFT 14. 

?0 ■!. 

BFf 

514 

LAST 

115 1 

CC.3352 

56 155 

C 

XCH 

MPAC ♦! 


2Cli 

. A£f 

515 

LAST 

U 5.1 

Ct 1.3353 

5A 15.4 

c 

7$ 

MPAC 


2032 

R£f 

15 

LAST 

902 

Gdf 3354 

3 ^746 

c 

CAF 

SEVEN 

AUGMENT RIGHT SHIFT CCUMFR. 

2uJ.3 ■ 

REF 

5S 

LAST 

115 1 

CL m 2 2 5 5 

in 

in 

1 

TS 

MPTEF'P 













2034 

REF 

57t 

LAST 

1151 

CCt335e 

IC 154 


CCS 

MPAC 

SEF IF MPAC NCH PNZ. 

2035 

REF 

- 2_ 

LAST 

1151 

00.3357 

1 3404 

c 

TCF 

SMPAC» 


2fl3^ 





OOi 3360 

1 3362 

1 

TCF 

♦ 2 


203 7 

_RXF 

I 



00,3361 

1 3376 

i 

TCF 

2ERC ANS 

NEGATIVE BUT LESS THAN 10(-4l IN HAG. 


2018 

R£f 

5 77 

LAST 

U51 

.CC,3362 

56 155 

c 

XCH 

MPAC +l 

ZERC - Shift left 14 again. 

2039 

REF 

578 

LAST 

U51 

CO, 3363 

54 154 

c 

TS 

MPAC 


2Q40 

REF 

It 

LAST 

1151 

CO. 3364 

3 4716 

c 

CAF 

SEVEN 

AUGMENT RIGHT SHIFT CQtNTER. 

6 j R 1 

REF 

tc 

.LAST 

115 1 

00,3365 

26 135 

i 

AOS 

MPTE MP 













cLkZ 

Rf T 

57S 

-LIST 

11 51 

CC.3366 

1C 154 

c 

CCS 

HP AC 


ZAkj 

_ RXF 

4 

LAST 

1151 

00,3367 

1 34 04 

c 

TCF 

SMPACt 


2Qkk 

REF 

2<e 

LAST 

il5C 

CO, 3370 

C C0C2 

c 

TC 

0 

SCRTICl » 0. 

2 045 

a£f_ 

^ 

LAST 

-U51 

00.3371 

-1 33.76 1 

TCF 

ZEF L ANS 


iL046 

RtF 

L 



00.3372 

.1 34 52 

c 

TCF 

F IXP CCT 

UC NOT LEAVE SQRTSU6 WITH -0 IN MPAC. 


2Q47 ^ 

REF 
. REF 

3i0 . 

LAST 

11 4 « 

00,3373 

10 000 

C 

C 

SQRTNEG 

CCS 

TCF 

A 

ARGUMENT IS NtCATiVF., BUT 

SEE IF 

S IGN- 

2046 

.1 



U Q i 3 3 7 ^ 

1 3402 


SCRTAERT 

CCRRECTED ARGUMENT IS LESS 

THAN 1 

.C(-41 












2.<34 9^ 

PEF 

SEC 

LA 5 T 

115 1 

QC , 3375 

IC 155 

1 


CCS 

MPAC ♦! 

IN MAGNITUDE. IF SO, CALL 

uvr .iE p 

ZEPFi. 

2C50. 

MfcF 

233 

LAST 

1 L5 1 

CC, 3376 

3 4714 

1 

ZERCANS 

CAF 

ZERC 

FORCE ANSk^ER TC ZFRU MERE. 



20 n 

— BiF 

1L— 

LAST 

115 1 

00,3377 

1 3452 

C 


TCF 

F IXP CCT 





RcF 

i 

LAST 

115 1 

CC. 34C0 

1 34 0 2 

C 


TCF 

SCPT AfiPT 




_ / L : 

K ^ ^ 

f4 

LAST 

11 r* i 

CC.3401 

1 3452 

C 


TCF 

F IKF CCT 


















2054 

Rtf 


LAST 

IT^ 

CC, .‘4C2 

0 5622 

1 

SCRTAERT 

TC 

PCCC CC 




2055 





CC, 3403 

Cl 302 

1 


CCT 

13(2 
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za^t ■ 

Ril 




6 £44.4 

1 SRPIC^ 

AO 

-1/242 

SEE IE ARGUMENT CREATEP 

THAN 

OR 

EQUAL TO 

ZQ57 




^ COiJAiJl 

C QOOt 

1 

EATfiND 


.5. 




20SB 

BEf L_ 



QC. 

t 3455 

c 

8ZWF 

SRTES1 

IE SC. SEE IF LESS THAN 

• 25. 




Z059-. 

R£t^ 511 

J.iir 

nil 


li_L55 

1 

DXCH 

MPAC 

HE WILL take the SQUARE 

ROOT 

OF 

MPAC/2. 

2flBQ 

Rtf 23— 

1 tsi 

1133 

QCJ.341C 

22 021 

1 . 

LXCH 

SP 

SHIFT RIGHT 1 AND GO TO 

THE 

SORT 

ROUT INF 

Ifltl 





0 C0C6 

1 

GX16NG 






zatz 

-R£i Oil- 

Liil 

1113 _ 

Cii3^l2 

7 4675 

C 

HP 

NAl f 





2Ct3 

PEE 5E2 

L/ST 

1152 

CO. 3413 

52 155 

_J 

CXCH 

MPAC 





IQiM 

ReE 

L^ST 

1152 

C0t3414 

56 021 

1 

XCH 

SP 






PEF 5fi3 

L/iST 

115 2 

CC,3415 

26 155 

1 

AOS 

MPAC 4l 

GUAPANTEEC NO OVERFLOW. 





2C66 

REF 

1 



OOf 3416 

3 2314 

C 

A KG H I 

CAF 

SLCP EHI 

ARGUMENT BETWEEN .25 ANO .5. GET A 

2067 





00.3417 

C 0006 

1 


EXTEND 


linear approx IMAT ICN FOR THIS RANGE. 

2Q6B 

PEF 

-ifi4 

LAST 

115 2 

dc.3420 

7 L154 

jL- 


HP 

HPAC 


2069 

REF 

L_ 



00# 3421 

6 2566 

C 


AO 

BlASHl 

XC/2 » (HPAC/2MSL0PEH1I ♦ BIASHI/2. 













2Q7Q 

REF 

1C4 

LAST 

-Ui.£— 


54 i3C 1 


TS 

BUF 

XO/2 (ARGLC ENTERS HFRE>. 

_Z0L71 

REF 

585 

LAST 

1152 

00.3423 

3 0134 

1 


CA 

HPAC 

SINGLE-PRECISION THRCUCHOUT. 

2U72 





00i3424 

22 0C7 

c 


ZL 



ZQ12 





^aQ.3425 

0 00C6 

1 


EXTEND 



2074 

R E F 

U5 

LAST 

1152 

00.3426 

1C 130 

1 


OV 

BUF 

(MPAC/2J/(XC/2) 

2Q75 





00.3427 

0 0006 

1 


EXTEND 



2076 

R§F 

17 

LAST 

115 2 

00*3430 

7 4675 

c 


HP 

HALF 


2077 

REF 

1C6 

LAST 

1152 

00.3431 

26 130 

1 


AOS 

bUF 

XI * XU/2 ♦ .5INPAC/2l/(XCl/2) . 


2078 





00.3432 

0 0006 

1 


EXTEND 



2079 

REF 

16 

LAST 

1152 

CCf 3433 

7 4675 

c 


MP 

HALF 

FDRM UP Xl/2. 

20fiC 

REF 

5Ee_ 

LAST 

1152 

00.3434 

52 155 

1 


DXCH 

MPAC 

SAVE ANO BRING CUT ARGUMENT. 

2061 





00.3435 

0 00C6 

1 


EXTEND 


TAKE CP QUCTIENl WITH XI. 

2Qe£ 

REF 

IC7 

LAST 

1152 

0C.3436 

IG 130 

1 


OV 

BUF 


2063 

REF 

ICE 

LAST 

1152 

00.3437 

54 131 

c 


TS 

BUF -il 

SAVE MAJOR PART OF QUOTIENT. 

2084 

REF 

-234 

LAST 

1 1 5 1 

CQ.3440 

3 4714 

1 


CAF 

ZtRL 

FORM MINOR PART OF QUOTIENT USING 

2085 

REF 

151 

LAST 

1144 

00.3441 

56 OCl 

c 


XCH 

L 

(REHAINOER ,CF . 

2066 





00.3442 

C C0C6 

1 


EXTEND 



2067 

HEF 

1C9 

LAST 

1152 

00. 3443 

1C 130 

1 


OV 

BUF 


2C68 

REF 

192 

L/ST 

1152 

00*3444 

54 001 

1 


TS 

L 

IN PREPARATION FOR DAS. 

2089 

REF 

ilo 

LAST 

1152 

00.3445 

3 0131 

1 


CA 

DUF •*! 


2090 

REF 

5E7 

LAST 

11 52 

CC.3446 

20 155 

I 


OAS 

HPAC 

X2 * Xl/2 ♦ (MPAC/2)Xl 


2091 





00,3447 

0 0006 

1 


EXTEND 


OVERFICWS IF ARC. NEAR POSMAX. 

zsm 

_RtL 

1 



00.3450 

1 3454 

c 


B2F 

TCQBNKOC 


2093 

REF 

34 

LAST 

1137 

00, 3451 

3 4672 

c 


CAF 

PCSHAX 


2094 

REF 

5(8 

LAST 

1152 

CC,3452 

54 154 

c 

FIXRCCT 

TS 

HPAC 


2095 

REF 

5(9 

LAST 

1152 

CC,i453 

54 155 

1 


TS 

HPAC +1 


2096 

REF 

269 

LAST 

115 1 

CC. 3454 

0 0002 

c 

TCOeNKCO 

TC 

0 

RETURN TO Caller to unnqrmalize. Etc. 

_ _ 
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USER'S PAGE NO. 80 
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^09 7 

Alt 

Jl 

Llll 

_9fl5 

Ce < 3 555^ 

Jl 467 6 

1 

SPT6ST 

AO 

OUAR TEE 

ARGUMENT HAS LESS THAN .5. SEP 

IF LESS 

2098 





00(5556 

0 0006 

1 


EXTENO 


THAN .25. 


2099 


L_ 



CO. 3^57 


m* 


-6 ZAP 

SQPTACRM 

IF SCf HEGlFi NG A L I Z A 1 1 ON • 



2100 

A££ 

5 11 

L15J 

-11£1. 

QQ «J460 

_12.155 



OXCH 

HP AC 

IP BETWEEN .5 AND .25, SHIFT RIGHT 1 AND 

2_U11_ 

R£F 

27 

LIST 

1152 

-XlfljJA61 

22 021 

_1_ 


LXCH 


START AT ARGLC. 


2102 





0Cf3^62 

0 0006 

1 


EXTEND 




2103 

Rll 

19 

LAiUlSl 

00(3163 

7 4675 

C 


NP 

HALF 



_ ZiQ^ 

-■■&££ 591 

LIST 

1153 

00(346^ 

5 2 155 

-L_ 


DXCb 

MPAC 



^115 

Ri£ 

21 

L63T 

UJl3 

j00f3>i65_ 

56 021 

1 


XCH 

SR 



2ice 


592 

L65I 

1153 

qQj3A66 

2 6 155 

1 


ADS 

MPAC ♦! 

NC GVERPLCW. 















^0 7 

R£L- 

a 



0tLt3^67 

3 3007 

C 

ANGLO 

CAP 

SLOPELC 

(NCHHALIZEO) ARGUMENT dETWEEN 

.125 ANC 

2108 





00 f 39 70 

C 00C6 

1 


EXTEND 


.25 


2109 


593 

LiST 

1153 

CC.3471 

7 0154 

-C_ 


HP 

MPAC 



2llfiL. 

^Ef 

1_ 



00.3472 

6 2270 

0 


AO 

6IASLC 



2111 

REf 

1 



00^5473 

1 3422 

1 


TCP 

ARGHI +4 

BEGIN SOUARE ROOT. 















2112 





00i34l4 

C 0006 

1 

_SQRTNM2 

EXTEND 


SHIFT LEFT 2 ANC INCREMENT RIGHT SHIFT 

2113 

REF 

559 

L6ST 

U52 

CQt3475 

3 0156 

c 


OCA 

MPAC ♦! 

CCUNT (FOR TERMINAL UNNCRMAL I 2AT ION J . 

211^ 

RUE 395 

L4ST 

1153 

CC.i476 

20 156 

_1_ 


OAS 

MPAC +1 



2115 

REF 

S56 

L6S1 

11 53 

CCf3477 

6 0154 

1 


.AO 

mpaC 



2116 

REF 

517^ 

US! 

U53 

00.3500 

26 154 



.AOS 

MPAC 

(NO CVERFLOWJ. 















2117 

R£t 

61 

USl 

115 1 

OClt3501 

24 135 

c 

SORINQRH 

INCH 

MPTEHP 

FIRST TIME THROUGH, JUST SHIFT 

LEFT 1 

2118 





00.3502 

0 0006 

1 


EXTEND 


(PUTS IN EFFECTIVE RIGHT SHIFT 

SINCE 

2119 

R£F 

59fl 

LJS! 

115 3 

_ 0C.3503 

3 0156 

c 


OCA 

MPAC 4l 

ME WANT HPAC/21. 


212Q 

REF 

599 

iUliT 

U53 

OC.3904 

20 156 

1 


CAS 

MPAC ♦! 



2121 

REF 

6CC 

L6ST 

115 3 

CC.350S 

6 0154 

1 


AO 

MPAC 



2122 

BJJ_ 

6C1 

-Lm 

1 1 5 2 

CC.35C6 

26 154 

c 


AUS 

MPAC 

lAGAlN NO GVERFLCWl. 


2123 





00,3507 

6 0000 

1 


COUPLE 




212A 

REF 

19 

US! 

371 

OOilSlO 

54 022 

c 


IS 

CVL 
















2125 

ft£F 

2C 

IAS.! 

11 53 

CCf3511 

10 022 

c 

NCPRTEST 

CCS 

CYL 

SEE IF ARGUMENT NOW NORMAIUED 

AT 

2126 

REF 

_21_ 

L6ST 

1153 

00,3512 

id 022 

c 


CCS 

CYL 

GREATER THAN .125. 


2127 

au_ 

L- 



00.3513 

1 347*1 

1 


rcp 

SOP T HH2 

NC - Shift left 2 more and try 

AGAIN. 

212.d 

R£F 

2 

L t ST 

1X5 3 

00,3514 

1 3416 

c 


TCP 

APGH I 

YES • NOW BETWEEN .5 AND .25. 


2129 

REF 

1 



00,3515 

1 34 6 7 

c 


TCP 

ARCLC 

ARGUMENT NCW EETWEEN .25 AND . 

125. 
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PZ12L IPiCC^C^ETPlC fUNCTlCN PACK AGE. ^ ~ , ~ 

~ 1*-F PriLCb fwr TR ir CKC^^PTPlL PUhCTlCoTs ARE AVAILABLC fiS INTERPRETIVE OPEftATlQKSi 

B2133 I. SIN I CCMPiJ US (1/2>S1NE( 2 PI MPAC). 

P213A 2. CCS CQHPLI^S ( 1 / 2 ) CCS INE ( ^ PI KPICK 

82135 ~~ in A SIN CCMPUTES ( I/^P! UrtCS INE (2 P»PK>. 

H2i3fc A- ACGS COMPLIES ( l/2Pn AHCCCS INE C2 PPAO. 

Rllir 5i8-/HlA7PD CCS-/CCS PR£ NtTLAlLV IhVEPSti U Slh(ASIK<X)) » X. 



ZU£ REP 4 LP.ST U^ e 00*1516 0 6672 L CCS I Hi TC_ 

ILE 


ep anch 


FJNGS COSI NE L51N G THE lOENTITV 
CCSIXI « SIMPI/2 - ABS(X)). 



. J« Ef 

_ . 1 



. JJ5i_35_20 

1 3525 

1_ 


TCP 

PRESINE 



REF 

2_ 

L^ST 

1154 

.CQi3 52_1 

1 3525 

1 


TCF 

PP6S INE 














2IA2 





CQt3522 

0 0006 

1 

♦ 3 

EXTEND 



21^3 

REF 

6C2 

1.4ST 

1153 

00t3523 

4 0155 

1 


DCS 

MPAC 


214^ 

REF 

602 

lAST 

1134 

£0.3524 

52 155 

1 


OXCH 

MPAC 














2145 

REF 

.1 

LAST 

115.2, 


3 46 76 

1 

PRESINE 

CAF 

OUAH T £R 

Pl/2 scaled. 

2146 

Ril, 

-6C4 

LAST 

1154 

j£C,3526 

26 154 

c 


AOS 

MPAC 


























214? 

REF 

-6.C1 

LAST 

1154 

CQ.352? 

52 155 

1 

5IMF 

CXCH 

MPAC 

OOueLE ARGUMENT. 

2148 





00.353C 

2 0 001 

1 


DDGUtiL 



2149 





00. 3531 

54 CCC 

c 


OVSK 


SEE IF OVERFLCN PRESENT. 

2150 





00.3532 

1 3535 

c 


TCF 

+ 3 

IF NOT. ARGUMENT OK AS IS. 













2151 





OUf 3533 

0 00C6 

1 


EXTLNt 


IF SC. WE LCST (OR GAINED! PI. SC 

2152 





00.3534 

4 QOCl 

\ 


DCOM 


COMPLEMENT MPAC USING THE IDENTITY 

_ A2153 











SIN( X-{ + )PI » - SIN('X) . 

2154 

REF 

6Ce 

LAST 

1154 

CC,3535 

52 155 

1 

♦ 3 

OXCH 

MPAC 


-^1-55 

REF 

6C7 

LAST 

U54 

CC. 3536 

3 0154 

1 


CA 

MPAC 

SEE IF ARGUMENT GREATFK THAN .5 IN 

2156 





00.3537 

6 0000 

i 


OCUtiLE 


magnitude, if sc, reduce it TO LESS THAN 

2157 

REF 

IS2 

LAST 

1152 

00.3540 

54 001 

1 


TS 

L 

.5 (♦-Pi/2 SCALED) AS FCLLOWS: 

2158 

REF 

L 



CO. 3541 

1 3552 

1 


TCF 

SM 














2i59 

REF 

3 11 

LAST 

U5l 

0C.3542 

50 000 

i 


INDEX 

A 

IF PCSITIV6, FORM PI - X, IF NEGATIVE 

2 16C 

REF 

7 

LAST 

104S 

00.3543 

3 4674 

c 


CAF 

NtC.1/2 1-1 

USE -PI - X. 

2161 





0G.3S44 

6 0000 

1 


OOU&L E 



2 162 





00.3545 

0 C0C6 

1 


IXTFND 



2163 

REF 

6ce 

LAST 

1154 

CC.3S46 

6 0 154 

1 


SU 

MPAC 

GUARANTEEG NO OVERFLOW. 

2164 

REF 

6C9 

LIST 

1154 

0C.3547 

54 154 

c 


TS 

MPAC 


2165 

REF 

6 1C 

LIST 

1154 

00.3550 

4 0155 

1 


CS 

MPAC ♦! 


2166 

REF 

6 11 

LAST 

1154 

CC.3551 

54 155 

1 


TS 

MPAC 4l 
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REV IStCh 2U 


fp jfif. PwfGflAM rcLr«;<;u^ 


BV NASA 2Q21111-L31 


L 

INlERPRETfcJl 







USER' S PAGE NO. 02 E3 S3 


ZXtl 





— HQ. 3 552 

C 0006 

1 

EXTEND 


SET CP TQ EVACUATE HASTINGS PCLVNCHIAL 

2i6fi- 

REE 

612 

LASX 

11^4 

CD .H 55 3 

3 0155 

C 

OCA 

MPAC 




IX. 

1 A5i1 


nCt3554 

52 134 



DXCH 

BUF2 


^IIC _ - 

R£f 

5 L6ST 

115C 

CD. 3 555 

0 3iDQ 1 

TC 

nSLS t 0 

SQUARE HPAC. 


21 ■» 1 

flgg 


1 

846 

00t39S6 

0 7171 

J 

TC 

POLY 

EVALUATE FOURTH ORDER PCLVNCHIAL. 

2172 





.00.355 7 

CC0C3 

1 

DEC 

3 


2173 





00.3560 

14441 

C 

2Dec 

♦.3926990796 


_ .2172 





DO. 3561 

27325 

1 




2174 





00.3562 

5325C 

C 

20EC 

-.6459637111 


2174 





00.3563 

60764 

1 




217i> 





00.3564 

12146 

1 

2DEt 

+.316758717 


2175 





00.3565 

21276 

1 




2l7t» 





00.3566 

75466 

1 

20EC 

-.074780249 


2176 





00. 3567 

11471 

c 




2177 





001.357C 

00.236 

c 

20 EC 

+ .0C 9694980 


2177 





00, 3 571 

32757 

c 















2178 

R£f 

1 



00.3572 

3 24 70 

c 

QAF 

ieuF2 

HULTIPLY ev APGOHENT AND SHIFT LEFT 2. 

2179 

HEf 

19 

L^ST 

1116 

00.3573 

Q 7055 

c 

TC 

DMPStB -1 













2181} 





jD0i1574 

Q -00^06 

1 

EXTEND 



2181 

REF 

613 

LiLit 

U55 

CO. 3575 

3 C156 

c 

OCA 

HPAC +1 


2182 

R E F 

JLIA. 

L65T 

1155 

CO. 3576 

20 156 

1 

. DAS _ 

NPAC +1 


2163 

REF 

_6_L?_ 

L/ST 

115! 

COt_3577 

6 C154 

1 

AO 

MPAC 


2104 

REF 

616 

L6S7 

11 95 

CC.3600 

26 154 

c 

AOS 

MPAC 

NEITHER SHIFT OVERFLOWS. 

2105 





CO. 36C1 

0 0006 

1 

EXTEND 



2186 

REF 

6 17 

U47 

1155 

CC.3602 

3 0156 

c 

OCA 

PPAC +l 


2107 

B6F 

6 18^^657 

1155 

CC.36Q3 

20 156 

1 

CAS 

HPAC +1 


2180 

REF 

619 

—LAST 

1155 

CC.3604 

6 0154 

1 

AO 

KPAC 


2189 

ref 

6 2C 

l^ST 

1155 

CC.36C5 

26 154 

c 

ADS 

MPAC 


_ _2190 

REF 

97 

11S7 

1149 

00.3606 

1 6030 

c 

TCF 

DAN2 IG 
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_ _ L I M£ltPP£T£R 


USE.R'S PAGE NC. 6 3 


E3 S3 


_ P21S1 



ARCllh/AECCCS HCLTINE. 





' 













US2 

B Pf 

L_ 



OCtifcO? 

,^ 3630 

_L_ 

ARCS IN 

CAf 

LASI h£X 

CCHPUTE ARCSIN BY USING THE IDENTITY 

2193 





_Cu i_3^LQ 

1 3612 

C 


TCF 

+ 2 

ARCSINIXl « Pl/2 - AflCCCSIXI. 













LLSA 

atf 

1_ 



OQf 3611 

3 3712 


ARCCCS 

CAF 

LDAhZIG 

(EXITS IMMECIATELYI. 

2195 

ilfJL 

1 



QQt3612 

59 136 

1 


TS 

ESCAPE 


^196 


5 

LA S T 

1119_ 

1 3 

0 6671 

J 


TC 

6 RANCH 

TEST SIGN CF INPUT. 

2197 

flEF 

L_ 



QQ.3619 

1 3629 

C 



ACCSST 

START IHMEOIATELY IF POSITIVF. 

2198 

ilEf 




00.3615 

1 37 29 

1 


TCF 

ACCS2ERG 

AflCCCSIOl * PI/2 - .25. 

2199 





00.3616 

0 0006 

1 


EXTEND 

IF NEGATIVE, USE THE IDENTITY 

22C0 

_E££_ 

ill 

LAST 

1155 

CO. 3617 

9 0155 



DCS 

HPAC 

ARCCQS(X) a PI - APCCOSI-X), FORCING 

2201 

R£F 

622 

LAST 

US6 

00.3620 

52 155 

1 


OXCH 

MPAC 

ARGUMENT POSITIVE. 

22:02 

REF 

1 



00.3621 

3 3727 

c 


CAF 

TCSD6TH 

SET EXIT TO CC ABOVE BEFORE 

2203 

R6F 

4^ 

-list 

1156 

Q.£«J.62.2 

56 136 

c 


XCM 

ESCAPE 

ARCS IN/ARCCCS CCNS IDER AT IONS. 

2209 

REF 

1 



OCf 3623 

59 137 

c 


TS 

ESCAPE2 














2205 

REF 

iCi 

LAST 

1153 

Qi..3629 

9 9675 

c 

ACQSST 

CS 

HALF 

TEST MAGNITUDE CF INPUT. 

22Q.6 

BEF 

6 2 .3 _ 

i A S T 

1156 

00.3625 

6 C159 

1 


AO 

MPAC 


2207 

ref 

312 

LAST 

115^ 

00.3626 

10 OCO 

c 


CCS 

A 


2208 

REF 

1 



00.3627 

1 3720 

c 


TCF 

ACOSCVF 

THIS IS PflCeABLT AN CVERFLOM CASE. 













_ 2209 

_Rli 

J, 



QQt363g 

1 3706 

1 LASlhEX 

TCF 

ASINEX 














221 C_ 

PJl 

_ 1_ 



CO. 3631 

1 3691 

C 


TCF 

ACaSST2 

NO CVERFLCh - PROCEED. 













2211 

REF 

629 

-LAST 

JUjL 

00.3632 

J.0 155 

1 


CCS 

MPAC 41 

IF MAJOR PART IS .5, CALL ANSNER 0 

221i 

ref 

2 25 

LAST 

U52 

00.3633 

3 971<, 

1 


CAF 

ZEPL 

UNLESS MINOR PART NEGAIIVE. 

2213 

REF 

1 



00.3639 

1 3636 

C 


TCF 

ACOS*C 














2219 

REF 

- 2 

AAS-T 

U56 

C0t3635 

1 3691 

C 


TCF 

AC0SST2 














2215 

REF 

625 

■ LiST 

1156 

00.3636 

-59 155 

1 

ACOS-0 

IS 

MPAC 41 


221t 

REF 

626 

LAST 

U56 

Ct»3637 

59 159 

c 


TS 

MPAC 


2217 

KEF 

2 

LAST 

1156 

CC.369C 

0 0136 

c 


TC 

FSCAPE 














2218 





Ou.3641 

0 0006 

1 

AC0SST2 

EXTEND 

NCR THAT ARGUMENT IS IN PRCPEP RANGE, 

2219 

REF 

627 

LAST 

U56 

00.3692 

9 0155 

1 


DCS 

MPAC 

BEGIN COMPUTATICN. USE HASTINGS 

2220 

REF 

21 

LAST 

1156 

00. 3693 

6 9675 

i 


AO 

HALF 

APPRCXIMATICN ARCCCS(X) » SORT ( 1-X IP ( X J 

2221 

REF 

6 2E 

LAST 

1156 

00 .3699 

52 155 

1 


OXCH 

MPAC 

IN A SCALEC VERSION mHERE P(X) IS A 

2222 

REF 

18 

LAST 

11 55 

00,3695 

52 139 

c 


OXCH 

BUF2 

SEVENTH ORDER PCLYNOMIAL. 













2223 

REF 

3_ 

LAST 

1198 

00,3696 

0 3393 

c 


TC 

SORT SUE 

RETURNS WITH NORMALIZED SQUARE ROOT. 













2229 

REF 

- 62 

LAST 

1153 

OC.36^7 

1C 135 

1 


CCS 

MPTERP 

SEE IF UN-NCRMALIZAT ICN REQUIRED. 

2225 

REF 

1 



00.365C 

1 37U 

c 


TCF 

ACCSSHP 

IF SC. 

---- — _ 
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lAt£PPf£t£J 


USER'S PACE NC. SH 


£3 S3 


^ZZt 

R£1 

629 

L/SJ 

Hit 

QC.*it51 

52 155 

1 

ACQS3 

CXCH 

F PAC 

SET UP FOR FCLYNCRUL 

EVALUATION. 

1111 

REf 

19 

LAST 

115 6 _ 

Olltli 5 2 

52 135 

C 


OXCH 

BUf 2 



???a 

RFE 

Alt 

LIST 

115 1 

CQ.3653 

52 155 

1 


DXLH 

MPAC 




ZZZ*l 

Rif 

A 

■USl 

1131 

£Qa1655 

0 1171 

1 


TC 

POLY 



223l 





0J.3655 

COOQ6 

1 


oic 

6 



2231 





00t3656 

13250 

c 


2DEC 

♦ •35:*5£3385 

COEFFICIENTS ARE C 2 ( + 11 /P 1 SORT ( 2 ) WHERE 

2231 





Q0t365? 

23630 

c 






2232 





C0.366C 

75721 

L 


_2Di;Cr 

-.0563017006 

e + i* 1 


2232 





OU* 3661 

57775 

1 






22 33 





CO, 3662 

C255Q 

c 


2Dec* 

♦.C2CC2730fl5 

e+2* WHERE C STANDS FOR ORIGINAL CCEFFS. 

2233 





00.3663 

20237 

c 






223^ 





QQ,3665 

75067 

1 


20EC* 

-.01 12931E62 

B+3» 


223A 





0Q»3665 

70752 

1 






2235 





QO • 3666 

035 36 

c 


2UECA 

+.00695311612 

B+5W 


2233 





- aaaioi? 

26756 







2236 





CCt367i_ 

15037 

A 


2DEC* 

-.OC3E5617957 

0 + 55 


2236 





00.3671 

5765C 

1 






2237 





00.3672 

C3056 

c 


2DEC* 

+.001501297736 8+6* 


2237 





00,3673 

C7153 

c 






223B 





00.3675 

J46 55 

1 


2DEC* 

-.000265160335 B+7* 


2238 





00,3675 

52255 

c 



















2235 

-_ fi£f 

2 

LAST 

1152 

CCa3176 

3 25 70 

c 


OAF 

LtUF2 

CC FINAL NULTIPLV AND 

GO 70 ANY 

22<i0 

REF 

2C 

LAST 

1155 

00,3677 

0 7055 

c 


TC 

0MPSL6 -1 

EPILOGUE SEOUfNCES. 


22AI 

REF 


LAST 

1156 

CO. 3700 

0 0136 

c 


TC 

ESCAff 




224i2 





.00*1701 

0 0006 

1 

SU8TR 

EXTEND 


EPIICGUE FOR NEGATIVE 

INPUTS TO ARCCQS. 

__ 

Rif 

631 

LAST 1151 

00*3702 

5 Q.155 

1 


DCS 

F«PAC 



22iL3_ 

REF 

22 

LIST 

1156 

CC.3703 

6 5675 

1 


AD 

half 

FCPNS PI - ARCCCS(-X1 

« ARCCOS(X). 

2253 

Rif 

ill 

_LiS_T 

1151 

COi3705 

52 155 

1 


OXCH 

HPAC 



2256 

REF 

4 

LAST 

1156 

CO, 3705 

0 0137 

1 


TC 

ESCAPE2 

CC TO POSSIELE ARCS IN 

EPILOGUE. 


2151_ 





(Lt*37C6 

0 C0Q6 

1 

A41NEX 

tXTCND 




2^5 6 

REF 

673 

IASI 

1157_ 

CClSTC? 

5_ 0155 

1 


DCS 

MPAC 

APCSIN EPILCGUE - GET ARCSINIXI 


2259 

REF 

JE_ 

LAST 

1155 

£C.i71C 

t ^6 76 

1 


AD 

OUAHTER 

• PI/2 - ARCCCS(X). 


2250 

REF 

615 

LAST 

1151 

OU. 371 1 

52 155 

1 


DXCH 

MPAC 



2251 

R£F 

5C 

LAS1 

115* 

CO, 3712 

1 6030 

( 

LOANZIo 

ICE 

OANZ IG 




tp 
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22i>2 

a£f 

ili 

LAST list 

0(U5J15 

5C. OOP 

1 

ACOSSFFl 

INDEX 

A 

THE SHIFT RIGHT IS LESS THAN 14 SINCE 

1251 

£££ 

4£ 

L451 liA5 

_Q.fl»5U5 

3 <!67& 

1 


CAF 

_K IT 14 

THE INPUT KAS NCN-ZERC OP. 



RgF 

63 

LAST 1156 

CC.3715 

54 135 

1 


TS 

MPTEFF 



2255 

Mf 


LJSI 2122 

.(H3iaU6 

_JL2Q73 

L 


TC 

VSHPPNC 

CP SHIFT RIGHT AND RCUND. 


2256 

Jllf 



_ 0Qt5 7i.7 

I 26 51 

1 


TCF 

AC0S3 

PROCEED. 



2251 




OQillZO. 

_.0 0.00.6 

1 

AC05CVF 

EXTENC 


IF PAJCP PART WAS ONLY 1 PCR6 THAN . 

5, 

Z2ie 

BXF 


LAST 1156 

_ QQtl72 1 

1 3636 

C 


OZF 

ACOS*C 

CALL ANSWER ZERC. 














225S 

Atf 


LAST 1151 

(10x2722 

0 5622 

1 

ACOSAeRT 

TC 

POCDCC 



22 6g 




00,3723 

01301 

1 


OCT 

13CI 




22tl 

- Bit 

5 

_ LAST 1151 

00t372>* 

3 4676 

i 

ACCSZCRO 

CAF 

QUAKIFP 

ACOSIC) * Pl/2. 


22^ 

ReF 

3 

LAST USE 

00,3725 

1 3637 

I 


TCF 

ACLS*C +1 

SET RPAC ANC EXIT VIA ESCAPE. 



2255. 




OQ , 3 726 

7 7 763 

c 

NEGU 

DEC 

-12 



22t<. 

REF 

1 


00,3127 

1 37C1 

c 

TCSietR 

TCF 

sueip 
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i. lAlERPPtTEB 


USER’S PACE NO. 86 63 S3 


IS 


P? jAS 

166 FCLLCklNC 

INSTRUCIICNS APE AVAILABLE FQP SETUKCf NCCIEVINQ, ANC eHAKCHKG CN INDEX REGISTERS? 


fl^3A7 




1 , AXT 

AODKESS 1C INDEX TRUE. _ 



1 - AKC 

AQCHESS 1C INCEX COKPLEMEME C. 


iliL26S 

LRA 

LQAC INDEX FROM LRASAOLE. 


R7270 

4. 

LCAD 1NC6X CCRPLEMENTEC FROM ERASABLE. 


S2211 

5 1 STtA 

STCRE lACEX IN ERASABLE. 


R2272 

6- XCHX 

EXCHANGE INDEX RE1G$TER WITH ERASABLE. 






R2213 

7- INCH 

INCREAEM INDEX REGISTER. 


R2276 

6# XAU 

ERASAELE ADD TC INDEX REGISTER. 


^2275 

S. XSU 

ERASABLE SUBTRACT FROM INDEX PECISTER. __ _ 






R2276 

1C. TlX 

BRANCH CN INDEX REGISTER AND LEChEHENT. 



2271 


Ql, 23 n 


BANK 01 


2278 

22 7q 

CLM 

1 







COUNT 

01 /I MEN 



— 

REF 

1 

^ 

_ 

01.2371 

C 2466 

1 

AXT 

TC 

TAGSLE 

SELECT APPROPRIATE 

INDEX REGISTER. 

22 8G 

REF 

22 

LAST 

U6S 

Clf23 72 

3 0U7 

C 


CA 

PUL 1 SH 




2281 

REF 

A 

LAST 

10 7 6 . 

01f2J73 

50 130 

C 

XSTORE 

INDEX 

INDEXLCC 

CONTAINS CIFIXLCCl 

OR C(FIXtCC» + l. 


22B2 

REF 

U 

LAST 

1088 

01.2374 

54 046 

1 


TS 

XI 




22 

REF 


LASl 

U51 

Clf237S 

1 6030 

c 


TCF 

0 Ah Z 1 G 

-- 


- - - - - 

22fi4 

RFF 

? 

LAST 

115 5 

01.2176 

n ^ dm 

1 

^XC 

TC 

TAGSUfc 




22 61 

REF 

22 

LiSJ 

Ills 

Cl. 2377 

4 01 1 1 

i 


cs 

PDL I SH 




2286 

Rif 

1 



C 1,2400 

0 2313 

1 


TC 

XSTCPE 





2287 

REF 

1 



fii.2401 

0 2454 

C 

LXA 

TC 

15A0RERS 

LCAD 

INDEX REGISTER FRCM ERASABLE. 

2288 

REF 

2 4 

last 

1155 

C 1, 2402 

5C 11? 

C 


INDEX 

PCI I SH 



22B9 





01. 2403 

3 0000 

1 


CA 

0 



2250 

REF 

2 

LAST 

1155 

01.2404 

1 2373 

C 


TCF 

XSTCPE 
















2251 

REF 

2 

LAST 

115 5 

C1.24C1 

2454 


_J.XC. 

TC 

15ADPERS 

LOAD 

NOX REG FRCH ERASABLE CORPLEMENTEO. 

2292 

REF 

25 

LAST 

1155 

01.24C6 

50 117 

c 


INDEX 

PCLI SH 



2293 





01,2407 

4 cooo 

c 


CS 

0 



2294 

_-R£F 

“3 

M 

LAST 

1155 

Clf2410 

1 2313 

c 


TCF 

XSTORE 
















2295 

REF 

*3 

LAST 

U5 5 

0J,2411 

0 5^ 

c 

SXA 

TC 

iSAOREPS 

STORE 

INDEX REGISTER IN ERASABLE. 

2296 

REL 


LAST 

1155 

Cl. 2412 

9C 130 

c 


INDEX 

I NDE XLCC 



2297 

REF 

51 

LAST 

U5 5_ 

01.2413 

3 CC46 

c 


CA 

XI 



2298 

REF 

26 

LAST 

U55 

01.2414 

50 ill 

c 

PSTCflf.l 

INDEX 

POL I SH 



229.1.. 





01.2415 

54 OCC 

c 


TS 

0 



2300 

REF 

LC 

LAST 

a 55 

01.2416 

1 6030 

c 


TCF 

DANZ IG 
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2301 

Rtf 

4 

LISJ 115 S 

C It 2X1 7 

C 2454 ( XCHX 

TC 

L5A0PERS 

exchange INCEX register MlTH ERASABLE. 

2302 

—2303 

REf 

2? 

LAST 1159 

JQ it 24 20 

5C 117 C 

INDEX 

CA 

POL I Sf 





01.2421 

3 COCO 1 

0 

’ 

.2304 

BEf 


UiJ _115.9 

01ti4i2 

5C 13C C 

INDEX 

INDEXLCC 



BEF 

52 

L3S1 Uil 

JD If 24 2 3 

56 C4<i C 

XCH 

XI 

- — — - ■ 

^306 

REF 

L_ 


01*2424 

-Al4i4 C 

TCf 

MSTCPEl 

■ ^ 


TC 15A0_PEPS ADD ERASABLE TO INDEX REGISTER. 

INDEX FLUSH 

CA 0 

IN DEX INDEXLCC 

AOS Xi IGN ORING OVEPFLCwS. 

TCf DANZIG 


-2-3-1-2 aii 3 L AST 1L 5S Q-li2^32 Q— 1 I NCR K T AC5LP INCREPENT INDEX REGISTER. 

111^ REF 23 LAST U6C Ol,2^3A 3 Qll? C CA POl I SF 

2315 REF__1 01t2^35 1 2A3C C TCf ' XAD2 


2316 Rif ^ i.JL5T U6C„_ Qlt2^36 0 2^ 5 A C XSU TC 15A0PERS SUBTRACT ERASABLE FROM INDEX REGISTER. 

231? RfF 3C LAST I16C 01,2A37 5C 117 C INDEX POLISN 

23JJI 01,24^0 ^ CQQO C CS 0 

2319 REF 2 L4ST 116C 01t2 4M 1 2^30 C TCF XA02 ^ 


^ao7 

23D1 

2iil9 

_2 3 10 

23 11 


REl 

ALL 


REF 


5 

il. 


LAST 

LAST 


116C 

XliLi. 


A£i L2 LAST 116C 


0U2425 

OliiAl? 


ILL 


D 29 54 
11 
3 ooog 


7 L AST 116C CU 2^3C 5C 130 


C 

C 


I 

C 


2312 REF 51 LAST U5S Ci.2<32 1 6030 C 


XAD 


XAD2 


2320 

2321 

2322 

BEF 

4_ 

LAS T 

U6.t 

Clt2442 

Q 2466 

1 

MX 

TC 

T AO S L P 

BRANCH AND CECREMENT ON INDEX. 

BEF 

—REF 

6 

37 

LAST 

LAST 

1L6C 

666 

01.2443 

01.2444 

50 130 
4 00 50 

C 

C 


INDEX 

CS 

INDEXLCC 

SI 


2323 

REF 

9 

LAST 

116C 

01.2445 

5C 130 

C 


INDEX 

INDEXLCC 


2324 

REF 

54 

LAST 

11 6 C _ 

01.2446 

6 CC46 

C 


AD 

XI 

* 

2325 





01.2447 

0 0006 

1 


EXTEND 


NO OPERATION IF DECREMENTED INDEX IS 

2326 

HEF 

*2 

LAST 

U6C 

01.2450 

6 6030 

1 


B2MF 

OANZ IC 

NEGATIVE OR ZERC. 












‘ — 

2327 

Pif 

1C 

LAST 

116C 

01.2451 

50 130 

C 

COT IXBR 

INDEX 

I NDEXLCC 



2328 

REF 

c c 

r _ ■ 

LAST 

116C 

01.2452 

56 04^ 

C 


XCH 

XI 

IGNORING GVERFLCWS. 

- - -- =- 


. 









-r 

2329 

REF 

£_ 

LAST 

U 4 S 

Cl. 2453 

1 6615 

_L_ 


TCF 

GOTC 

DC THL BRANCH USING THE CADR IN PCLISh. 
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gtPiRDLTIhE TC CCfcWERT A h EBASAfLE ACCRESi tU eiTS) TC >K E&ANK SETTING AHQ SUBADORESS. 



aPf 

• 1 

1 iST U Af 

0 1 f 22 84 

4 Oil? 

1 

15A£A£KS 

CS 

PLLI SH 



2333 

Aif 

J__ 


QiiOASS 

t AlU 



AO 

0EC2i 


■ 1 

23X^ 

Mf 

3H 

LASJ 113 8 

JIU0456 

iC COC 

C 


CCS 

A 

ODES 

THF AOCPESS POINT TC THE NOPK AREA? 

:>3 

REF 

31 

LAST 112S 

01.2257 

3 0120 1 


CA 

PJXLCC 

YES. 

ADO FIXLOC. E8ANK OK AS IS. 

2336 




Alrli i Q 

1 2265 

c 


rcF 

♦ 5 
















flpf 

fc_ 

t AST luflg 

ClflAhl 

_0 2722 

1 


CA 

__QCIi2CC 

HO # 

SET EBANK 6 HAKE UP SUeAOORESS. 

2336 

REF 

12 

1 1ST U 6 1 

CIi_2A62 

56 117 

C 


XCH 

POL 1 SH 



2339 

RJf 


east 1096 

01f2263 

52 003 

C 


TS 

CBANK 



2320 

REF 

-Oi 

OOa2A62 

7 2373 

c 


MASK 

LQWd 



2JA1 

REF 

03 

lASJ 

Q1i2265 

26 117 

1 

♦ 5 

ADS 

POL ISh 

FALL 

INTO TAGSUE. ANC RETURN VIA C • 


- fi2322 



SLhNCLT INF 

WHICH SETS 

THE AQCRESS CF 

THE SPECIFIED INDEX IN 

INDEXLQC. (AC7LALLY. THE ADDRESS -38C.I 


23A:2 

REF 

-12 

Hill 

Q1j2466 1 JQ12Q 

J TAGSUO 

CA 

F IXLCC 


2145 

REF 

11 

LAST UAL 

CA.2267 

52 130 

J 

TS 

INDEXICC 



2326 

R£f 

26 

LAST U26 

Clt227Q 

10 020 

1 

CCS 

CVl- 

BIT 15 SPECIFIES INDEX. 

232 7 

■■REF 

12 

LAST 1161 

01^22 71 

22 130 

_£ 

INCR 

INDEXLCC 

6 NEANS USE X2. 

2326 

REF 

2K 

EAST U52_ 

01*2272 

0 00G2 

C 

TC 

0 

* 

2329 

REF 

211 

LAST U6I 

Jilf2273 

C 0002 

C 

TC 

0 

1 FOR XI. 


gap: RPVISlOh in Cf AGC PRCGRAH tlOLtSSUS by NASA 2Q21111~C31 Lij? ALG. 2^*1968 S4TPAP .QQA PAGE 116 
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P2ibC - -MlSCELLAAEULi QPERATlCh COCES mXH DIRtCT AOPPESSEi. INC LUCEC HEPi ASE: 


JUJ52 L^.-lIA STCfiE CPHET (RETURN ACCKESSI Ih ERASABLE. 

P 2 3 S 4 2 . CALL _iALL A SUeRCUTINEj LEAV ING P ETUFh IN QPPET.^ 


R125Ji 



3^ 

RIB 


KETUPR 

JC RASIC 

LANGUAGE AT THE 

GIVEN ACDPESS. 


R23^a 



-4^. 

ChI2 


branch 

IF the hi 


^ OF HPAC 

IS ZERO (SINGLE PRECISION). 


M23 tQ 



5 « . 

BCV_ 


branch 

C A C V EP F LCk • 




P23tl 



6 > 

GOTO 


SIHPLE 

SEQ^JENCE 

CHANGE . 

















11 tz 

Rif 

^2 

LAil 

U61 

Qlt2R74 

iC 0.20 

1 

PTe/BHU 

CCS 

CVP 



23 C3 

PEf 

24 

LJJST 

IL6 J 

Olf2A75 

3 CU7 

C 

RTB 

CA 

POL 1 5H 



2-iJb^ 

fiii_ 

5_ 

LAST 

721 

£1«2476 

Q 456iJ 

C 


TC 

SUCALL 

-1 SO A *'TC C" FPCH ROUTINE LEADS 

TO CANZIG 


2365 

R£P 

<3 5 

LA5I 

1151 

QU2A7? 

IC 154 

C 

EHl 1 

CCS 

MPAC 



236fc 

Rii- 

• ^ 

LAST 

116g 

C1.25C0 

1 6030 

C 


TCF 

OANZ 1C 



_2JE1 

REF 

? 

i AS T 

ll6iL _ 

CU2501 

1 6615 

1 


TCF 

GCTC 



li 68 

REF 

54 

LAST 

1162 

0 it 2 502 

1 60 30 

c 


TCF 

OAF. 2 IG 



2369 

REF 

fi_ 

LAST 

1162 

-01.2503 

I 6615 



TCF 

GCTC 




2370 

REF 

9 

_L AS 7 

11 16 

_OLt.2 5i54 

10 121 

1 

uqviB) 

CCS 

OVF INC 

BRANCH CN CVERFLCH TO BASIC OR 

INTERP. 

2371 





CltZSCS 

1 25C7 

c 


TCF 

♦ 2 



2372 

REF 

5 5 

-LAST J_lG < __ 

01t2S06 

1 6030 

C 


TCF 

OANZ IG 



2311_ 

Rtf 


LAST 

Xl62_ 

01.2507 

54 121 

1 


TS 

OVFI FC 



237^ 

REF 

31 

LAST 

1162 

01.2510 

AC 020 

1 


CCS 

( VF 



2375 

REF 

1 



0 1 1 2 5 1 1 

1 2473 

1 


TCF 

PTE 

IF BASIC. 


23 76 





01,2512 

CC360 

1 

85TCD8 

OCT 

3 oO 



237? 

Rii_ 

c 

— ,— ■ 4-._ 

LAST 

11^2 

01.2513 

1 6615 

_L 


TCF 

GCTG 




I r>ii 


t 

i^stiret 

■ t B 

i;!i li 

^ ^ i 

Lr 

LLLiMAn L^4 

1 i 1 r ’’ 


ajLA- jLU j; 

.AXli.- WJL-L .. . . 

1 * i f — elAiMii Ai Jjgg 

fMijf 

i 

tM EbPfi^TEP 








USER*5 PAGE NC. 

90 t3 S3 


21 1 e 

R£1 

35 

L151 

116 2 

L1*2519 

1C 02C 

1 

EZtVGCTC 

CCS 

CYR 

SEE WHICH QP-COCE IS 

DESIRED. 

Ills 

REi 

t 

OSl 

lllX^ 

0 UZS 1 5 

JL 66 72 

1 


TC . 

ekANCH 

DC B2E. 



ttpt 

•if 

E i^T 

1162 

Clf2516 

_ 1 6C3D 

c 


TCF 

DAKZ JC 



ziai 

REf 

1£ 

L^ST 

116 2 

Qlt2il7 

1 4615 

1 


TCF 

GfTC 

CO GCTC. 


_2J£2 

R£t 

IT 

LIST 

iiai _ 

Cl* 212C 

1 603C 

c 


TCF 

OAKZ IG 
















Ufll 

R£f 

AC 

XiSl 

116 2 

Ql«2i21 

1C QIC 

1 

EPL/BMN 

CCS 

CYP 




REF 




Q.umz 

1 253Q 

1 


TCF 

fcPL 



236*1 





QK2523 

12M£_ 

_ 1 _ 

seio 

_li£C 

S L»1C 

SHIFTS OP CCCE IN SRUCH INSTRUCTION ACP 


2126 

R£f 

7 

LIST 

_llol 

£lU2529_ 

Q 66 72 

1 


TC 

BPANCFi 

DC 8PN. 


2383 

REF 


LiST 

U63 

C1.2525 

1 6C3C 

c 


TCF 

DAKZ IG 



23 ai 

R£i 

59 

Li S T 

116 2 

011 25 2 6 

1 6030 

( 


TCF 

OANZ 10 



2365 

REF 

11 

L4ST 

1162 

Clt 2527 

1 6615 

1 


TCF 

GOTO 

ONLY IF NN2. 















2390 

R£F 

a 

„ LISJ llAl 

tl»2330 

a 6671 

I 

flEL 

Tt_ 

BRANCH 



23 91 

R£E 

12. 

kiST 

116 3 

_fll»2531 

1 6615 

1 


TLF 

Oi3Ta 

IF PCSITIVE OR ZERO. 


23S2 

R£f 

12 

LJST 

116 3 

0 1.2332 

1 6615 

1 


TCF 

GCTC 



2393 

R££ 

6C 

LAST 

1163 

Qlt2533 

1 60 30 

c 


TCF 

DAMZ IG 
















- ^llA ■ 

RRF 


LIST 

1163 

Clf 2539 

Xfl 010 

1 

CJLL/ITA 

CCS 

CYR 



2395 

REF 

1 



01,2535 

1 6607 

1 


TCF 

CALL 

















REF 

7 

LJST 

35* 

Cl. 2536 

0 5692 

1 


TC 

CC SH C Lt 



2391 

REF 

7 

LJST 

116C 

01,2537 

0 2959 

c 


TC 

15A0P6FS 

STORE GPRET. (TJGSUe 

AFTER ISAQRERS IS 

2398 

REF 

33 

LJST 

1161 

C1,259C 

5C 120 

1 


INDEX 

f IXLCC 

SLOW IN THIS CASE, 3UT SAVES STORAGE.) 

2399 

REF 

_Lfi_ 

■ liST 

1195 

Ci.2591 

3 CC32 

c 


C A 

QPRET 



29QQ 

REF 

£_ 

LJST 

. U61 

01*2592 

1 2919 

c 


TCF 

MSTOREl 

















fiFViKtrh Cf tLC PkCGflitM CQLCSSUS fiY Nk 


UllifltMlEP 


Hn ALG. 24 «l<i 69 SATKAP 


OOA PACE 116 <* 


USER'S PAGE NC 




E3 S3 


Pj401 TEE FULLCklWC OPERA flChS ARE AVAILABLE FQP^ At TERINC AND TESTI KG I NTERPRETIVE SWITCHES: 


SET A SVITCH AND OU A GCTQ IF IT >^AS Ch> 

SET A SV ITCH AND DO A GOTO. 

SET A SWITCE A^Q DU A CCTu IF IT hAS OFF 

SET A SklTCh, 


1 

_ C4 _ 


BCMNV 


INVERT 

A SWITCH AND BRANCH IF IT WAS LN* 


C3 


lAVGC 


__ INVERT 

A SWITCH ANU DC 

A G(JTC. 

P2^C9 

06 


6CF INV 


INVERT 

A SnITCH and branch IF IT WAS OFF 

P2^iC 

JJl 


I RVER T 


invert 

A SWITCH. 










£2:411 

JLt - 


HCKCIB 


CLEAR A 

SWITCH AND BRANCH IF IT WAS ON. 


11 


CLRGC 


CLEAR A 

SWI tCH AND 00 A 

GOT 0 « 

H24il3 

12 


aCFCLR 


CLEAR A 

SWITCH ANO BRANCH IF IT WAS OFF. 

J2A14 

I3__ 


CLEAR 


clear a 

SWI TCH. 










K2A1S 

]A 


BLN 


BRANCH 

IF A SWITCH WAS 

ON. 

R2Aie 

l(L 


eCFF 


ERANCH 

IF A Switch mas 

OFF . 

















R2417 



TFE ACDRESS SUPPLIED 

WITH THE 

Switch instruction is interpreted as follows: 









£2419 



BITS 1-4 

SNITCH e 

IT NUHbER 

(1-151. 


H242iJ 



BITS 5-8 

SNITCH CPERATICN MP6ER. 


P2421 



BITS 9- 

SWITCH HCRC NUPBER 

(UP Tc 64 Switch hcrcsi. 









P2422 



TFE ADDRESS ITSELF IS PACE UP 

EY THE YUL SYSTEM ASSEMBLER. ThE BRANCH INSTRUCTIONS REQUIRE TwC 

>2424 

ACCP65SE 

Sf THE SECCNO TAKER AS iRE DIRECT (OR INDIRECT 

IF IN EPASAflLEI ADDRESS OF THE BRANCH. 










2426 

REF 

3 

LAST 974 

Cl, 2543 

3 4721 1 

SWI ICHES CAF 

LCW4 LEAVE THE SWITCH BIT IN SWBIT . 

2427 

REF 

1 « 



LAST 1162 

01,2544 

7 cm 1 

MASK 

RGL I SH 

2426 

REF 

315 

LAST 1161 

01,2545 

5C OCC I 

INDEX 

A 

2429 

REF 

46 

LAST II4E 

Cl, 2546 

3 4674 C 

CAF 

HIT15 (NUHBEfl FRCP LEFT TO RIGHT.! 

2430 

REF 

1 


01,2547 

54 131 C 

TS 

SW&IT 









2431 

RFF 

4 9 

LAST 10e4 

Cl, 2550 

3 4704 C 

CAF 

MT7 LEAVE THE SWITCH NUMBER IN SHWORD. 

^432 




_£ 1,2551 

C C0C6 1 

EXTEND 


2433 

REF 

36 

LAST 1164 

Cl, 2552 

7 0117 1 

HP 

POL I SH 

2434 

REF 

1 


01,2553 

54 130 1 

TS 

SWWliPC 









2433 




01,2554 

0 0OC4 C 

INHINT 

DURING SWITCH change SO RUPT CAN USE TCO 

2436 

REF 

3 16 

LAST 1164 

01,2555 

5C OCO 1 

INDEX 

A LEAVE THE SWITCH WORD ITSELF IN L. 

2437 

REF 

49 

LAST 795 

C 1,2 5 56 

3 0074 1 

CA 

5TAT E 

2438 

REF 

212 

LAST U61 

01,2557 

54 0C2 1 

TS 

Q C WILL BE USEC AS A CHANNEL. 



flc 

BCNSET 


K24(I4 

Cl 

sued 


JUAjOS 

_ 02 

ETFill 



k24tah 02 ill 


r.AP t HFW IS inh 211 

CP AGC pftrcRAM rpLf-SSL-S av 

RASA 2Q21111-C31 

1;17 AliG- 24.1968 SATRAP .004 

PAGE 

116 5 

» 














* # « 

L 

IMEPff'tlO 







USER'S PAGE NC. 92 

E3 S3 


. ' K.I 
















_R2t 

iE 

LiSl 1Q14_ Clj2iEJl 

3 470C 

1 


CAF 

b ITU 




KWil — - 





2 1a2 16 1 

Q GO 06 

1 


extend 


DISPATCH SWITCH BIT OPERATION 

AS IN 

BITS 


^441 

RfeF 

11 

LiST 1164 

fllf2542 

7 0117 

1 


«p 

PLL I SH 

7-8 CF POLISH. 




^42_ 

Rif 

X 



7-2623 

c 


FASK 

DiTO e4 

GETS 4X2-fin CODE. 





REf 

JU 

L12I lli4 

_a*25e4 

-IG .060 

1 


INQEX 

A 





2444 




01.2565 

1 2566 

_L_ 


- JCE 

♦1 






24 4i 

REF 

2 

LiLSI 114 4 

C 1 1 256 6 

2 Qlll_ 

1 

♦ 1 

CA 

SkB 1 1 

00 - SET SWITCH IN QUESTICN. 




2446 




01.2567 




EXTEND 






24A7 

fiEt 

1 . 


Qlt251C 

_C4 002 

1 


ROR 

OCHAR 





244 a 

REF 

1 


01^2111 

1 2600 

1 


7CF 

SWSTCRE 



















2449 

REF 


LlST_2LiL5 

Cli25?2 

3 0131 

1 

¥ 5 

CA 

S*nF I 7 

01 - INVERT SWITCH. 




245C 




0 1 j 25 73 

0 0006 

1 


EXTFNC 






2451 

BFF 

2_ 

L/IST 1165 

Cl. 2514 

C6 0C2 



RXCR 

QCHAR 





2452 

P£F 

2 L4ST 1165 

at25?5 

1 2600 

1 


TCF 

SWSTCPF 



















2453 

REP 

4_ 

L^ST 1165 

Cl. 2576 

4 0131 

C 

♦9 0 

CS 

-Skbl T 

IC “ CLEAR. 




24 54 

BFF 

21? 

L/51 U64 

C U2 5 7 7 

7 0002 

1 


MASK 

0 





<J455 

REP 

2 

mT U64 

Clt26CC 

50 130 

C 

SWSTCRE 

INDEX 

SkkORC 





*1456 

-RE F 

SC 

i.4ST 1164 

MxifeQl 

54 C74 

C 


TS 

STATE 

NEW SWITCH WCPD. 





4 


(U£-S 

ASStl>Bl F 

V If; tf-h ^77 

Cf ACC PPCGR4M CCLOSSUS BY 

NASA 2021111-031 

1:17 AUG. 24.1968 SATRAP .004 PAGE 1166 












1 

IhlEfliiFETEP 







USER'S PAGE NO. 93 

E3 S3 
















_o ao5 3 

1 

+ 13C 

PEL INT 


11 - NCCP. 


2458 

P£f 41 

L^ST 105 L 

aii2,i£J 

3 4676 

1 


CAF 

P I T 1 3 


- — — 





Qlt26P4 

0 0006 

_L. 


__Ll«TtND 


DISPATCH SEOUCE CHANGING CR 

BRANCHING 

2,4 eo 

RiE 2 8 

L/L51_116^5 

CIl2605 

7 Oil? 

_L 


I^P 

PCL 1 SH 

CCOE. 


24C1 

_AIL _ 2 

LAS_T_J16J_ 

Lit 2606 

7 2623 

C 


HASK 

B3TCP4 




Rif 2U 

LIST 1165 

C1.26C7 

5C OCQ 

_l_ 


INDEA 

A 



Z^&il 



01t26l0 

1 2611 

1 


TCF 

+ 1 

ORIGINALLY STORED IN BITS 5- 

6 . 













REf 274 

i-i^T 1165 

01.2611 

4 0002 


♦! 

. CS 

JL 

00 - BRANCH IF CN. 


2445_ 

REf 5 

, LliT 216 5 

_Cii2612 

7 0131 

0 

TEST 

MASK 

SNF I T 




Rif J15 

L4ST 1166 

Oif 2613 

10 000 

c 


CCS 

A 



2467 

PEf 1 


C 1.26 14 

1 2624 

_L_ 


TCF 

SkSKlP 




246 8 

Rtf 1 


^ 01^ 2^615 

1 66 64 

1 

♦ 5 

TCF 

S^^PP ARCH 

01 - GC TO. 

. " ■ - 1 












2469 

BEf 1 

JLm^l6 6 

0 1,2616 

1 2624 

1 


TCF 

SWSK iP 

HERE CNLY CN EIT 15. 













247C 

REf t 

LUST 1162 

01.2617 

0 5642 



TC 

CCSHClt 



24 71 

REf 4 

LAST 1166 

Clf262C 

0 5642 

1 


TC 

CCSHCIF 














24 72 

- Rtf 275 

LIST 1166 

G 1.2621 

3 0002 

X 

♦ SC 

CA 

0 

10 - BRANCH IF OFF. 

' 

2473 

REF 1 


0 1.2622 

1 2612 

1 


TCF 

TtST 














2474 



Cl. 2623 

C0Q14 

1 

631004 

LCr 

0014 



4475 

REF 27 

L4S1 1097 

Clf 2624 

24 164 

1 

SmSKIP 

INCR 

LOC 














2476 

Rif ZL 


01.2543 



Ih/ 

equals 

SWITCHES 














247? 

P1F _. 61 

L4ST 1162 

01,2625 

1 6030 

C 

4130 

TCF 

DANZ IG 

li - NCCP. 



^ H fc V 1 yft — ^ ^ — Aiai- FKLLiKAW LULU^^U^ 
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SATRAP .OOA PAGE 1167 


L . fLi.LL-ll]LtJ^JLClh^IAhl PCUl^ 


USER'S PAGE 

NO. 1 LC S3 

- ' 





QQDl ^671 

BLOCK 02 







' 

^ - 

dOCl* a£J 1 

eg Ufa Q2yFccNS 





iuioai6 


IhE 


T^£L£ CF IB VALUES IS lhC£X£U, 00 NOT IhStRT CR RE MOVE ANY QLIANTIirES 


jQUUZ <it7i 37777 1 CPUSHAx OCT 3777? MUST PRECEDE PG5MA;! 

CQ03 _ A 672 37777 1 PCSM4X OCT 3777 7 _ 


- OUCA 

..RIF - _a _LliT Ui4 

_ 46 73 



LIMIT5_ 


NLGl/2 













0007 


4673 

57 727 

_L 

NPGl/2 

QCT 

-200C0 

USED BY SIN ROUTINE (MOST 

BE TWO 

AC (JOB 








LOCATICNS IN FRONT OF BIT14) 

__ P0CC9 _ 

_aiT TABLE 


















- ^ . 

iiuio 


- A6l4 

4C0ilU 

0 

eiTis 

_ CCT 

4000C 



Juil 


4 675 
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hfvi<;irN ?->i rp acc prcgram rnLCSsus 
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L 

EXECL11VE 





USER'S PAGE 

NO. 12 

EO 

S3 














t iAlL A r E 1 HE ELS G L T S 

CF the 

SC7K. 


















o?a7 

R£f IM 

LIST Ufl« Cl. 3171 

_LC lil 

c 

CCS 

bUF 4l 

SEE IF these are 

ANY ACTIVE JOBS 

WAI 1 ING 

G2S& 

P£F 17 

tliJ172 

C 3(>**2 

1 

TC 

CCSHCIE 





-Q2e? 

Rfct 1£ 

L15J CIt3n3 

c itA i 

1 

TC 

CCSH CLE 






iUSfl. 





01»31J4 

1 ^76 

C 

TCF 

♦2 






C29i 

REf 

m 

L/ST 

_ I fti 

ci • 3 n 5 

1 3223 

C 

TCF 

0UMHYJC8 






Q292 

_B±t. 

115 

LAST 

1186 

01*3176 

10 130 

1 

CCS 

OUF 

BUF IS 2ERC IF THIS 

IS A 

PRIOCHNG AND 



0293 





Oli3l77 

1 3201 

c 

ICf 

♦ 2 

CHANGED PRICRITY IS 

ST ILL 

HIGHEST . 



C294 

REF 

2 

LAST 

U6C 

01 t3200 

1 3005 

0 

TCF 

ENUPRCHG -1 







ilZ95 

1 

1 

JJL3 

LAI I 

U8S. 

J21l3 20J 

SO OCO 

1 


INOF.X 

A 

CTHERhiSE. SET NEWJQB TO THE 

RELATIVE 

0296 





Clf 3202 

2 '7777 

C 


CAF 

0 -1 

ACDRESS OF THE NEW JOB'S CORE 

SET. 

0297 

&££. 

1 



JU.32C3 

6 3153 

c 


AO 

-CCS PR 



0 ^9 e 

REF 

U 

LAST 

1162 

01«32C4 

54 067 

1 


TS 

NEN J CB 



C299 

REF 

A 

LAST 

1182 

Olf 3205 

1 2725 

1 


TCF 

CHANJCe -2 
















WOO 

RiF 

Lie 

LAST 

use 

01t3206 

54 132 

C 

EJl 

TS 

»UF 42 



0301 

REF 

in 

LAST 

iiee 

0l*_3207 

6 C131 

1 


AO 

BUF 41 

- CLC HIGH PRIORITY. 


0302 

Bli. 

-32A 

LAST 

iiBd 

01*3210 

10 000 

c 


CCS 

A 



0303 

REF 

1 le 

LAST 

iiee 

C lt32n 

4 C132 

c 


cs 

bljF 42 



0304 

REF 

1 



01*3212 

1 32U 

c 


TCF 

LJ2 

NEW HIGH PRIORITY. 


0305 





01*3213 

13 2 14 

1 


NUOP 




0306 

RE f 

2€5 

LAST 

1177 

01,321A 

5C CC2 

c 


INDEX 

Q 



C3C7 





Gl» 3215 

0 0002 

c 


TC 

2 

PROCEED WITH SEARCH. 















OIM 

REF 

U9 

LAST 

1166 

01t3216 

54 131 

c 

EJ2 

TS 

BUF 4l 



0309 





01,3217 

0 OOC6 

1 


EXTEND 




OilQ 

&If_ 

UilL 

LAST 

Ui86 

01.3220 

22 130 

c 


QXCH 

BUF 

FCR LCCATING CCS PRIORITY ♦ X 

INSTR. 

Gill 

REF 

U1 

LAST 

use 

01.3221 

SC 130 

c 


INDEX 

BUF 



0312 





01.3222 

0 C002 

c 


TC 

2 
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L 
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USiR'S PAGE NG. 13 EO S3 












paai4 



liilRG AFC 

CCPPUIE8 

ICTIVITY (CPEENJ LIGHT PAINTERAFCE. THE 

IDLING PCUTINE IS NOT A JCB IN ITSELF, 

RU3i6 

BLI 

RATHER A 

SLtiRCmiHi LF THE EXECUTIVE 

• 















OJiB 

REf 

A 

LAST 

25t 

13-C3-. 



EBANK- 

SELF PET 

SELF-CHECK STORAGE IN EBANK. 












CLULS 


?A ^ 

I A9T 

11 a* 

Llf 3223 

4 <.71^ C 

CLHPYJOa 

CS 

2EPC 

SET NEWJOe TO -C FOR IDLING. 

03211 

REF 

19 

LAiT 

118 6 

011 3 224 

54 C67 1 


TS 

NE W J C b 


Q321 





0 1,322-5 

0 00C3 1 


PEL INT 



0122 

REP 

--E2 LAST 

1162 

m.3226 

4 4711 C 


CS 

TWO 

TURN CFF the ACTIVITY LIGHT. 

0123 





_Q If 3227 

C 00C6 1 


EXTEND 



_ 032^ 

ref 

31 

L^iT 

1162 

01,3230 

0 3 on 1 


wANO 

OSALNCUT 


Q328 

REF 

2C 

L / S T 

118 7 

Cl. 3231 

-10 0 6? 1 

ICVIR 

CCS 

NEwooe 

IS A NEWJCe ACTIVE 7 

0329 _ 

REF 

1 



01,3232 

1 3032 1 


TCF 

NUCHANG2 

YES... ONE PECUIRINO A CHANGE JOB. 

0230 

PEF 

13 

2 411 

11 9 7 

Cl, 3233 

3 4711 1 


CAF 

TWO 

NEW JOB already in PCSITICN FOR 

0331 

fi.£f 

L_ 



Ql,323<. 

1 324^2 1 


TCP 

NULIRECT 

EXECUTION. 












Q33I1 

R2F 


LAST 

_ 11.61 

01,3235. 

3_i361 1 


CA 

SELF RET 


03316 

-REE 

199 

L4S1 

116S 

Cl. 3236 

.-54 QCl 1 


TS 

L 

PUT RETURN ADDRESS IN L. 

_ 0332 

Mf 

1 



01.3237 

3 3241 C 


CAF 

SELF EANK 


-0333 

Rif 

4 

L451 

62 C 

01,3240 

1 5123 C 


ICF 

5UP0XCHZ ♦ 1 

AND CISHATCH JCB. 












0333 6 

REf. 

t 

-LAS-T 

il 87 

1161 



EBANK« 

SELFPET 


0334 

ref 

3_ 

LIST 

256 

01,3241 

6 6 ij: 2_1 

SELFBANK 

BBCON 

SELFCHK 













0335 





02,3242 

C 0006 1 

NOOIRECT 

EXTEND 


TURN THE GREEN LIGHT BACK CN . 

-0336 

REF 

32 

LIST 

1167 

01,3243 

05011 1 


mQR 

OSALPCL'T 


-- Q337 

■Bif 

9C 

-LllT 

1164 

01.3244 

52 165 1 


OXCH 

LOC 

JCBS STARTED IN THIS FASFFICN NUST BE 

.03312 

REF 

5 

LISX 

1187 

01.3245 

1 5122 1 


TCF 

SUPDXCHZ 













033 ?g 





5122 



BLCCK 

2 

IN FIXEC-FIXEC SO CTHERS RAY LSE. 












0337S 

REF 

2 

LAST 

1175 TC 

U761 

59 59# 


COUNT 

02/EXEC 













R033791 

ikf cjcfz 

- PCL11NE TC THAhSFER TC SUPEP8ANK. 




1*0337^2 

CRillf-G 

SECLENCe 







AJ23792 








TCF 

SUPDXCHZ 

with 2CA0R CF DESIRED LOCATION IN A ♦ L. 


0338 

kef 

2CC 

LAST 

1187 

5122 

56 OCl C 

SUPCXCHZ 

XCH 

L 

BASIC. 

0338 1 





5123 

0 00C6 1 

♦ 1 

EXTEND 



U3302 

REF 

n 

LIST 

1182 

5124 

01 0C7 1 


WRITE 

SUPEPBNK 


03383 

Rif 

24 

LIST 

U32 

5125 

5<» 0C6 C 


TS 

BBANK 


0 3364 

REF 

2C1 

LIST 

118 7 

5126 

0 OOCl ( 


TC 

L 













033 9 





5127 

77677 1 

NEGIOO 

acT 

77677 














I 


n 


L/- 


If 


16 


ff 
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— 

RQ 001- 

PfCCB7F CESCPIPTICN 


CATE - 10 OCTOBER 1<)66 


RQ003 

MCC NC - 2 


LOG SECTION - WAITLIST 


HQQQ5 

MCC HV ~_JLUJ_£P (DTHAX iNCREAStD TO 162.5 SEC) 


ASSEMBLY SUNBURST REV 5 


JtQQOlZ 

MCE 3 ET Ai&NAN (IhUPT INSEPT6D IT NAllLiST) 2/28/66 SKIPPER REV ^ 









R goo 7 2 

MEL 4i)i KEPNAN CTKICCLE IN 54) 3/28/66 SKIPPER RtV 13. 




RQQC7S9 










RQCCa 

FLACllCNAL DESCRlFTICN- 




RQQ09 _. 

PAFT QP A SECTION CP PPCGR AMS i-^A 1 TH ST t TASKGVEK, T3RUPT, USED 

TO CALL A 

PROGRAM-, (CALLED A TASK)* 


Jiaou 

KhlCP IS TO tJEGlN IN C(A) CENTISECCNDS. WAITLIST UPDATES TIME3, LSTl 

AND LST2, 

THE NFflMNG OF THESE LISTS 


PQQ13 

PC LLCh. 





P.0C14 CmPE3> » 16384 -(U-H C EN t ISECONDS , (1*PP£SENT lIHEt TI-TINE TASKU 

Rflfllft 




# 


f 



$ 


0 




R0C17 



C(LSTl) 

-( T2-Tl)+l 


ROOlfi 



EJLSTl +1) - 

- (T3-T2) + l 


R0C19 



C(LSTl *2) • 

- ( TA-T3)*l 


RQ020 



« 



P0021 



■ 



R3C22 



C(LST1 *6) • 

- ( T 8- T 7 ) ♦ 1 


RC023 



ClLSTi *7) - 

-(T9-T8)+l 








P002R„ 



C(LST2) 

2CACR OF TASKl 


R0025 



C(LST2 *2) * 

2CACR CF TASK2 


^0026 



• 



Rao27 



• 



RCC2e 



C(LST2 YHI* 

2CACR OF TASKS 


F0029 



C(LST2 *16)* 

2CACR OF TASK9 



RCilAO KAPNIKCS- 






HC031 






H00i2 

1 ) 

1 <* C(A) <« 

16250C (1 CENTISECONO TO 162.5 SEC) 


F0033 

2 ) 

9 TASKS HAAINLH 



POOB4 

3) 

TASKS CALLED 

LNCER INTERRUPT INHIBITED 


P0035 

4 ) 

TASKS END BY 

TC TASKCVIP 




4 


I 


R 


CilllUG SeCUENCk- 


«0C37___ L-l CA DEL T/T (Tl^-t I^ CENTISeCQNtS TO T4SK S7APT) 

PQ03^ L VtAlTLIST 

m 2 CJICR Ce<IP£0 TASK 

ROO>1 L4Z O'INOP OF 2C4Dfl) 

ft<3Cl**2 1*3 KfeLlNT (RETURNS HERt:)’ “ 


P00A21 ThlCCli- — 

RQ6a22 " — 

PO^' ^23 T ti lOCLE IS FOR USE WHEN TEE TASK BEING SET UR IS IN THE EBi^K PNC FEONK AS T>fe US£K> 

‘^0J*t£5 SUCH CRSES, IT IMPROVES UPCN WAITlIST BY tLlNiNATl^G ThE NFfC FCR THE BflCON HALF CF THF 2CACPt 


i;n AUG, satrap .ooa PAce lus 



GAP i 

f Bm i<;inh 

r P AJ1£ P R r C ftAM Cfli r S SU^ EV N a SA l l # 1 7 A L G ^ ^ 4 # 19 6 fl SATRAP *004 PAGE 1169 








L 

WAIILI^ - 



USER'S PAGE NO. 2 EO S3 








ROOA23 


HAVING 

A uaRC. TWIOCLE IS 

LIKE WAITLIST IN tVEPV RESPECT EXCEPT CALLING SEQUENCE, TC wIT- 








B00A3 


1,-1 

Xi f>FI TAT 



8CCA31 



TC ThlDCLE 



800^32 


— Ltl 

AEfili DESIRED TASK 






RELINT 

(RETURNS HERE) 








RQOOS 

NCPHilL EXl t 

HOJIES- 










F.OQ^ 


AJ L<a 

Cf CALLJNG SECUXNCE.. 



aoo ^ s aiifiH CR A feCRT F Xll >*C QES“ 


AQQ46 tC ABORT 

P. 13 Q 47 OCT 1203 (hilMLIST C\ERFLCW - TOO HAhV TASKS) 


MCO^e EPASAtLE IhailALilAriCf* REfiUlt^tC- 




ACCCRPLISHED EY FRESH S T AR T , — L S T2 • . . . , LST2 >16 -ENCTASK 

RQC5D 


LSTl,..., L5T1 ♦? »NECl/2 


_ FDOiLi 

CLIP Cl — 





RDC52 


LSTl AAD LST2 UPCAlEC WITH NEW TASK JTND ASSQCIATEC TIRE. 

8Q0S3 

CEePis- 





PQQgA 


CENTRALS- A.C.L 

ROD 5 5 


CTHEP - MAITEXIT, WAITACR* WAITTEHP, WAlTbANK 

80056 

CE1A UEC 

AhALVSIS CF TIRIRG- 

RODS? 


CC8TFCL WILL NCT 6E KETCRNEC 1C THE SPECIFIED ACORtSS (2CACRI IN EXACTLY CELTA T C6N 1 1 SECONDS. 

P0w59 

The APPPOXIRATI tire may 8E CALCULATED AS HOLLOhS 


R006_0 


LET TC » THE TIRE CF THE TC WAITLIST 

R0061 


LET TS - TO flATL ♦ COUNTER INCREMENTS ISET UP TlREl 

R0062 


LET X » TS -dOCTST/lOO (VARIANCE FRCM CCuNTERSI 


•=000 lET > » LENGTH CF TIME OF INHIBIT INTERRUPT AFTER T3rtLPT 


P0a6<* __ let I • LENGTH CF TlNfc TC PROCESS TASKS WHICH ^RE CUE THIS T3PLPT BUT CISFATCHEO EARLIER. 

RihiAjfc (Z«C. USUALLY! 

80067 LET C ELTL - THE ACTUAL TIKE TA KEN TO GIVE CON TRCL TO 2CACR 


8^066 T HEN C ELTC • TS^CELTA 1 ♦ Z ♦I.C5HS* ♦COUNTERS* 

iiQQ69 *-lH£ TINE TAKEN 6Y WAITLIST ITSELF AND THE COUNTER TICKING OUPINC THIS WAITLIST TIME. 


R0071 



* 


--- 




TQ SET UP the TASKJS 

80072 

IN SHORT. 

THE ACTLAL TIKE TC RETURN CCNTfiOL TC A 2CACR IS AUGMENTED BY THE TIRE 

PQOTA 

interrupt, all 

CCUNTERS TICKING, THE T3*<UPT PROCESSING TIRE, THE WAITLIST PROCESSING 

TINE AND THE POSSIBILITY 



R0G76 

CF CTHEP TASKS 

INHlPITihG THE INTEPRLPT. 











0077 


S 130 


BLCCK 02 
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0079 a£f 1 COUNT Q2/w41T 


flC795 





5130 

0 OOOA C 

tnicolf 

INHlNT 




ttllfiij 

_a£f_ 

2Ci 

last 

11 9T 

5131 

59 OCl 

_J_ 


_7i 

L 


SAVE LELAV TIRE IN L 

Q0£1 

KEF 

25 

LAST 

U52 

5 U 2 

3 9672 

0 


CA 

POSH/X 



_ C Q B 1 

REF 


LAST 

U94 

5 123 

2e 0C2 

1 


AOS 

c 


CREATING CVERFLCk ANC 0-1 IN Q 

QCSJ 

REF 



1187 

513A 

3 0006 

X_ 


CA 

bbANK 



C0B32 





5135 

C 00C6 

1 


EXTEND 




&0B3A 

REF 

18 

LAST 1197 

5U6 

09 007 

1 


ROR 

SURE PBNK 



CUBA 

Rif 

2C3 

LAST 

U9C 

5137 

56 CCl 

< 


XCH 

L 
















Q0BA9 





AlAQ., 

0 0009 

c 

WAITLIST 

INHINT 




Q0fe5 

RTF 

-ZJLL 

L AS T 

119 0 

SlAl 

56 CC2 

c 


XCH . 

Q 


SAVE CELTA T IN Q AND RETURN IN 

TlQSfc 

REF 

1 



51A2 

59_ 061 

1 


TS 

WAITEXIT 


NAITEXIT. 

0Qfc7 





51A3 

0 00C6 

i 


EXTEND 




ocea 

REF 

2_ 

last 

11 9 C 

51AA 

._3. C061 

C 


INDEX 

MAI I EX IT 


IF TklOOLlNCf THE TS SKIPS TO FERE 

0089 





5195 

3 0001 

c 


oca’ 

0 


PICK UP 2CACR OF TASK. 

CC90 

REF 

1 



5 196 

59 0E3 

c 

-1 

TS 

maitacr 


eeCCN KILL PENAIN IN L 

0091 

REF 

L_ 



5197 

3 5155 

c 

DLY2 

CAF 

kAITBB 


ENTRY FROM FIXDELAV AND VAROELAY. 

0092 

PEF 

2E 

LAST 

119C 

5150 

56 0C6 

1 


XCH 

86ANK 



0093 

REF 

1 



5151 

1 3296 

c 


TCF 

WAI T2 




^ PElURh TC CAUfiK AFT |B_ TASK INSERT lOhJ 


QQ9S REF 3 LAST 119C 51S2 52 062 1 LVWlLIST OXCH WAITEXIT 

0096 _Rii eA KST lie? 51!»3 6 A7 11 1 AD T WC 

0097 51SA 52 CC6 C _ OTCB 


0099. . 
0100 

REF 

15 

L AS T 

ll?C 

E3i 19CC 




E6ANK« 

LSI 1 



R1F_ 

2 

LAST 

U9C 

5155 

C20A3 

C 

WAI Tae 

BBuON 

WAIT 2 
















RJ3101 



RETURN TC CALLER *2 

AFTER NAITING CT SPECIFIED 

AT CALIER +1. 
















0102 

PEF 

266 

-LAST 

_LL9.fi 

5 156 

50 0C2 

C 

FIXCELAY 

INDEX 

L 

BCTH RCUTINES MUST BE CALLED UNDER , 

0103 





5157 

3 0000 

1 


CAF 

G 

WAITLIST 

CCNTPOL AND TERMINATE THE TASK 1 

U109 

R€F 

2E9 

LAST 

U9C 

5 160 

29 0C2 

C 


INCR 

u 

IN WHICH 

THEY WERE CALLED. 














P0105 



RETURN TC CALLEh 4l 

AFTER WAITING THE OT 

AS ARPIVINC IN A. 
















Q106 

REF 

2SC 

-LAST 

U9C 

5U1 

56 QC2 

C 

VARLELAY 

XCH 

Q 

CT TC C. 

TASK ACRES TC WAITADR. 

Olu7 

REF 

2 

LAST 

119C 

5 162 

59 063 

C 


TS 

WAIT AOP 


, * 

0106 

REF 

27 

LAST 

U9C 

5163 

3 0006 

1 


CA 

B6AKK 

66ANK IS 

SAVED CURING DELAY. 

0109 





5169 

0 0006 

1 


EXTEND 




Olio 

PEF 

19 

LAST 

U9C 

5165 

09 CC7 

1 


RUR 

SUPERQNK 

ACC S6ANK 

TC eecoN. ^ 

0111 

REF 

2C9 

LAST 

119C 

5166 

59 OCl 

1 


TS 

L 


£} Sj 

Cil2 

REF 

1 



5 167 

3 5172 

c 


CAF 

DEL A TEX 



0113 

REF 

9 

LAST 

119C 

5170 

59 061 

1 


TS 

wAITEXIT 

OC TC TASKCVEP AFTER TASK ENTRY. 

0119 

REF 

1 



5171 

1 5197 

1 


TC F 

OLYT 


*1 


0 * 
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OOA P4GE Ii92 


tr^- 


z 


h/ 1 lUSL 


rr 


USER'S PAGE ^C. 


E3 S3 




RQl-16 Ef^CTilSK PLST E£. £MifllC JJv__F I XED-F U£ C SC U J5 OIST INOUI SHA fclE 6Y ITS ADHES ALONE. 


P 


QUA Bi_t U LiST 1190 


E3. lACC 


£BAhK« LSTl 


0115 

C 115 


P£f 

RIF 


S173 726C2 C E N01ASK -2CA0R SVCT3 


H 


5J7A 7371A I 


0120 -R£f- 1£ LASI lOii 5175 1C 07<j 1 iVCT3 CCS FLAOhPC? DRI FT FLAG 

0121 REF 57 L^ST 115 1 5 176 1 5213 C T CP TASKCVEP _ f 

0122 aii ii LAST 1152 5177 1 5213 C TCP TASKCVEP ' ~~ 

0123 52C0 1 520 1 C TCP *1 


01231 aii 2 LAST UiJ! 52C1 11*322 1 _/ CCS IHUCAOF DCN»T DC heCCiaV IF SQREQNE ELSE IS IN 

01232 . REF 55 LAS T 1192 _51C2 I 5213 C TCP TASKCVEF IPUSTALL. 

01232 5 20 3 I 52C£ 1 ’TCP ♦3 ^ 

Q1234 REF tC LAST 1152 52 lA 1 5213 C TCP TASKCVEP ^ 

0123 5 REF tl LAST 1192 5205 I 521 3 C ^ TCF TASKCVEP 


Ul24i &£f 1 5206 3 7672 C >3 CAF PP1G35 CCRPENSATE FOR NBC COEFFICIENTS ONLY. 

_ 0125 REF 2C LAST 583 52 07 0 5o2 7 i TC NOVAC ENA0Le EVERY 81.93 SECONDS 

__0126 REF 7 LAST 77 3 £3flA6 0 EBANK>= NUDK ' 

0127 REF 1 5210 C35A2 1 2CADR NePCMY ^ . 

0127 REF _1 5211 iROdJ 1 “ ~ ^ 

0128 REF 6 2 LAST 119i_ 5212 I 5213 C TCP TASKCVEP 


- ^ 
i 

- « 
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ft 
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L iUlItiSl 


USER'S PAGE NO. 5 


E3 S3 



fans 



fi f G 1 N 

TAIK 

IhSEPlICh 

• 




















— 

O-UXU 





01 t3?A6 



BANtC 

QI 



fll31 

R£i 

1 






COUNT 

ul/NAIT 



















Ql 

Rtf 

1 




5A C62 

1 

HAn2 TS 

WAIT LANK 

bianr cf calling program. 



G13J 

R£E 

2 

LAST 

U3_5 

Clt32<t7 

A QQ26 

1 

CS 

T IRE3 





gi3^ 

RfeF 

il 

L4ST 
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iiee 

■JUiim 

1C OOP 
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OCTwOOOl 
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REf 

JLLt 
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NCFRJL C/i£ (C(AJ hNZl YlfcLCS 

SARE C(AJ* 
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J 

AD 
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c 

AD 
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c 
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A 
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n 
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1193 
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1 

AD 

LSTl 
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0 
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1 

CS 
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-U G/E -I. 
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1 

AO 
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1 
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C 
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12 
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c 

AO 
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c 

AD 
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0 
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21 
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Cits 

REF 

d 1 

LAST 

1194 
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IG 000 C 

♦ 4 

CCS 

A 

TEST 

TO - T3 ♦ 
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Cl. 3334 

0 3403 C 


TIL 

WTLST2 





0196 




_Cli3335 

CC0C2 0 


OCT 

2 


















aia? 

-■Bl-E 

■ IIX 

LiST 

Clt3336 

iC CCCt c 
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- C20S 




01,3351 

C0aQ4 

_c 

QCT 

4 
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TCF 

44 



0212 

REF 

146 

LAiT 

1195 
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A 
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c 


AD 

LSTl +7 



Q223 
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TC 

WTLST2 
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1 I 
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TJ-1 
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RE7 

1 


Clt.33C3 
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T ♦ n 
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PEf 
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L4ST 119^3 
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fl2Ai 

REf 

29t 
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INDEX VALUE 
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Rff 
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C1,33Q7 
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2 
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Cl, 3310 
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♦ 1. 
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4 

1 
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♦ 

1 
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4 

1 
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Ru261 

C(LST233 ) 


2CAQR 

TASK3 
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1 
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XCH 
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33 
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XCH 
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1 
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A VALUE OF 1/2 *i AT THE BOTTON 
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29 
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01.3637 

4 ^7 1^ 

c 

CS 

ZERC 


0266 

REF 

4 

LAST 

1196 

01x3 46^0 

54 734 

c 

TS 

RURT AGN 

SETS RUPTACN TO ♦! ON OVERFLOW. 












0285 





01. 3461 

0 0006 

1 

EXTEND 


DISPATCH TASK. 

0266 

REF 

6 

LAST 

1 1 9 6 

Cli 3462 

4 5174 

] 

DCS 

LNDT ASK 


0287 

REF 

26 

LAST 

U94 

Clt3463 

53*431 

1 

DXCH 

LST2 4160 


0266 

REF 

19 

LAST 

1196 

01.3666 

53*627 

L 

OXCH 

LST2 +160 


0289 

REF 

2C 

LAST 

1198 

01*3445 

53*425 

1 

DXCH 

LST2 +120 


0290 

REF 

=I1_ 

LAST 

1196 

01.3446 

53*623 

1 

OXCH 

LST2 +100 


JI2.SI 

REF 

’3 2 

MJk^ 

LAST 

1196 

Cl. 3447 

52*621 

c 

DXCH 

LST2 +80 


0292 

REF 

n# 

LAST 

1196 

Cl. 3450 

53*617 

c 

OXCH 

LST2 t6 


0293 

REF 

34 

LAST 

1198 

01,3451 

53*615 

1 

DXCH 

LST2 *6 


0296 

REF 

3^ 

LAST 

1196 

Cl.3652 

53*613 

1 

DXCH 

LST? +2 


0295 

REF 

26 

LAST 

1196 

01.3453 

53*611 

c 

OXCH 

LST2 













C29& 

REF 

2C! 

LAST 

li9C 

01.3656 

36 CCl 

c 

XCH 

L 


0297 





01.3655 

0 0006 

1 

EXTEND 



0296 

REF 

il 

LAST 

119 6 

01.3456 

Cl 007 

1 

WRITE 

SUPERENK 

SET SUPER0ANK FMOR 8BCCN OF 2CADR 

0299 

REF 

2C6 

LAST 

1198 

01.3657 

56 OCl 

c 

XCH 

L 

RESTORE TC L FOR OXCH 2. 

0300 





01.3460 

52 0C6 

c 

DTCe 




GAV: flf-WlSfnx ^17 f.F. AQL PhIl^PAM CninS<>LJr. PY NA<;A 3Q31111-C31 lli7 ALC, 2^.iq<^g satrap ,QQ4 P4Gi: 11S9 

_ _ ______ LSEt^*S PAGf NCJ. 12 E3 S3 


PflJCl _ 



lilORht ififTEf»_£XECLXLCN OF 

T3 

LVERPLCV* 

Task : 





^*igp 




5213 




fiLCCK 

412 



iici 

Rli 

2 

LA31 119Q 10 

USJJL- 

51 

51* 


COUNT 

02/**^I7 















03.C^ 

Rfcf 

«5 

L/iST lisa 

5213 

-1C 734 


lASKUVER 

xcs 

RUFTACN 

IF 41 RETURN TO T3RUPT. 

IF -U RESUME. 

0305 - - 

R£A 

2 

osi use 

5214 

3 5135 

C 


CAF 

WAITBE 



0306 

Rtt 

2£ 

U31 31SJL 

5215 

54 0C6 

( 


TS 

bbanh 



njol 

Rif 

L. 


5216 

1 3423 

_c 


TCF 

T3RUPT2 

DISPATCH NEXT TASK IF IT 

kas due. 


C3ca 

RU 

23 

LiST USL£ __ 

52U 3_QC16 

e 


CA 

BANKPIFT 



0309 




5;?fl 

fl 0Qd6 

\ 


EXTEND 




0310 

REF 

22 

LiST use 

5221 

Ql 0C7 

i 


WP ITE 

SUP£P0NK 
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e 
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CA 
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REF 
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TASK 



IPPECIAJELY FOLLOblhG THE TC LCKGCALL. FOR EXAMPLE. IT MIGHT BE DONE AS FOLLOWS WHERE TIMELCC IS 
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PGi2t 

A CP FEG1S1ER containing A DELTA TIME ANC WHERE TASKTODC IS THE NAME CF THE LGCAIIQN AT WHICH LONGCALL IS TO 

E0i2a 

START 





AG329 

CALLIFC SECLEME* 


AO 3 30 

EXT END 


AJ331 

OCA TIMELCC 


AQ332 

TC LONGCALL 


AGi33 

2CADR TASKKDC 






IlCFFAI EAll.MGIE- 


P0335 

J^l. TC WAITLIST 


PQ33b 

21. CTCE no H2 CF CALLING ROUTINE 1ST PASS THkU LCKGCVCLI 


MilX. 
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PC33e 

ALAFM Ct lECRT EXIT MCOE- 


P033<J 

NCNE 





kG3AC 

JJLIPLI- 


B03<»1 

LCNCTIME ANC LCNGTIME+I » CELTA TINE 


PU3^2 

LCNCEXn ANC LCNGEXIT^l - RETURN 2CACR 


HC3A3 

ICNCCACP ANC LCNGCACR^l « TASK 2CACR 
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LCNGExn AM LCNGEXIT^I 
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0 0006 

i 

LCNGCYCL 

EXTEND 


CAN WE SUCCESFULLY TAKE ABOUT 1.25 
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RiF 

1 



C 1( 3A66 

A 3A77 

1 


DCS 

DPE 1 T14 

MINUTES OFF CP LONGTIME 
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AXmC-2 CAlUhG SECUENCF. 


ftXiaOJ L-l CilLL 

R 0004 i LAT-ifWG 

BQQG5 SLtFCLllhES tSEIL^ 


ftOOC6 

PGQ07 


ft- T f- P F ^APC.T^^ 
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AiFhA\ » PCS IllIJFLAtCTCR FETEP S B-29 

RCUlU FFAC— TAME (CSiCS a-20) 

RQQll EPACFLAC IQ CCFPLTE EARTH PADluS« «C FCP FIXED EARTH PAClllS 
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RQQJ.^ tAlMLCE Ih LAT tP_£^, B-C) 
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BEF 
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LS 
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EBANK« 

ALPHAV 
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40220 

C 

LAT-LCNG STQ 

SETPC 
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REE 
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13«2323 
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1 


INCOPPEX 
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13 i 2324 

CCOCl 
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OD 


Q 025 





13,2325 

24 CC 7 

( 

stove 
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SAVE TIRE IF 6-70 FOR P-TC-RP 

QQ 2 fe 
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20 
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13 . 232 C 
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ALPHAV 


0 Q 27 





13,2327 
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1 
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QQ 2 e 
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1 . 
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13,2330 
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1 

STOOL 

Al PH AP 

A 0 S. VALUE CF R FOP ALT FCRHULA BELON 
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13.2331 
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SET PPAC -0 FOP EARTH, NCN-ZERO FOR POOR 

OOOO 





13,2332 
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c 
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24 

LAST 

89 J 
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1 

CALLRfRP CALL 
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REE 
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1 
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U 037 

REF 

1 
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1 
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REF 

2 
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c 
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13.2352 
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1 
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2 
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ALT« R-PE NETER5 8-29 



GG6C 
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7 
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L_ 
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A 
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c 
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i 
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0-lC- GARRA»SIN (LAT 1 6-2 

Q0b9 
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PC lie OLlfXl 


E0119 


EARTH PACILS IN EPACM AhC PPAC 



0120 




13,2437 

63545 

C 

GETERAD DLCAO 

OSC 



0121 

REF 

21 LAST 1204 

13,2440 

C2156 

\ 


ALPHAV ->4 

SIN4A2(L) 


0122 




13,2441 

44352 

c 

SLI 

bOSU 



C123 

REF 

1 


13,2442 

11451 

1 


DPI/? 

CCS**2(LI 


0124 




13.2443 

442 75 

1 

DMPk 

eosu 



0125 

REF 

1 


13.2444 

2646C 

1 


EE 



G126 

REF 

2 

last 1206 

13,2445 

11451 

1 


DPl/2 



0127 




13.2446 

75463 

\ 

BODV 

SORT 



0128 

REF 

1 


13,2447 

26454 

c 


B2XSC 



0129 




13,2450 

77622 

1 

SR4K 




0130 

REF 

9 

LAST 1205 

13,2451 

C224i 

1 

STORE 

E P AO R 



0131 




13,2452 

776 16 

c 

RVO 
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ROlBll 


THE FCilChlHL CONSTANTS WERE CCFPUTEC HlTH A *6 378 1 66 t b «63 56 7 84 METERS 
ROiaU B2>SC» E** 2 SCALED e-5l 
R01312 B2/A2* e**2/A*<2 SCAlEC 

R01314 EE« (l-e*»2yA**2I SCALED B-0 


ul32 


13,2453 C0^46 1 b2XSC 


20eC .0179450689 


£•♦2 SCALEC &-51 


0132 


13,2454 CC3C51 


Q133 REF A_LAST 1173 04,3450 


OPl/2 


XUM T 


013^ 

0134 

SI 13.5 

0135 


13,2455 


13.2456 

13.2457 


17711 C 
C5254 1 
C0155 C 


tZ/kZ 


2DEC .9933064884 6-1 GAMPA« tt*42/A*42 6-1 


EE 


2CIEC 


6.139 25116 6-3 


( l-B'*A2/A*42 1 e-0 


0136 


C136 


13.2460 

13.2461 

13.2462 


25250 1 


C0302 C 
17755 C 


ERAC 


2C6C 6373228 8-29 
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Tk£ 1 i IH £-1 
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FQl^l CALL APCTA Ii 



CL‘1 SL 1 










♦*AA *- * m 

HC1^3 

iPCiAh 

TFCTA 

IN RPAC ARC THETA b-O 

iA 

RANGE “1/2 TO 

♦ 1/2 























QIAA 





aia24fi3 

7760G 

1 

arctan 

BOV 


014^ 


1 



13.2464 

26465 

1 



CLROVFLR _ 

aiA6 





12,246S 

63545 

C 

CLROVPLR 

OLOAO 

DSC 

uiA7 

KEE 

7 

LAST 1204 

13*2466 

C0G23 

C 



SINTH 

ClAtj 





13.2467 

63525 

c 


POOL 

use 

Q1A9 

FEE 

? 

LAST 

i-20A 

l3i247C 

C0021 

1 



CCSTH 

U150 





13f2471 

77615 

C 


OAO 


0151 





13.2472 

75454 

c 


BZE 

SORT 

Q152 

REF 

1 



13,2473 

265U 

C 



APCTAAXX 6TAN»C/0 SET ThETA-0 

fliBi 





13*2474 

40065 

C 


BOOV 

bCV 

015A 

KEF 

fi 

LAST 

120 7 

13.2475 

CCQ23 

c 



SINTF 

01S5 

REF 

1 



13,2476 

26516 

1 



ATAN *90 

0156 





13,2477 

67542 

c 


SRI 

ASIN 

l157 

REP 


t A^t 

712 

13. 2SCC 

CC025 

c 


STORE: 

THETA 

cise 





13,2501 

50425 

1 


POOL 

BHN 

0159 

REF 

f 

LAST 

120 7 

13,2502 

0CO21 

1 



CCSTH 

Gi6L 

REF 

1 



13.2503 

265C5 

c 



NEGCCS 

-0161 





13,2504 

43545 

1 


OLCAO 

RVC 

C162 





13,2505 

57545 

1 

NE6C0S 

OLOAO 

OCOHF 

C163 





13.2506 

43244 

1 


0PL 

DAC 

0164 

REF 

1 



13,2507 

26513 

1 



NEGQIT 

Cl 65 

REF 

2 

LAST 

1206 

13,2510 

11451 

I 



OPl/2 

Jlfc6 

REF 

5 

LAST 

1207 

13.2511 

C0025 

c 

ARCTANXX 

STORE 

THETA 

0167 





13,2512 

77616 

c 


PVO 













C168 





13, 2513 

•2025 

1 

NEGCUT 

DSU 

GCTC 

0169 

REF 

4 

LAST 

1207 

13,2514 

11451 

1 



DPl/2 

one 

REF 

2 

LAST 

120 7 

13,2515 

26511 

c 



ARCT ANXX 

C171 





13.2516 

75345 

1 

ATAA»90 

OLCAO 

S IGN 

0172 

REF 

1 



13,2517 

11477 

c 



LOOPl/4 

0173 

REF 

S 

LAST 

1207 

13,2520 

00023 

c 



SINTH 

0174 

RIF 

6 

_LAST 

1207 

13.2521 

C0u25 

(i 


STORE 

THET A 

Ci75 





13,2522 

77616 

c 


RVQ 
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REF 
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LAST 
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* 
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ANC LALOTORV SOdRC^t T I NE S 




fiai79 

Gi PE/ • S tl2ZA* *JL_1JU> £AP LH 

(e -D . 



If 

_fiG18C 

CAtlA « 1 PCR MCCh (6-11 











ROXli_ - 

CAlLilG 





_R0 i 82 

L C^LL 





RQXflJ 

Lil SITC4HPA 






KQia4 ihPlT 

RQiaS LLhtFLAC^C fCP FLR KCN 


^ISfc __Dt.llli.l_ 

fiCifli fijyjJ ih fiAMP lfi-11 














0188 




i3t2 S13 

A3l^5 

C 

SETGAHHA 

OLQAO 

euFF 

BRANCH FOR EARTH 


CIfl9 

Rtf 

L 


13.252A 

26^58 

1 



82/A2 

EARTH GAMHA 


filSQ,. 

RJf 

U 

L/ST 1205 

Ui 2525 

C1743 

c 



LUNAFLAG 



OlSl 

Rtf 

1 


13t2S26 

26531 

1 



SETGPEX 



C1S2 




13i2?27 

77735 

( 


SLCAO 




0193 

REF 

1 


13t2530 

1U51 

1 



1 1 1 

HCON GAHHA 


Cl~9<i 

REF 

3 

L/Sl 1205 

13t2S31 

0001 1 

1 

SETGMEX 

STORE 

gamr f 



0198 




13.2532 

77616 

c 


RVO 




0l9t 




OCIQ 



GAMRP 

» 

80 
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5L£l>GLlia£_lC SET A£ lEAPlIi CP MCQN P/CllJS)„ 




Rfll99_ 

RE« Hf to i4£0h 



coznn 

f£* Pfitf fCR F IX £C EARTH PAD lUS CP COPUT 6C PF PCR FISCHEf EILIPSCID 




RC2UI 

CALLING SECUtnCt 



PQ2C2_ 

L C/LL 



R0203 

L41 SURE 







^ ii2Q 

SL^PCL^1^E^ USED 



Pii2Q5 

CET£P/L.._ 







ftu2ua 

IhPL 1 



RQ?C7 

£FJCfLJC«C fCR ElXEC PE. I tCfi LOPPUTtC Rt 



_ ^ilZkiL 

iLFE4V 1/2 S1^L IF GETER^C IS CALLED 



^(J2GS 

LLFAFLAG-C FOB EARTH. «1 FCH ^•CC^ 




R02iC 

CLIPLI 










RQ211 
ha212 

EFACP- 

ERACA» 

iC4RR 
EP/C < 

fQfl tCCh_ IRETEHS 
DP CCPPUTED RF FCR 

fe-29» 

EARTH 


it LI EPS 8- 

29 J 


— - 

-C.. 













0211 




13^25.12 

71220 

1 

SETRE 

STQ 

DLOAC 



02M 

■REf 

1 


13.2334 

CCC51 

0 



SETREX 



Q2i:> 

REF 

1 


13.2535 

2656C 

C 



5C4P H 



C2i6 




I3i253t 

71214 

c 


BON 

DLUAD 

BRANCH FC9 HCCN 


0217 

HEF 

■ ^1 

LAST 

1208 13.2537 

Cl 703 

1 



lunaflac 



C218 

REF 

1 


13.2540 

26550 

c 



TSTF LSPH 



0219 

HEF 

1 


13.2541 

26462 

c 



ERAO 



C22G 




13.2342 

45C14 

c 


BOFF 

CALL 

ERACFLAG-C FOR FIXED RE.l 

FOR COMPUTED 

0221 

RJF 

14 

LAIT 

687 13(2543 

00742 

c 



EPADFLAC 



0222 

REF 

1 


13.2544 

26546 

1 



StTRXX 



0223 

REF 

4 

LAST 

843 13.2545 

2643 7 

c 



GETERAC 



022A 

REF 

10 

LAST 

120< 13.2546 

36241 

c 

SETPXX 

STCALL 

EPADP 

EXIT WITH RE CP fiW NET EPS 

0-24 

0225 

REF 

2 

LAST 

1209 13.2*47 

CC05i 

c 



SETRFX 



_il22e 




13.2550 

77214 

c 

TSTRLSRM 

BQN 

VLOAC 

ERADFLAG*0, SET PO-RLS 


0227 

REF 

15 

LAST 

1205 13.2551 

C070^ 

1 



tPACFLAG 

» 1 P 6 « p M 


0220 

REF 

2 

LAST 

1209 13,2552 

26546 

1 



SFTR >X 



0229 

HEF 

S_ 

LAST 

866 13.2553 

C2026 

1 



RLS 



0230 




13.2554 

64446 

c 


A6VAL 

SP2R 

scale from e-27 7C B-29 


.0231 




13.2555 

77650 

1 


GOTO 




0232 

REF 

^ 

LAST 

1209 13.255c 

26546 

1 



SETR XX 



u233 

REF 

12 

LAST 

705 0C51 



SETP.EX 

S 

S2 



023<i 




13,2557 

C0065 

1 

504PH 

20EC 

1738C90 8-29 

MEIERS e-29 (NCCN PAOIUSl 


02 3 A 




13.2560 

C1265 

1 
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POilCl 

At-lt-R 5UtiFCL7lN£ 







RQ002 

SLEFCLTIHE TC CONVERT RP (VECTOR IN FLflFbTARY 

COOROINATE SYSTEM, 

EITHER 





fcaofii 

_ EifiTh-PlXti: CH PCCN-FlXEt) TC R (SAM VECTOR 

IN THE BASIC PEF. 

SYSTEM! 













P.CCC<» 

R*Fllll«iFE_*LPXRFl RT- R RATPIX TRANSPOSE 















ASiQCS 

CAILUC S£CU£NC£ 







FJU306 

L C/LL 







RQQL7 

L±J RP-TC-R 







AflilCia SLIlCLLULi^liii) 

jaLQLS .>>CQhX)t.E4ffTHL 

FiCClu ]Hy< itVAlL^blt FPC>« KLNCh 

ftOiJll SC^LW« THE LiERITlCN VECTCR L Gf THE- HOCN AT TIME T IMSUb I « EXPRESSED 

R0Q1 2 |^ TH^XCCn^F 1)(EC CCOPC. SYSTEJ! P4 CUNS 60 

00013 1 T £ H 5 N ECfc SSA R Y fQR SUER. USEC ( S EE DESCRtPTICN CF SUBP*) 

KQQi^ I KF LI ~ 

00015 RFOC» C FCP E/BTFfhCh-ZEOt FCfl FQC^ 

RCQ16 L-.5D* PP \ECTCK " 

P0C17 6-7 C« not 


BmU QLIPLI 

ROOIS 0 F4C« 0 VtCT OP WETERS 3-29 FCB EARTH t e-?7 FCR RCON 


0020 

REF 

1 


26i2C0C 




sftloc 

RLAN7IN 


0021 




26t 33A1 




BANK 














0022 

REF 

1 






COUNT* 

ii/LLPCT 













0023 




26t 33A1 

46020 

1 

RP-TC-R 

STQ 

6H1Z 


Q02^ 

HEf 

- A, 


26.33A2 

CC05C 

( 



PPREX IT 


CQ26 

HLF 

1 


26, 33A3 

55356 

1 



RPTCPA 


002ft 




26.3344 

77624 

1 


CALL 


CCMPLTE H MATLiX FCP HCON 

0027 

REF 

1 


26.3345 

554 1 6 

1 



MCONRX 

LP«L* FOR RCCN RADIANS BO 

L C ^ 8 




26.3346 

777 75 

1 


VLCAO 



0C29 

REF 

1 


26,3347 

C2CU 

C 



5C4LR 


0030 




26,3350 

53235 

c 

rptcro 

VXV 

VAO 



RCF 

1 


26,3351 

COCCI 

c 



5 C4 RPR 


00 32 

REF 

2 

LAST 

121C 26,3352 

CGQCl 

c 



504R PR 


0033 




26.3353 

52105 

1 


VXM 

GOTO 


003A 

REF 

1 


26,3354 

C0C25 

c 



MMAT FIX 

MFAC»R-MTtT)*(RF+LPXfiP| 

0035 

PEF 

1 


26,3355 

554C4 

I 



RPF P XXXX 

RESET PUSHLCC TC 0 BEFORE EXITING 

0036 




2e, 3356 

77624 

1 

HPTCRA 

CALL 


EARTH CCHPOTATICNS 

'JL37 

REF 

1 


26,3257 

55570 

c 



EAR T HRX 

M MATRIX B-l 

003 6 




26,3360 

77624 

1 


CALL 



0C39 

PEF 

1 


26,3361 

55622 

i 



EAPTHL 

L VECTCR FACIANS 60 

OOAO 




26, 3362 

76521 

c 


HXV 

VSLl 

LP»H(T1*L RAC E-0 

OOAl 

REF 


LAST 

i2LC 26,3363 

0CC25 

c 



HKATPIX 
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POO 

..... F-IC-gP SUGPCUTINE 







KaQ4S 

SLEFCLHRE TC COnV£Pl_a_iV£CTCP 

IN REFERENCE COORD. SYSTEM) TC RP 




IVECICfi lA PLANhIiPV CDQPC SYSIEMI ElTPfcg EARTH 

-FIXED 

_ CK MJCN-FIXEC 




iU3fl47 

E f *7* tllXllrJJLPl 

















RCi:4a 

LA L Life S£CU£KCE 








FQG49 

L CALL 








fiOOftO 

LU ^ 

TC-RP 








_RCfl31 

SLeEcm^e; l5£o 








hOQS2 

EIPIKPX iPCCRHX.E^PTHL 








RG033 

Ihf 11 








fiCiiS4 

PfiC* C fCP EARTh 

.hCh-2£RC FCP 

MOON 






PQGSS 

t-5C» E \!CTQR 









6-7C« IIPE 

















A1LC37 

HEPS AVAJJiABil 

FROM LAINCF 

C .A T A 






RQOSe 

5C 4L P * TM Li eRAlJ Cli V fcC T C R 

L OF 

TEE MOON AT 

TIME 

TlMSUei, EXPRESSED 




Ih IhE ACCh-FlXEC CQCPC. SYSTEM 

RADIANS BO 





PJ0<>0 

ITEMS NECESSARY FUR SlBRCLTlNtS 

ISEO (SEE 

DESCRfPTiCN CF SUBR.) 












RaOtl 

GLTPLT __ 








fulQtZ 

MPAC*RF VECTOR METERS 3-25 FCH 

tAPTE 

, E-27 FCR 

MOON 













QOfc3 


26.3366 

46020 

1 P-TC-RP 

ST(3 

DHI 2 



0064 

REF 2 L/ST 121C 

26.336T 

C009C 

1 


RPF EX IT 



O0e5 

REF 1 

26,3370 

554 1C 

1 


FTCRFA 



0066 


26. 3371 

77624 

1 

CALL 




0067 

REF 2 LAST 121C 

26.3372 

S 54 1 6 

1 


MOCNMX 



ogee 


26. 3373 

61375 

1 

VLCAO 

VXMi 



0C6S 

2 LAST 121C 

26.3374 

C2012 

C 


5C4LM 

LP-LM 


007C 

KEF 3 last 1210 

26.3375 

C0Q25 

c 


MMATRIX 



0071 


26.3376 

77 772 

c 

VSLl 


L-HT (T )*LP 

RACIANS BO 

0072 


26.3377 

51235 

! PTORPS 

VXV 

E VSU 



0073 

KEF 3 LAST 121C 

26,3400 

COCCI 

C 


504RPR 



0C74 

REF 4 LAST 1212 

26,3401 

CCOOl 

c 


504 FFR 



Q07S 


26.3402 

77721 

c 

HXV 


MIT )♦ (P-LXfl ) 

e-2 

0076 

REF 4 LAST 1212 

26,3403 

CCC29 

c 


MMaT Fix 



0077 


26,3404 

40372 

C RPRPXXAX 

VSLl 

SF TPC 



CC78 


26.3405 

COOOl 

C 


00 



0079 


26,3406 

7765C 

1 

GOTO 




C08C 

REF 3 LAST 1212 

26, 3407 

C005C 

] 


FPRE xn 



0081 


26,3410 

77624 

1 RTQHPA 

CALL 


EARTH COMPUTATICNS 

0082 

REF 2 LAST 12U 

26,3411 

5557C 

C 


eartemx 



0063 


26,3412 

77624 

T"'’“ 

1 

CALL 




0084 

RCF 2 LAST UlC 

26,3413 

55622 

I 


t AF Tel 



0085 


2 6 f 3^1^ 

7765C 

I 

CO T C 


MPAC»L-l-AX 

AV,Q ) RA6 3-0 

C086 

REF 1 

26,3415 

55377 

1 


RfOFPB 
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UO M C CRPX 


H0Q92 SCfcfCnl^E! tS£D 

^fbJ^CLe 
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RQQSfl n»«LB C.KCCIC . hCCCCT . F Sli BC . FCC T 
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KOlOO 

RQ 10 1 


SIM” 

?IR(11 E-l 









1 

15 THE AKOLF BETWEEN 

THE HEAP 

LUNAR EQUATORIAL 

PLANE ANO THT 



n y A M A — 

R01Q2 


FLARE CF THE CCL IPT 1C 
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32.1 MINUTES) 



.. 
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RQ lOA 

RRiTP lx* 

3X3 R HATRIX 6-1 

( STCREO 

IN 

VAC AREA) 



_ 










__ — . - 

n 1 f . *i 



26.3416 

40220 C 

RCONNX STQ 

SET PC 



C106 

REF 

1 

26,3417 

CC051 

C 


EART FPXX 


_ - - _ . - - 

0107 



2o,3420 

coon 

1 


8D 


, . _ - - — 

r 1 c M 



26. 3421 

7777C 

1 

AXT .1 


P REQUIRES SL 0, 

SL 5 IN N^h^NGLE 

QiC9 



26.3422 

CC0C5 

1 


5 


_ _ . — ... — — — 

QUO 



. ___26,3423 

65345 

C 

OLCAD 

f DDL 

PC IOC 

e-90»BsueQ 

0111 

REF 

1 

26. 3424 

15652 

1 


SSUfiC 


10— lie* BOOT 

U112 

REF 

1 

26.3A25 

15644 

c 


BDC T 


. 

0113 



26.3426 

450C6 

C 

PUSH 

CALL 

PC 12C 

ANO HPAC» 0 REVS BO 

0114 

REF 

1 

26.3427 
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c 
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C 
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^ - — . . 
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1 
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1 

STOOL 
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0-1 
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c 

SIN 


S 1 N ( t ) 

B ^ 1 

011b 

REF 

1 
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c 
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c 
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c 
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1 
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G 
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C 
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C 
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REF 

2 
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C 


NE WANGLE 
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REF 

1 
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14027 

1 

STOOL 
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SAVE F TEMP 


0126 

REF 

1 

26.3443 

15646 

1 


NODI C 
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0127 



26,3444 

41525 

c 

POOL 

PUSH 

PC ICC THEN 120 

10-1 IC-NCOODT 

0126 

REF 

1 

26,3445 

15640 

1 


NUDOCT 


HPAC*T 

0, $L 5 IN NEWANCLE 

41129 



26,3446 

45170 

c 

AXT , 1 

CALL 

NCCE PEQUIRES SI 

0130 



26,3447 
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1 


5 
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01 Ji 
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i 

LAST 1213 26,3450 
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c 
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COS 

PO 
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1 

PUSH 


PO 

12C 
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D F F 

7 

1 £^T 
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26.3453 
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c 

STORE 

AVfcCTR 




0135 





26.3454 

164 

1 

LMP 

SLIR 




Cl 36 

RtF 

z 

i.^S7 

IZU 

26^3455 

C0041 

1 


Ct B 



ccsiNoon e-i 

C 1 37 

REF 

Ml 

1 




14035 

1 

STOOL 

BVF r TR *2 

PC 

IQC 

20-25D-AVECTR« CG8*S ININCD! ) 

G136 





26,3457 

76405 

1 

OMP 

SLIK 



SOB<S ININCCI ) 

w M 

0139 

G140 

kef 

z 

I./5ST 

1213 

26,3460 

0C043 

c 


SCI 



_ 

REF 

— wm 

2 

list 

121 4 

26.3461 

140 3? 

0 

STOOL 

BVfCTR *4 

PC 

ac 


OlAl 




^ 

26,3462 

41556 

1 

SIN 

PUSH 

PC 

iod 

-SININODII 8-1 

ul«<2 





26,3463 

77676 

c 

OCOHP 




26-310«BVeCTR* COB*COS I NCOI » 

0 L43 

REF 


LIST 

12 14 

26.3464 

14033 

1 

STOOL 

bVECTR 

PC 

80 

S C B C S ( N C D 1 1 


REF 

•3 

LIST 

1214 

26,3465 

C0027 

1 


AVECTP +2 

RCVE F 

PROP TEME LOC. TO 50AF 

01^5 

RkF 

1 



26,3466 

140C7 

c 

STOOL 

504F 



_ 

G 146 





26.3467 

76405 

1 

OMP 

SLIP 




Q14 7 

RIF 

3 

LIST 

1214 

26f 347Q 

0004 1 

1 


CUB 



. 

W I f 

ji^e 

REF 

4 

LIST 

__3-3K ■ 

1214 

26,3471 

14027 

1 

STOOL 

AVECTR *2 



- _ - - 
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REF 

1 



26.3472 

00011 

1 


S 1NNCC I 

fl-' 

7D-S1N(NCDI) 8-1 

^ ~ j 

CISC 





26,3473 

764C5 

1 

OHP 

SLIP 



_ . . _ _ JW. - J, » _ , 

0151 

REF 

3 

LIST 

1214 

26,3474 

C0043 

c 


SOB 



_ . . 

0152^ 

REF 

5 

LIST 

1214 

26.3475 

14031 

c 

STOOL 

AVECTR +4 



0 

0ii3 

REF 

26 

LIST 

asc 

26,3476 

15332 

I 


H 16 ZEROS 



8-13D* CVECTR® -SOB 0-1 

0154 





26,3477 

57525 

1 

POOL 

OCCPE 

PC 

IQC 

COB 

0155 

REF 


LIST 

12 14 

2 6 f i 50C 

00043 

c 


SOB 




- — m m m r 

u 1 56 


□ 



26,3501 
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c 
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PDVL 

PD 

12C 
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0157 

REF 

4 
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1214 

26,3502 

0G041 

1 


CGB 



. - -- 

115 8 

REF 

4 

LIST 

1214 

26,3503 

00033 

1 
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0159 





26,3504 

63361 

c 

VXSC 

POVL 

PC 

20 C 

eveCTR*SINl B-2 
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REF 
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26,3505 

1563b 

c 
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- 

0161 

REF 
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26.3506 

00011 

1 
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0162 





26,3507 
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c 

VXSC 
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PC 
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REF 
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26,3510 

15634 

1 
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0164 
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c 
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5 
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1 
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PC 

6C 
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c 
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PC 
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2 
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i 


SIM 
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5 

LIST 
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1 
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evecTR*cos 1 f-2 
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1 
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8C 
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2 
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26,3517 
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1 
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1 
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PC 
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2 
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c 
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c 
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1 
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1 
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PC 
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c 
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1 
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PC 
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6 
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c 
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— ' ■ - ' 
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. 
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6 
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1 
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M 
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4 
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c 
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M 9 T 1 P 1 4 
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COOL? 

_C 
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jOlfiS 



26.*li36 

53141 

c 


VRSC 

VAD 
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AVECTR*COSF B-2 

- ilXfib 

R£f 7 

LAST 121X _ 

16f3S37 

0QQ25 

c 



AVEC TR 




Dlfi7 



2fef 3S<iC 

X7572 

c 


VSLl 

VCCMP 
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R£f 7 

UiT I^IA 

26 13 5^1 
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1 


STCALL 

HNAT FIX 


MO* -( AVeCTP*CC5F,DVECTR*SlN»' » B-I 
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REf _2 

LAST 1212 
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H0i9C CCAPLIE 

X«X04lXDCTriT4TQI 









ftOlStl 

6-SC- XC 

(REVS B-cr. 

PLSHLCC 

SET AT 12C 







PCI 92 

1C-1U-XCC1 (KEVS/CSEC) SCALEC 6^23 

FCP 

W TH f 

B+28 FOR 

NCDDCT AND 

BOOT 



KQ193 



ARC B42T FCR 

FCCT 






K C i 9 *1 

Xl-t If FiPtllCe r^ 23 

A NO SCALINO OF 

XCtJ 

,-C FCR 

N E A ft T H f 

5 FCR NCCCCT 

ANC 



R0195 






BOOT AND 4 FOR 

FOOT 




HC196 

6-?C«1 ( 

fl ^2 6 1 1 

TiFScec* 

(CSEC e 

-Xi_ 

TRIPLE 

PREC . ) 






U197 



2fei35^3 

94345 

1 

NEWANGLE QLUAO 

SP 


ENTER PO 120 

cise 



3fe.35AA 

C0007 

c 



60 




ass 



26t35A5 

20617 

c 



14D 




02CI0 



26,35A6 

72371 

1 


TAO 

TLOAC 


CHANGE 

MQCE TO TP 

iiZUl 

_a£i i_ 


26.354? 

_ C1707 

c 



TiNscec 




Q2Q2 

ref 4^9 

LAST U6C 

26f 3 55.C 

00195 




MPAC 




02Ci 

REF _1 


26,3551 

14017 

1 


STOOL 

TIMSLEP 


T,TO CSeC 8-42 

Q20^ 

-ME 2 LAST 121* 

26.3952 

GOO 20 

fi 



TINSLBP +1 




Q20J5 



24, 3953 

776C5 

1 


OMP 



PC ICC 

*ULT BY XDOT IN 10-lID 

02G6 



26,3554 

43257 

c 


SL* 

OAO 


PC BD 

ACC XC IN 8-90 AFTER SHIFTING 

Q2Q7 



24.3555 

2C206 

1 



5.1 



SUCH that scaling is P-0 

Q20& 



26.3556 

672C6 

1 


PUSH 

SL04C 


PC ICC 

SAVE PARTIAL (XO+XDCT*T) IN B-9C 

0209 

REf 3 

LAST 1215 

24, 3557 

coou 

1 



TI PSLBP 




il210 



26.3 540 

41261 

1 


_5L 

OkP 







26,3541 

20212 

1 



90 




0212 



24.3562 

00013 

c 



lOD 


XCOT 


U2i3 



26.3563 

43257 

c 


SL* 

OAD 


PO ao 

SHIFT SUCH THAT THIS PART CF X 

y2H 



2 i f 3564 

20213 

c 



lOD.l 



IS SCALED PEVS/CSeC B-0 

021^1 



_2fc,3545 

776CC 

1 


BOV 



TORN CFH bVERFLCW TF SET 8V SHIFT 

021^2 



26.3564 

55567 

0 



♦1 


INSTROCTICN BEFORE EXITING 
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26,3567 

77616 

c 
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MPAC*X» 
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t ^ w fc 1 1 
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RQ219 

L CALL 









Q D 2 20 

lAl PARIHMX 



















Rfl221 

FFOl IlNE^ L$FO 









ri- lx fc fc A 

RQ222 

KEkANOl P 



















00223 

INPUT 









■ - -X\ It fc at 

ku22A 

INPLT AVAILABLE FRCM LALNCF 

CATA 


A2U REVS B-0 






&0225 




TEPH6M CSEC b- 

-42 





RC22e 

6- 7C» 1 IME CStC E-2a 










R-3227 

DLTFL T 









B022B 

NNATFIA- SX3 M MATRIX B- 1 (STCRfcC 

IN 

VAC AREA) 
















0229 

26.3570 

40220 

C 

EAPTHMX STC 

SLT PC 

SET 8-90*A2C 




0230 

REF 3 LAST 1215 26*3571 

0C051 

C 


EAR T HMXX 





j_ T ^ 

26.3572 

OCOll 

1 


60 

10-110*W£APTH 




0232 

26,3573 

77770 

1 

AXT,1 


FCR SL 5, ANO SL 

10 IN 

nemancle 


Q233_ 

26,3574 

CQOOO 

1 


0 





0234 

26.3575 

65 345 

0 

DLGAD 

POOL 

LEAVING PD SET 

AT 120 

FOR NEWANGLE 


023S 

REF 1 26,3576 

017 12 

1 


A7C 





0236 

REF 1 26,3577 

15654 

1 


WEAPTH 





0237 

26.3600 

45006 

c 

PUSH 

CALL 





Q23S 

RFF 4 LAST 1212 26.3601 

55543 

c 


NEWANGLE 





0239 

26,3602 

41401 

1 

SETPO 

PUSH 

18-19C-504A2 



. . 

□ 240 

26.3603 

00023 

c 


L8D 


CQS(AZ) SINIAZI 0 


0241 

26,3604 

65346 

c 

COS 

POOL 

20-370= MMATPIX 

« -SINIAZI COSIAZI 0 

0-1 

□ 242 

REF 1 26.3605 

COO 2 3 

c 


504A7 


0 

0 1 


0243 

2 6 ff 3 6 0 6 

65356 

1 

SIN 

POOL 
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REF 27 LAST 1214 26,3607 

15332 

1 


H 162ER0S 
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26,3610 

73525 

1 

POOL 
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REF 2 LAST 1216 26,3611 

00023 

c 


504A2 





0247 

26, 3612 

65276 

1 
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POOL 





0248 

REF 3 LAST 1216 26,3613 
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c 


504Ai 
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63346 

c 

CCS 

POVL 
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REF 2£ LAST 1216 26,3615 
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1 
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C251 
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41525 

c 
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1 
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1 
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1 

STCDL 
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0271 
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15332 

1 
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1217 26i3630 
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C 

STOVL 
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SlNd OEG 32.1 PIN! B-l 

n 27fi 
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a 

SI 
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EARTHPXX 

a 

S2 
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504HPR 

B 

CD 

6 REGS R CR RP VECTOR 

Ufc BA — 

0^62 



0010 



S1N60CI 

c 

ei' 

2 SIMFiCOI) 

0263 



0010 



CVECTR 

* 

80 

6 0 VECTCR MCON 

02 



CCIO 



CVECTR 

m 

eo 

6 C VFCTR MOON 

arfA.w 1 — 

0285 



0022 



504A2 

a 

18D 

2 AZ 

0286 



0016 



T IMSOBP 

* 

140 

3 TIME SOB M (MOON) TfTO IN GETA2 

02 87 



QC16 



504LPL 

a 

140 

6 L OR LP VECTOR 

02 68 



0024 



AVECTP 

a 

2 CL 

6 A VECTOR (MOON) 

C28S 



0032 
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a 
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a 
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3 
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1 

TS 

MIXA 

TO UPCATE 6 CR 9 DIM. M 

MATRIX IN TEMP 



REF 

1 

LJST 

122 2 

36*3 514 

1 1255 

1 

CA 

zixe 




U215 

R£f . 

2 

LiST 

122 3 

16,3515 

55*254 

L 

TS 

ZI XI 




Q216 

R£f 

229 

E/>5T 

IP. 9 5 

36,3516 

C 6006 

1 

TC 

INTPPET 




0217 





26t3517 

~ 7315C 

-J 

LKA,l 

LXA.2 




0216 

REf 

4 

L^ST 

1224 

36,3520 

01252 

C 


WI XA 




0219 

REP 

4 

LiST 

1224 

36,3521 

01254 

c 


ZIXA 




0220 





36.3522 

70731 

c 

SSP 

OLOAC* 




0221 

REP 

42 

lfS7 

122 1 

36,3523 

CC051 

c 


SI 




0222 





36,3524 

CCC06 

1 


6 




0223 



14 

LAST 

1221 

26,3525 

75054 

1 


1 1 ,2 




0224 





36,3526 

60276 

1 

OCOHP 

NCRR 

CALC UPPER 3X9 PAPTITICN 

OF W 

MATRIX 

0225 

REf 

17 

L^ST 

1222 

36,3527 

00052 

c 


S2 




0226 





36,3530 

65161 

1 

VXSC 

XCHX ,2 




0227 

REF 

3 

LIST 

12 2 3 

36,3531 

0264 3 

1 


UMEbAMl 




0228. 

REP 

18 

LIST 

1224 

36,3532 

QOOSl 

c 


S2 




QIZI- 





36,3533 

.^.1144 

1 

LXC ,2 

XAO , 2 




0230 

REF 

28 

LIST 

122 1 

36,3534 

00047 

1 


K2 




0231 

REP 

a 

LIST 

1221 

36,3535 

C2215 

c 


NCHMOIP 




0232 





36,3536 

65057 

c 

\/SL* 

XCHX ,2 




0233 





36,3537 

57576 

1 


0,2 




02 34 

REP 

19 

LIST 

12 2 4 

36,3540 

00 051 

c 


►J 

1 

i 

1 




0235 





36,3 541 

77653 

1 

VAO* 





0236 

REF 

E4 

LIST 

122 1 

36,3542 

C2467 

c 


N 4540,1 




0237 

REP 

2 

LIST 

94 

36,3543 

C2665 

c 

STORE 

HCLOk 




0238 





36,3544 

57543 

1 

OLOAD* 

DCOMP 

CALC middle 3X9 PARTITION 

OF k 

MATRIX 

0239 

REF 

15 

LIST 

12 2 4 

36,3545 

75054 

1 


Z1 ,2 




024C 





36, 3546 

74301 

c 

NORM 

VXSC 




0241 

REP 

_2iL 

LIST 

1224 

36,3547 

CC052 

c 


S2 




0242 

REP 

3 

LIST 

122 3 

36,3550 

C2651 

1 


CMEGAM2 




0243 





36,3551 

71124 

c 

XCHX,2 

L XC f 2 




.0244 

REF 

_u. 

LIST 

1224 

36,3552 

00051 

c 


S2 




0245 

REP 

29 

LIST 

1224 

36,3553 

CC047 

1 


X2 




0246 





36,3554 

53674 

1 

XAL,2 

VSL* 




02 4 7 

REP 

4 

LIST 

1224 

36,3555 

C221S 

c 


NCnMGAM 




0246 





36,3556 

57576 

1 


0,2 




0249 





36,3557 

52724 

1 

XChX,2 

VAO* 




0250 

REP 

22 

LIST 

1224 

36,3560 

00051 

c 


S2 




u25l 

REP 

t! 

LIST 

1224 

36,3561 

02555 

( 


W 4 1060,1 




u252 

REP 

3 

LIST 

1224 

36,3562 

02673 

1 

TTGRE 

HCLDR 46 




02 53 





36,3563 

77614 

1 

BOFF 





0254 

REP 

1C 

LIST 

122 1 

36,3564 

C2746 

0 


DMtNFLC 

PQANCM IF 6 OIMENSrONAL 



0255 

REP 

1 



3t , 3 565 

^5609 

c 


FAZt 




0256 





36,3566 

5T 5 4 3 

1 


Dec'S P 

CILC LTWER 3X9 PAflTITICN 

CF k 

MATRIX 

0257 

REP 

16 

LIST 

1224 

36,3567 

75054 

1 


ZT ,2 




0258 





36,3570 

743CI 

c 

NORN 

VXSC 
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CiZiL^ 

REF 

22 

LiST 

1224 

36t3S71 

CCCS2 

C 



S2 




QZtQ 

REF 

2 

LAST 

1222 

36.3572. 

Q2657 

1 



OHEGARJ 









36.3573 

71124 

0 


XCHX 1 2 





Q2(]2 

RLE 

24 

J.3il 

1225 


CQC51 

c 



S2 




-flZfcJ 

REF 

10 

LAST 

1224 

36.3571 

QQQ47 

1 



X2 




13244 





36.3576 

53674 

_L_ 


XAD.2 

ViiL ♦ 




0265 

REt 

5 

LAST 

1224 

3S.3577 

C2215 

c 



NOFRGAR 




C260 





16.3600 

57576 

1 



0,2 




026? 





36.3601 

52724 

1 


XC HX t ^ 

VAD* 




Q26 8 

B£F 

25 

LAST 

122 5 

16.3602 

CQQ51 

c 



S2 




G26$ 

RfcF 

EE 

LAST 

1224 

36.3603 

02643 

1 



W 41620,1 




Q27G 

REF 

4_ 

LAST 

1224 

36.3604 

02101 

_0_ 


STORE 

HCLOR 4120 




G271 





16,3605 

776 24 

1 

FAZE 

CALL 





0272 

REF 

U 

LAST 

615 

36.3606 

56 712 

c 



GRF2PC 




02 73 





36.3607 

77776 

1 


. E?<IT 





027<t 

REF 

5 

LAST 

1224^ 

36.3610 

3 1252 

c 

FAZei 

CA 

wlXA 

START 2N0 PHASE 

OF INCCRP2 

TO TRANSFER 

0275 

REF 

1 



36.3611 

6 374 2 

1 


AO 

6 0D 

TENP REG TC 

PERN M MATRIX 

0276 

REF 

4_ 

LAST 

1224 

36*36 12 

55 *25 2 

C 


TS 

wixe 




0277 

R.EF 

5 

LAST 

122 4 

36,3613 

3 1254 

c 


CA 

ZIXA 




U27e 

REF 

2 

LAST 

185 

36.3614 

6 7715 

c 


AO 

K IM S2 




C2iS 

■ REI 

4_ 

LAST 

1224 

16t3615 

.55*255 

c 


TS 

zi xe 




0280 

REF 

23C 

LAST 

1224 

36.3616 

0 6006 

1 


TC 

INTPRET 




_ 0281 





36.3617 

66350 

1 


LXA,1 

SSP 




0282 

_Rii_ 

6 _ 

LAST 

1225 

26.3620 

C12S2 0 



W I X A 




0283 

REF 

4 3 

LAST 

1224 

36.3621 

00051 

0 



SI 




028^ 





36,3622 

CC006 

1 



6 




0285 





36.3623 

77175 

1 


VLCAO 





02.66 

REF 

5 

LAST 

122 5 

16^3624 

02665 

c 



HOLOki 




0287 

ref 

67 

LAST 1221 

36,3625 

06467 

1 


STCRE 

W 4540,1 




U288 





36* 3 £ 2 6 

77775 

1 


VLQAC 





Q2a9 

REF 

t 

LAST 

1225 

36,362? 

C2673 

1 



HCLDL 46 




02SC 

REF 

68 

LAST 

1225 

3 6 1 3 £ 3 C 

C6555 

1 


STCRE 

Vi 41080,1 




tL2ai 





36.3631 

77214 

c 


BOFF 

VLOAC 




0292 

REF 

11 

LAST 

122 4 

16.3632 

02746 

c 



OMENFLG 




029J 

REF 

1 



36,3623 

7 5 6 4 3 

1 



FAZfcS 




02 94 

REF 

7 

LAST 

1225 

36.3634 

C27C1 

c 



HCLL'4 4 120 




0295 

REF 

69 

last 

122 5 

36.3635 

06643 

c 


STCRE 

W 1 6 2 0 f 1 




V2 9 6 





36,3636 

S21CC 

1 

FAZB2 

TIX,1 

GCTL 




02JJ 





26,3637 

75641 

c 



42 




0296 

REF 

1 



26,3640 

75651 

1 



FAZC 

DONE hITH h MATRIX. UPDATE 

STATE VECTOR 

C299 





26 1 3641 

77634 

c 


RTb 





0300 

REF 

L 



26.3642 

75506 

c 



FAZA 




0301 





26,3643 

43335 

c 

FAZe5 

SLCAD 

DAO 




03Q2 

KEF 

5 

LAST 

122! 

36 t 3 64^ 

C1256 

1 



z ixe 




03C3 

REF 

L 



26.3645 

35 7 64 

1 



12CD 




0304 





26,3646 

S203C 

c 


BH 1 Z 

GOTC 




0305 

REF 

2 

LAST 

1223 

26,3647 

75651 

1 



FAZC 




0306 

REF 

1 



36,3650 

75630 

c 



FAZeZ 




C307 





26, 3651 

77624 

1 

FAZC 

CALL 





0306 

REF 

19 

LAST 

122 5 

16, 3652 

567 12 

c 



&KR2FC 



















IP 


I 


IP 
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1 
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1 1. ^ fl* « 
















36*3653 

53375 

C 


VIQAD 

VAD 

START 3R0 PEASE OF INCCRP2 

. -M- ^ 

QUO 

REf 

e 

LRS7 

59g 

36t3656 

C1701 

c 



X7e9 

7Th,9Th,9TH,CCRFCNENT CF STATE VECTOR 

1 1 

RfF 

m- 

1 5 

L JST 

12 22 

36.3655 

c 



OELTAX +120 

INCOflPCRAT ICN FCR X789 

C312 


90 

£ 

L/ST 

HE 

36,3456 

C3650 

c 


STORE 

TX789 


w M ^ Im 

Q3ii 

- ^ — 





36,3657 

67016 

1 


BUN 

KTL 


03 1^ 

REF 

1 ^ 

LUST 

615 

36.366(; 

C07C7 

1 



VEHOPFLG 


0315 

Rk F 

1 



34,3661 

7575 1 

c 



OOCSP 



REF 

1 



34, 3462_ 

26765 

c 



mcvefleh 


0 317 





36.3663 

77006 

c 

f A24B 

Bova 

AXT . 2 


0ii£ 

REF 

e 

L/ST 

B23 

36,3666 

57316 

c 



TCDAhZ IG 


^ ^ 

OjIS 





36.3665 

ccoco 

\ 



0 


^ ■* «r 

0i2C 





26f 3 666 

77016 

1 


BOFF 

AXT. 2 


Q321 

REF 

e 

L4ST 

571 

36,3667 

0^363 

1 



MOCK THIS 


C322 





24t367C 

75672 

c 



+ 2 


0323 





3 6 • 3 6 7 1 

00002 

c 



? 


(112.^ 





36.3472 

53775 

1 


VICAD 

VSK* 


C325 

REF 

U 

14ST 

122t 

36,9473 

C1257 

c 



CELT AX 

027 IF MCCN CP0IT, 829 IF EARTH 

0326 


-M- 



36.3676 

572C5 

1 



0 -7,2 


0327 





3 1 f 3 E 7 S 

60055 

c 


VAC 

BCV 


032Q 

REF 

6 

L4ST 

282 

36,3676 

01521 

c 



TDELTAV 


0329 

REF 

1 



36.3677 

75711 

1 



FAZAei 


0330 

PEF 


L4ST 

122E 

36,3700 

25521 

c 


STOVE 

TOELTAV 


0331 

REF 

11 

L4ST 

1224 

36,3701 

01265 

1 



OELTAX +6 

B5 IF MOON CRBIT, B7 IF EARTH 

0332 





36,3702 

53257 

1 


VSRA 

VAD 


0333 





36,3703 

57202 

c 



C -6 ,2 


0 33i» 

REF 

4 

L4ST 

283 

36,3706 

01527 

c 



TNUV 


0335 





36,3705 

7760G 

1 


BOV 



0336 

REF 

1 



36,3706 

75715 

c 



FAZ Ab2 


0337 

REf 

5 

L 4 S T 

1224 

36.3707 

35527 

1 


S7CALL 

TNUV 


033B 

REF 

1 



36*3710 

75726 

i 



FAZA83 


0339 





36,3711 

53375 

c 

FA2481 

VLOAD 

VAC 


03^0 

Rf F 

12 

L45T 

865 

36, 3712 

01535 

c 



PCV 


03A1 

REF 

1 6 

L4S1 

1224 

36.3713 

01257 

c 



OELTAX 


0362 

REF 

13 

L/S7 

1224 

36,3716 

01535 

c 


STCRF 

RCV 


036 3 





36,3715 

53375 

c 

FAZAe2 

VLCAO 

VAD 


C366 

REF 

n 

L4ST 

865 

36,3716 

01563 

1 



VCV 


' 0365 

KEF 

19 

L4S7 

1224 

34,3717 

C1265 

1 



OELTAX +6 


0366 

REF 

12 

L4ST 

122 4 

36,3720 

01563 

1 


STOKE 

VCV 


0367 





36,372 1 

65136 

c 


$ X A f 2 

call 


036a 

REF 

2 

L4ST 

25E 

36,3722 

C215C 

1 



PdCD V 


0369 

REF 

i 



36,3723 

23366 

c 



P tCT IFY 


03691 





36,3726 

1T626 

1 

FA2*e3 

CALL 



03692 

RkF 

20 

L4ST 

1225 

36, 3725 

56712 

c 



GRP2 PC 


C35C 





36,3726 

67016 

! 


BUN 



0351 

REF 

16 

L4ST 

1224 

36,3727 

00 707 

1 



VEHUFFLC 


0352 

REF 

1 



36,3730 

7 57 56 

c 



OOCSRl 


0353 

REF 

1 



3 6 f 3 7 3 1 

26726 

1 



MCVEALEM 


0356 





36,3732 

77626 

1 


CALL 



0355 

PEF 

¥» 

£ 

L4ST 

25E 

36, 3733 

20243 

1 



SV0WN2 

SICPE COWMINR state VECTOR 

0356 





36,3736 

77626 

1 

FA2AB6 

CALL 
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i 


Ip 


Iff 


0371 


a3 72 
C i 71 


Q3U 

jQlll 


y3 79 
C3flQ 


4 % T 


21 

ii3T 

j2_z t 

36.3735 

56712 

c 



G Rf2 PC 

PHASE CHANGE 




Ti 4 *3 

ft * 



36.3736 

77214 

c 


BOFF 

VLOAC 




n 1 c 

Q f 

1 0 

1 i<;T 

I 2 2 * 

4#,. 4 7 41 

02746 t 



OMENFLG 





— y — 

0360 

RE f 



A fa ^ 


75743 

c 



FAZAE5 

6 OINENSICNAL 




M J U M 

Jlh- 1 - 

REE 

-a 

t i<;T 

122 6 

ieL.3741 

C345Q 

c 



TXTCS 

9 OIPENSICNAL 




03#!? 

RFF 


1 i^T 1226 

36.3742 

01 7C1 

c 


STORE 

X7&S 





0363 





36, 3743 

66150 

c 

FAZAB5 

LXA.l 

SXA. 1 





G364 

BEF 

13 

LAST 

1223 

36i3744 

C 2 3 1 7 

c 



EGRESS 





0365 

REE 

5G 

LAST 

116 3 

36.3745 

COC52 

(, 



QPRET 





0366 





36,3746 

77776 

1 


EXIT 






TT -ir ^ ^ 

C3t7 

REF 

6C 

LAST 

10 3 6 

36,3747 

0 4574 

0 


TC 

POST JLMP 

EXIT 




Q 4 6fi 

REF 

3 

LAST 

622 

36.3750 

27406 

c 


CAOR 

I NTwAKE 





Cl69 





26,3751 

52C34 

1 

COCSK 

RTB 

GOTO 





0 370 

REF 

1 



36.3752 

267C0 

1 



MOVEPCSM 




- . 


ML 


1 


13663 C 


REF 


i UST H 


_36t3 753 
J6,3 7 5;) 


0374 REF 2 L/ST 3tt3756 

037 5 


A50i4 
206 51 
2Q211 


1 CCCSHl RTB 
1 

C 


CALL 

MOVE ACSN 

SVl»WM 


S7CRE COXNUNK STATE VECTOR 


36*3757 77650 1 


COTC 


REF 

Ail 


1 

11 


LAST 1222 


16, 3760 

75 7 34 

C 



26# 31 3 1 


ZERCC 

s 

36,3761 

00066 

1 

54CC 

DEC 

26,3762 

7777 1 

C 

6C0 

DEC 

36.3763 

G0aL4^- 


1200 

UiC 


FAZABA 

ZERCVECS 


54 


-h 


11 


I 


R 





I 


A 






$ 


I 


Iff 


i 
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fiQOQJ 
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FEjCGA/N CESCfiliriCh - ENJ IH2 CCMC 
MCC NC. - C 

SUfcNLUTtNfc LOG slCTICN 




DATF - 1 SEPTEMBER 

1967 






LOG SECTION - CONIC 

SUflROUTlNES 


— JCl-lijIll -■*- ^ — 

Mr P R ^ K fi A L S E 





ASSEMBLY - CCLCSSUS 

REVISION 68 


W U UU H 

P CC07 









r-' w M V X — 








, _ 


fcOQta 

FUCliChAL CESCRiPllCii - 







- - - - - — - - — - - 


If 


ftUUu 9 


mvjULi 

3Q.QU 

JvQiJl? 

kQQ 21 


a 0023 . 

JL 0025 

PQ026 


PQ028 

tlOC30 


1P£ FCLLCklNC SET QF 


SCILVE 


INVtPSL-^CLAftE force At,Tl^G_C^ A PC INT PASSt A S Q UTL TNED IK THE CMC A^ D L GC LUN AR t AHDI NG N I SS ION GSOP , S ECT I 

A fPKEftAt tJ«;/>GE POlhT- CF-VlEh RAS TA KEN iN fC^MUlA UNGi MEGHAN tZ iM Gt ANC SCALING THE SUBPOUTINESf 

RiTHPS THAN LPTiMtZiNC EACH FCN A PARTICULAR USE* THEPEHOREt MULTIPLE USAGE CAN BE M ADE OF — THE SOBAOUT INES 

INKLVINC ANT PEALISTIC S_ET CF CO NS TRAI NTS. I T SHOULD bt NOTE D THAT ONLY ONE SET CF CCCING IS USED# HHETHER ThF 
eAPTHj_MCCNf OR ANV CTHEB’ celestial 0CCY IS SPEC IFIED AS THE CENTR AL BODY CF THE PRCaLEM, PROVIOEO ONE OBSERVES 

THE INHERENT SCALE CHANGE RECUIREO IN PCSlTIGNt VELOCITY# MU# AND TIME# AS OLTLINEO IN MSSICN PROGRAMMING 

CEFIMTIGN _MlMt_NC. 1 0. THIS CA N fi E ACCCMPLISHEO BY SIMPLY ACHING TO T HE PUTAB LE AND INITIAL IZING THE SUfeRQU- 

Tl^f5 /f PPCPR I IT ELV • 

CLE Tf'THf MNIFCWMITY C F THE ECUATICNS INVCLVEC# COOING V»AS MIMMIZEC BY TREATING IV IDUAL EQ UAT IONS AND 
BLCCK5 CF EOUATIORS AS„SU EKOU T I NFS CF LCHLH RANK MHENEVEk PCS SI6LE. AS A RESULT # THRE E QY- PRDOUCT S SUBP OUT I NFS_^ 
CIPKUY L SABLE AS INDEPE NDENT SU eP CUTINES# NhR E GENERATE D. 


PCQ31 

RESlflJCT ICNS - 













fLDu22 

THE ONLY LIMITATILN 

IN THE SCOPE CF PROBLEM 

WHICH CAN bi SCLVEC BY A PARTICULAR SUBROUTINE 

IS THF scaling 


POO 39 

LINJT CF t/Ch PARAMETER 

AS SPECIFIED IN THE GSUP. 

these scaling LIMITS HERE CHOSEN SO THAT ALL 

FEAS IBLE 

TPAJ HL- 


RQQ36 

TfPlP? CfLLC BE HANELED- 






P0Q3T 

PQ039 

<lNfF THE SUbRCUTlNES lEXCEPT KEFLFR) USE COMMON SUfcFCt TINES CF LONER BANK WHICH USE ERASABLE DTHEH 

THAN 


THE PLSHLIST 1 CU E TC ITS 

LIMITED SIZE ) AND COMMON 

INTERPRETIVE SWITCHES# THE CONIC SUBRCUTINES 

CANNOT BE 

ALLOWED 

— 

PQU9 1 

TC 1N1ERBLFT EACH CTHEB. 

IT IS UP TC THE USER TO 

GUARANTEE THIS CONDITION. 




R0093 




_ 

— 
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RaQ-%6 PCD NC. -1 _ _ LOG SECTION - CONIC SUBROUTINES 

ttQG4M Mrr HY KWALSP U ASSCH6LY - CDLCSSUS 103 AND SUNDANCE 222 

BQ QSQ 


= hQQ51 FLfCTKhAL CESCRIEIICK * _ ^ 

K QU52 This SUBROUTINE! GIVEN AN INITIAL STATE VECTOR AND THE CESIBED TEANSPER UHE THROUGH WHICH THE STATE IS TO 

BH LPCA1E0 ALONU A CCMC TRAJECTCRV. COPPUTES THE NEW. UPDATED STATE VECTOR, THE TRAJECTORY NAY PE ANY CONIC 

Hfl056 SEEJiCN - URCULARi^ ELLIPTIC! PARAeQLICt HYPER BCLIC, OR RECTILINEAR WITH RESPEC T TC THE EARTH CP THE HOON. THE 

RGQSa Uit_C^P THE SUeftOUTlNE CAN BE EXTENCED U SING CT H ER PRIH ASY ECCIES B Y SIPP LE ADDITIONS TO THE PUTABLE WITHOUT 

RQflfeG INtlQCLClNC ANY f.CCINC CHANGES. ACCEP11NG THE INHERENT SCALE PACTCR CHANGES IN PQSITICN AND VELCCITY. AN ITERA- 

AQli62 litlLJIKhNlQUt IS UTILIEEC IN THE CCPPUTAT ICN. 

«QQt3 _11_A_ NECATI VE T INE-Q F-F L ICHT IS INPC Tt THE PROGRAP WILL SCL VE FOR TH E STATE WHICP WOULD BE PRODUCED BY 

RQOfeS EXTBIPCLAT ING THE PCSITIQN BACKWARD IN IlPfe. 

aODESl IF IHt tlSiRlIL IPANSFER TLPE_Li FCSITIVE AND EXCEEUS THE CRBITAL PERIOD, THE SlBRClTINEf THROUGH A HCDULAR 

JsiL0(i5i TECHNlCUii miL CCFtPUTE THE STATE CflRPESPCNC ING TQ THE OCSI»ED TIPE AS USUAL . 

RDC66 


R0U67 1>£ REST PICT IONS ^RX^ 

RQQ6fl 1, A NEGATIVE CPSIREC TIRE MUST PE LESS THAN ONE PEKICC IN PAGNITUDE* IF GREATER, THE CNE-PERIOD- SCLUTICN 

hOC 7C WILL EE FETURNEOi 

m;C7l 2 * IHL PARAPETEPS in the PROfiCEP (ANNCT exceed THEIR SCALING LIMITS AS SPECIFIED IN THE GSOP. IF 

RiJU73 ANY CF THESE LIMITS ARE EXCEECEC. THE RESULTING SOLUTION WILL Bg PEAMNGLESS. 

ROC 75 


.Knnit THE MPBEB QF ITERATIONS ANQ, THSPEFCKEi THE CCHPUTAT lON SPEED IS CEFENCENT CN THE ACCURACY OF THE 

RflQje GUESSi XKEP NF W. IhE ACC. CCMPUTATICN. TIMLIS AP PRO X IHATEL Y .061 SECONDS FOR INITI AL HAT ION* .065 SECONDS FDR THE 
RdCeC PINAL CCPPlTAT lQN Si PLUS .083 SECCNCS FC P EAC H ITERATLCNi. 

■Aflfljaj 


BjQ 11R2 REfPBiNCES - 

ROCej R-A79i PLSSICN PPCGRA PKINC CEFINITICN PEPO NO. LUt LUNAR LA NDI NG PIS SI ON GS OPt SECTION 5.5f SGA 

RQ Q85 M E PC 67-A. 

POCPE 


Rflflfi? LlifLl - ERASABLE INI T lAL 1 2AT I CN PEGUiPEC 


jiGQe.e V scale fac tcr ♦ 

k0069 V/PIABLEAIN POWERS CF 2* GESCRIPTICN AND REPAPKS 

R0090 ♦ * — 

ROoSl RPECT « «29 POP EARTH*DF INITIAL POSITICN VECTCK IN PETERS 

RQ092 ♦ 42 7 FOR PCCN ♦ ' 

R0C9 3 YPECT ♦ 4 7 FCR EARTH 60? INITIAL VElCClTY VECTOR IN MET EKS /CENT 1 5 ECOND 

R0C94 * 4 5 FC R PO CN ♦ 

wdCSS XI tlECM NONE ♦INDEX REClSTEP SET tC -20 OP - lOD ACCCRCING TC WHETHER THE EARTF OP MQCNt 

BOU**? ♦ *R£SPECT1VELY , IS THE CENTmAL BCDY 

kOOSB TAL. • 42E ♦DESIRED TRANSFER TINt IN CENTISECCNCS ICPI 


4UJU 
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ISER*S Pi»Ge NO. 


EO S3 


iUlC99 - 

JlKi f Jllk 

4 

117 -EflK_lilRTh*ia.LS5 OF X IN ?'£TERS-70-THE-0 NE~H/ilF FRCN KEPPPEP 




RQIOI 


4 

116 FOR PCCN ♦!£?) 




KtiliO? 

—U 

_4_ 

128 *DP PREV. V/JLUL tf IlPt IN CENTISELS FPCW KEPPPEP 




RCiiui 

XFEtV 

4 

117 FyJLliHThiJ»PEVlClS V4ig£ Cf X IN NETtPS-TL-THE-CNE-HALF PCWEP FRCP KEPPREP (CPI 




HQ1C5 


4 

116 FOR PCCN ♦iCF) 




RGlOfc 








RC1C7 SLlftCL1INP5 CALLFC 

RC108 CElll^e 

filler 


aCllu C^LLIKL StCUEfiCE hCRML EXIT HC OCS - 


ilfliU 

KEFPTN-2 GCTQ 

NUST e£ IN INTERPRETIVE MODE ANC CVFINO RlST 

8E CLEAR 



P0113 

KEPPIN-1 KEPLER 

RETURNS UlTH XPPEV IN NPAC. FL IS AT 0. 




FQllA 

— K i f F T f 

jCONTIPUE 










pens 

KEFIER PLil NOT 0t CAILEC 

DIRECTLY SINCE AN INTERRUPTICN OF IT NOULC DESTROY 

THE ERASA8LES 

IT NEteS TO 

CONFLETE 

Pi3117 

TF£ iMERRLPTec JCB. THfcREF(]RE THE USER hUST CALL CSMCONIC CR LEMCCMC k^hlCH 

GUARANTEES NO 

INTERRUPTS 

ANC WHICH 

RC119 

ALiC CALLS KEPPREF TC CONFUTE A C-UESS CF XKEPNEm. 




PCL20 


















P0121 

AECPT EXIT NCCES - 





K0122 

NCNE 





fiOl23 


















- PQ12_^ 

CITPLI - 











&GI2.5 

•SCALE FACTCB ♦ 





R0126 

V/PlieLE*U PUkERS CF 2* 

CESCPIPTION AND RENAFKS 




R0127 

« 

1 

• 

• 

1 

1 

1 

1 

t 

1 

1 

# 

1 

1 

1 

t 

t 









R0l2a 

RCV • i29 FOR EABTh*CP 

TEPNINAL FCSITICN VECTOR IN N6TEP5 




PC129 

* 127 FOR NCON ♦ 





paiio 

VCk ♦ i7 FC« EARTH ‘DF 

TERNINAL VELCCITY VECTOR IN NETER S/CENT I SEC 




J<Qi3I 

• 15 FCR ACCN • 





RQ132 

TC • 120 *0? 

TRANSFER TINE IN CENTISECS TO NHICF KEOLEP CCNVEPCEC. 



RQ13A 

XPPEV ♦ 117 FOR EARTh*OP 

X IN NETEP S-TC-THE-ONE-HALF-PQNER TC NHICh KEPLER 

CCNVERCEC. 



PQi3P 

♦ 116 FOR NCCN ♦(CPI 




RC137 

FCP C1FER CUTPLT kUCH NAY 

BE CF USEt SEE OEERIS. 




P0136 







^qi35 LtEP li - ____ 

MRINtTfcBS wUCH NAY BE CF USE - 


poi^o 
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t 


KQ14I 

jlfll42 
& n 1 ^ 

VAR lA CLE 

♦ SCALE E1£1CP_^ „ - 

♦Ih POWERS CP 2* 

DESCPIPTIUN AND REMARKS 

_ — - - 









*0144 

URRf CT 

# 41 *0P ilMJ VfcCTQP CF INITIAL PCSITION 




— 43 If ^ 

^0145 

Q n 1 A A 

R1 

♦ <29 fQfL-tAATH*DP MAGNITUDE CF INITIAL 

POSITION IN FETERS 






• 42T for MCCK * 





Hai47 

AOl^e 

RQ 1 Afi 1 

ALPHA 

* -22 FOB £AR_lh*CF INVERSE OF SEMIMAJCR 

AXIS IN 1/METERS 




-Mu j Jl r 

♦ -2C fQR MLON ♦ _ __ 





TRCCULC 

4 428 •DP INTEGRAL NUMGER CF PERIODi_JN CEMISECS, 

KHICh WAS 

SUBTRACTED FROM TAU. TO PPCCUCE A 




« •TAU. OF LESS THAN ONE PERIOD. 










B P 1 

CAflllKTRR^ rp kr - 





B W 1 J 

KU15G 

OP PARAMETERS - EPSILCNT. DELXf CELT, PCNOPP, XHOOULO, PLUS PUSHLIS7 

REGISTERS 

0 THkCtGF 39D. 


RQ1S2 














t 




! 
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i CCA 1C SLBftCmiK£S -- 


PAGE _NC. 5 eo S3 



PAt GRi» CgSCftlPTILN - LA^££PT lUtlHCUHNe - I SEPTEI-aEB IS67 

PQ1*5§ MCC - C LOG SECTION - CONIC S UBPQ UTINES 

ani .^7 Mfr KRii^P 1 ASSEHbLV - CCICSSUS REVISION 88 

RflliS 


_ _ P'JlfcO _ F_C AC UCA AC CfACRlf llQK - 


H0I61 

,'vQit3 

RQifi7 
_RQiC9 
RU L7 i 
eoiTA 


ins 5LDRCUTiN£ CALCULATES THE INITIAL VELOCITY PiCUlPLC TO TRANSFER A PQINT-MSS ALCNQ A CCMC T R A J E C TO_Rjr _ 
<A._1MTIA1, PCSIT ICN TC A TERMINAL FCSITICN IN A PPfc S CH BED TIME INTERVAL . THE RESULTING TRAJECTORY HAY BE 
A ftCnCh CF A CIFCLEf ELLIPSE, PAPABCLA, OP HYPERBOLA HiTH RESPECT TC THE EART H OR THE “CCN. THE US E OF THE 
SLEPOnihE CAN BE EXTENQLC USINC OTHER PPIHARY BODIES <.Y SIMPLE ACOITIONS TO THE HUTAflLE HITHOUT INTBQCUCING ANY 
CCCIM CHAhGESi ACCEPTING T HE IKHEBENT SCALE FACTOR CHANGES IN POSITION AND VELOCIT Y. AN ITERATION TECHNI QUE IS 

L TJLi 12 fc C IP 1 Ht- CCPEUT AT LC N 7 ~~ 


F0173 THE RESTPKTICbS APE - _____ 

KQ17A 1. RECTILINE/R TRAJECTCRIES CANNCT i£_CQHPUTEP, 

RJ175 2. AN ACCURACY CEGRACATI CN CCCUPS AS THE COSINE OF THE THUF AN CHALY CIFFERENCE APPROACHES ♦l.O. 

^JJ1?7 3. THE AN GLE BETWEEN ANY PCSITICN VECTO R AND ITS VELCCl TY VECT CR HUST BE GREATER THAN I DEGREE 47.9 HINUTES 

RQ17S APE LESS THAN 178 CEGREES 12.5 HINUTES. 

Ru iao A, KECATIVE TRANSFER T IHE IS AHeiCLCU S A NC WILL RESULT IN NO SCLUT IC N. _ 

HOIBS 5. THE PARAHiTEP5_iN THE PROB LEM HUST NOT EXCEED THEIR SCA LING LIHITS SPECTFIFC IN THE CSOP. IF THE 

K01fi*i LIMT! APE EXCEECIC. THE RESULTING SCLLTILN WILL BE HEAMNGLESS. 

ROjeS THE NLMBEP OP ITERATIONS AND , THEFEFUKE, THE COHHUTATIGNS SPEEC IS DEPENDENT OR THE ACCURACY OF THE FIRST 

RJie? GLtSS CF THE INDEFEPOEhT VARIAfiLE, COGA. THE AGC CGPPUIATIDN TIRE IS APPROX IMATE- 

Rjie9 LY .ICS SECCNCS FCR IM T [ AL IZAT ICN t «C69 SECONDS FOR PINAL CCPPUTATIONS, PLUS .205 SECONDS FOR EACH ITERATION. 

Kl_91 


Btl92 REfEREPCIS - , 

P01S3 P-479| PISSICN PPCGRAHRING DEFIMTICN REMO NO. lOf LUNAR LANDING HISS IQN GSOP-SECTIQN 5. 5« SGA MERC A7-8» 

f<Q 195 SGA_H£HC E7-4. 

(0196 


PC197 IhElT - ERASABLE IMT lAL I 2 AT I CP PECU I P E C 


PCive * SCALE FACTOR ♦ 

RC 199 VA P I A E L £ AIR POWERS CF 2* 0 E S t R I PTICN AND REH Ak KS 

90201 RlVEC • 429 FOR EARTF*CP lNtTlA~L PC S IT ICN VEC TON IN METERS ~ 

R0202 • *21 FOR PCCN ♦ 

H0203 R2VEC ♦ ^29 FOP EARTHAOF TARGET CP 1ERRINAL PCSITICN VECTOR IN PETERS 

R0204 ♦ -*2 7 FOR RCOP » ~ 

nC205 TCESIPECA 428 AtlF OESIPEO TRA^5FeR TIRE IN CENTISECCHDS 

H0206 XI (3€CI* PONE ^ AINOEX REG I STEP SET TO -20 OR -lOD ACCCRDING TC WHETHER THE EARTH OR NOON, 

R02Ce ♦ ♦hESPECT IVELY , iS the CENfPAL BODY ^ 

ft02C9 CECRSCF « PONE ♦$£ ♦.S IF CESIBED TRANSFER ANGLE IS LESS THAN 180 CEGPEFS, -.5 IF GREATER THAN 180 DEC. 

R0211 GLESSn A PONE aaN INTEPPRETEP SWITCH TO BE SET IF NC GUESS LF CCGA IS AVAILABLE, CLEAR IF A GUESS OF 



II 


r A n ♦ 

A C Q C i A 

a^viicffih j ^7 rP 
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X 

LLh 1C 

SL prqjTIKES 
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kC2 12 


A 

*£CGA IS TD flE LSiC EY LAMLPT 


A.Q214 

CCCA 

* 4S 

*QP GUESS CP CCTARCNT CF FLIGHT PAIH ANGLE (MEASgfteo FROM VERTICAL ). THIS MILL BE 

_____ _ _ 

■I* W ^ JU • 

fcr n 3 1 ^ 



• ff^KnfiFn IF r.iifSSh is SET- — 


flCj2l7 

lULfiMSh 

« hCNE 

♦AN IhtEflPPETCP iV'ITCh TO BE StT_ IE U-E IS TQ BE AN INPUT TC THE SUBROUTINE, CLEAR IF 


1 9 



♦ LAMBERT IS TC CGMPUTt ITS DRN NCRMAL (UM- 


rv w ^ 

D n ^ ?fi 

11 K 

t 4 1 

*np LMT NCRMAL IT THE CESIRED CREIT PLANE IN THE DIRECTICN OF THE RESULTING ANGULAR 


- w y ^Ai ■ 

WQ222 



♦HCHENTUM VECTCfl. THIS WILL BE lONOKEC IF NCRMSW IS CLEAR. 


— 

Jh022A 

V1APCTAGA KChE 

♦A S.P. TAG rO EE SET TO ZERC IF LAMBERT IS TC COMPUTE THE VELLCITV AT P2VEC AS WELL AS 


hCi??ii 


# 

♦AT RIVEC. ... 


MC227 





■' V kJm -* 











Kfi22fi 

RQ229 

SLEECLTINE2 CALLEL - 



- 



- 

GECM. GETX# CELTIME, ITERATOR, LAMENTER (PART OF NEwSTATE) 





RC23G 



















n (1 ? 3 1 

rAlilKr ^ECLFKrf AKT KnaMAL exit mcles > 















f«u232 

1 C£ii MUST Ft IN INTERPRETIVE MODE AND GVFINO 

MUST BE CLEAR 





24 

J*1 LAMBERT RETURNS WITH PL AT Q AND WITH VVEC IN MPAG_ 

IF VTARGTAG 

WAS NON 

-ZERO 

OR VTARGEl 



IN MFAC IF VIARCTAG WAS ZEPC 







R0237 

L42 BCN CONTINUE IF SOLNSW CLEAR SINCE SCLUTICN 

IS 

ACCEPTABLE 





RC^BQ 

L*1 SCLNSW 







RG2A0 

t 4A LAMA0CPT 







RQ2A1 

IF A LAMBERT RESULT IS TC BE A FIRST GltSS FOR THE NEXT LAMBERT CALCULATION, CCGA 

MUST BE 

PRESERVED AND 


KU2^3 

GUESSh MLST BE CLEAR FOR BACH SUCCEEDING LAMBERT CALL. 







R02A<t 
























J4U2N5 

AfiCPT EXIT MUCES - _ _ 








IF SCLNSW WAS SET UPON EXITING, EITHER LAMBERT WAS ASKFC TC COMPUTE 

A 

TRANSFER TCO 

NEAR 0 

OR 360 DEG, OR t 


R02Ae 

WAS TCC SMALL TO FRCOUCE A REALISTIC TRANSFER BETWEEN RIVEC AND P2VEC. 

IN 

EITHER CASE 

THE FIX 

MUST 

BE mace 


RQ25LI 

ACCCPCING TO THE NEEDS OF THE PARTICULAR USER- THE ABCPT EXIT MODE MAY 

BE 

CCCEO AS ... 





RQ252 

LANA0CR1 CLCAD AftS A MEASURE OF PROXIMITY TC 0 OR 







RiJ2 53 

1-CSTh 360 DECREES. 







P.<i25A 

I 

1 

1 

in 







P0255 

C N E B I T 







RL256 

CHANGER2 CHANGE R2VEC DIRECTION SLIGHTLY. 







P0257 

CLCAC CAC 







PC25t} 

TCES IKED 







C.Q2 59 

SCNETIME 







«C260 

STCALL TCESIFEO INCREASE TOESIRtO 







R02tl 

LAMBERT 







R0262 















. _ 


QilPU - 

♦ 5CALfc FAC1CP ♦ _ 

KUiibS V4fIAELE*U FOtoERS CF 2* OtSCKIPTICN ANU REMARKS 


f 
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L CUIC SLfiPLUliNO USER'S P4GE NC. 7 


R0267 VVi£ ♦ ^1 FCR fARTH ♦DP INITIAL VE UC IT Y VEC TQR IN METERS /CfcAT I SECCNO ftEQLlPED TC SATISFY THE BCUNOARY VALUE 

k02fcq ♦ -tS FCR ACCR ♦PRCBLEM. ^ 

fiQ27 C V^T4PtLl ♦ ^7 FCR JAR TP ♦_CF _BE SULT ANT V ELCC I T Y .V ECTOR AT ft 2Vt C IN RETERS/CENT I S ECONC , 

RC272 < FCK PCCN tZ 

PJ/73 Sfl><b * RCKE ♦IRTEPfRETEP SHTCh wUCh IS SET IF TPE SUEROUTINE CANNOT SOLVE THE RPQBLLRt CLEAR IF THE 

HQ275 ♦ ♦ SCLUTICN EXIST S. 

RC2TE FCP LIFER CUTPLT VRIC P HAT BE CF USEi SEE DEBRIS. 

RQ277 


flQ27fl CtEPlS - 

RQ^?9 PAPA HETEBS NtlCF MAY BE CF USE - 


cn^ftn 

♦ 

SCALt ilCJilR* 





P0281 

VARIAELE^IF FC^ERS CF 2* 

DESCRIPTION AND 

REMARKS 



f Q2E2 







RQ2 83 

SMF ♦ 

n *0? 

SIN CF angle EETNEEN HlVEC AND K2VEC 




H02e^ 

CSTF ♦ 

•il *CP 

CCSINE CF ANGLE 




RU28S 

l-CJTF ♦ 

■•2 ♦DF 

l-CSlH 




F02 86 

CCtA ♦ 

•♦5 ♦OP 

CUTaN of INITIAL PEQUIREO FLIGHT FATH 

ANCLE MEASURED FROM VERTICAL 



RQ269 

P ♦ 

44 ♦OF 

RATIC OF SEMILATUS RECTUM TO INITIAL 

RADIUS 



RQ2SO 

RU * 

46 ♦OF 

RATIf OF INITIAL RADICS TO SFMIMAJCR 

AXIS 



RQ291 

R1 13 5CM 

429 FOR EARTH^OP 

INITIAL RACtUS IN METERS 




F02S2 

t 

427 FOR PCCh ♦ 





R029i 

URl ♦ 

4l ♦CP 

UNIT veCTOP CF PIVEC 




RC294 

U2 * 

41 *0? 

UNIT VECTOP CF R2VEC 











RU295 . 

PAPAMETERS CF hC USE 





Rj29t 

DF PARAMETERS - EFSILCNL# 

CSTH-PHC. TFBEVf TEPRLAHBf R2f PTNLAMB 

(SPI. PLUS PUSHLIST REGISTER 0 THROUGH 410 



K0298 

ACCJT ICRAL 

INTERPRETIVE SfilTCFES USEC - INF INFLGt 360SNf SlLPESW 

f ORCERSw 



RQ30U 
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fa301 PliCGRIh CESCP1PT^C^ ■ TlMt-Tt>ET4 SldftCLTlNE DATE - 1 SEPTE^'dEP l<}fc7 H 

fiaiQi KC£ PC* - £ - _____ LCG SECTICN - CONIC SUBROUTlNrS 

kQ^C^ MCC e> KfliLSg ASSEP&IV - CCLCSSOS REVISION 68 

PC3C? ^_=__ 


£030fl fLhCnCNiL DfcSCR 1 f T 1C&_- _ 

ai]30 9 This SLMflQJIlPE. CIVEK Ah INITIAL STATE VECTOR ANC A DESIRED TP tE-ANQW AL V-Q I FF ERfeNCE THRCIGH PhICH THE 

M3LI SUTfe iS tC MJLLPCATEQ 4L£_NCL A CONIC TRAJ ECTORY, CALCULATES THE C ORF ESPONQ ING T I HE-CF-F 1 1 GHT ANO, IN ADOniON, 

PQiia PKViCti ll*£_JiPTKP CF COPPUIINC the pep UPCA16C STATE VECTOR. ThE RESLLTING TR A JECTC PV RAY BE A SECTION CF A 

RQ315 CIPCLE. ELLIPSE. FARABCLA. CR HYPEPBC14 hllH RESPECT TO THE EAPTh GP THE RCQN. THE USE OF THE SUBROUTINE CAN BE 
_BX)J17 ^ Ex TENC Et LSING OTHER PRIHARY gCClES BY SlHPlE ACCITIONS TC THE HUT AELE WITHOUT INTRCOtCING ANY COOING CHANGES, 
AC319 ACCEPJIhX THE INHERENT SCAL E PA CTOP CHANGES IN PCSIUON AND VELOCITY. 



FC3ZI Tt£ PtUP-lCIlCNS ARE - __________ 

RU322 1. THE ANGLE BETWEEN ANY PCSITICN VECTOR AND ITS VLIlCITY VECTOR HUST BE GREATER THAN I DEGREE 47.5 HINUTE5 

afl32it . AliL LilS TFAN 170 CEG«eC5 12*5 HI NUTE5* 

Hg325 2. THE FARAMeTERS IN THE PPCdLIM RUST NOT EXCEED THtlP. SCALING LIMITS SFECIFIEC IN THE GSCP. IF THE LIMITS 

hQ327 ARL £XCE£CED. THE RESULTING SCLCTICN WILL UE MEANINGLESS* 

RQ12A ~ THE ACC CCMPLTATICN TIME IS APPRO IRAT ELY .292 SE CONCsI^^ 

PQ329 ^ 


ftC230 BEfERENCES ~ 

RQ331 R-N79i J-lSSICh PRCGPAM MING OEFIMTION MEMO NO. i c , LUNAF LANDING MISSION GS QP-SECTIQN 5.5, SGA NEMO 67-8. 

. PQ333 


_ _AD334 IMLI - tPASAELE IMHALliATUN PEtUlPEC 


JLIL335 


^ALE FACTOR 

0 






RC336 

VAFUiLE^lR FOER« CF 

2* 

DESCKIPTICN AND REMARKS 


- 




_RC337 






RC33fe 

R VEC 

• 429 FOR EARTH^CF 

INITIAL PCSITICN VECTOR IN METEFS 





.Rw339 


♦ 427 FOR MCCN 







FJ3AL 

VVEC 

4 47 FCR EARTH 

4>0F 

INITIAL VEICCITY VECTOR IN MET EPS /CENT IS ECONO 





f'C3Nl 


• 45 FCR RCCN 

* 






R03A2 

SNTH 

4 4 1 

• OF 

SINE CF TRlE-ANOMALY-DIFFEFtNCE TFRCUGH WHICH 

THE 

STATE IS TC 

BE UPDATED 


F0 3AA 

CSTH 

4 41 

♦ OP 

COSINE OF THE ANGLE 





P03A5 

RVSW 

4 RCNE 

•an 

INTERPRETIVE SWITCH TC BE SET IF CNLY TIME IS 

TC 

«E AN CCTPUT 

, CLEAR IF THE NEW STATE 


M03N7 



•I s 

TO BE COMPLTtC ALSC. 





R0348 

XI neCMNCNE 

•INDEX REGISTER TC BE SET TO -20 OR -tflO ACCCRCING 

TC 

WHETHER THE 

EARTH CR MOON, 


R0350 


# 

♦ RESPECT IVELV , IS THE CENTRAL hCDV. 





PO J51 










RC352 SLEPCLTIRES CALLEC - 
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_Ra353 GECM, GETX» EELllBi. hEmSUll — — 

RQ354 — = — - 


CJILLlUfi i-LGliEhLE KCPI!A1 EXIT f1£0E5_- 


fLCiit 

RQ357 

IE 

ChLY IlPt 

_ii CES IRf C AA 

call 

CLTPLT - „ 



L 

SET 

PUST ee IN INTERPRETIVE HLDE AND OVFINO MUST BE CLEAR 


- - 

R r. ^ A 4 

i 4 1 


R YSW 


K U 3 6 0 

L^i 


T IPETHET 

RETURA WITH PL AT 0 AND T IN HPAC 



R036 1 

L42 

« « • 


CCAT lAUE 



RU362 














R03t3 

IF 

THE LPCATE STATE VECTOR 

IS OESIPEC AS WELL - 



kt3 364 

L 

CLEAR 

CALL 

MUST BE IN INTERPRETIVE HOOE AND &VFINC HUST 0E CLEAR 



RQ itC 

L< 1 


R V SW 




Ry 3o7 

L ♦ 2 


T IPETfET 

RETURNS WITH PL AT 6. THE INITIAL PCSITICN VECTOR IS IN 

00 

CF THE PUSHLIST AND 

Ru 9 

.wt . m 



THE INITIAL VELOCITY VECTOR IN HPAC. 



H037L) 

L-*3 

S1CVL 

NEWVVEC 




K0371 

L+A 

STACP 





RC372 

L45 

STORE 

N EWRVEC 

NEWVVEC AND NFWRVEC /PE SYMBCLIC REPP E SEN T A T 1 CN 5 

CF 

THE USERS LCCATICNS- 

flU37^ 

L+e 

i « • 


CONTINUE 



RC375 






- . _ - 


PC376 

ABCPI 

EHIT HCC6S - 


- 

P0377 

L 

CALL eCN 



P C 3 7 e 

L + 1 

T IPETPET 



R0379 

L42 

CCGAFLAG 



P0 3SC 

L-»3 

C CGAeCRT 

RESTRICTION 1 HAS BEEN 

VlCLATEO. 

ftJ361 L*A 

6CN 

IF NEITHER FLAG IS SET 

AND RESTRICTION 2 HAS NOT BEEN ViOLATEDt THE SOLUTION IS 

P0383 



GOCDf SC CONTINUE 


Rti3SA 

L4 5 

INF INFLG 



RC365 

L*i 

I PPCSSbL 

NO scllticn Exists. 

— — _ - _ ^ 


P03e6 


!l 


PC387 tllpn 

H03fie ♦ SCALE FICTCB ♦ 

PO309 V4PMfcLE*U POWERS CF 2* DE$C^~ IPT ION Af.O RE>«ARKS 


R0390 ♦ « — — _ 

R0391 T ( 3CC I < <28 *DP TRANSFER TIRE IN CENTtSECONCS 

F0392 INMFfLC< ACNE ♦AN INIERPRETIVE SWITCH WHICH IS SET IF THE TRANSFER ANGLE REQUIRES CLOSURE THROUGH 

ROlSA • ♦INFINITY CNC SCLUT I CN » i CLE AR IF A PHYSICAL SCLUT iCN IS PGSSIFLE, 

R03S6 CCCAPiAG< ACNE ♦AN INTERPRET 1 VE SwI TCH WHICH IS SET IF PESTRfCTfCN 1 HAS BEEN VlCLATEO (WO SOLUTICNIf 

R0 39e J_ »CLEAR IF NOT. 


R0399 lA ACCniCh« IF VlARGTAG IS NCA-ZERCt ThE FCLLCWING APE OUTFIT - 

RQ4C0 NPAC - ♦ *7 FOR EARTH ♦OP TERMINAL VELCCITY VECTOR IN HETL F S /CF NT I S F C * 

HO<i01 RfAC i5^ <15 FCR ACCN ♦ 
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«< j4in? or - «E ♦ 429 FOR £APlt*-IlF TEPPltiAL fCSITICh V EC TCP IN PtTfflS (PL AT 60 
P.0AC3 * *ZJ FOR MOON ♦ 


6 


K04C^ FCF Clhifl CCTPLI khJCR MAt iiB Lf U5£ » SEE CEBRIS^ 
PC4C5 — . - -= ^ 


ii04C6 CEEPU - 



Rfl407 


SiRAMiTPR<; wUCh MAY EE CF LSE - 










R 


« 4CA1 F FACtriR ♦ 




RC4C9 

yiPIAELE41A PCPERS CF 2* 

DESCRIPTION AND REMARKS. _ 



>4 Li 4 1 n 




• 



Na4 1 1 

R 1 1 

33C1* 424 FOR 

E ARTPACP 

MAGNITUCE Cf IMIIAL POSITION VfcCTCR, PVEC, IN 

METERS 


PQ413 


A 427 FOR 

MCCN ♦ 




P0414 

R1 A 

• 46 

♦ OP 

RATIC CF Rl TC SEMIMAJOR AXIS (NEC. FCP HYPERBOLIC TRA J ECT CR I ES I 



P 

# 44 

♦ OF 

RATIC OF SEMILATUS RECTUM TO Rl 



RQ417 

CCC A 

♦ 45 

♦ OF 

CCIAK OF AKGLE BETWEEN RVEC AND VVEC 



P0419 

UP 1 

A 41 

♦ OP 

CMT VECTCP CF RYEC 



RQ420 

U2 

^ 4 1 

♦ OF 

DMT VECTCP CF VVtC 



K0421 

ON 

A 4l 

♦ DP 

LMl VECICP CF CfiML2 



P.0422 






B, 


JL0423 FAPAPtlERS CF NO LIE - — _ — „ 

Pj 3^24 5F PABAMETIRS - RTNTTi GECMSGNt BTnPPMi HAGVtC2»R2 (CPlt PL LS PLShLIST LOCATIONS Q-llDt 160-21D, 

kJ426 ACCiTlCNAL INTERPRETIVE ShlTCFES USEC - NCRMSWi 36QSW 

BC42 7 , -- . — 


240-390 


410 


liil AUG, 24.19^8 SATPAP PAQL 


CJU 



CP Afif PftCGBAM CQLn5;S.US gY NASA 2u21111-Cll 


CCUjC IkAMUUliES _ 


LSfcR'S P*GL NO. 11 


fcO Si 


P Wifi ^ PPC GR / ► £ £ SC P If 1 1 C ^ - T I J> t - p AC I Ci_J U fi P C C T I N 6 
Ra%3Q -PCC NC. -1 

R04il2 NCC e> KRiLSE 

PC^34 


DATE - 11 OtTCflER 1967 

LOG SECTION - CCNIC SOaROLTINES 
ASSERBIT ■ COLOSSUS REVTSICN 98 


R Q43S FLACllCKil, Q£SCRll.l ICN-j: 


Bn4:>fe ins SLflRCUTlNE. GIVEN Ah IMIIAL STATE VELTCR ANC A DESIPEQ RAPipj, TC h^ICH ^^£ 

^0436 &TATE IS TC EE UPCATED ALCN G A CCMC TRAJECTCPV, CALCULATES THE CQPP 6SPC N01NG T I ME- CF-PL I GHT AND, IN ADDITION, 

fu44l3_ PPC V 1 C ES TfE OP T ICN CF CCPPUTINQ THE NEV UPDATED STATE VECTOf. THE PESULTING TRAJECTCPV PAY BE A SECTION OF A 
RflAA? CIPCLE. ELLIPSE. FARifiCLA. CP HYPERBCLA NlTH RESPECT TO THE EARTH OR THE PCCK. ThE USE QF THE SUBROUTINE CAN BE 
R 0444 __ EXTENDED US ING OTHER PPIPAPY ecC IES BY SIHPLE ADDITIONS TC THE HLTABLE N ITHCLT INTRCOUCING ANY COOING CHANCES, 
PU446 ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN PCSITION AND VELCC ITV. 

kQ447 IF THF DFSIRFC RADIOS IS 6EYCND THE RADIUS OF APQCENTFF CF THE CCMC OR BELOP THE RADIUS CF PERICENTFR, 

ftQ449 A PSES>i HILL BE SET ANC THE S UBRCLTINE HILL R ETURN THF APOCENTEP OR PEPICE NTER SO LUTION , RESPECTIVEL Y. 
iLfi451 - = — 



Iiv452 

KQ453 

EG ffc55 ■■ 

fi j 4 56 

fLVJ4 5 8 

P045ei 

>>34563 

R04565 

RC45e? 


lEt BfiSlPlCTiON^ APE - 

1. THE ANGLE BET hECN ANY PC SITICN VECTOR AND ITS VELCCITV V ECTCR MUS T BE GREATER THAN 1 DECREE 47.5 MINUTES 

AhL LESS THAN 178 CEGPEES 12.5 MINUTES, ^ 

2. THE PARAMETERS IN THE PROB LEM RUST NOT EXCEED TH EIR S CALING LIMITS S PECIFIED IN THE GSCP. IF THE LIMITS 

APt E^XCEECEDf THE RESULTING SCLLTICN HILL BE J^EAMNGLESS. ^ 

3. AN ACCLRACT EEGRACATICN CCCURS AS THE SEN S VT I V I T 1 E S CF TINE AND UPDATEC STATE VECTCR TC CHANGES IN 

RCESIREL INCREASE. T HIS HILL CCCUP NEAR EITHER APSIS OF THE CCNIC ANC mHEN THE CONIC IS NEARLY CIRCULAR. IN 
PAP T ICLLAR 1 IF THE CCMC IS AN EXACT C IRCLE , THE PRC6LEM IS LNDEFINED AND THE SUBPCtT INE wILL ABORT, 


R0459 THE AJ5C C CHPLT ATIC N T IME IS A PPRC X IMAT E L Y .363 SE CONDS 

PJ146Q ] 


HU461 

REFERENCES - 






Ra 462 

R -4 79 

* PISSICN PPOGRAMHING DEFINITION 

MEMO NO. 10, LUNAR LANDING HISSICN CSCP-SECTION 

5.5 , 

SGA memo 67-8. 


R0464 
























I* U465 

INFiT - ERASABLE IMIIALIIATICN PECUIFEC 













R 66 

ft 

SCALE FACTCP • 






K(u 46 7 

ft 0 fl 

VAP|AELE*IN PCmERS CF 2* 

— - - - ^ ^ 

DESCRIPTION AND REMARKS 

-- 


- 

P04fe9 

RVEC * 

429 FOR £APTH*DP 

INITIAL PCSlfiCN 

VECTCR IN METERS 




K Vi^ 4 7li 

# 

427 FOR NCCN ♦ 






R04n 

VVEC * 

47 FCR EARTH ♦DP 

INITIAL VELCCITY 

VECTOR IN METEFS/CtNTlSECCNO 




B 0472 


45 FCR NCCN ♦ 



T IME 



_ R0473 

BCE5 IPELA 

429 FOR EARTH*CP 

TERMINAL RACIAL 

DISTANCE ON CONIC TFAJECICPY FCR HHICH TPANSFER 

IS TO BE 



_ RG475 

4 

427 FOP MCCN ♦CCPPUIEC. 






P0476 SCNFCCT A hCNE *SP TAG SET TO -t.S OR -.5 ACCORDING TC WHETHER THE R AC I AL VE LCC ITY AT RCESIREO IS TC Cl 

K0478 ♦ ♦PCSITIVE OP NEGATIVE, RESPECTIVELY. THIS TAG REDUCES THE OruBLE-VALUEC PROBLEM TO A 
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Lh A£t PRflfifiAW CCLC^SUj. riY NASA 2i) 211 \ 1- C H 
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SATRAP .004 

PAGE 
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L 

CCMC SLERCUTIhES 


USER'S PAGE 

NG. 12 

EO S3 











♦SIKGLL-V/LUEC PPGBLEW. 





KQABl 

XI C3«C1*NCME 

-♦1^C£X PEG I ST EE TC Bi: SET TO “2D CS -UC 

ACCCROING TC PHEThER THE 

EARTH CR HGON 

f 


fcn4fl3 

♦ 

♦RESPECTIVELY. IS THE CENTRAL BODY. 





RD4B4 

Rklk ♦ JkChE 

♦A^ IhtEPPMlLVE Switch 7C be SET If CNLY 

T IPE IS TC BE AN CLTPUT 

f CLEAR IF THE 

NEk 

STATE 

R(i4B6 


•IS TC BE CCNPITEO ALSC. 





RQ^ai 










kX14il£ &LE£CLHA£i CALl-££ - 

HO^eS MM>i G6LH, CITX, CUTI^E, NEnSI^TE 

PQ<rSC 


RQ-i91 C^LLihCi StCLENCt _A^ C hCBPJlL £117 RCCES - 


Rfl492 

Jf JLAIY liPjE 

LS iEilRil AS OUTPUT - 





KG49a 

1 , 

SET 

CALL HOST R£ IN INTERPRETIVE MODE 

AND OVPIKC MUST BE CLEAR 




RL49^ 

_L±a 


RVSli 





RU49A 

Lfl 


TIHERAC PETuPh »»ITH PL AT 0 AND T IN 

MPAC 




PG497 

L-»2 _ 

- — i I.*. 

CCNT INUE 





RC49fi 
















RC499 

IP 

TIlE LPCATE state VECTCR JS DESIPEC AS WELL - 





KC5QQ 

__L 

CLEAR 

CALL MUST BE IN INTERPRETIVE MODE 

AND OVFINC MUST BE CLEAR 




RCii02 

L-*l 


R\SW 





RQt)03 

L*2 


TIPERAD RETURNS WITH PL AT 6. THE INITIAL PQSITICN VECTOR IS IN 

00 

CP 

THE PUSHLIST AND 

RQSG5 



the INITIAL VELOCITY VECTOR 

IN MPAC. 




FGliUfe 

L*3 

S ICVL 

NEWVVEC 





PQ^UT 

L*A 

SI ACR 






PC5ca 

L4! 

S1GPE 

NEWRVEC NEnVVEC AND NEWRVEC 

ARE SYMBCLIC PEPPESENTATICNS 

CP 

THE 

USERS LOCAl ICNS. ^ 

PwGlO 

Lie 


CCNT INUE 






P05il ^ 


PQ512 
Rasi3 

AECPl 

tAlT MOC£S 

- 






m 

L 

CALL 

iilii 






f<0514 

CM 


T INERAC 






1 

R0515 

1 + 2 


CCGAPLAG 






0 

PC5i6 

--L43 


CCGABLRT 

PESTP ICT ICN 

1 HAS BEEN VICLATEC. 





kQbil 

L^4 

SCN 

9CN 







RC520 

L4; 


INF INFLG 






0 

R0^2l 



INPCSSHL 

NC SGLUTICN 

EXISTS. 





R0S21 1 

LO 


SCLNSW 







RUS212 

L-tl 


IMPCSSeL 

SCLUTICN IS 

UNOEFINEC SINCE CCMC IS 

A 

CIRCLE. 

RESTRICTION 3 HAS BEEN VICLATEC. 

' 0 

R 052 14 

_kl^ 

• mm 


IF ALL THREE 

OF THE FLAGS ARE CLEAR, 

A 

SOLUT ICN 

EXISTS, SG CONTINUE. 

w 

RC522 






























R0i2:i 

OL7PL7 

- 








R0524 


♦ SCALE 

PACTCR ♦ 






— p 









































— 



- - - 

-- — ‘ ^ 




. 

R 





' \r*^ 


I 


I pf:vT«;|nfc ?n n» at.c P ftcnn A M cflicsi u s B Y NA 5 A 2I i 2111I -L2 i 

ir~ CCMC SLflRCUTiNES ^ — 

_AU525 V/P lAELtMf PChtPS CP 2* OESCP IPTICN _APP PIP.AP.Kj — ___ 

AQ 526 » ♦ ^ ~ rrr -! . 

Rns27 T I 1QC 1 ♦ 42 fi *QP TRJNSFEP T IPE IN C£NT1S£CQM>^ — ^ ^ 

ROS26 Ih f IRP LC < NCN E *Ah INTERPRETIV E SWITCH WHICH IS SET IF PCESIRED AND SG^RpCT REQtIRE CLCSURP TH OUGH 

* »lhFrNnY JilC iCLUTlCNii CLEAF IF A FFYSlCflU SClUT IC N IS PO SSIBLE^ __ ___ 

rrf^PiAf. * hTNF ♦AA tMERFRFTlVE ShITCP wUCH IS S_£l ]F PSSTPKTtQN — I HAS BEEN VlQLAT^ — INC SOLIT ICM i 


P 0534 


# 



♦CLEAR IF NOT. 





KU 535 

APSEiV 

♦ 

NONE 


• AN IMEPPRETIVE SNITCP MUCH IS 

SET IP RDESIREC WAS GREATER 

THAN RADIUS 

OP APCCENTER CR 

R 0 5 ^ 7 





♦ LESS THAN RADIUS OF PER ICENT ER. 

THE APCCENTER OR 

PEP ICENTER 

SOLUTION. RE SPCCTI VPL Y, 

RQ 5 39 


4 p 



•will then EE PETURNEC. THE SwITCH IS CLEAR IF PCESIREC WAS 

BETWEEN PER ICENTER AND 

R 054 1 


# 



♦apccenter. 





R 0 i 4 1 1 

SCLNSh 

4 

NONE 


♦AN INTERPRETIVE SWITCH WHICH IS 

SET IF THE CONIC 

IS SC CLOSE 

TO A CIRCLE 

THAT the TERMIN 

R y 5 ^ 1 3 





♦PCINT IS AMBIGUOUS. VIOLATING RESTPICTICN 3 . IF 

ECCENTRICITY IS GREATER 

THAN Z-fC-THE- _ 

py 5 4 1 5 





• MlNUS'* 18 t the switch IS CLEAR. 





fiC 542 










— I — U-.de — 










R 0543 

IN ACCIIICN. IF VTAPCTAG IS NCN-ZERC. TFE FCULCWING APE 

OUTPUT - 














RQ 545 

kQ 546 

MPAC - 

4 

47 F£R 

EAPTP 

♦CP TERMINAL VfLCClTY VECTOR IN 

METERS/CENTISEC. 



_ 

MFAC 

flC - 5 

^ 5 * 

45 FCR 

MCON 

4 





r ♦ 

42 <i FDR EAR 7 H 4 CF TERMINAL PCS H ICN VECTO_R IN 

METERS (PL AT 6 C) 




kU 547 


4 

427 FOR 

MCON 

4 



•- — — 

- _ — — - — - — ^ 
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na!iAe PCP C1PEP CUTPUT tiPICP NAV BE CP USfit SEE peERlS. 
FUS^9 


PU55D CfEPli^ 


KQ5S1 PARAMETERS WUCH NAY Cb CP USi - 


R0 552 ♦ 'G ALE PACTOR ♦ . 

RQ553 VAPlAELE'tlP POWERS CF 2* OESCMPtlCN AIsP REMARKS 

pgssA ♦ — » — — 

RQ555 R1 n2tl* ^2S FOR EARTH^DF MAGNITUCE CF INItlAL PCSITICN VECKP# RvECi IN NEIERS 

RQ557 A ->2? FOR MCCM ♦ ~ 

RC55fl RIA ■* •CP PAT 1C OF fll TC SENIMAJCP AXIS (NFG^ FOR FYPERBOLIC T RA JECTCR I E S ) 

F056J P • 44 •OF RAHC OF SEM ILATUS PECtUH TC Rl 

RaS61 CCCA 0 <5 *DF CCTAN OF AhClE EETWEEN RVEC AND VVEC 

RQ563 UPl • -Jl ♦OP UNIT VECTCR CF RVEC 

RU56A U2 • ♦OP UNIT VECTCP CF VVEC 

P0565 UN * 41 *CF UNIT V EC TCP CP UR 1*02 

H0566 CSTP • ■♦I ♦OP CCSINfe OF TRUE ANCMAUV OlFFERENC F, BETWEEN RVEC AND ROESIPED. 

P056e SNTm ♦ 4l ♦DP SINE OF TRUE ANOMAUY DIFFERENCE. 

ROSfc'i " 


RC57C FAPAMtTERS C F NC USfe - 

FQ57i SP PARAMtTERS - RTNTT > CEQMSGNr RTNPPM» MACVEC2aR2 (6P>r PLUS PUSFILlST UOCATIONS Q-lIOf L4C-21Dt 240-3VDf 410 
PQ573 ACC niCNAU INTERP PETIVE SmIICPES USED - NORMSw# 360SW 


U 5 7^ 
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P0575 ffCGEifc CESCPlPTUh - APSICES SLb«CuT Iht 

R0377 RCC NC^ --C 

SLQixlB ilC£ B7 KRAUSE 

P QSfll 


DATE - 1 SEPTE^egB 1967 

LOG SECTION - CONIC SUBPOUTINES 

ASSEPELY - CCLCSSUS REVISION 88 


Kii5&2 

FLNCTIfMl HESCRIFTICN - 



ANO 









THE 


1H1< SUBRCUllNt, GIVEN AN INITIAL STATE VECTOR CALCULATES 

THE RADIUS OF PERI C £N T t P 


APCCENTER AND 

illi5e5 

ECXEMlfJCllT.Cf TKl ££5ULTIN& CCNIC TPAJ£CTC«Y, WHICH MA_Y BE A 

STRAIGHT LINE. 






P05fi7 

CIRCLE. ELLIPSE. PAPABCLA. CR HYPEPBCLA WITH RESPECT TC THE EARTH OB THE HCCN. 

THE use 

OF 

THE 

SUBROUTINE CAN 

BE 

PQ5fi9 

ElTiNCED LSING OTHER PRIMARY BCCIES BY SIMPLE ADDITIONS TO THE 

MUTABLE WITHOUT 

INTRCOUCING 

ANY 

CuOlNC CHANGES 

J 


RtSll JLCtlElJfeG 1W£ INH£R£M1 scale EACTC„P CHANCES IN POSITION AND VEI C CITV. 
P0592 


R0g96 _ 1. IE APCCENTE R IS EEVCNC THE SCALING CE POSITION, THE SCALE FACTOR LIMIT (536,870.910 PEfERS WITH RESPECT 

Rfl596 IIL_1HE EARTH QP 136,217, 727.5 METERS tilTH RESPiCT TO THE N130M WILL EE RETURNED. 

RC59e 2. THE PAPANETEHS JN T HE PPOBLEN POST NOT EXCEED THEIR S CALING UNITS SPECI FIEC IN THE GSCP. IF THE LIMITS 

r^O^OO APE EXCEICIO* THE RESOLTING SCLLTICN WILL BE WEAMNOLESS,* 


JiIU>£U IKE ACC CCH PLTATICN 11N| IS APPR O IM AT E LY .103 SECONDS. 

P0oC2 _ ■ 


-££603 

REfEflENCEA - 


__ -ROACA 

__ NISSICN PPaGBAPMINC CEFIMTION MEMC NO. IQ. LUNAR LANO INC MISSION GSCP-SICTICN 5.5 


R0606 







m£6L2 

I NIL! - EPlSAfiLE INITIALIIATUN RECLIFEC 





-- RGNLfi 

♦ SCALE FACICR ♦ 


PQ3CS 

V^P1AELE*IN POWERS CF 2* DESCPIPTICN AND REMARKS 


-RILtlc 



RQ611 

RVEC ♦ 429 FOR EARTH^DP INITIAL PCSITICN VECTOR IN METERS 


P06I2 

* 427 FOR MCON * 


AD 61 3 

VVCC • FOR EARTH «0P INITIAL VELCCITY VECTOR IN MET ER S /CENT I SECOND 


B-D616 

♦ 45 FCR NCCN * 


P06i5 

XI (38CJ*NCNE *INCEX REGISTER TC BE SET TU -2D OR -LCD ACCCROING TC WHETHER THE EARTH OR MOON, 


RC617 

< *RESPECr iVELt 1 IS THE CENTRAL hCOY. 


Pvj6l8 









PC619 

SLEFCLIINES CALLEC - 


R062C 

FARAM, CECM 


PC621 







R062 2 

calling SECUENCg ANC NCRHAL EXIT MCCES - 

- - ---- - - - 


) ; i7 ALG. SATPAP P 


rjiip* BP^fCinK 2 -»i nr- ka c PRrcR A M f . ntC SS US RY N ASA 2Q 2 1U 1 -C3 1 


X 


±at22 

PUbl^. 

.Ajlh2JL 


HQi)2.e 

RD62S 

RQfe3C 


BQbXZ 

ROcsa 


C Lhl c SLBPCU TlhES 


XSER_*S PAGE NC. 15 


cO S3 


LF CBlLY I lMi IS.XJLSJRti: /LS CA.IP I.T - ^ 

f II 1 M UST et IN INTtPPPETIVLMCjDe AND QVF INC MUST BE CLEAR. 


L l l 


A£ 


HULRhS hllh PL AT 0. FADIUL CP APOCEMER IN HPAC AND RADIUS OF PERICENTEP IN 0,0 


±a2 


ilQLL AF(liPiE 

I 




L ♦ A 


STUPE HEPIAPSX 


£pnAPSE ANU PbRIAPSE ARE SYMBCLIC R E P R E SE NT A T 1 OK S OF THE USERS LOCATIONS 


L±i 


JLJUt 


CON T I MJl 


Aflii34 IlLtPLl - 
P<JC35 


RUb 3b 

KQA32 

PObBB 


♦ SCALE EACTCP ♦ 


VARIAELEAIF FOhERS CF 2 * 



DESCRIPT ICN AND REMARKS 


MPAC 


* ■♦29 FOR EAHTH*CP RACllS CF APCCfcNTER IN METERS 


Rofc3S 


♦ 427 FOR PCOK * 


POtAQ 

«<06^1 


GC-ID < FO P EARTh *DP PACIUS CF FERILE^TEP !h METERS 


♦ 427 FOR MCCM * 


_8gt^2 ECC 


♦ 43 


*CP ECCfc^TRIC^Y CF COMC TRAJECTORY^ 


RQA<t3 PCF CTKEB CUTPUT hUCF MAY BE CF USii SEE DEBRIIj 
P0fe4t<^ 


R0645 

CEERli - 


— _ ^Lr W 


_ . _ - - 

pafa<t6 

PARAMETERS WUCH MAY BE CF USE - 


R06^7 

A SCALE FACTCR ♦ 

■ 

RObAE 

VARIAtLEAlF FChEBS CF 2* 

DESCPIPTICjN and remarks 

K064|S 




RC65C 

Rl (22LM 429 FOR EARTH^liF 

MACNITUCE CF INITIAL PCSITICN VECTCFt RVEC» IN METERS 

P3652 

• 427 FOR MCCN ♦ 


•<0653 

RIA • 46 *CF 

RATIC CF R1 TO SEMIMAJOR AXIS (NEC. FOR HYPERflCLiC TftA JECTCR lES 1 

RU6t>S 

P •44 • D F 

RATIC OF SEMILATUS RECTUM TO R 1 , 

R0656 

CCCA • 45 *0? 

CCTAN OF ANCLE 8ETMEEN RVEC AND VVEC 

^ 0o5 G 

UPl ♦ 4l *0F 

UNIT VECTCP CF RVEC 

RQ65S 

U2 • 4l ♦OF 

UNIT VECTCP CF VVFC • _ - 

R066C 
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RtF 

7 

LIST 1314 

11.3541 

Cl 103 

1 


CCLREG 




06 35 




11.3542 

77717 

c 

DEC 

-48 




G6 j6 




11.3543 

77650 

1 

GOTO 





06 i 7 

REF 

4 

LIST 1314 

11. 3544 

23465 

1 


NFXTCCL 





0636 





11.3545 

77745 

1 

RELCACSV 

OLOAC 


RELGAC TEMPORARY STATE VECTOR 

0639 

HEF 

9 

LAST 

129 5 

11.3546 

01101 

0 



TCEC 

FROM PERMANENT IN CASE OF 

C640 

REF 

55 

LAST 

1294 

11,3547 

1404 1, 

(, 


STCALL 

TOEC 1 


0641 

REF 

1 



11,3550 

27120 

1 



INTEGRV2 

HY starting at INTEGRV2. 

0642 





11,3551 

43345 

1 

CIFEQCOH 

OLOAG 

DAD 

INCREMENT H AND DIFEQCNT. 

0 64 3 

REF 

1 1 

LAST 

1306 

11.3552 

02314 

0 



OT/2 


0644 

REF 

6 

LAST 

1312 

11,3553 

022 12 

1 



H 


0645 





11,3554 

661 10 

1 


INCR, 1 

SXA, I 


C646 





11.3555 

77763 

c 


DEC 

-12 


C647 

REF 

25 

LAST 

1309 

11.3556 

C150Q 

c 



OIFEGCNT 

DIFEOCNT SET FOP NEXT ENTRY. 

064fc 

REF 

7 

LAST 

1314 

11.3557 

02212 

1 


STORf 

H 


0649 





11.3560 

74561 

c 


vxsc 

VSRl 


0650 

REF 

IG 

LAST 

1312 

11.3561 

C22C2 

C 



FV 


0651 





11.3562 

74255 

c 


VAO 

VXSC 


Q652 

REF 

8 

LAST 

1313 

11.3563 

01120 

0 



2V 


0653 

RLf 

8 

LAST 

1314 

11.3564 

C2212 

1 



H 


0654 





11,3565 

17655 

1 


VAO 



0655 

REF 

u 

LAST 

1313 

11.3566 

01112 

1 



YV 


0656 

REF 

45 

LAST 

1309 

11.3567 

C2152" 

c 


STORF 

ALPHAV 


0657 





11,3570 

52014 

c 


eoN 

GOTO 


0658 

REf 

5 

LAST 

1314 

11.3571 

CC301 

c 



JSWI ICH 


0659 

REF 

2 

LAST 

130S 

11,3572 

2361C 

1 



DOW. . 


C660 

REF 

1 



1 1,357 J 

224 1C 

1 



FBR3 















C66 1 





11,3574 

43014 

C 

WHATENO CLEAR 

CLEAR 


- - - - - - 

0662 

REF 

4 0 

LAST 

1313 

11,3575 

Ci676 

1 


DIPCFLAG 

CCNT integrate K THIS TIME 

6663 

REF 

13 

LAST 

1297 

11, 3576 

cie7i 

C 


CRewFLAG 

INVALICATE k 


06631 





11,3577 

77614 

1 

CLEAR 




06632 

REF 

12 

LAST 

1297 

11,3600 

02676 

I 


F ENCWFLC 



Go64 





11. 3601 

7 7414 

c 

SET 

EXI T 



0 665 

REF 

7 

LAST 

1268 

11,3602 

01‘*72 

1 


STAT EFLC 

PICK LP STATE VECTOR UPOATE 


0666 

REF 

34 

LAST 

1296 

11*3603 

0 5 51/ 

0 

TC 

alarm 



0667 





11,360^ 

0C42 1 

c 

OCT 

421 



G668 

REF 

241 
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1313 

11,3605 

C 6006 

1 

TC 

INTPRET 
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p fiiS 7 1 

rcBiT/i aniTiMf fra 

FXTk APOLAT ICN OF ThE R MATRIX. IT COMPUTES THE 

SECOND OCR IVAT IVE CF 

EACH COLUMN POSITION 


VEtirfi Gf IHE J^TPIX AMO CALLS 

the NYSTRQM INIEGRAT icn 

PUOTlNtS TO 

SOLVETHE 

C IFFER6M I4L 
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i PROGRAM 
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lit 361C 

7C754 C COR.. LXA,2 

OLOAC* 





C67IS 

Rif 

1 7 

LAST 1311 


02150 1 

Pt C C V 





.1p.m J — 

OflQ 

R ^ F 

M — 1 

1 

liST 1304 

1 1 . 36 12 

50044 1 

MUEAPTH,2 





06 fiU 

R£f 


last 1303 

i lt_36^1S 

36?10 1 STCALL 

eCTAR 





JU Vf U w 

C6iil 

R£f 

_ a - 

1 


lit 36 14 

23636 C 

D Q )Rf « « 1 




- 

G6B2 

RF F 

1 1 

LAST 1314 

11.3615 

C2202 C STORE 

FV 





06ti3 




11*3616 

62014 C 80F 

I NC R , 1 





M “ ^ ^ — - 

CbBA 

REF 

c 

LAST 1306 

11.3617 

0C342 1 

M I DF LAC 





— ^ ^ T — 

Q6 £5 

1 Ji * : 

REF 

- ~ — 

3 

LAST 1305 

11. 3620 

23135 1 
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11.3621 

77771 C DEC 

-6 





— ^ ^ W V 

0687 
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0688 

REF 
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1 AST 13ie 

11.3623 
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pec 0 Y 





0669 

P EF 

6 

LASl 1316 

Ut 3624 
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MUEAFTH -2 

*2 




Q69C 

REF 

a 

LAST IS 1 6 

1 If 3625 

36210 1 STCALL 

BETAH 





069 1 

REF 

2 

LAST 1316 

11.3626 

23636 C 

OOVi • • 1 





C692 




11. 3627 

50414 C dON 

VSRt 





- f_Z__xLJBte= 

C693 

RfcF 


LAST 131C 

lLt3630 

C03C3 1 

MOO^FlAC 





0694 




11.3631 

23632 1 

+ 1 





0695 




Ilf 3632 

17655 1 VAC 






0696 

REF 

12 

LAST 131 t 

lit 3633 

C22G2 C 

FV 





06 97 

REF 

13 

LAST 1316 

11.3634 

36202 1 STCALl 
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0696 

REF 

3 

LAST 1316 

11*3635 
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0699 




11. 3636 

60575 C COR..1 VLOAO 
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REF 


LAST 1314 

11.3637 
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UNI T 





0702 

REF 

9 

LAST 1302 

11*3641 

C2217 1 
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11*3642 

46315 1 POVL 

VPRO J 
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REF 

47 

LAST 1316 

11*3643 

02152 C 

ALPHAV 





Q7Q5 




11*3644 

52361 1 VXSC 

VSU 





C7C6 

REF 

£ 

LAST 1306 

11.3645 

23707 C 

3/4 





^ C707 




11.3646 

6C325 C POOL 

NCRM 





0706 




11* 3647 

00045 C 
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C7G9 

REF 
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LAST 131- 

11.3650 
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S2 
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11.3651 
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DSL 
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11.3652 
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REF 
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BET AF 
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0716 




11,3657 

77761 1 VXSC 
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REF 

36 

LAST 1316 

11.3661 
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S2 
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REF 

39 

LAST 1316 

11,3662 
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S2 
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11,3663 
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XAD, 2 





0721 

REF 

4C 
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11,3664 
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S2 





0722 
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C0042 1 
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43457 C VSL* 
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2 oec .3 e-2 - 
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11.3675 

31463 

1 
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11. 36 76 

C1400 

1 3/64 

20 ec 3 b-6 

L7iC 


11.3677 

CGUOO 

1 


0731 


11 .3700 

loooo 

0 UPl/4 

2DeC .25 
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0711 


11.3701 

COOOO 

1 


■»7 37 

RP F 

7 Li^T 1269 11.3700 


C0U6RTER 

EQUALS OPl/4 . _ 

0 7^3 

R£1 

1 L<ST 1317 1X^3 7 CJ2 


PCSl/4 

E^qUALS OPl/4 

0 72^ 


11.3702 

C30.C0 

1 3/32 

20EC 3 B-5 _ 

n7 7 A 


1 1 .3103 

COOOO 

1 


G7 3!) 


11. 370A 

360C0 

1 15/16 

20EC 15. e -4 

M A - ■ -. . 

0735 


11.3705 

COOOO 1 

. 

Cil%h 


1 1 .3106 

aouoo 

1 3/4 

2DEC 3.C 6-2 

0 736 


III 3707 

00050 

1 


W i ^Jii 

0737 


U.3710 

22525 

C 7/12 

2DEC .5833323333 

0737 


11.3711 

12525 

C 


0738 


11.3712 

220C0 

1 S/16 

20EC 9 B -4 

0738 


11.3713 

_£C0C0 

i 

. - - - 

□ 73^ 


11.3714 

C1200 

1 5/128 

20EC 5 t-7 . „ 

0739 


11.3715 

CCOQO 1 


C7AC 

R£E 

13 L^ST 1311 C4.3452 


IPZ ERC 

EQUALS ZERCVEC 

QTAl 


11.3716 

25252 

C DP2/3 

2UEC .6666666667 

07^1 


11.3717 

25253 

1 


07^2 

REE 

3 L/Sl 1312 11,3116 


2/3 

EQUALS OP2/3 . 

a 7<i55 


11.3720 

0002 7 

1 OCT 2 7 

DOT 27 

RC7A6 

I.P5 

C4 IS 1ENPCRAR1 




C7Ae2 


13.3712 



BANK 13 . . - - 

(]7ACi3 

KEF 

1 13.2C00 



SETLCC ope 1 TAL2 

C 7a 6 A 


13,3712 



BANK - - -- 

R07^7 

n 

IS VlliL lh4T 7HE FCLlCEilKC 

CCNST6MS NOT eE 

SHUFFLED . - 

ul^t 


13.3712 

77764 

1 

DEC -ll 

07A9 


13.3713 

777 75 

1 

DEC -2 - 

U75C 


13, 371A 

77766 

C 

OEC -9 .. , 

0751 


13.3715 

77 771 

c 

DEC -6 

0752 


13,3716 

77775 

1 

OEC “2 . 

0 75 3 


13,3117 

77775 

1 

OEC -2 

Q75A 


13.3720 

COOOO 

1 

OEC 0 

0755 


13,3721 

77763 

c 

OEC -12 

0756 


13,3122 

77766 

c 

OEC -9 . _ _ . _ 

6757 


13, 3723 

77773 

1 

DEC -4 

0758 


13,3724 

77770 

1 ASC6LE 

C6C “7 

0759 


13,3725 

77771 

0 

DEC -6 _ 
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UliO 


13, 3726 

27446 

1 


20 EC* 

1.32115445 E16 0-54* S 





13«3727 

146.20 

C 






fl7Al 


la.jiJiL 

16471 

1 


20 EC* 

4.9027780 £8 6-30* R 



L’761 


13ii731 

C1352 

1 






07fc2 


13 1 3131 

224 21 

1 

ARTH 

2 oec* 

3.986032 ElO 0-36* 



alhP 


13.3733 

16067 

1 






X1163 


13x3134 

XQOOO 

1 


2DEC 

0 



Jj?t3 


I3f3735 

CQdCC 

1 






U 764 


13.3736 

C23C2 

1 

J4RfeQ/J3 20eC^ 

.4991607391 P7 b-26* 



C764 


13,3737 

24 736 

c 






Qlt5 


13, 3140 

COOOO 

1 


20EC 

C 



i]765 


13,3141 

COOOC 

] 






0 766 


13. 3142 

77776 

1 

2J3RE/J2 

20EC* 

-.1355426363 E5 B-274 



0766 


13x3142 

53032 

C 






C7<'.7 


13.3144 

10407 

c 


20EC* 

.3067493316 E18 E-6CA 



0767 


13,3145 

C5344 

1 






0766 


13. 3146 

13710 

c 

J2KE0S0 

20EC* 

1.7550U39 E21 0-12* 



0760 


13,3_14 7 _ 

35320 C 






0769 


13 3 T C 

12160 

c 

3J22R2HL, 

20EC* 

9,20*19048 El* e-5e* 



0769 


12.3751 

12124 

c 






07 70 


13.3752 

24000 

1 

5/0 

2bEC 

5 e-2 



t770 


13.3153 

COOOO 

1 






0771 


13.3154 

1^0 2 1 

c 

-1/12 

_20cC 

-.1 



0771 


13.3155 

63145 

1 






0772 

REF 9 L^Sl 13lt 

13,3130 



HOH 

m 

HUEAPTP -2 



0773 


13.3156 

C0243 

1 

RECPITIC 

2Dec 

. 01 



0773 


13,3157 

32703 

1 






0774 


13,3160 

C3654 

c 

RSPHERP 

2DEC 

64373.76 E3 B-29 



0 774 


13,3761 

21000 

1 






0775 


12.3762 

C3654 

c 

HCM 

2 DEC 

16093.44 E3 B-27 



0775 


13.3163 

210C0 

1 






0776 


13,3164 

C4627 

c 

RCE 

20EC 

SC467.20 E3 B-29 



0776 


13.3765 

25200 

1 






0777 


0000 



RATT 

EQUALS 

00 



0778 


0006 



VATT 

EQUALS 

60 



0779 


0C14 



TAT 

EQUALS 

12D 



u7fiO 


0016 



RAT 1 1 

EQUALS 

14U 



0781 


0024 



VATTl 

EQUALS 

20t 



0 782 


0032 



RttP» 

EQUALS 

260 



0783 


0040 



Tceci 

EQUALS 

32L 



0 784 


0016 



OFPV 

Equals 

140 



0785 

REF t LIST 1301 

0022 



COSPHI/2 

EQUALS 

URPV +4 



0 786 


0024 



02 

EQUALS 

200 



0787 


0032 



TVEC 

EQUALS 

260 
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flDCI 
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BANK 22 



0QC2 

1- 

23t2C0D „ 

SETLQC INPL IGHT 



nnf:^ 


2 3« 3 1 

BANK 




floc A_ . 

Rii 2A LAST 76 S £5.16 71 . 

£ BANKS XSM 





JRD0Q5 

CJtLCGlA COPUIES 

THE GYRO TCRCUE 

ANGLES REGU_IPEC 10 BPINi> THE_5TA8LE HERDER INTO THE DESIRED ORIENTATION. 








HOQUl 

Til IRPUT IS Tht 

USIRJ-D STAflLt _ 

MEPfiER CCCROINATES REFERRED TO PRESENT STABLE MEMBER COORDINATES. 
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RQQQ9 

HALE-lMl VECILKS 

ARE STCPED AT 

XDC. \CC. AND ZOO. 
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ilOlJ 


1 






COUNT 

23/INPLT 

















noiA 





23.3 lAC 

71220 

1 

CALCGTA ITA 

OLD AC 

PUSHCCitN 

OC-03 

.160-270. 3A0-37D 

QQ15 

Rif 

A1 

LAST 

1316 

23^^141 _ 

00051 

C 


S2 

XDC • IXCI 

X02 

XD3) 

0016 

REP 

.5 

LA SI 

72J 

23iJlA2^ 

C271A_ 

I 


XDC 

YCC » (YOl 

YC2 

YOl) 

0017 





7 3 * 3 1 4 3 

65325 

c 

PDDL 

POLL 

ZDC » CZCl 

Z02 

2D3) 

0018 

REF 

30 

LAST 

121 7 

23f 31AA 

15332 

1 


HI67EPCS 




QOISL 

Rif 

A 

LAST 

131S 

23.3H5 

C2720 

c 


XDC ♦A 










2 3 1 3 1 46 

55A76 

1 

CLOMP 

VCEF 




0021 





23,31A7 

77656 

1 

UNIT 





0022 

Rtf 

1 



23r3l50 

1A027 

1 

STODL 

ZPRI RE 

2P = UNIT! 

-X03 

0 XOl ) - i ZPl ZP2 ZP3 ) 

0Q23 

REf 

2_ 

LAST 

ills 

23.3151 

00027 

1 


ZPRIRE 





Q024 





,23jLiI52 

TT7A2 

G 

SRI 





ua23 

REP 

—10 

LAST 

1207 

^.3153 

1AQ23 C 

STGDL 

iNTH 

siNncc) - 

ZPl 


- 0026 

Ml 


LAST 

131S 

23.315N 

C0033 

1 


ZPPIPE +4 




0027 





23i3155 

T77A2 

C 

SRI 





j02fl 

REf 

S_ 

LAST 

1207 

23.3156 

3N021 

G 

STCALl 

COSTF 

CCS(IGC) » 

ZP3 


0C29 

REP 

5 

LAST 

U\\ 

1 (qI 

23.3157 

A72U 

c 


ARCTRIG 





0^30 

REf 
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23.316C 

16762 

G 

STOOL 
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REF 

7 

L/ST 

131 S 

23.3161 

02716 

C 


XDC *2 
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C 

SRI 
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REf 

11 

LAST 

1319 

23.3163 

1A023 

C 

STUDL 

SINTH 
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003A 

REF 

A 

LAST 

1319 

23.3UA 

00027 

1 


ZPRINt 
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23.3165 
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G 
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0Q36 

-PEP, 

e 

LAST 

1319 

23(3166 

C2720 

c 


XDC *9 
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CU37 

REP 

c 

>■ 

LAST 

1319 

23.3167 

C0033 

1 
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l 

DMP 
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RE F 
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LAST 

1319 
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02719 

1 


XDC 

MPmC « ( ZP3 ) (XCl ) 

OOAO 





23.3172 

77626 

f, 

ST ADR 



OOAl 

REP 

10 

LAST 

1319 

23,3173 

93786 
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6 
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^ AfliU3 CCiil P- JG— lAMi CiLlLlRlfil < WHICH CAN Eg CALLEC IN PASK) CtiHUjTE. THE 

- RQai4 SlMi,Jia:_CIlUJi£i_ERXUl Jh£ XUBSEfil COMEKTJS CF fH£ COU PL&ISTEP^, 

ftaOlS THE CCMEMS OP CCUTEHP. ETC-. ABE NOT TLliChEC SO THAT THEY HAt 

ACCJifc CCMIKL E T C FORM A CCNS 1ST6M SET WITH THE LATEST PIPA REAPINGS. 

— Eumu _.j:i:LTfiici is like cdutbig except that it can be called in easi^ 


- - PQg2£ 


CC*TP*C IS LIKE 

CD*TH*GS 

EXCEPT THAT 

IT CAN 

BE CALLED IN 




P0029 

_ IKTERPREIIVE. 





















0030 




23,3422 

J7776 1 

CCUTRIG 

EXIT 





00.31 

REF 

1 


22t3433 

C 3442 C 


TC 

CDUTP ICS 




ut!32 

_Bi_L 

243 

■LAST 1324 

23.3434 

C 60Ce 1 


TC_ _ 

INTPPET 




0033 




23.3435 

77616 C 


RVO 

















0034 




23.3436 

7/776 1 

CD*TR*.^ 

EXIT 





Q035 

RtF 

1 


23j 3437 

C 3450 C 


TC 

CD*T P*OS 




0036 

REF 

244 

LAST U2S 

23 f 

C 60C6 1 


TC 

I NTPPET 




0037 




23,3441 

71616 C 


RVQ 






OOBfi 

MEF 

26 

LAST 

103 1 

23, 3442 

3 0C32 

C 

COUTP IGS CA 

C DUX 

00 39 

REF 

t 

LAST 

533 

23,3443 

54 772 

1 

TS 

CDUSPCT *4 

0040 

REF 

16 

LAST 

10 3 1 

23,3444 

3 0033 

1 

CA 

CDUY 

0041 

REF 

7 

LAST 

1325 

23,34^5 

54 766 

1 

TS 

CDUSPCT 












Rfluie 

WQQ19 

RQ.J 20 

R 0021 

RQu22 


BaQ 23 

KQC 2A 

KQ025 


R 0 U 27 


CC*TR*CS PI NGS C OL VACME$ IR CQU S FLI. P A JHtH TH A_N I N CDL'TEHP 


THIS 


ALLClil LSERS TC HAKE T RA N SF CRP A T 1 CNS ISING APBITPARY ANGtESt OR REAL 
A hCLEE IK AJi Q RD E P C 7 H ER T H A N _ X V Z . A_ CALL T C THiS PtUTINE IS 


N ECESSAR Y IN PR£PABATICN FC R A C ALL TC AX*SR*T IN El THEP Of ITS TWO 
ilCIlES (SPNE CR NBSM], SINCE AX«SH»T EXPECTS TO FIND THL SINES AND 
CCS INES IN THE ORCER Y I X THE ANGLES HIST HAVE BEEN PLACED IK CDUSPCT 


IK THIS tPCEP. CCnR*GS KEEC NOT BE REPEAT EC WHEN AX*SP »T IS CALL EO 
HCRE THAN CNCE. PPCVICED THE ANCLES HAVE NOT CHANGED. NOTH THAT SINCE 


L7_i:LCEEEPS fiDF2 (IN_Til£_ SIKE AKC COSINE WOlTINCS) C D*TP»6S CANNCT BE 
CALLEC LSIHC BANKCALL. SCRPY. 
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L _ - PCJtEBliL fiaCKI SUMCkimtS 


USEk*S PAGt N0._ 2 eo 53 


0442 

0C4J 


SJJL.11 LiST 103 1 
R£f e_ L/ST 13 2 S 


23t 3A46 
22.3447 


0034 

54 714 


C 

L 


CA 

t1 


couz 

CPU S F C T 


♦ 2 


0044 

J1045 

-Q04A 


23.Jl 4^ 4 JJ0i3fe 1 C0*7P» GS EXTENP 


iL£i U 


_LiSI 

tA5;T 114^ 


23^451 22_a42 C 


23.344? 


0041 RXl 

Ct4fi 
0044 


37 

3 




LA SI m s 
LAST fel 
LAST 133C 


2i >343 3 

23ii454 

-23.3^55 


3 4710 C 
7 6211 1 

54 143 C 
5C 143 1 


J3XCH 

CAF 


Tf M 


££UL 


TR*CL**P I^ASK 

TS 


S IX 


FAKfc 17 EVEN ANC SMALLER 


TFM3 


INDEX TEM3 


0 050 REF 9 LAS7 i33X 23.3456 3 0766 C 


CA 


CDPSFCT 


0Q.51 

mL2 


REF e6C LAST 13C 7 23,3457 52 1 5 5 


MJL 


« -3 


3053 


REF 


1 


LAST 1145 23.3460 52 127 


1 

1 


CXCh F'PaC 


STORING 2*S CCMP ANGLE, LOADING MPAC 


oxcM veuF 44 


23.3461 0 4652 1 


STORING HPAC FOR LATER RESTOkATICN 


TC 


USP-7CADR 


0054 

iiJQ55 


REF 1C LAST 634 23.3462 4 5 5 1 C J. 


CADR COPLCGIC 


005 7 


Q056 

0034 

COOL 


RfcF 66 J 

k F F 4 

REF IC LAST 


LAST 133C 23,3464 


23.3463 C 00C6 1 


EXTEND 


RLE 2 

Mf i 

REF 662 


LAST 133C 23,3465 

23.3466 
23f3k67 


LAST U3C 
LAST. 10 6 5 


3 0155 C 
: 1 43 1 
52 767 C 
0 4652 ) 


OCA 


MFAC 


INDEX TEH3 


23^3470 01516 1 


CADR 


r DOSFCT 
USPRCADR 
CCS I NE 


STORING 1 *5 CCNPLEMENT ANGLE 


MPAC 


0062 

PEF 

6 

LAST 

133C 

23.3472 

50 143 

1 

INDEX 

TEN 3 




0063 

RfF 

4 

LAST 

71 

23.3473 

5 2 745 

C 

OXCH 

CCSCCL 

STORING 

CCS INE 


0U64 





23.3474 

C 0006 

J 

EXTEND 





0065 

REF 

7 

LAST 

133C 

23,3475 

5 0143 

1 

INuEX 

TEH3 




0066 

RFF 

11 

LASr 

133C 

23,3476 

3 0767 

1 

OCA 

COUSPCT 

LOADING 

I'S CCMPLEHENT ANCLE 

■ 

0067 

REF 

3 

-UST 

133C 

23.3477 

C 4652 

1 

TC 

USPRCACF 




C 06 8 

REF 

2 

LAST 

106 5 

23.3500 

C153C 

c 

CADR 

SINE 4l 

SINE 4l 

EXPECTS ARGUMENT IN A AND L 


0069 

REF 

54 

LAST 

133C 

23.3501 

52 127 

1 

OXCH 

VfibF 44 

8R INGING 

UP PPICR MPAC TO BE PESTOPED 


ao7c 

REF 

663 

LAST 

133C 

23.3502 

52 155 

1 

OXCH 

HPAC 



1 

0071 

REF 

e 

LAST 

133C 

23, 3503 

50 143 

1 

INDEX 

TEH 3 




_0 Q 7 2 

REF 

4 

LAST 

7 1 

23,3504 

52 73 7 

c 

CXCH 

SINCCL 




0073 

REF 

i_ 

LAST 

133 C 

23.3305 

_JC 143 

0 

CCS 

TfM3 




0074 

REF 

1 



23,3506 

1 3453 

1 

TCF 

TP *01 A 




0075 

REF 

5 

LAST 

i33C 

23,35C7 

0 0142 

c 

TC 

TEH2 





GAP I Z17 ilP AGC PkCSRAM CJLCSStiS bY NA^A 2C21111-L3j L:l? AUG. 2<nl968 SATHAP ,OGh PAGE 1331 

L FCWEH££ ftiOI SUailCUTlliLS l^SER'S PAQE ^C. 3 EO S3 


PQU7t 444 **** < <4 »* » •♦♦♦♦♦*J|4444i****4*#*44444444444*4*444***444*44444444 


ROOTa CLIfTftiny inifhrfr FP.H r.UtPAMrg CVfLE use wH£R£ time is critical, is A ^^UCH faster VEQSICN of CD4TR4GS- 

anoau .OJLICTRIC CCMPUTLS AKC SIMES ike SUSES ANQ CCSIhtS CF the 2*5 CC>‘PLEPE^T ANGIES AT CDtSPOTi CDUSPOT 42, 
RukB2 AAC CCLSFCl 4^* UM.1KE CC*TMGSf flLICTPIG CUES NQT LLAVfc TEE L' S CDFPLEPEM VGPSICNS CF THE ANGLES IN 

pgcfiA CCLSPCT. CL1CTKIG»S FXECUTICN TINE IS ^,1 NS; THIS IS lU TINES AS FAST AS CQ4TR4GS. QUICTRIG MAY PE 

KQ0a6 CALLEI FPCF IMERPREllVe AS AP FTfi CP'CCCEi CP PRCM BASIC VIA BANKCALL OR I0NKCALL. 


uaso 





23t3SlU 

- 0 QQC4 

_c_ 

COICTKIG 

INHINT 


INHINT 

SINCE CAF USES THE SAME 

TEMPS 

CC5C1 





_^351l 

G 0006 

1 


EXTF-NO 





wQ^Qi 

REF 

Ji 

CAST 

22 4 

__23i3il2 

22 06 1 

c 


QXCH 

H EH FI 




Qa9i 

RFf 

_L£_ 

LAST 

-133 C- 

23.3S13 

3 4710 

_c_ 


CAF 

F DLiK 




CG92 

fi£f 

2£ 

XA51 

UiC 

^21i35l^ 

7 6211 

1 


RASK 

SIX 




Q093 

REF 

1C 

LAST 

222 

23*3515 

54 062 

1 


TS 

I Tt HP2 




ansk.. 

££F 

11 

LAST 

1331 

^ C 1 A 

50 G62 

_L_ 


INDEX 

I TEF F2 




aQS5 

Rif 

IZ 

LAST 

lire . 

23*3517 

_i- flJ66 

C 


CA 

CCDSPCT 




0QS6 . 

_ Kif 

Js 

L Ail 

iQTJ 

.23 1 3 52.Q 

C -4 77(3„ 

C 


TC 

bPSI F 




C097 





-23.3521 

0 C0C6 

1 


EXTEND 





QC^e 

R£f 

12 

LAST 

12 G2 - 

23,3522 

7 4675 

c 


HP 

CIT14 

SCALE 

DOWN TC HATCH INTERPPETER 

OUTPUTS 

flOS9 

PEf 

12 

LAST 

13 3 1 

23*3523 

50 062 

c 


INDEX 

ITEHFP 




GIOL 

RFF 

^ 

LAST 

133C 

23,352S 

52 737 

c 


DXCH 

SINCCU 




0 1 0 1 

REF 

13 

LAST 

133 1 

23,3525 

5C 062 

c 


INDEX 

ITEHF? 




uls,2 

RLF 

12_ 

LAST 

1331 

23*3526 

3 0766 

c 


CA 

CDUSFCT 




ul03 

REF 

1_ 

LAST 

10^ 1 

23,3527 

C 4767 

c 


TC 

specs 




ulO<i 





23*3530 

C C0C6 

1 


EXTEND 





mo5 

REF 

l<i 

LAST 

L331 

23,3531 

7 4675 

c 


HP 

dIT14 




Q1Q6 

REF 

M 

-LAST 

1331 

23,3532 

5C 062 

Q 


INDEX 

1 TtP P2 




GIG 7 

RE F_ 

.3*. - 

LAST 

-133C 

.23, .35 3 3 

52 745 

c 


UXCH 

ClSCCL 




cica 

REF 

15 

LAST 

1331 

23,353^ 

1C 062 

1 


CCS 

ITEHP2 




QIC 9 

--BEF 

2__ 

LAST 

6SE 

23.3535 

1 3514 

6 


TCF 

■JDICTf IG 44 





P£F 

12 

LAST 

13 3 1 

23,3536 

3 006 L 

c 


CA 

I T L 4 f 1 




QUO 





23,3537 

C 0003 

1 


RbL INT 





wliCl 

REF 

231 

LAST 

i29C 

23,3540 

- 0 COCO 



TC 

A 
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fLlGhT 


l^se«*s PAGt NC, 


^0 S3 



ROlll 


KOllJ ll»_£5£ If^TEPF ACb RCUTINES >>AKt IT fCSSId lE TO CALL AX»Sk*1 . ELC., Ih 

^ilQXi4 lAJ ££f R£U V£> j. AT£Ej_HtltRE JCS^ I6L£ i T^-tY Hikl. BE ELlMI MT£Cjs 


poll* _ 


NfiSP 

kllL 

JIRST TC 

GC, _ 

n SHOULD 

NOT 0E USED. 

















UU6 





23t3SAl 

7762C 

C NBSM 

STQ 





QU7 

Rf f 

37 

LAST 

1307 

23.35A2 

COOA7 

1 


X2 




0118 





23t3SA3 

7fc7A0 

C 

LXC.l 

VLCAC* 




J1I9 

REf 


L4ST 

132? 

-23^3 5AA 

CQOSO 

1 


SI 

BASE ACCRESS CF THE COU ANGLES 

IS IN SI 


0120 





23f 35A5 

COOOi 

C 


0.1 




0121 

REF 

lA 

LAST 

13 3 1 

23f 3 S^6 

2A767 

1 

STCVL 

CCUSfCT 




0122 





23.35A7 

COOAl 1 


32D 

VECTOR TO BE THANSFORNEO IS IN 

32C 


0123 





23#3550 

7762a 

1 

CALL 





_ -i:i2A 

REF 

2 . 

L AIT 


23t3SSl 

A7572 

1 


TR&*NESP 




0125 





23.3552 

360^1 

c 

STCALL 

32 U 

SINCE THERE'S NO STGOTO 



0U6 

REF 

36 

LAST 

133i 

23.3553 

C00A7 

I 


X2 

















R 01.22 


TRESE INTERFACE 

_&£y TINES 

IRE PERRANEKT. 

ALL RESTORE USER'S EBANK 





j<ai2e SEniNC«_^ 4LL AR^E sir ICT inter PREJUVE SUbROUllNbSt CALLEO USING **CALL"f 


ROUS RETi.Pf^)N£_J^lA_fi£RET. ALL EjCPfcCT ANC RETURN THE VECTOR TO EE TPANSFCR- 
RC130 NEC INTEPFRETER-STViE IN RPAC; CCHPCNENTS AT RPAC« HPAC -t-B. AND RPAC 49. 

Pj 131 TP GtSRNB A^ T RC*NbS M BOTH EXPECT TC SEE THE 2'S CCRPLERENT A nTTeS 

RQi32 AT CCLSPCT (CRCER Y Z X, AT CCUSPOT, CDLSPQT 42. AND CDUSROT ♦A; QDC 

_R0133 LC CATICNS NEE C NOT EE ZERCECI. TRC^NESM ODES THE NB TC SM TPANSFCP- 
RQ13A RATlCNl TPGASPNSt VICE VERSA« ^ 


P J135 CCC*N 61H COfS^ ITS TRAN SF CR RA T 1 CN LS IN G THE PRESENT C ONTENTS OF 

R0I36 TRE CCL CCLMERS. CTHEPNISE IT IS LIK E TRGANBSH. 


«Q1 3 C 1 CCfSHNB IS THE i 0 N P L £ R E N T _ C I^C DU « N ES_H* 


01362 





23.3554 

77776 

1. 

COU^SRNe 

EXIT 



01363 

REF 

1 

LAST 

132S 

23*3555 

0 3442 

C 


TC 

COUTR ICS 


0136A 

REF 

1 



23.3556 

1 35 61 

1 


TCF 

C*MHAM 














0137 





23.3557 

77776 

1 

TRGASNNB 

EXIT 



0138 

REF 

2 

LAST 

1329 

23,3560 

0 3450 

c 


TC 

CD»TP*tS 


0139 

REF 

3 

LAST 

1142 

23.3561 

0 7501 

1 

C*MR4N1 

TC 

MPAC V8LF 

AX*SR4T EXPECTS VECTOR IN VeuF 

ClAO 

REF 

A2 

LAST 

11 71 

23, 3562 

4 6?14 

1 


CS 

Three 

signal for SM TC NB TRANSFORMATION 

OlAl 

REF 

1 



23,3563 

C 3603 

1 

CAHP*N2 

TC 

AX4SP*T 


jILA2 

REF 

2AS 

LAST 

1329 

23,3564 

0 60C6 

I 


TC 

INTPRET 


OiAj 





23,3565 

A3575 

1 


vloau 

RVC 


d 1 

REF 

•5 

LAST 

133C 

23,3566 

00123 

I 



VBUF 














. UlA5 





23,3567 

7777<s 

1 

CDU*NB5R 

EXIT 



OlAb 

REF 

1 

LAST 

13 3 2 

23,3570 

0 3442 

0 


tc 

CDUTR ICS 
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1UA7 

ClAfi 

Hit 

X 



23U57i 

1 3574 

C 


TCF 

C*MMAN3 



- — — - 












- - - - - 




23».a.572 

77776 

X_ 

TPGANBSM 

EXIT 



_ _ illA9 

Bit 

3 

ULl 

13 3 i 

21,3513 

C 3450 

c 


TC 

CD*TP*GS 




ClllXt 

KIF 

A 

Xllt 

1112 

lltUJA 

C 75C1 

1 

C ♦MM *1^3 

TC 

^MPACVEUF 

FCR AX*SR*T 



0151 

RFf 

42 

LAST 

1332 

23^3475 

3 6214 



CA 

THREE 

SIGNAL FOR F9 TC SM TRANSFORMATION 



Q1S2 ^ 

Alf_ 

X 



23.3576 

1 3563 

c 


TCF 

C*MM*N? 





R0Ifi3 AKC tS>NB» EXPECT 1C SEE THE SINES ANa COSlhES (AT SINCOU 

Ah£ CCSCCll PJ»THfcP THAN THE Ah GLES T HENSCLVES. OTHERWISE THEY ARE 
«LLi5 i.ll<E llG^NiSi* AND TPC*SMN&^ 


HQ156 

HITE THAT JUS 1 

AS CO* IP ACS Ntec 

£E called 

ONLY ONCE 

FOP EACH SERIES 



K0157 

CF TPANiFOPMATlONS 

USING the SAME ANGLES* SC TCC CNLY CNE CF TRG*N0SM 



Rcise 

JIHC TPGiSMHe NEED 

EE CALLED FCP EACH 

SERIES* 

FOR SUBSEQUENT TFANSFCR- 



Rail 9 

MAIICNS LSLINBSM^ 

ANC ♦IHNC*. 














QUO 


53.3577 77776 

1 •SMNfi* 

EXIT 




0161 

RIX 2 XA1JL1332 

23t36_C0 X 35 61 

1 

TCF 

C*HM«N1 











01fe2 


23*3601 77776 


EXIT 




0U3 

BEf 2 LAST 1333 

13i36Cl X 2574 

c 

TCF 

C*MM*N3 




RQlfc4 

PG105 

P0i66 

RQlfc7 

R.016e 

RUi69 

-RiUTCI 


AA*SB»T CQWEINES THE CLC SNNB ANC KBSH. FOR THE NE TC SH 

TRAhifCPPAlLCNt. £MEP WITH +3_IN A. TCP SN TO N0# ENIEP WITH -3^ 

THE VEtTCR TO EE IPANSHaPHfeC ABPiVESf ANC IS RETORNEDf IN VBIF . 

AJL«Sfl*T EXPfcCTS TC FINE THE SINES AhC CCSINES OF- THE ANGLES CF RCTATICN 
AT llhCCE ANC COSCClt IN THE C PCEP Y 2 A. A CALL TC CC»TF* CSt WITH 
THE 2J^S_t£_H£J.EMtNT JNMfeS I CP CEP Y Z >) AT CCISFOT* WILL TAKE CAPE CF 
THIS. HEPE IS A SAHPLE CALLIHG SEQUENCEi- 


»Qi71 


TC 

CDUTP ICi 


P0172 


cs 

THREE 

("CA THREE" FCP NBSM) 

PQ173 


TC 

AX*SP*T 



P017A Xi^L CALL TC CD*TR<GS NEED NOT 8E REPEATED. WHEN AA»SR*T IS CAILEC NCRE 

R Qi7f THAK CNCEt liMESS THE ANCLES HAVE CHAKG EC. 

ijillAj A>»SP*1 IS GUARANTEED SAFE CNLY FCP VECTCHS OF MAGNITUDE LESS THAN 

P0J77 LiMlY . A LC OP AT TH E CAS E IN WHICH A VECTCK OH GREATER HAGMTUCfc 

ROlTfl HAfFEHS 1C LI E ALCNG AN AXIS CF THE SYSTEM TO WHICH IT IS TC PE TPANS- 

Rai79 FCFHEC CCNVINCES CNE THAT THIS IS A RESTRICT ICN WHICH MUST EE ACC EPfEC. 


Wi e C REF 


LAST 1321 


2|i3603 
3t36i:A 


23i3£05 



AX*SRAT 


bCXL EX 


^HERE it BECCHES the index CH INDEXES 


EXTEN D 
GXCH 


rtnsavem 


0163 

REF 

X_ 

LAST 

1333 

23.36C6 

10 142 

1 

R*TL**P CCS 

DEXDEX 

u 184 

REF 

4 

LAST 

1333 

23,3fcC7 

4 0142 

1 

CS 

DEXDEX 

U165 

REF 

44 

last 

13 3 3 

23. 3610 

6 6214 

C 

AO 

THHEE 


+ 3 — > C “3 — > 2 

-> 1 -2 — > I 

-> 2 -i --> 0 



THUS : 


♦ 2 
♦ I 
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Ul66 

0167 






t 0 0 

1 


E^<TENC 




h£f 

326 

LAST 

1231 

23i3ei2 

5 COCO 

1 


IKOEX 

A 



Olfla 

REf 

L_ 



23.3613 

3 3672 1 


DC A 

INDEXI 



0169 

REf 

1_ 



13i3tl9 

52 199 

_i 


CXCH 

OEX I 


















y 19t] 

REF 

156 

LAST 

129 1 

-^3i3ei5 

3 9712 

-L_ 


CA 

ONE 




UiSl 

R.£F 

\n 

LAST 

U6e 

Z 3 1 3 6 1 6 

59 130 



TS 

BUF 




0192 





23|3617 

C OOG6 

1 


EXTEND 





C193 

_ fli F 

2_ 

LAST 

6 6 

■ 13t3<i2C 

5 C19 3 

_L_ 


INDEX 

OEXl 




019A 

REF 

•t 

LAST 

i33a 

23.3621 

9 0123 

c 


DCS 

V6UF 




0195 

REF 




23t 3622 

1 3629 

c 


TCF 

LOCPl 

REALLV BE A SLBTRACTf AND VICE VERSA 

















0196 

RfJ_ 

112 

LAST 

I3i^ 

^3t3623 

52 131 

c 

LC0P2 

OXCH 

6UF 

LCAOING vector component. STORING INDEX 

















C197 

REF 

AM 

LAST 

■133C 

23,3629 

52 155 

1 

LCOPl 

OXCH 

MPAC 




QiM 

R £ F 

1 



23J.36 25 

3 3670 

c 


CA 

SINE SLCC 




Q199 

Bii 

1 

LAST 

133 A _ 

2 3 i 3 626 

6 0193 

t 


AO 

DE> 1 




020L 

PEF 

li 

LAST 

11 A 6 

23.362? 

-59 U6 

c 


TS 

ADDR1«C 




0201 

REF 

21 

LAST 

U57 

23^3630 

C 7036 

C 

TC 

DPPSce 

MULTIPLY BY SIN(CCUANGLE) 

0202 

REF 

-5 

LAST 

1333 

23.3631 

_LQ 192 

1 

CCS 

DEXDEX 


0203 

REF 

66 5 

LIST 

1339 

23.3632 

52 155 

1 

CXCH 

MPAC 

NBSM CASE 

02C9 





23.3633 

1 36 36 

C 

TCF 

♦ 3 


0205 





23.3639 

0 coca 

1 

EXTEND 


SMNB CASE 

0206 

RLF 

666 

LAST 

13 3 9 

23.3635 

9 0155 

1 

DCS 

MPAC 


0207 

REF 

1 



23.3636 

52 139 

c 

OXCH 

TtP MUMP 













--020 8 

REF 

29 

LAST 

133 1 

23.1 36 37 

3 621 1 

c 

CA 

SIX 

SIHCOU AND CCSCCU lEACH 6 WORDS) MUST 

-010 9_ 

- R.£F_ 

79 

LAST 

1339 

23f 3690 

26 116 

c 

ADS 

A CD PRO 

BE CONSECUTIVE AND IN THAT ORDER 












02111 





23.3691 

C 0006 

1 

EXTEND 



02 1 1 

REF 

U9 

LAST 

1339 

23.3692 

5 0130 

c 

INDEX 

bUF 


0212 

REF 

A_ 

LAST 

1339 

23.3693 

5 0193 

I 

INDEX 

D£X1 


0213 

REF 

5? 

LAST 

1339 

2 3 f 3 6 4 A 

3 0123 

1 

OCA 

VEUF 


0219 

REF 

667 

LAST 

1339 

23.3695 

52 155 

1 

CXCH 

MPAC 


Ji2L5 

REF 

22 

LAST 

1339 

23. 3696 

C 7056 

c 

TC 

OMPSUB 

MULTIPLY BY CCS (CCUANGLE ) 

0216 

REF 

666 

last 

1339 

23,3697 

52 153 

1 

OXCH 

MPAC 


0217 

REF 

2 

LAST 

13 3 9 

23.365C 

20 139 

c 

CAS 

TEFMTPP 


0216 

REF 

*3 

LAST 

1339 

23.3651 

52 139 

c 

OXCH 

TERMITMP 


C219 





23,3652 

20 001 

1 

OOCUBL 



j220 

REF 

125 

LAST 

1339 

23,3653 

50 130 

0 

INDEX 

BUF 


0221 

REF 


LAST 

1339 

23,3659 

50 19 3 

1 

INDEX 

OEXl 


0222 

REF 

56 

LAST 

1339 

23,3655 

32 123 

€ 

CXCH 

VPUF 


0223 

REF 

126 

LAST 

1339 

23,3656 

52 131 

i 

DXCH 

bUF 

LCADING INDEX, STORING V£CTO«^ COMPONENT ‘ “ 












0229 

REF 

339 

LAST 

1339 

23,3657 

IC 000 

c 

CCS 


'CAUSE THAT'S WHEoF THE INDEX NOW IS 

0225 

REF 

1 



23,366C 

1 3623 

1 

TCF 

L 00 P 2 













0/26 





23,3661 

0 G0C6 

i 

EXTEND 



0227 

REF 

6 

LAST 

133 9 

23.3662 

26 192 

i 

DIN 

OEXOEX 

Decrement magnitude preserving sign 
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022& 


I last 1334 

23*3663 

10 1^2 

1 

TSTPOINT 

CCS _ 

_D£«OtP 

ONLV THE 

BRANCH ING 

FUNCTICN IS USED 


R£f 

1 

21*3604 

1 3606 

0 


TCP 

P 4TL»4P 




0230 

REF 

2 LIST 1337 


C QMS 

_L_ 


IC 

RTNSAVEP 




Q231 

HXl 


23t3666 

1 3606 

C 


TCP 

R*TL**P 



N 

€1737 

RLF 

3 X1S^L_L33 i 

21*3667 

0 0145 

1 


TC - 

RTNSAVER 

















0233 

REF 

6 LAST 1331 

23t367g 

CC736 

C 

SINESLCC 

ACRES 

S INC CO 

POP USE 

IN SETTING 

ADORNO 


023A 

_,_23a36 71 

0C004 

0 INDEX I 

DEC 

4 

444444444* 

OCN 'T 

4 4 44444444 

Q235 

23.3672 

00002 0 

DEC 

2 

4444444444 

TrUCH 


0236 

23*3673. 

.coooo 

1 

DEC 

c 

4 4444 4444 4 

THESE 

########## 

- Q2 3 7 

23.3674 

COOOA 

0 

DEC 

4 

4444444444 

constants 



JL023R 4 • # 4 444#4444444<44 »4 4»4<4»444 4<< 4 • 4 4 4 4 4 44 4 4 4 44 444 « 44 4i44 4> 44 4444444 44444 444444444444 4 4 44444444444444444444444444 


ID 



# 
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paz\a iKli ikBPLLTlht CCPPLT^ 11 j£P£P£NTAL changes 1N^ COU tGIPBAl ) ANGLES FRCM INCREMENTAL CHANGES ABCUT SM AXES. IT 

KQ1^2__ RECURES SR INCREREMS AS A OP VECTOR SCALEC AT CNE Rt VOLUT 1 CN <0 IHET ASM, + 2 , ♦A » . StN,tOSCCOUV, Z, X 1 ARE IN 

k02AA S1NCDL.»2.44 AND CCSCDU.*2.»A k E S P EC T 1 V E L Y . SC A L EO TC ONE HALE. CCU INCPEENTS ARE PLACED IN DCDtJ,»2t-»A SCALED TC 

paiA6 CM BEV CLLIICN. __ __ 


aU2AJ 


*_ 

COjil IGA I SEC INGA 1 

0 


-SINI IGAlSECIPCAl 

4 



4 








4 

K02A9 


4 

-COSI IGA ITAMPGA ) 

1 


SIN( IGA ITANIHCA ) 


B0250 


4 








4 ^ 

Hazsi._ 


4 



0 


COSI IGA) 

4 












C252 





1A.3A12 



BANK 

lA 


'J253 

REF 

L_ 



23.2000 



SETLCC 

PGNFLITl 


C25A 





23t3675 



BANK 



J255 





Z3.367S 

A13A5 


SMCOORES OLQAO 

OMP 


0256 

REF 

7 

LAST 

582 

23.3676 

C3212 

c 


DTHt TASM 


0257 

REF 

A 

L AS T 

715 

23.3677 

007A5 

1 


COSCCLV 













CZSfl 





23t37C0 

A1325 

0 

POOL 

OMP 


(i259 

REF 

8 

LAST 

1336 

23.3701 

C32U 

1 


DTHE TASM 

♦ 4 



REf 

A 

LAST 

71 i 

23*3702 

CC737 

1 


SIMCCOV 



Qlti 





23.3703 

77621 

1 

BOSU 



0262 





23.370A 

77671 

1 

OQV 



C263 

REF 

7 

LAST 

927 

23.3705 

C07A7 

c 


Ct SCCOZ 


026A 

REF 

6 

LAST 

504 

23.3706 

0 320A 

1 

STORE 

OCDO 













_ Q265 





_23iJ3 707 

72A05 

t 

OHP 

SLl 

SCALE 

_ 024<> 

PEF 


LAST 

71i _ 

23f 371C 

CQ7AI 

c 


SINCCOZ 


0267 





23.3711 

77621 

1 

eosu 














02o8 

REF 


LAST 

1336 

23.3712 

C321A 

c 


DThF 7ASM 

♦ 2 

0269 

REF 

1_ 

LAST 

13 3 1 

23.3712 

17206 

c 

STOOL 

DCDO *2 


027C 

Rtf 

10 

LAST 

1336 

23.371A 

03212 

c 


dthftasp 













C271 





23.3715 

652C5 

c 

DMP 

PDDL 


0272 

REF 

c; 

LAST 

1336 

23.3716 

00737 

1 


SINCCUV 


02 73 

REF 

1 1 

LAST 

13 3 6 

23.3717 

C3216 

1 


DTHE TASM 

♦ A 












L27f _ 





23.3120 

A32C5 

1 

OMP 

DAO 


0275 

REF 


LAST 

1336 

23.3721 

007A5 

1 


COSCCLiV 


0276 





23.3722 

77752 

1 

SLl 



0277 

REF 

e 

LAST 

1336 

23.3723 

03210 

1 

STORE 

OCDU +4 


C278 





23. 372A 

716 16 

c 

RVQ 
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£Qfl01 

7Ft IFF SLBRCLTIRES fAV BE ISfcL IN fclTFER EARTH OR HCCN CFNTERFD CGORDINAIES. THE TFF ROUTINES NEVER 

RCuX}3 

KKLk VhICh ORIGIN 

APPLIES. IT IS THE USER WHC KNOhSi 

ANO. P.HG SUPPLIES 

RONE, VONE AND I/SQFTIMU) AT 

THE 

iQfl C ^ 

AAHaggRIATt SCALE 

LEVEL FCR THE 

PBCPER PRINARY BODY, 





RQil£]t 

£ A RIH ORIGIN 

fOSITlCN -29. 

NFIEPS 



ft00C7 



VELOCITY -7 

METE PSyCENTISECQNt 


Rfi.QQ9 



l/SGRMNUI ♦!? 

SQPTICS S0/P6TEPS CU0ECJ 









Raoii 

fetch CRICIN 

PCSITICN -27 

METEf S 



Rafli2 



VELCCITY -5 

METEPS/C6NTIS 

ECCNCS 


ROQl^ 



17 SCR T( MU I +14 

SORT ICS SC/PETEBS CUBED! 









RflOlfc 

ALi £ilA PFlVICEQ 

TC AND PECEIVEC PROP ANY TFF SUB&aUTINt hiLL PE AT 

CNE OF THE LEVELS ABOVE. IN ALL 

CASES, 

RQQLfi 

TH£ FRIE FALL lIMfc 

IS _a£TUPNEC 

IN CENTISECUNCS AT (- 

28). PKCCRAM TFF/CONIC vILL GENERATE VCNF/RTNU 

AND 

fiimZfl 

LEAVE n It WCNE ' 

AT (41Q) IF 

EARTH CRICIN AND I *9) 

_IF MCON CRIGIN. 



- RXUlli 

J^FE ViSER- 

NCn S-TCPE THE STATE VECTOR IN RONE, VONE AND 

IN THE FCRM l/SQRT(PU) IN TFF/RTPU 

RQtJ23 

AT THE iPCPLP. SCALE BLFaBE CALLING TFF/CONIC* SINCE 

RCNEf VCNE ARE 

IN THE EXTENDED VERB STORAGE AREA, 

RQa2b 

THE L3ER felST ALSC 

LCCK CLT THE EXTENCEC VERES. AND 

R^eASE Them when 

FINISHEC . 


hUQ27 

FPQCRAMS_ 

CALC/TFF 

ANO CAlC/TPEB assume THAT THE TERPTNAL RADIUS IS LESS THAN THE PRESENT 

KOOi*? 

BACIL5. THIS RESTPICTICN CAN EE 

REPCVEC bY A 15 N CCDING CHANCE, ftCT 

AT PRESENT IT IS NOT UEEPEO NECESSARY. 

Rfl031 . 

-AQ 0 3 2 

THE FCLLCNING ERASABLE 

CuANT IT lES ARE USED 

riY THE IFF routines, AND ARE LCCATEC IN THE PUSH 

LIST. 

R003^ 














-ACillS 




BELOW 

Et IS USED FCR EARTH ORIGIN SCALE 

A0Q36 





Hs IS US6C FCR MOON ORIGIN SCALE 








AQ lij 7 



TFFSN - 

119D EITI 

0 « CALCTFF 1 • CALCTPER 

. 0038 


0Ci2 

TFFDELQ » 

1 OD 

U2-01 E: (-16) 

MX (-15) 

0 0^9 


0014 

BHACl 

12D 

ABVALIRN) M E: (-29) 

MX (-27) 

AQO^G 



RPER 

140 

PERIGEE RACIUS P E* (-29) 

M: (-27) 

QOAl 


QQ16 

TFFQl 

140 

R.V / SORT(PUE) EX (-16) 

MX (-15) 

AQQ4P 



SDELF/2 


SINdHETA) /2 


SiUAl 


0016 

CDeLf/2 * 

1 

COS(THETA) /2 


_ ACLQ44 



RAPC • 

160 

APOGEE RADIUS P Ex (-29) 

M t ( - 27 ) 

QCA5 


0020 

NRTERM « 

16U 

terminal RACIUS M El (-29+NR) 

A0046 





M: (-27^NR) 

0C47 


0022 

HTERfe 

180 

terminal RACIUS P Ex (-29) 

Ml (-27) 

0046 


0024 

TFFVSQ 

200 

-(V squared /MU) l/M F: (20) 

MX ( 18) 

004S 


0026 

THFl/ALF * 

2 2D 

SEPI PAJ Axis P E: (-22-2 NA» 

AQ050 





P: (-20-2 NA) 

0C51 


0030 

TFFRTALF » 

24D 

SQPT(ALFA) E; (lO+NA) H: (9*NA) 

0052 


u032 

TFFALFA » 

26U 

ALFA 1/M EX (2i)-NR) M: (24-NR) 

0053 


0C34 

TFFNP = 

280 

SEMI LATUS RECTLH M £: (-3A+2 NP ) 

40054 





MJ (-3642 NR) 

0055 


0036 

TFH/RTPU » 

3CD 

1/SQRT(PU» E: (17) 

Ml (14) 

C05e 


OCAO 

NRHAG > 

320 

PRESENT RACIUS M E: (-294NP) 

A0057 





M: (-274NP! 

0058 


0C42 

TFFX « 

540 



0059 


0044 

THFTtP - 

3e>fi 

TEMPORARY 










A 


A 


II 


» 
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AQQ6U 


HtGISTERS SI. S2 APE 

CMQUCHED BY ANY IFF SL8P01TIKE 


A J Q 6 1 


iNDEA REGISTEPS XI. 

X2 ARE USED BY ALL TFF SUBRCUTIMES. THEY ARE ESTA0- 


AUOfeZ 


LiShEQ IN TFF7COMC 

AND HUST BE PRESERVED BETWEEN CALLS TO SUBSEQUENT 


AQatJ 


subpoutines. 



ACCfa4 


-NP 

C(xn . NOPP COUNT OF RMAG 


A jQ 6S 


:±A 

C(X2>= NORN COUNT OF SORT ( A3S ( ALFA ) ) 
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t-ilCbA 

H QQ*.! Sij«Brt.HAg AAJ|£^ TFAmiilf: DATE: _Q1.29.tl 

WCC wci 0 LOG s e ction : TIME tiF FREE FALL_ 

JgQQTl -MC£ fcU Hf tA IRfiSEAltEP — 

hq077 MfC net 1 HCJ by: ftp bAIRNSPATHER DATE: 11 APR 67 

ROilia RC£ ftC : 2 HCD BY: RR BA I RFSFATHER DATE: 21 NC V 67 AGO HCCN P U . 

hGD75 PCC PC: 3 PCD fe V: BP BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EAHTH/MQCN SCALES 


RQJ77 FLAXTirkAJ^ lj£SCRlFTlClLt_ ^IHIS 5D8FCGT1NE IS CALLED TQ CQPPUTE THOSE CQNIC PARAMETERS REUUIREO BY THE TFF 

PQC7 9 SLePJUlTlP&S 4HO TC ESTABLISH TFEM IN THE PU SH LIST AREA. THE PARAMETERS ARE LISTED UNDER OUTPUT. 

Foaei THE ecuAiicNS are 

RQCg2 - - 

PQUei H ■ RMVN AN GULAR MCPENTUP 

PCCB5 - - 

FCQfift lCP » H.H / PL SEMI LATUS PECTUP 

- - 

ROCeS ALF A » 2/P N - V N.VN / PL RECIPROCAL SEMI PAJ AXISt SIGNED 


RDDSl AliD ALFA IL PCS FOfL-ELLIPTiC CRB ITS 

RQQ?2 0 FCP PARABCL U_CBei TS 

miSJ NEG FCR HYPERflCLIC CRBITS. 

RQQ9 ^ SIBRCLTIhE AL_S0 CCPPLTES AND SAVES RMA^^ 

FgOiS CALLING S ECUENCE: 

KOQq6 TFFCCMC EXPECTS CALLER TL ENTER H ifH CORRECT GRAVITATIONAL CONSTANT IN MPAC» IN THE FORM 

RQgSJ l/5QRT(ML>. PRQ GPAH ^IL L SAVE IN TFF/ RTMU . THE SCALE IS DETEPPINED B Y WHETHER EARTH OR MOON _ 

ROlOO CM GIN IS LSED. THE CALLE R FU ST LOCK OUT THE EXTENCCC VERBS BEFORE PROVIDING STATE VECTOR IN RONE, 

RQ1C2 VCNE AT PROPER SCALE. THE EXTENLEC VERBS MUST 8F RESTORED WHEN THE CALLER IS FINISHED USING THE 

FOICI 1_FF RLUT INES. 

KOlOS . _ _ENTHY POINT TFFCCNMIJ EXPEQTS THAT T FF/HTMU IS ALREADY LCA CED. 

Rul07 TC SPECIFY MO: CLCAD CALL IF ML ALREADY STQRFO: CALL 

POIQS YCLPPL 1/RTMU E: 1171 P : (l^L TFFCONPU 

ROlU TFFtONIC 

R-D112 PLSHLCC » PCL^Q, ARBITRARY If LEG IflC 


NQii3 SLEFGLTINES CALLEC: AC_N| 


RCIl^ NCPPAi EXIT PCCES: PVQ 


Rons 

AlAFF < 

t NCNE 




F U 1 1 6 

QLTPL 1 

: THE FCLLCNING ARE STCREC IN THE PUSH LIST AREA. 



HVil? 


RPAGl E;(-2S) Mit-27) 

P RNt PRESENT RADIOS LENGTH. 



RQllB 


NPMAC EJ I-2<J+Nfi) 

P RPACf NORMALIZED 



ROUS 


PI (-27+NR) 




RC12C 


X 1 

-NR, PCRP CCONT 



P0121 


TFFNF E: t-30H2NH| 

P LCF, SEMI LATUS RECTUM, WEIGHTED BY NR. 

FCR 

VCAMCALC 

RC123 


M: t-3642NF) 




RC12*> 


TfF/RTMU 6:(17» P:(1AI I/SCRT(MU) 



t-.0i2S 


TFFVSQ E : (2Q ) M: ( 10 I 

l/M -(V S2/MU): PHESLNT VE L CC I TV ,NOPML I 260 . 

FOR 

VGAMCALC 

Rcl27 


1FFALFA E: (26-NK> 

_l/P ALFA, WEIGHTED BY NP 



Rul2E 


P: (2A-NR) 




HOIZR 


TFFPTALF E: I10-»NAI 

SQRT(ALFA), N0RPAL12ED 



R0120 


PI <9+NA) 
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X 

ruLt xf 
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-RjCLLii 



JLX 



-N.A, 

NCfH OLUNI_ 



aouz 



IFFl/ALF 

E ; l-^2-2A_IJ SiGNEt 

SERI MIJ AXIS, hElGHTtC PY NA 


kai^3 





HI t-2C-2NAl 





__ 



PtSHlCO n 

PCL40 






acLLiS- 



J>£_fLUL£WLNC li _STCP|C IN 

general erasable 



Bul3fa 



VCNE* 

e:(101 HI191 

V/flllfOl, NQPHALIZEC VELOCITY 



EPA SAfLE 

INI T I AL I 2AT ICK REQUlREC: 





HO l 31_ 



RCNE 

E : ( 

“29) Pt(- 

27 ) H 


STATE VECTOR 


LEFT BY CALLER 

FUl^L 



_yiM_ 

E t ( 

“71 K;(- 

5) M/CS 

STATE VECTOR 


LEFT BY caller 

?0l*i2 

• ■ 



TFF/RIMU 

EMIT) H: 

( 16) 


1/RT (LS SC/M CUBE ) 

IF ENTER VIA TFFCCNMU, 

RiiHA 

CEEPI 

S s 

-_QFRE7 

I 

p 0 L 4 Q • • • 

PCL43 





PQ1A5 

































C146 





73.3773 



e^NK 

33 


-OH 7 

RU 

1 



27,2CC2 



SETLCC 

TCF“FF 


C1^8 





27*2721 



bank 














Ci^9 

Rtf 

1 






COUNT* 

$1/ TFF 













0150 

REF 

_5_ 

-liST 

76 3 

_ X7j2 7 21 

000 3 7 

C 

TFFCCNIC STORF 

TFF/RTHU 

l/SQRTIHU) C: U7i M; t 16 ) 












QXbl 





27,2722 

53575 

c 

TFFCONMO VLOAO 

UNIT 

COME HERE NITH ]FFRTH(J LOADED. 

Q15>^ 

Rtf 


L4ST 

76 1 

27,2723 

02327 

c 


F’CNE 

SAVED RN- H E: (-291 H: (-27) 

0l5i 





27,2726 

77725 

1 

POOL 


UR/2 TO PCL40, *5 

ai5A 





27,2725 

C0065 

c 


3 6D 

magnitude 

0135 

Rfcf 

_J_ 



27,2726 

OOC15 

c 

STCBl 

KMAG 1 

M F: (“291 MI (-27) 


0156 





27,2727 

777CI 

1 

NORM 



- Cl 5 7 

BiJ 

ii_ 

LAS7 

1306 

27,2730 

00067 

JL 


XI 

-NR 

oue 

Rtf 

A 

L^ST 

766 

27,2731 

26061 

1 

stcvl 

NFMAG 

RMAG M El (-294NR) MS (-274NR) 

0159 

REF 

11 

L4ST 

76 1 

27,2732 

02335 

c 


VCNE 

SAVED VN. M/CS Es (-7) Mi (-5) 

Q16C 





27.2733 

77761 

\ 

VXSC 



0161 

PEF 

6 

L4ST 

136C 

27,2736 

C0C37 

c 


TFF/PTKL) 

E * (17) Ml (16) 

0162 

KEf 

2 

LIST 

8S 

27,2735 

C2372 

c 

STORE 

V OK E * 

VN/SCRT(M0) Es (10) m: (9) 












0163 





27_t2 736 

67361 

c 

VXSC 

VXV 


Clt<» 

REF 

5 

LIST 

136C 

27,2737 

CC061 

1 


NPMAC 

El (-294NR) MS (-274NR) 

A0i65 










UR/2 FROM PCI 

QLt6 





27,2760 

67572 

1 

VSLI 

VSC 

BEFORE! es(“l94NR) M:(-I84NPI 

0167 

REF 

2 

LIST 

765 

27,2761 

16035 

1 

STOOL 

TFFNR 

IC P M 6i(-3642NR) Ms(-3642NR| 

A0168 










SAVE ALSCHTcR VCAMCALC 

C16S 

— ■ ■■ ^1 1 

REF 

1 



27,2762 

15322 

c 


tFFl/6 


01 70 





2 7,2 163 

63271 

c 

OOV 

POVL 

(2/RMAG) l/i^ E.M26-NR) m:(26-NR) 

0171 

REF 

6 

LIST 

136C 

27,2 766 

00C61 

1 


NFMAC 

RMAG K 6i(-2S4NP) Mi(“274NR) 

on^ 

REF 


LAST 

136C 

27,2765 

02372 

c 


VUKt • 

SAVED VN. £! (10) MI (9) 

0173 





27,2 766 

57636 

1 

VSC 

DCCF F 

KEEP MPAC42 HCNEST FOR SORT. 

Qllh 

KEF 

2 

LIST 

765 

27,2767 

G0025 

c 

STORE 

TFFVSC 

“(V SC/MUl F : (2(j) MI ( 181 

A0175 










SAVE FOR VGAMCALC 

0176 





27,2750 

63257 

c 

SR* 

OAC 


— 
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04.77 



27*2151 

20573 1 



£ “t tl 

GET ■'VSC/MU EM26-NR} Rt(24-NR) 

0478 



27*275Z 

17626 £_ 


STAOR 



MUX2S- 








2/RRAG FROM PCL+2 

-OXfiO 

E£f 

J. 

^21*2153 

177^9 £_ 


STCRk 

TFFALf A 

ALFA l/R E:(26-KR1 M:(2A-NR1 

iUdl 




41^ 57 X 


SL* 

PUSH 

TEMP SAVE ALFA E:(2Ci M:(18) 

04-82- 




20173 C 



0 ^ 6_ 1 1 


Qlfi3 



21tZl5fi 

75AA6 C 


ABS 

SORT 

FKIOI M:(9) 

fiia^ 



ZUZl^l 

777Jil 1 


NOFR 



QlflS 

acf 

39 LAS1 1332 

27.27ec 

. C005C 1 



X2 

X2 * -NA 

£lL&<£ 

Rii 

1 

Z ItZlt 1 

ccoai 0 


STORE 

TFFkTALE 

SCRT( A8S(ALFAI 1 E:(10-*>NA) MMS^-nA) 

bI87 



27,2762 

75316 1 


OSQ 

S IGt 

NCT SO ACCURATE, BUT OK 

Auiea 








ALFA FROM PCL+2 E;(20) M:(lfl) 

£189 



-27*2l6i_ 

5525^ 1 


ezE 

eoDv 

SET 1/ALFA -0. TC SHQK SMALL ALFA 

0190 



27,276^ 

56766 C 



*2 

- — - - 

L191 

BJL£_ 

—2 LIST 134C 

llnZltb 

15322 C 



TFf 1 /A 

- - - — -=*i- — . - _ 

ai9i 

. &M 

1 

27.2 ?6fe 

-0.002.7 1 

♦2 

STOKt 

TFFl/ALF 

l/ALFA E:(-22-2 NA) M:(-20-2 NAI 

0193 



27,27a7 

77616 C 

OUMFCNIC 

RVQ 












AQISA 








39 H 


















- — - ^ 










— ' » »- “ ' - - ' — 









— -a.-*. _ — -i. “ ■ - — — 














I 




» 
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PQi95 

SLERCLIIRE NAME: T6FKP/RA DATE: 01. 1?. #^7 

Rul97 

RLE fSC: 

C LCG section: TIPE OF FREE FALL 


MCC B\i 

PP EAlRNSfATFEH __ 

_ HQZUQ . 

J'CC RC* 

1 PCD 8y: bp BAIRNSFATHER UAlE: 11 APP 67 

Rillfll 

HCE JtC : 

2 PCD by; RB BAIRNSFATHEB DATE: 21 PAP 68 ACCEPT DIFFERENT 6ARTH/P0CN SCALES 

R02C3 


ALSO IMPROVE ACCURACY CF PAPO. 

Ril2Qi _ 

PLFCllChAL DESCRIPTICN: LlSEC EV CALCTPER AND TfF DISPLAYS TC CALCULATE PERICEfc RADIUS AND ALSO 



APOGEE KAEICS FOP A QENERAE CCMC. 

ftC2Qfl 


FPGGRAM CIVES PERIGEE RAOIUS AS APOGEE RADIUS IS GIVEN 8V 

PCilC 


Rf - F / ( 1 + E» PA « ( 1+E) / ALFA 

P_ J 2 12 


^FERE 2 

R0213 


E - 1 - P ALFA 

K021A 


IF PA IS NEGATIVE CR 5HCP5 CIVICE CVEBFLON, TFEN PA * POSMAx DECAUSE 

PQ216 


1. APOGtE RADIUS IS NCT MEANINGFUL FOR HYPLPCCLA 

P0217 


2. APCGEE PACRS IS NET CEF INEQ FOR PAPABCLA 

pQ2ie 


3. APCCEE RAOILS EXCEEDS THE SCALING fCR ELLIPSE. 

R0219 


This SUBPCUTINE REQUIRES THE S1GN60 RECIPROCAL SEMI MAJ AXIS, ALFA, ANC SEMI LATUS RECTUM AS DATA. 

RQ221 

CALLIFC 

SECUENCfcs CALL 

R0222 


TFf RP/RA 

R0223 


PLSHLCC » PCL+Q. ARBITRARY IF LEQ IOC 




_C1PPAC) LNSPECIFIED 




PU225 ^ 

SLEFCnikES CALLEL: NONE 

RQ226 

hCPPAL t>n kCCE: PVQ 

R0227 


IF ELLIPSE, NITHIN NCRPAL SCALING, RAPG IS CORRECT. 

P_Q22e 


CIHERNISE, RAPO « PCSPAX. 

PQ229 

ALAPPS : 

NCNE 

kC23C 

QLTPL 1 : 

STCPEC IN PUSH LIST AREA. SCALE CF CUTPUT ACPEES MITF DATA SUPPLIED TO TFF/CONIC. 

K0232 


PFEP £s(-29I M:(-27) M PERIGEE RADIUS DESTROYED BY CALCTFF/C ALCTPER, TFFTRIC. 

KQ23^ 


PAPO ES(-2SI F:(-2?l M APOCEI RAOIUS rtILL 86 DESTRCYEO BY C ALC 1 FF/CALC TPER 

P023t 


PLSHLCC AT PCL+0 

HC237 

ERASAELE 

IMT lAL I iAT ICN PECUIPEC: 

_ R0238 


TFFALFA E:(26-NRI M WSENl NAJ AXIS LEFT BY TFFCCMC 

Rj2<iC 


^ : (2A-NR ) 

P02A1 


TFFNP EJ (-3fi^2NR) M LC P, SEN! LATUS RECTUM LEFT BY TFPCOMC 

ft0243 


M: (-36+2NPI 

k02^^ 


XI -NP, NCFM CCCNT CF RMAG LEFT BY TFFCOMC 

R02^6 


X2 -NA, NCPM CCUNT OF ALFA LEFT BY TFFCOMC 

k02<i£ 

CEEPl ! t 

CPBET. FCL+0 ... fOL’H 
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PCZk^ 











CiSC 




GC20. 



PAPQ __ 

« 

IfcD 

APOGEE RAOIUS R ES<-29» M:(-27) 

0251 




arujb 



HP Eft 

a 

14L 

PERIGEE RACIUS R E:{-?9I MM-271 

^0252 

„ Jl2Si 




27t277C 

41345 


TEFRP/RA 

OLCAO 

DMP 


Q2 5A 

KEf 

2_ 

last 1341 

27*2771 

00033 

1 



TFFALFA 

ALFA 1/M E:(26-NPI Rt {24-KRI 

0255 

R£f 

2 

LAST mt 

27i2772 


1 



TFFNF 

LC P R EU-3e*2NRJ R:(-16*2NR) 

0256 




_17t2773 

57457 

C 


SR* 

DCOPP 

ALFA P (-12+NRJ 

tl257 




27.2774 

20571 

_£_ 



0 — 6 C 1 1 

ALFA P (-4) 

C25fl 




27i2775 

_5i4l5 

C 


OAO 

AGS 

(OCCRP GIVES VALID TP RESULT FOR SORT) 

AQ259 










1 A8S PROTECTS SORT IF F IS VEPV NEAR 0» 

C2feQ 

PFP 

i_ 

LAST a3C 

— 2 7. 2 7 76 

17230 

J_ 



0P2(-4) 


02 61 




27 um 

43366 

C 


SORT 

DAD 

E SQ - U- P ALFA! < -4 ) 

0262 

R£f 


LASTU34 1 

.27j3QC0 

15322 

C 



TFf 1 /4 


Q2fc3 




27t3QQi 

55206 C 


PUSH 

BDOV 

1 1»EI (-21 TO PCL+0 

a2fi_A 

R£F 

A 

LlilJl3Ai 

_ 23j3CC2 _ 

00035 

1 



TFFAP 

LCP R Ei(-3e42hR) RtC-36+2NPI 

C265 




2TjJ503 

53657 

C 


SR* 

SR* 

(COES SR THEN SL TO AVCIO OVFL) 

0266 




27.3004 

20601 

_L_ 




X l»-RR 

a2p7 _ 




27.3005 

20572 

( 



0 -7,1 

(EFFECTIVE SL 1 

0266 

REF 


LAST 511 

27,3006 

14017 

1 


STOOL 

P PER 

PERIGEE RACIUS R e:(-29) Ri(-27) 

A0269 










( !♦£ 1 (-2 » FROR POL+0 

02 7 C 




27, 3007 

41005 

1 


ORP 

BGVB 


0271 

PEF 

2 

LAST 1*34 1 

27,3010 

00027 

1 



TFFl /ALF 

E:(-22-2NA» Mi(-20-2NA) 

0272 

ft £ F 

-ISl. 

12SS 

27,3011 

57314 

0 



TCDAN2IC 

CLEAR CVFINO, IF ON. 

k273 




27,3012 

53654 

c 


B2E 

SL* 


02 7A 

REF 

1 


27,3C13 

57C22 

0 



MAX PA 

SET POSRAX, If ALFA-0 

C275 




27.3014 

57603 C 



0 -5,2 

-5*NA 

0276 




27,3015 

4C057 

1 


SL* 

BOV 


02 77 




27,3CL6 

5757b 

1 



0,2 


D27B 

REF 

1_ 

L/ST 13^3 

27.3017 

S7C22 C 



MAXP A 

SET POSMAX IF OVFL. 

0279 




—27, 3020 

77644 



ePL 


CONTINUE MlTM VALID RAPQ. 

0260 




27,3021 

57C24 

c 



♦ 3 


0281 




27.3022 

77745 

1 

FAAftA 

OLLAD 


RAPC CALC IS NOT VALID. SET RAPC » 

0262 

REP 

A 

LAST 630 

27.3023 

17334 

c 



NEAKCAE 

PCSRAX AS A TAG. 

oasjL. 

REF 

J 


27.3024 

00021 

i 

♦ i 

STORE 

RAPC 

APOGEE RADIUS R E:(-29» R:(-27I 





27,3025 

77616 

0 

OtHpftPRA 

ftVQ 












* 


A0265 










30 W 
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L tm tf Ffl££ FALL 


USER • S P4Gt NO. 8 FO S3 


— EXI.Z-6 6 

SLiPCniNE ItAH.fcl CALCTPER 

/ CALCTFF 




cate: 01.29.67 




)L02jB 

FCB isC? 

C 






LCG SECTICN: TIFE OF FREE FALL 


Rfi^qn 

ULL ETI 

BB 

BAlRNgf ATHER 









PC2S1 

FCC HCJ 


FCP evi 

RP eAlRNSFATHER 

OATEi 

2i FAR 

67 





jlD2.S2_ 

i'LC HC 1 

2 

FCP flv: 

PR EAIRNSfATHER 

OAT i : 

14 APF 

67 





ft02<?3 

-- F.LC NCI 



FCP BTt 

PR EAIPFSFATHER 

DATE: 

ejUL 67 

NEAR EARTH FUE AND 

NEG TFF 

(GCNEPAST) 


fi-Q295 

FCB (iC: 


FCP BY; 

PR BAIRFSFATHER 

cate: 

21 NCV 

67 

ADD VARIABLE FU. 




RL297 

FCC NCI 

5 

FCP BYl 

PR eAlRFSFATHCR 

DATE: 

2 1 FAR 

66 

ACCEPT DIFFERENT EARTH/FOON 

SCALES 


-- 63299 

. BLACIICNAL CtSCRIPTICN: 

PROGRAH CALCULATES 

THE FREE 

-FALL TIFE CF 

FLIGHT FROM PRESENT 

POSITION 

RN AND 


H0301 


VELOCITY VN TC A RACIUS LEFCTH SPECIFIEO BY 

RTEFF , 

SUPPLIED BV THE USER. THE 

P05ITICN 

VECTOR 


RU3li3 


PF 

FAY BE CN EIThBR 

SIDE OF TFE CONIC 

f BUT PTtPF IS 

CONSICEREO ON THE INBOUND 

SIDE . 



PG3CI5 


THE 

ECUATICN5 ARE 










AQJ3C6 

fiQ3oa 


ROJOS 




R0313 


R03I6 




RC31S 
R0 321 


R0323 


R0325 

RC326 


KQ327 

KC328 


pQi29 


S0331 

RQ332 


F(U33A 
R 0 3 3 5 


PJ33e 


Mill 

P033S 


Cl * -SQBT(f>T£RR (2-fit£P>' ALF^t - LCPI 


( I RBCUND S ICE M 


LEC ♦- LCE/SQRT( ALFA) 


Cl - 3F.VR / SOFT ( F L i 


LFC ♦- LCE/SQRT( ALFA) 


2 * hUF / EEN 


LEG l/SUWTIALFA) 


FFEREi IF IhflCUNC 
NLF » PTkFH 


M 


LEC ♦- 2 LCE/ALFA 


PEN « q2-»C l 


LEG ♦- 2 LCE/SQ«T( ALFA) 


AFP. IF CLTBCUNC 


NU F « Q2-C1 

PER » 2 - ALFA (BTERH <» PM 


LEG ♦- 2 LCE/SURT(ALFA) 
LEC ♦- 2 LCE 


IF 


ALFA Z2 


l.O 


(FOR ALL CGMCS EXCEPT ELLIPSES HAVING AESfOEL ECC ANON) G 90 PEC) 


THEN 


AFC 


X ■ ALFA i Z 

TFF * (RTEHF ♦PF -2 Z2 T(X) ) Z/SQRT(HU> 


EXCEPT IF ALFA PNZ, AFC IF TFF NEG. 

TFEh TFF » 2 PI /(ALFA SCRT(ALFA)) ♦ TFF 


CP IF ALFA II CEC 1,0 


(FOR ELLIPSES HAVING AESICEL ECC ANCF ) GEC 90 CEG) 


1FEN 

AFP 


X « l/ ALFA 2 Z 

IFF « (PI /SORT (ALFA ) “C2 401 T(X) -1) /ALFA 2) /ALFA SQPTIfU) 


WFERE T (X) I_^A ^LYNCMIAL APPROX IFAT ICN TO ThF Sl P IE S 
2 3 2 


i/3 -X/3 ♦X /? -X /9 




(X 


1 . 0 ) 


CALLIFC SECUEFCEl TIFE TC RTERF 

CALL 


T IFE TO PEP IGEE 


F J3A0 

R0 3<»2 


CALCTFF 


C(FPAC) » TEPFNL PAC N 


CALL 

t A L C T P F B 

C(FPAC) » PERT GEE PAP F 


R03AA 
P0 3A5 


FCB ElTHERf El (-29) 


Fi (-2?) 


FCP ElTHfcfit PUSHLCC ■ PPL^O t APeTTrtARV fF LEG 60. 
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R0i44 

SUtfClliRRl CAUEI 

Wl 

■ 

»« 




£MJ4l7 

tXl I MCtEl 

RVC 





hCtaEWERt 

PROGRAM EXITS hITH CNE LF TM£ FULLCK ING VALUES FOR 

TFF (-281 CS IN MPAC. USER 

MUST STORE. 



A. 

IFF- FLIGHT TIHE. RCRRAi CASE FCR POSITIVE FLIGHT 

TIME less THAN CNE ORBITAL 

PERIOD* 


50152 


UHIS^PTICR IS NC LCNGER USkD.I 




110153 

r . 

IFF « PC5H.AX. This INUICATES THAT THE CCMC FRCH 

THE PPESEM PCSITICN KILL 

NCT RETURN TC 


RQ155. 


THE SPECIFIED ALTITUDE. ALSO INDICATES CUTBOUNO 

PARABOLA OR HYPERBCLA. 



ROlil 

CtIPllJ CIMPAC) 

(-2fll CS TIRE Cf FLICHT, OR TIME TO PERIGEE 




RQ35fl 

TFFX tQl Sj 

LEFT FOR ENTRY DISPLAY TFF ROUTINES 



R0360 


K-RliRM 

£S L-29»NRI M HTEPMi WEIGHTED BY NR 

LEFT 

FOR 

ENTRY CISPLAY 

TFF 

ROUTINES 

RCiei 



M: t-27+FB) 



TFF 


hJlkl 


ifftem 

EJ (-59>2NRI LCP 2 2 SCN(SC£LF) _ _ 

LEFT 

FOR 

ENTRY DISPLAY 

ROUTINES 

R0365 



M: t-55+2NR) LCP /ALFA SGN(SDElF) 

LEFT 

FOR 

ENTRY CISPLAY 

TFF 

ROUTINES 

P.036 7 


-NCTE: 

TFFTEM » PDL 3tC AND MILL EE DESTROYED BY .JlMT:, 






RUlfcfl 


BRIG 1 

£!(-291 M(-271 RDL 12 NCT TOUCHED. 






_ il036L9 


T f F Cl 

EM-16) F?(-1S1 POL lAO 






RQ3 7^ 


IfFCELU E;(-16) F:(-15» PCL ICC 






PJiTl 


_PASHLCC AT PCL^O 






j<CJ72_ 

tMSAfll 

IMTIALUATKN REGUIPEC: 






R03 73 


PCNE 

E:(-29) M:(-27I M STATE VECTOR 

LEFT 

BY 

USER 



80115 


VCNE* 

EMMOl Mx( + 9) VN/SGPT(MU) 

LEFT 

BY 

TFF/CONIC 



R0377 


PMAGl 

e:(-29) F:(-27) PRESENT RACIUS* M 

LEFT 

BY 

TFFCOMC 



R0379 


C (MPAC) E : (-29 ) M:(-27) RTEPM, TERMINAL RADIUS LLNCTH, M 

LEFT 

BY 

USER 












2Qlfll_ 


TEE FCLLChING ARE STCPEO IN THE PUSH LIST AREA. 






RQSei 


TFF/PTMU Es(l_7) M:tlA) 1/SCPT(MU) 

LEFT 

BY 

TFFCCMC. 



RUXBA 


NPMAG 

_E: (-29+NPI A MMAG* NCRMALllEC 

LEFT 

BY 

TFFCOMC 



PUlkfc 



M 1 J-^7 + N M 1 






80387 


A1 

-NR. NORM CCUNT 

LEFT 

BY 

TFFCOMC 



KQ3aS 


tffnp 

El (-3a+2NPl M LCP* SEMI LATUS RECTUM. mCIGHT NR 

LEFT 

BY 

TFFCOMC 



RQ391 



M: (-36+2NR) 






PC392 


TFFALFA El (26-NF) l/M ALFA. HEIGHT NR 

LEFT 

BY 

TPFCCMC 



R039A 



M: (29-NR) 






R0395 


IfFRTALF EUIO + NA) SCRTfAlFAl, NORMALIZED 

LEFT 

BY 

TFFLGMC 



PL397 



M ; (9+NA) 






.. PQ39e 


>2 

-NA. NCPM CCUNT 

LFFt 

PY 

TFFCOMC 



R.ONCU 


TFFI/ALF E: (-22-2NA) SIGNEC SEMIMAJ AXIS* nEIGHTEC BY NA 

LEFT 

BY 

TFFCOMC 



P0^C2 



M: (-2C-2NAI 






fLC^Ql 

CEEPIS : 

GPRET. 

PCL^C PCLt3 






FQNCA 


PTERM 

E:(-29) MI(-271 RTEPM, TERMINAL RACIUS LENGTH 






K0N05 


PA PC 

Es(- 29) Hi(-2?) PCL UO (-NRTERM) 






ROAUb 


PEER 

E:(-29) M:(-27) POL lAC (»TFFQ1) 
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S3 














PJ^QJ 













il^Qfl 





27^r3_Ci6 

776 1^ 

1 

calctper 

SE TGO 


ENTER MlTH RPER IN MPAC 


Q4Hq 

a£f 

_1_ 



27.3C27 

03436 

_C_ 



TFjF^R, 



...C *1 1.C. 





27,3C30 

57023 

c 



♦ 3 



_ iL411 





X7»3C3L_ 

77614 


calctff 

Cl t Ah 


ENTER WITH PTERR IN RPAC 


0412 

BU 


1 iE ^ 1 

1346 

27.3032 

03676 

jC_ 



TFF SR 



0413 

R£f 


1 4 51 

76I_ 

27.3033 

CGC23 

0 

♦ 3 

STORE 

PTEP R 

El (-291 Ml (-271 


0414 





27jJ034 

776 5 7 

0 


SL* 




C415 





27*3035 

2C2C1 

0 



0,1 

Xl»-NP 


04lt 

REF 

6 

LAST 

766 

27,3036 

00021 

1 


STORE 

NF^TEFR 

RTERR E: (-29+NRI Ml (-27^NPI 


0417 





27,3037 

442 0 5 

c 


OMP 

&0SL 



0418 

REF 

_2_ 

14ST 

1343 

X7i2£4g 

CC033 

1 



TFFALFA 

ALFA El (26-NRI Ml (24-NR> 


^IS 

REF 

4 

LIST 

1343 

27,3041 

» ~ - 1 — 

15322 

0 



TFFl /4 



042C 





27,3042 

41206 

c 


POSH 

OMP 

(2-ALFA RTEPM) (-3) TO PCL+0 


J421 

RFF 

_L_ 

LIST 

1346 

27.3043 

00021 

1 



NFTE PM 

E: (-29^NPI Ml (-27+NPJ 


0422_ 





27,3044 

53725 

1 


POOL 

SP* 

RTEPR(2-ALFI PTERRI TC P0L*2 


AC423 











6i (-32 + NR) t*i (-30 + NR) 


C424 

PXf 

C 

M 

LIST 

-1343 

27. 3045 

00035 

1 



TFFNP 

LC P ei(-3e*2NPl Mi{-36+2NRl 


C42i. 





27,3046 

20573 

1 



0 ~ 6 f 1 

XI * -Nk 


042fc_ 





27,3047 

43276 

c 


DCCHP 

DAD 

DUE TC SHIFTS, PEEP PRECISION FOR 

SQPT 

A0427 











RT6RM(2-ALFA PTERRI FROM POL*2 


AC42fi 











El (-32+NRI N; (-3Q+NR) 


0429 





27,3050 

7765 7 

c 


SR* 


LEAVE El (-321 R1 (-301 


Q430 





27.3051 

20601 

1 



0,1 

XI « -NR 


„ C431 





27,3052 

71214 

c 


BGFF 

OlOAC 

CHECK TFF / TPEP SWITCH 


0432 

REF 

3 

LIST 

1346 

27,3053 

03756 

0 



TFF SW 



0433 





27,3054 

57056 

c 



♦ 2 

IF TFF, CCNTIXUF 


0434 

REF 

1 



27,3055 

15332 

1 



TFFZERCS 

IF fPER, SET C2 » 0 


0435 





27,3056 

75440 

0 

♦2 

8MN 

SUPT 

e: (-161 R: (-15) 















SiSJt 

REF 




_X7t3C57 

572 11 

1 



MAXTFFl 

NO FREE FALL CCNIC TO PTERM FROM 

HERE 

40437 











RESET POL, SET TFF«POSMAX, AND EXIT. 














0438 





27,3060 

41076 

c 


DCCMP 

bcva 

RT IS ON INeOUNC SIDE. ASSURE OVFINO^O 

0439 

REF 

1 1 

LIST 

134 3 

27,3061 

57314 

c 



TCDA1>Z1G 

ANY PORT IN A STORM, 


0440 

- i^EF 


LIST 

76 7 

27.3062 

24Q<^5 

c 


STCVL 

TFFT EM 

02 El (-16» Ml (-15) 


0441 

REF 

4 

LIST 

134C 

27, 3C63 

C2372 

0 



VCNE * 

VN/SQRT(MU) El (101 Mi (9) 


0442 





27,3064 

52441 

1 


OCT 

SL3 



0443 

REF 

17 

LIST 

134C 

27, 3063 

02327 

c 



RCNE 

SAVED RN- fc: (-29) Ml (-27) 


0444 

REF 

1 



27, 3066 

00017 

1 


STORE 

TFECl 

Ql, SAVE FCR CCNEPAST TEST. 


40445 











El (-16) Ml (-15) 


0446 





27,3067 

44240 

1 


BRN 

BDStJ 



0447 

REF 

1 



27,3070 

57111 

1 



1 NBCLNC 

USE ALTERNATE 1 


044 8 

REF 

4 

LIST 

134 6 

27, 3071 

00045 

c 



TFFtER 

02 El (-16) Hi (-15) 















A Q ^ ^ 9 








CUTBCUNO 

Z CALC 

: CCMTINUeS 

HERE 















0450 

Rfcf 



LIST 

7 6 6 

27,3072 

1404 1 

c 


STOOL 

TFf X 

NUM-C2-QI El (-16) Ml (-15) 


0451 

REF 

4 

LIST 

U46 

27,3073 

00033 

1 



T FFA LFA 

ALFA El (26-NR) H: (24-NFI 


C452 





27, 3074 

442C5 

0 


ORP 

bOSO 

















ij-ar K# — , 








uii 


A A. 


.. L 

TlilE 

CF 

FREE 

FALL 







USER'S PAGE NC. 11 EO 53 


- a453 

Jl££ 

. 1 

4JSI 

L14i: 

27,3075 

C0041 

1 



NRHAG 

RMAG £: (-29*NP1 H: (-27>NR) 












(2-RTERH ALFA) (-3) FROM P0L-*0 







ATfAClb 

51^06 

J 

SAVEDEN 

EliSH 

AfiS 

_ DEN TC PDL + C El t-31 CR (-16) 












M: (-3) CR 1-15) 

J3457 





2lUtl7 

4flQ15 

1 


OAO 

bcv 

IhDETERRINANCY TEST 

OAifi- 

ai»g 

L. 



^ 7 f J 1 C Q 

17322 1 



LlN(-22) 

-1.0-01-22) 

MSS 

RfcF 

1 



27*^3101 

57122 

1 



TFFX TEST 

GC IF DEN >/- B(-22) 






27,3102 

65345 

C 


OLGAO 

POOL 

SET DEN-0 CTFEPWISE 

^461 

a£f 

2 LAST 

1346 

27,31C3 

15332 

1 



TFF2ERLS 


40462 











XCH 2ER0 talTH PCL+C 

CAt3 





27.3104 

57545 

1 


CLCAD 

UCCiHF 


iI4 64. 

REP 

_-5_ 

L/ST 

134 6 

27.3105 

C0033 

1 



TFFALFA 

ALFA E: (26-NR) M: (24-NR) 

04 6S 





27,3106 

71240 

1 


BMN 

DLOAC 

FCR TPERJ 2 INCET AT OELE/2-0 AND 90. 

0466 

RtF 

1 



2 7,3 107 

57216 

C 



TFFFLl 

ASSUME 90, ANC LEAVE 0 IN POL* 1/Z-D/N 













AQ4fe7 











2 INCET. 47 PERIGEE FOR PARAB OR HYPEPB. 

M6e 





27,^3110 

77616 

c 

CUHRTFFl 

pvg 


RETURN TFF «L 













AQ469 








INOCliNO 

1 CALC CGNTINGES FERE 


MIC 





270 lUL 

17 745 

1 

IN8QtRC 

OLCAD 


RESET PDL+0 

04 J±. 





27.3112 

_453_45 

1 


JJL CAD 


ALTERNATE 2 CALC 

J14 7Z 

REF 

.4 

LAS7 1346 

27,3113 

0002 3 

c 



h rtPR 

E: 1-29) N: (-27) 

Q4 73 

RIF 

2 

i.41T 

T34C 

_27,3U4 

00015 C 



RMAGl 

E: (-29) PI 1-27) 

C474 

Rtf 

3 

_LA5T 

1346 

27.3115 

14043 

c 


STQDL 

TFFX 

NUH-RTERN-RN El 1-29) M: (-27) 

a47& 

REF 

5 

L4ST 

1346 

27,3116 

00045 

c 



T F F T E M 

G2 E: (-16) 4; (-15) 

04 76 





27.3117 

520 15 

1 


OAO 

GOTC 


ii477 

REF 

2_ 

L4ST 

J34 6 

27.3120 

OOP 17 

1 



TFFC 1 

01 6J (-16) R: (-15) 

0476 

REF 

1 



27, 3121 

57076 

1 



SAVELtN 

OEN * 02+Gl E: (-16) M* (-15) 













0474 





27.3122 

_6S215 

~\ 

TFFXTEST 

DAD 

POLL 

(ABS(CEN) TO PCL*2)) E: (-3) OR (-16) 

4040U 











h: t-3) OP (-15) 

C4dl 

REF 

1 



27,3123 

17324 

1 



DP(-22» 

RESTORE AeS(OEN) TO MPAC 

0482 

REP 


L^ST 

^34 7 

27.3124 

C0043 

c 



TFF A 

NGN t:(-l6) OH (-29) n:(-15) OP (-27) 

JL483 





27, 3125 

536C5 

1 


OHP 

SR* 



R.EP 

2 

L 4 ST 

1341 

27,3126 

00031 

c 



TFFP TALT 

SCRT(ALFA) Et (104NA) M: (9«N|A) 

0485 





27.3127 

572CI 




0 -3 . 2 

X2 — NA 

.04 86 





27j31iC 

77671 

1 


OOV 


CINPAC) -NUN SQPT(ALFA) ES(-3) UP (-16) 

40487 











NJ(-3) OF (-15) 

Aa486 











ABS(CEN) FPCN PDL*2 eM-3) OP (-16) 

4C4tt9 











n:(-3) oh (-15) 

C4 9C 





27.3131 

40145 

c 


OLUAC 

BOV 

(THE CLOAO IS SHARED WITH TFFELL) 

c4 9 1 

ref' 

% 

LIST 

1347 

27.3132 

00043 

c 



TFF > 

NGH C: (-U) CR (-29) H:(-15) OR 1-27) 

0492 

REF 

1 



27,3133 

572 14 

1 



TFFELL 

USE EGN FOR DELE GEQ 90, LEO -90 













AQ 4 9 3 








ctherwiTe 

CQNTINGE FCB GENERAL 

CCNIC FOR TFF £CN 













04 94 





27,3134 

4 54 7 1 

1 


OOV 

staop 


40495 











CEN FRON PCL+C E: (-3) OR (-16) 

4C496 











n: (-3) CR (-15) 

0497 

KEF 

6 

LAST 

1347 

27,3123 

77732 

1 


STORE 

TFFT EF 

2 SAVE FOP SIGN OF SOELF. 
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A04S& 










6: (-13) h: (-12) 

0499 





27t3l3E 

63406 

C 

PUSH 

L SG 

Z TO PQL*0 

iiSOQ 





27t31i7 

41206 

J 

PUSH 

OMP 

Z SU TO P0L*2 E: (-26) R: f-24) 


_82JF 

jCl 

C/ST i34< 

27j314_0 

00035 

1 


TFFNP 

LC P £; (-3a^2Nfl) M: (-164-2NR) 

0102 





21*3141 

752il 

C 

SL 

S IGN 


0103 





2?i3142 

20206 

J 


5 


0504 _ 

Mtf 

7 

LFST 

134 7 

27*3143 

00045 

c 


Tf FTEP 

AFFIX SIGN FOP 50ELF (ENTRY OISPLAV) 

0505 

Btf 

6 

LAST 

134 F 

27,3144 

14 045 

c 

STOOL 

TFF TtP 

P ZSC £* (-59+2NR) Ms (-55+2NR) 

AQ5Q6 










(ARG IS USEE IN TFF/TRIG) 

AC507 










ZSQ FROM PDL*2 Es (-261 M* (-24) 

C5ue 





27. 31**5 

41206 

c 

PUSH 

DHP 

RESTCRE PUSH LGC 

0509 

REF 

6_ 

LAST 

134 7 

27.3146 

00033 

1 


TFFALF4 

ALFA Es (2t-NR) Ms (24-NR) 

0510 





27,3147 

77657 

c 

SL* 



05 1 1 





27,3150 

202C1 

c 


0,1 

X 1»-NR 

0512 

REF 

fi_ 

XAST 

1347 

27*3151 

C0043 

c 

STORE 

TFF X 

X 

0513 





27,3 152 

41234 

1 

RTB 

OHP 


0514 

REF 

1 



27,3153 

57276 

0 


T ( X) 

PCLV 

AU515 










2SG FROM POL+2 Es (-26) Ms (-24) 

0516 





27,3154 

443C2 

0 

SR2 

BDSU 

2 ZSC TiX) €: (-29) Ms (-27) 

0517 

REF 

5 

LAST 

1347 

27,3155 

C0023 

c 


RTERP 

RTERP ES (-29) MS (-27) 

Q5ia 





27,3156 

41215 

J 

OAQ 

OMP 


0519 

Rf F 

2 

LAST 

134 7 

27,3157 

OOU15 

c 


RHAGi 

Bi (-29) MS (-27) 

4.0520 










1 FROM POL+C ES (-13) Ml (-12) 

0521 





27*3160 

51C42 

c 

SR 3 

BPL 

TFF SQRT(MU) £S (-45) Ms (-42) 

Q522_._ 

REF 

1 



27,3161 

572C2 

c 


ENOTFF 

(NO PUSH UP) 

0523 





27,3162 

75206 

1 

PUSP 

SIGN 

TFF SQRT(MU) TC P0L*0 

0524 

REF 

2_ 

LAST 

1347 

27,3163 

00017 

1 


TFFOl 

01 FOR GOnEPAST test 

0525 





27, 3164 

71244 

c 

QPL 

OLLAt 

GONE PAST 7 

0526 

R|F 

1 



27,3165 

57206 

1 


N6CTFF 

YES, TFF < 0 . 

0527 

REF 

•5 

M 

LAST 

1343 

27*3166 

00027 

1 


TFFl /ALP 

1/ALFA es (-22-2NA) Ms (-20-2NA) 

a52e 





27, 3167 

51076 

1 

OCCMP 

BPL 

ALFA > 0 7 

0529 

REF 

2 

LAST 

1341 

27.3170 

57206 

1 


NEGTFF 

NO. TFF IS NEGATIVE. 


AQ53Q 








CORRECT FOR 

ORBITAL PEP ICO. 















0531 





27,3171 

77676 

0 

OCCMP 


YES. CORRECT FOR ORB PERICO. 

0532 





27,3172 

562C5 

C 

DMP 

OOV 



0533 

REF 

1 



27, 3173 

17320 

0 


Pl/16 

2 PI (-5) 


05i4 

REF 

ii^ 

LAST 

134 7 

27,3174 

OGCil 

C 


TFFR TALF 

SORT (ALFA) Es (lOtNA) 

Ml (CiNA) 

0535 





27, 3175 

53657 

C 

SL* 

SL* 



C 5 36 





27,3176 

57o02 

I 


0 -4,2 

X2 — NA 


0537 





27,3177 

57602 

1 


0 -4,2 



0536 





27,32CQ 

43257 

c 

SL* 

OAD 



0539 





27,3201 

57576 

1 


0,2 



AC540 










TFF SQRT(PU) FRCM POL^O 

ts(-45) m:{-42) 

0541 





27,3202 

40CC5 

c 

ENDTFF DMP 

bOV 

TFF SCRT(MU) TN MPAC 

eJ(-45) MI(-42) 

0 542 

REF 

7 

LAST 

134C 

27,3203 

C0C37 

c 


TFF/FTMU 

ES (17) MS (14) 


0543 

REF 

1 



27, 3204 

572 12 

) 


MAXTFF 

SET PCSMAX IF OVFL. 



0544 


27,3205 77616 C 0tMPT>F2 HVQ 


RETUf^N TFF (-20 » CS IN MPAC. 
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io S3 


il5N5 


21»3^tA 

77745 

1 NtGTFE 

OLCAO 


AQ546 






TFF SORT(RU) 

figA? 


27^ J2fl7 

77650 

1 

GOTO 


-CL5Afi 

at£_ X 1A5J i34E 

27^3210 

S72C2 

C 

ENDT FF 



FPOM PDL^O, NEGATIVE. 


aiks 37.12H nittb i naxtfei jluaq reset pol 

.0550 . 27i3iU A35 n 5 1 NAXlFF QLOAD_ AYQ 

0551 REE 5 LAST 13^2 ^7,3213 17334 < NtAPCNE 


£XL55a THE CE FLIGHT LLLlPife HMtH &EL (tCCEMPIC ANQM> CtQ 90 AND LEG -90. 


A0553 NUW PRCH TFF){. E? (-161 CR (-291 


Afl554 Hs <-l5» OR (-27) 


0555 





27^3214 

77712 

c 

TFFELL 

SL2 


NUM F:(-14) CR (-27) MM-IT) OR (-25) 

Q556 





27.3215 

41465 

c 


8DDV 

PUSH 

TEMP SAVE C/N IN POL^O 

Afi5i7 











DEN FPCM POL-^C E:{-3)/( 16) M:(-3)/(-15) 

A 0558 











N/O TC POL*C Es (U) M: (10) 

tJ559 





27.3216 

45345 


IF Ft LI 

CLOAO 

OSU 

(ENTER NITH D/N-0 IN POL^Q) 

(^560 

ft£F 

9 

LAST 

134 E 

<7»3217 

00045 

c 



TFFTEH 

Q2 £t (-16) M: (-15) 

0561 

REF 

A 

U5T 

134 E 

27,3220 

00017 

1 



TFFCl 

01 E; (-16) M* (-151 

0502 

REF 

L_ 



27# 3221 

14Q13 



STOOL 

TFFDELC 

02-01 Ei (-16) H: (-15) 

A056 3 











D/N FROM POL+0 

0564 





27.3222 

77626 

C 


STAOR 



Q565 

REF 

JO 



27.3223 

77732 

1 


STORE 

Tf F T IP 

O/N E: (11) MS (101 

C566 





27,^32^4 

S360S 

1 


OMP 

SL* 


0 567 

REF 

4 

LAST 

1346 

27,3225 

CQ027 

1 



TFF 1 /ALF 

1/ALFA Ej (-22-2NA) Mt {-20-2NA) 

0568 





27. 3226 

57576 

1 



0.2 

1/ALFA 1 El (-11-NA) M: (-10-NAI 

. 0569 





27, 3227 

41206 

c 


PUSH 

OMP 

TO PCL^O 

0570 

REF 

11 

LAST 

1349 

27.3230 

00045 

c 



TFFTEM 

l/Z E: (11) m: (10) 

□ 5 71 





27.3231 

41057 

_c_ 


SL^ 

BCVE 


0572 





27.3232 

57576 

1 



0,2 

X2» -NA 

0573 

REF 

16 

LAST 

1269 

27.3233 

45707 

( 



SICNPPAC 

IN CASE X* 1.0. CONTINUE 

0574 

REF 

I_ 

LAST 

-L34fi 

27.3234 

_C0C43 

9 


STORE 

TFFX 

X-l/ALFA ZSC 

05 7 5 _ 





_ 27i3235 

41234 

1 


RTB 

OMP 


05 76 

ref 

2 

kAlT_ 

1146 

27,3236 

57276 C 



T ( X ) 

PCLY 

C577 

- REF 

6 LAST 

1349 

27.3237 

C0C43 

c 



TFFX 


0578 





^27, 3240 

45242 

1 


SR 3 

osu 


0579 

RfcF 

1 



27. 324 1 

17326 

0 



rP2 ( -3) 


0560 





27. 3242 

41405 

c 


DHP 

PUSH 

2(X T(X)-l) /Z ALFA El (-15-NA) 

Aosei 











Ml (-14-NA) 

A05e2 











l/ALFA Z FRCM PCL+0 El (-11-NA) 

AO 5 63 











h: (-10-NA) 

0364 





27,3243 

41345 

c 


OLCAO 

DMP 

GET SIGN FCR SOELF 

0585 

REF 

12 

LAST 

1349 

27.3244 

00045 

c 



TFFTEM 

l/Z El (U) Ml 110) 

0586 

REF 

4 

last 

1346 

27.3245 

CC015 

0 



PHAGl 

El (-29) Ml (-27) 

0 5 87 





27.3246 

43312 

( 


SL2 

UAD 


0566 

REF 

c 

LAST 

1349 

27,3247 

0001 7 

1 



TFFO 1 

01 E: (-16) M: (-15) 

0589 

REF 

13 

LAST 

1349 

27.3250 

14045 

c 


STCOL 

T FFT EH 

(CHP l/Z) »SGN OF SOELF Ei(-16) MK-IO 

0590 

REf 

7 

LAST 

1348 

27,3251 

00035 

1 



TFFNP 

LC P El (-3e+2NR) Ml (-36»2NRI 

0591 





27,3252 

53605 

1 


CMP 

SL» 

CALC FCR ARC (CP TFF/TRIG. 














111? ALG, SATHAP .004 PAGE 1350 


4Afi-: ASSffcPIt BFWKfftt }\7 Cf Af.il^kti£RAM rotOS5tj5; HV NASA ^Q31111-CM 


L 

-t JJ.£ Cf 

fRie 

£iLL 
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»3552 

R£f 

5 LIST 0349 

27t3i53 

00027 

1 


TFH /3LF 

1/ALFA 6M-22-2NA) w:t-20-2NA» 

05 S3 





lltllth 

57573 

1 


1 .2 

X2--NA 

aS94 





27.3255 

53765 

j; 

SIGN 

SL* 


ix5S5 

Rtf 

X4 

LiSJ. 

_134lX 

21,1256 

00045 C 


TFFT EF 

AFFIX SIGN FCP SDELF 

.0596 





X1^237 

575 76 

1 


0,2 


- 0597 

R£P 

-XL. 

Ii51 


21.3260 

14045 

c 

STCOL 

TFFTER 

P/ALFA E:l-59 + 2NR) MM-55 + 2NRI 

A059fi 










(ARC FOR USE IN TFF/TRIGI 

0599 

Rtf 

6 

1^57 

U9C_ 

__2 7 , 3 261 

C0027 

1 


TFF 1 /4LF 

1/ALFA E:(-22-7NA) Ft I-2C-2NAJ 

■ U6flfl 





27« 3 4t2 

M366 

j 

Sort 

DMF 


C6C1 

flEF 

2 

LIST 

1348 

27, 3263 

17320 

c 


PI /I 6 

PI (-41 

0602 





27,3264 

77615 

c 

OAO 



AQ6Q3 










2(XT(Xi-i)/2 Alfa frch pol E!(-15-na) 












NJ (-14-NA 1 

C6C5 





27. 3265 

45257 

0 

SL* 

osu 


0606 





27.3266 

575 77 

J 


0 -1,2 


C607 

RE^ 

=i_ 

LiST 

134e 

27,3267 

00013 

0 


TFFOELO 

02-01 F: (-16) n: (-15) 

occe 





27. 327C 

536C5 

1 

OMP 

SL4 


Q&09 

REF 

_L 

L1>ST 

135C 

27,3271 

GC027 

1 


TFf 1/ALF 

1/ALFA fci(-22-2NAI M!(-20-2NA) 

0610 





27,3272 

57601 

1 


0 -3,2 


0611 





27,3273 

52057 

1 

SL* 

CCTC 


- 0til2 





27,3274 

576C2 

1 


0 -4,2 


0613 

ft&F 

<9 

U it 

i34S 

27,3273 

572C2 

c 


FNLT FF 

TFF SQ«T(MUI IN MPAC EJ(-45) M:(-42) 
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TU8 tf 
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fiCfcl4 

PiilGP.ii 

feAPEl KJLl 




DATE: 01.17. 

6? 

RQ6I6 

MCO NC: 

0 




LOG section: 

TIME OF FREE FALL 

RCi61fl 

net BYl 

—Ell ..BA-LR^lEAlliEfi 






fiQ619 

FL^C1IC^^L CESCRIFTICN* THE PCLVhCHUL T<X» 

IS g$ec 

; BY TIPE OF 

FLIGHT SGCROUTINES 

CALCTFF AND 

110621 


CALCTPER TC APPRCAIRATE TPE 

SERIES 





RCh72 


2 3 






RQ62a 


1/3 -X/5 4X /7 -X /9 

• • • _ 













Bfl624 


hHEftE X • ALFA 27 IF 

ALFA 1 1 

LEO 1 




R(itZ5 


X • 1/<ALEA 22) IF 

ALFA 1 1 

G 1 












RQ626 


_JLLS£ X IS KEG FCR HYPEftBCLIC CPwITS 





RQ627 


X - Q FOB P.AHABQLIC CHeiTS 





RU<i2fi 


1 1« PCSUIVE FCR HLIPTIC CRfilTS 




HU629 


FCR FLIGHT 27fl. THE PCLYNCHIAL TIX) IS 

FITTED 

OVFP^ THE RANGE (0, + U AND HA3 

A MAXIMUM 

AOfcai 


CEVIATICR FBCR IHE SERIES OF 

2 E-5 

i T(X) 

IS A CHEBYCHEV TYPE FIT AND PAS OBTAINED USING 

P_Q633 


P/C PBDCPAH A0TCORFn2^4RPa 

ARC IS VALID TO THE SAPE TCLEPANCE OVEP THE RANGE 

(-.08 ,+ 11.) 

EiL6.15 

Ci>LLI^C 

SECLENCE* file 






RC636 


T (X ) 






RG637 


cinPACJ • X 















aLffCillRES CILLEC: hCNE 






RU639 

MFML txn HCCE: TC CAH21G 






- R06AL 

ALiPK? 1 

hCNP 






RCI641 

CUPU 1 

CiPPACI ■ T(X» 







EP4 SAeiE 

IMTIALI 2AT ICN HECUIBEC: 






P.UfeAl 


CIMPACI - X 






RQ6^^ 

CEEPiS : 
















REf _m_ 

LAST 126C 27.3276 G 7171 

1 T(X) 

TC 

POLY 



- 


27,3277 C00C4 

C 

oec 

A 

N-1 


C6^ 7 


27.3300 12523 

C 

2DEC 

3.333333333 

E-i 


0647 


27.3301 12525 

C 
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_1 








HA Cl 

14.3724 

62413 C 

2DEC 

-.6423950835 fl-l STAR 4 

2 

0601 

14,3725 

43135 1 





J)iiQ2 .. _ . 1^ .312 6 t731l C 2DEC ♦.4 7767A62BC 6-1 STAR 3 X 


Q6C2 

14,3727 

03423 1 




0603 

^,3730 _ 

C167< C 

20EC 

+ .1U4935557 e-1 STAR 3 

V 


06C3 l<n373l UQ5<i C 


fliLfli 

14.3732 

15735 1 

2060 

♦.E7C7790771 B-l STAR 3 

Z 

Q604 

14,3733 

154C5 1 





L603 i^# 3734 J6745 C 2DEC >.<> 3 A272669 1 B-l STAR 2 X 


06C5 

14.3735 

21763 

C 




0606 

14.3736 

02613 

1 

20EC 

+.1722973829 B-l STAR 2 

Y 


0606 U, 3737 2^675 C 



11607 

15i374Q 

730C7 

1 

20EC 

-.3116128956 B-l STAR 2 

2 


Ip 

0607 

14.3 741 

3C43C 

C 




■■ 1 


0606 l <e« 37A2 157 77 1 2QEC ♦.6 7^9163324 6-1 STAR I X 


Cftna 


14.3743 

12457 1 



0609 


14.3744 

00324 1 

20EC 

+.0256916990 6-1 STAR 1 Y 


C6C9 

14.3745 

03265 



lU 

14.3746 

Q7571 

JL 

20EC +.4825778442 B-l STAR 1 


tLtlO 1^.3747 17 0 20 _0 
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PICGRAP CESCRIPTICN 



CATE 2C LECEHBER 196? 



nuuGi 

PPCCRAP NAPE - J11F-CH£CK 



LOG SECTION AGC BLCCK TRO SELF-CHECK 


f dOQ^ 

MCC Nt - 1 



assembly subroutine UTILITYM 

REV 25 



MCC ET - GAUNTT 














jumcfi . 

FLACllCNAL DESCRIETICN 














FRCCfiiM HAS TWC PAIN PARTS 

. THE FIRST IS SELF-CHECK HHICH RUNS 

AS A ZERO PRIORITY JOB MITH NC CORE SET. AS 


ROD 11 

PAH CF THE EACK-LP IDLE LCCP. 

the seccnc is 

SHOh-BANKSUH HHICH RiiNS 

AS A REGULAR EXECUTIVE JOB WITH ITS 

CRN 


.. RGQ13 

iliPllNC VERfi. 






RQQIA 

TEE PLFFCSE CF SELF-CHECK 

IS TC CHECK CUT VARIOUS PARTS CF THE 

COMPUTER AS OLTLINEC BELOW IN THE CPTICNS. 


KQ016 

THE PLRPOSE CF SHOw-BANKSUH IS TC DISPLAY THE SUM CF EACH BANK 

f CNE AT A TIME. 



R0020 

IN ALL THERE ABE 7 PCSSlflLE CPTICNS IN 

THIS BLOCK II VEPSICN CF SELF-CFECK. MCRE DETAIL OESCBIPTION 

MAY BE 


-- eQQ22 

FCLND IN E-2065 BLOCK II ACC SELF-CHECK AND 

SHOW BANKSUM £Y EC»>1N 0. 

SMALLY DECEMBER 1966. ANO ADDENDA 2 

AND 3. 



UE CJPFERENT CPTJQNS ARE 

CCNTPCLLED BY 

PUTTING DIFFERENT NURBERS IN THE SMCCE REGISTER (NOUN 27J. BELOh IS 


.R0U26 

A CESCPlPTLQIi CF hHAT PARTS CF 

THE CCRPLIER 

THAT ARE CHECKED EY THE 

CPTIONS, AND The CORRESPONDING NUMBER 

f IN 


- P-CU2fi 

OCTAL. tC LCAO INTC SPCOt. 






- J-OCil 

♦-4 EPAS/eLE MEPCPT 






P0033 - 

♦-5 fixec HEHQRT 






R003A 

♦-1.2t2.6.7.1C EVERYTHING IN 

CPT ICNS A ANC 

5. 





R0O36 -C S4><E AS 1 C IMIL AN ERROR IS CfcTECTtU. 


H0037 4C ^C ChfcCK , PITS CCWPtTER !^TQ THE E/iCKCP IDLE LOOP* 


Rt03 8 


P 003^ ISE Of £ PEHCP 7 PES EPVE O PCR S£lP« CHECK (EVEN IN IDLE LOOP) AS TEMP STORAGE 6V OTHER PROGRAMS IS DANGEROUS. 

MOAl <PC CE SET GREATER T HA N OCT 10 PUIS CCMPUTER INTO 6 AC KUP IClE LCCP. 


FC0A2 

CALIIKC SECUENCE 












B0tl63 

TC call SELF-CHECK KEY IN 






R Q C44 

V 21 N 2T E QPTICN NUMBER E 






pguA7 

1C CALL SHOW-EANKSUM KEY IN 







V 91 E DISPLAYS FIRST BANK 






R06a9 

V 33 £ PROCEED, DISPLAYS NEXT EANK 














R0C5C 

EXIT NCCES, NORMAL AND ALARM 













R005»l 

SELF-CHECK NCRMALLY CCNT1NU6S INCEFINITELY UNLESS THEME 

IS AN 

ERROR OETECTEO. 

IF SC ♦ OPTION NUMBERS PUT 

R0053 

CCNfLltP INTO EACXLP IDLE LCCF. - CPTICN NUMBERS RESTART 

THE 

CPTION 

• 



KG0 54 

TFE -C CPTION FPCCEECS FPCM THE LINE FCLLCwiNG THE 

L INt 

WHERE 

the 

ERROR WAS DETECTED. 

fi0057 

SFCV-EANKSUM PHCCE605 UNI it A TERMINATE IS KEYED IN 

IV 

3A El. 

THE 

COMPUTER (S 

PUT INTO THE BACKUP IDLE LOOP 

RQd59 















RC06Q 

Cl 1PL 1 
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kQil41 i£i.E-ChtCJLillflJL_CliJ£CllAG AN £PRC« lCACS IHE SELF-CHECK ALARM CONSTANT <CUu2) INTt THE EflILREG SET ANO 

liJlKS CN Th£ ALAiif LIGHT. THE CPERATCF PAY THEN DISPLAY THE THREE FAILREGS 0V KEYING IN V 0^ h O'? E, FOR FURTHER 
ftOn#>K ffcKFHfcnirK hF ma\ kpY FN W dS N ns f, the CSKY display IN R1 RILL BE ADORESS*! GF KHERE THE ERROR NAS DETECTED* 

ROQil .LN__R2 THE EACCN QF SELF-CHECH. AND IN R3 THE^ TCTAL riUH&fR QF fR RCRS D ETECTED BY SELF-CHECK SINCE THE LAST HAN 

INilUUC fRFSi: START jISi^APl) . 

fcQQ73 <HCh>EANKSuM SIARTINC hITH £ANK C CISPLAYS IN R 1 THE BANK SUF (A ♦-NCMBER EQUAL TO THE BANK NUHBER?, IN P2 

RM75 TF£ flJNK NLFIBER* ANC iN R3 THE eUGCER WORD. 


F.flQIl* iJiSIlLE INlTiALllAllCN RECUIPEC 

AQulY iCCCPFL ISHhC EV Ei^ESfTtART 

ROQTfi JHCOE SET TC ♦Q 


11 CC 79 CtlRll 


kiiUiiJ ALL EXITS fRO>. THE CHECK CP EBASAflLfc tERASCHKl PESTQFE CPICINAL CONTENTS TO REGISTERS UNDER CHECK. 

Bi3Ue2 t>C£R_llCK IS A RESTART. RESTART THAT CCCURS DURING EPASCHK RESTCRES ERASABLE. UNLESS THERE IS EYICENCE TO DOUBT 

RQOS^ t FEHCRYi IN Pii'ICF CASE PPCGRAR TH|N CCES A FRESH START (DOFSTAPTI. 
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^5 lt6 - 
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25 
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L. 



93 . 2 C 00 


SLTLCC 
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. . 0087 . 





93.3227 
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RFF 
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76 

L AS T 

1171 

4712 

501 n 
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bITl 

0 u 9 Q 

REF 

■ ■ 
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117 1 

4711 


JlCUALI 

blT 2 

0091 

R t F 

- m. ^ 

LAST 

117 1 

4710 

sei T 3 

EQUALS 

BIT 3 

0092 

REF 

AC 

LAST 

117 1 

4 7 C 7 

56174 

equal S 

617 4 

0093 

REE 

29 

LAST 

i 08 £ 

47 C 6 

sens 

EQUALS 

PITS 

009 '! 

REE 

A 5 

L A 57 

U 2 E 

47C5 

Sbt 16 

EQUALS 

P IT 6 

CC 9 *» 

REF 

5 1 

LAST 

116 e 

4 7 C 4 

SBI T7 

equal s 

BIT? 

QQ96 

a£j_ 

26 

LAST 1193 

4703 

sene 

equals 

bIT 8 

C 097 

REE 

32 

LAST 

lUO 1 

47 C 2 

sens 

EQUAL S 

B IT 9 

0098 

REF 

2 E 

LAS 1 

117 1 

4701 

SBITIO 

EQUALS 

BITl C 

_a.C99 

ftJi. 

3A 

_ Li S T 

1171 

47C0 

senii 

EQUALS 

B I T 1 1 

UlUC 

REE 

31 

LAST 

117 1 

4677 

56IT12 

EQUALS 

B1T12 

OiOi 

REF 

AA 

LAST 

117 1 

4676 

sfcun 

equals 

BIT13 

3102 

REF 

75 

LAST 

133 1 

4 6 75 

sei Ti4 

EQUALS 

B ITl 4 

0103 

REF 

A9 

LAST 

1171 

4674 

SB! T15 

EQUAL S 

BIT15 










0109 

&£f_ 

2Ae 

LAST 

129C 

4 J J 4 

S+ZEBC 

equals 

2ERC 

0105 

REF 

77 

LAST 

1359 

4712 

S+l 

equals 

6ITa 

CiC6 

REF 

a; 

LAST 

135' 

4711 

S42 

EQUALS 

B 1 T2 

01t7 

BEE 

A5 

last 

1333 

6214 

S*3 

EQUALS 

three 

cue 

REE 

19 

LAST 

1331 

4710 

S44 

EQUALS 

FOUR 

0109 

REE 

27 

LAST 

1106 

4715 

s 

EQUALS 

FIVE 
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REF 

AC 

LAST 

13 3 A 

^2il 


S + 6 

equal s 

SIX 



cm 

Rif 

Ifi 

LAST 

LAST 

1171 

A 7 16 


$♦7 

EQUAL S 

SEVt ^ 



Q112 

REF 

13 

1161 

A 3 73 


SOB ns 

EQUALS 

LCQ6 

00377 



REF 

A 

LAST 

105S 

A 726 


CNTRCCN 


PCT5C 

USEC IN CNTPCHK 


QUA 





A3t J221 

CQC61 C 

i_RASC£Nl 

OCTAL 

0006 1 

USED IN ERASCHK 


0115 





A3. 3230 

C1373 1 

^ n Jk ^ ^ ^ 


01373 

USEC IN EPASCNK 


lUJJi 

Rif 

e 

LAll 

im 

A7AA 


ERASCCN6 

ft 

OCT 1 AGO 

USED IN ERASCHK 


0117 





A3, 3231 

CIA61 C 

ERASC0N3 

OCIAL 

01A6 1 

USED IN ERASCHK 


Qiia 





A3. 3232 

01773 C 

EPASCCNA 

octal 

01773 

USEC IN ERASCHK 


_C1I9 

Ri.F 

IS 

_USJ 

1<I9-A 



sioeiTs 

EQUALS 

LORIO 

01777. USED IN ERASCHK 


QUO 

REF 


LAST 

916 

A755 


SBNK03 

EQUALS 

PR106 

06000. USEC IN POPECHK 


Q121 

REF 

_jL_ 

LAST 

1171 

A36A 


-FAJiACRS 

a 

HI5 

FCR flCPECHK 


C122 





A3, 3233 

0C060 1 

SIXTY 

OCTAL 

0006 C 



0123 





A3,323A 

60017 1 

SUPRCCN 

octal 

60017 

USEC IN ROPECHK 


C12A 





A 3, 3235 

17777 C 

S13EI TS 

OCTAL 

1 777 7 



0125 





A3. 3236 

25252 C 

CUNC*Si 

OCTAL 

25252 

USED IN CYCLSHFT 


0126 





A3. 3237 

52A0C 1 

CGNC+S2 

OCTAL 

52A0C 

USEC IN CYCLSHFT 



0127 A3.32^0 76777 1 ERASCQNS OCTAL 76777 


Q12£ REF 2 L^St 196 __ 5 630 S-7 PC T77770 

0129 REF 3 E/ST 108C 6061 S-9 EQUALS NEGA 

0130 REF 2 LIST 561 771A ^ EQUALS NEG3 

0131 REF 6 LiSI 1 175 7115 S-2 EQUALS NEG2 

0132 REF 29 LAST HTJ 7116 S-1 EQUALS NEGCNE 

0133 REF IS LAST 1068 A713 S-ZERC EQUALS NECO 


013A 

REF 

A 6 

LAST 

1202 

E3. lAOO 




EbANK° 

LSTl 



0135 

REF 

3 

LAST 

256 

32A1 

C137I 


AUK SI 

ACRES 

SKEF FI 



0136 

REF 

A 

LAST 

1167 

A3,32A2 

03333 

1 

SELFACKS 

ACRES 

SELFCHK 

SELFCHK RETURN 

ADDRESS. SHOULD BE PUT 

A0137_ 











IN SELFRET k,H£N 

GOING FROM SELFCHK TO 

AQiie 











SHCWSUK AND PUT 

IN SKEEPI WHEN GOING 

AC139 











FROH SHONSU** TO 

SELF-CHECK. 














UlAG 

REF 

fi_ 

last 

lei 

A3.32A3 

1 1360 

<: 

PRbRRCRS 

CA 

EFESTCFE 

IS IT NECESSARY 

TO RESTORE ERASABLE 

OlAl 





A 3 f 3 2 ^ A 

C 0006 

1 


EXTEND 




01A2 

REF 

1 



A3,3iA5 

1 32 5 A 

c 


6ZF 

EPRCRS 

NC 


QIA3 





A3,32A6 

0 0006 

1 


EXTEND 




01A<i 

REF 

3 

LAST 

18 1 

A3, 32A7 

3 13 7 6 

1 


OCA 

SKEE F5 



01A5 

REF 

3 

LAST 

18 1 

A3, 3250 

51*377 

0 


INDEX 

SKEE F? 



C1A6 





A3, 3251 

52 OCl 

1 


OXCH 

OOOC 

RESTCPE the Two 

ERASAblH REGISTERS 

C1A7 

REF 

2 

LAST 

256 

A3, 3252 

3 ^714 

1 


CA 

S+ZFPC 



ClAE 

REF 

T 

LAST 

136C 

A3, 3253 

55*360 

1 


TS 

LkESTCPE 



UIA9 





A3,325A 

C COOA 

c 

eprCrS 

INHINT 




015C 

REF 

3C2 

LAST 

1283 

A3, 3255 

3 0CC2 

c 


CA 

G 



0151 

REF 

3 

LAST 

38C 

A3, 3256 

55*357 

c 


ts 

SFAI L 

SAVE G FCR failure LCCATICN 

0152 

REF 


LAST 

26A 

A3, 3257 

55*363 

1 


IS 

ALMCADF 

FGK DISPLAY WITH ftbdNK AND ERCOUNT 

vj153 

REF 

2 

LAST 

178 

A3, 3260 

25*365 

c 


INCR 

EKCCLNT 

KEEP track CF number OF RALFUNCT I GNS . 

0I5A 

rO 

1 



A3, 3261 

0 55AI 

1 

TCALAPH2 

tc 

ALARR2 



Q155 





A3, 3262 

CU02 

1 


DC T 

Oil CT~ 

SELF-CHECK PALFLNCTICN INCKATCR 

0156 

REF 

5 

LAST 

26 A 

A3. 3263 

U'362 

c 


TTS 

SHODE 



0157 

REF 

1 

LAST 

136C 

A3.326A 

3, A71A 

1 

fiDLcrcp 

CA 

s+liPO 
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E3 S<* 


alia 

Alt 

t 

LAST 

llfcX 

93^32A5_ 

55*362 



TS 

SPCPE 


015 9 

P£f 

f< 

CJiT 

136C 

93«3266 

0 3333 

1 


TC 

SELFCHK 

GG TC IDLE LCCP 

iJl feQ 

RF» 

k. 

liST 

136C 

43.3267 

0 1357 

1 


JX 

SFAIL 

^QNTINOE KITH SELF-CHECK 


iUtl 

atf 

3 AC 

USl 

133 4 

J27C 

COO 

C 

-IChK. __ 

CCS 

A 


Cl#iP 

HEF 

L 



A3. 3271 

1 3243 

X. 


TCF 

PPERRCPS 


jixai 

A£f 

2 

LAST 

1361 

9 3 1 3 2.12 

_ 1 3243 

c 


TCF 

PRERRCRS 


016^ 

Rif 

3U 

LASl 

1361 

43i3272 

1C 000 

c 


CCS 

A 


Q165 

ft£f 

1 

Li>S7 

136 1 

43.3274 

1 3243 

c 


_1XP __ 

PPERPCRS 


Qua 

HEF 

2C3 

L4ST 

136C 

. 43.3275 

C CCC2 

c 


TC 

0 














-Ol^? 





0^3276 

C flCG6 

1 

SHQCeCHK 

EXTCMU 



OA 6 & 

P£f 

^ 9 

LIST 

136C 

_4J.3i77 

23*371 

c 


QXCH 

SKEE FI 


Cits 

ft£f 

1 



A3i3iOQ 

0 3327 

1 


TC 

CHECKNJ 

CHECK FOB NEW JC6 

Cllil 

£££■ 

L 

LiST 

136 1 

43.33C1 

11*312 

c 


CCS 

SMODE 


i3Ul 

__ JLlf 

_ A 



._4J|1302 

Q 3307 

c 


TC 

SOFT ICNS 


J172 

JIEF 

1 



43.3303 

Jl. 3 3 CO 

.1 


TC 

SMCOECHK *2 

TO BACKUP IDLE LCOP 

Q173 

R£f 

2. 

LIST 

1361 

43.33C4 

Q 3307 

c 


TC 

SOPT ICNS 


Qllh 

REF 

2 

LIST 

79 

4jj33C5 

25*366 

( 


INCR 

scruNT 


iil75 

RfcF 


LIST 

136 1 

43.3306 

0 1371 

c 


TC 

SKEE FI 

CCNTINOE WITH SELF-CHECK 













fll7C 

R£f 

1 



41i33C7 

6 56l3Q 

1 

SQPT IONS 

AD 

S-7 


C177 





43. 331C 

C C0C6 

1 


EXTEND 



0178 





--^2^2311 

6 3313 C 


aZHP 

♦2 

FCR CPTIQNS BELCH NINE. 

/9 

REF 

L 



43,3312 

0 3264 

] 

6NKCP IN 

TC 

SIDLCCP 

illegal CPTICh. CO TO IDLE LCCP. 

GlOO 

KEF 

3 

LIST 

136 1 

43,3313 

25*366 

c 


INCP 

SCODNT 

FOP CPTIQNS BELCH NINE. 

QlBl 

&fj_ 

_L 



43.3314 

6 4716 

c 


AO 

S + 7 



^ 0AB2_ 

R£t 

142 

Llil 

1 

43tl315 

5C CLCC 1 


INDEX 

A 


0183 

REf 

L 



43.3316 

C 3317 

1 


TC 

SCPT ICM 


Ji8^ 

Pit 

6 

LIST 

1361 

43,3317 

C 1371 

c 

SCPT ICNl 

TC 

SKEE Pi 

HAS TC+TCF 

ai8t> 

REF 

7 

LIST 

136J 

43,3320 

C 1371 

c 

S0PT1CN2 

TC 

SKte FI 

HAS INiCUTl 

0186 

g£l_ 

a. 

LIST 

1361 

43.3321 

C 1371 

c 

SGPTICN3 

TC 

SKEIFI 

WAS CCUNTCHK 

0167 

KEF 

__L 



43.3322 

0 3334 

c 

SOPT ICN4 

TC 

EKASChK 


_ 01A8. 

PiF 

1 



43,3323 

0 3515 

c 

SOP T ICN5 

TC 

KOPECHK 


0169 

REF 

9 

LIST 

136 1 

43.3324 

(L J37i 

c 

S0PTICN6 

TC 

SKEE FI 


Q19g 

KEF 

1C 

LIST 

136 ] 

^ ^ 

43,3325 

0 1371 

c 

SCPTICK7 

TC 

SKEE FI 


OISI 

REF 

1 1 

LIST 

136 1 

43,3326 

C 1371 

c 

SOPTCNIO 

TC 

SKEE FI 

CCNTINUE with self-check 













1 92 





43,3327 

C 0C06 

1 

CHECKhJ 

EXTEND 



0193 

REF 

7 

LIST 

uei 

43,3330 

23*361 

1 


CXCH 

SELFFET 

SAVE RETURN ACORESS WHILE TESTING NEHJOB 

0199 

REF 

__41 

LIST 

1227 

43,3331 

C 4574 

c 


TC 

POST JLKP 

TC SEE IF ANY JOBS HIVE BFCCHE ACTIVE. 

0195 

REF 

2 

LIST 

1162 

43,3332 

03231 

1 


CACP 

ADVAN 














ol9c 

a£F_ 

1 

LIST 

136 1 

*3, 3333 

C 3276 

1 

SELFCHK 

TC 

SMDDECHK 

♦* CHARLEY, CCHE IN HERE 
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SKEEP7 
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eeiKC CHECKEo. 
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SREEPE 
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6 (X> 1 1 
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SPEEP! 
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e 1X1 . 
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SPEEP4 
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« 
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SKEE P2 


0^07 

REP 

A_ 

LAST 
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1 

OEBANK 
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LAST 
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TS 

EBANK 


0209 

REF 
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CA 
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HEF 
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LAST 
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GC TC AD+5 







AOl^S 

AO 

TC PHASCHhC 



UPON A RESTART THE LAST DISPLAY WCULO BE 

A015C 

G+ i 

UCT 10ul5 



RESTARTED AND A JOB WITH THE PREVIOUSLY 

- AOISI 

AC+2 




STORED PRICRTTY WCULO BE BEGUN AT AC*2 

A01E2 





BY MEANS CF GROUP 5 


c 


* a gni r — utM i \ nia — — aajX — fkliimah — 1 . 111 ^ 1 ^ — taj — iiii-aA — zl ^ 111 1 -* Xti.f alii^« ^AirAr aUU^ rabt iJfZ 

L 

PJll£ t lAflL E MIN T Eh AN C £ 


USER'S PAGE NO. 5 

FO SA 







Rtil53 

lh£ htVAC-f livCkAC CI-CICE fLR JCES HCLCS HERE ^LSC - 

NEGATIVE ERIOPITV 

CAUSES A NUVAC CAlCt PCSHIVE A 

F INDVAC . 













fUii55 

SLifAEl CF_ JUTS 










am 56 

-■1YE£ i 

TiQ OOP PPP FPP GCG 





Kali? , 

lY^LL ,l__ 

TLl CAP PPP PPP GGG 











■ mi C- 

ILCUAU XJtX CJN GGC 





» 


* 
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CAP 2 A^<;F>ai f RFVisinh ?^T cp Anc prcgram cglcssl^ by hasa 2 u 2 iiii-c 2 i i: n 


L RHXH liL£m*A JfJI fcAA&C^ USIB ' 5 P/»Ci F NO. 6 EO 5^ 


pLisq 

2fhSChNG IS LSEb hh i h CNE 1 Sh£5 IC START 

UP A GRCUP CP CHANCE A GRCUP WHILE UNDER THE CONTROL OF A DIFFERENT 



iifliti 

Q&CLP* FLP EXAPPLEt CRANGE THE RKAiE CR GROUP 3 WHILE THE P0R7ICN OF THE PROGRAM IS UNOER CROUP 5. ALL 2PHSChNG 



RCi/il — 

f AlLS ARE JlALE IK TFE J^QlLLWUsC MAShRP. 





>Qlt^ 


TC 2PHSCHNG 



kjy.l t 5 . 


OCT XXXXX 



AUlfc6 


OCT VYYYV 








RU167 

Jitf_R£_nCJ.-lJLXXl MLST DE OF TYPE A AUC CCT 

YVYYY HAY EE OF EITHER TYPE A OR TYPE B OR TYPEC. THERE IS ONE 



kQ 169 

CIFFEPEWCE NOTE- IF LCNGBASI IS TC EE 

SET THIS INFCRMATICN IS GIVEN IN THE OCT YYYYY INFGRMATIONf IT WILL 



POl 7 1 

at CISPEGAPLEC IF GIVEN WITH THE CCT XXXXX 

INFGRMATION. A COLPLE OF EXAMPLES MAY HELP# 




- iUJll3 






-AC 

TC 

2PHSCHNG 

SET TBASET AND IF A RESTART OCCURS START 

AC17A 






AC^ 1 

OCT 

ago 8 5 

the TWO entries in 3.S TABLE LOCATION 

AC1175 






AO + 2 

QCT 

U5C25 

THIS IS OF TYPE Cf SET THE JOB TO BE 

ACJL16- 






^ L> 3 

OCT 

1 8C0C 

TO BE LCCATICN AO+A# WITH A PPICRITY 18# 

AQ1L7 






AC+A 



FOR GROUP 5 PHASE INFORMATION 


„ 0170 

REF 

_3_lAiI liejJ TC 

1360 : 

lA 

3A* 


COUNT 

02/PHASF 



C179 



5261 

0 OOOA 

_£_ 

2FHSCHNG 

INHlNT 


THE ENTRY FOR A DOUBLE PHASE CHANGE 

UI8C 

REF 

3C£ LAST 136E 

5262 

5C CC2 

C 


NDX 

Q 


Q1 8 



5263 

3 OCCO 

1 


CA 

0 



Cib2 R£f 3CS L4S1 1373 526^ 24 002 C INCP w 


01B3 

REF 

1 



5265 

5A C72 

C 

TS 

TEMPP2 





















QlfiA 

RTF 

U_ 



5266 

_ _7 A 7 16 

1 

MASK 

0CT7 











5.26 7 

6 (100 1 

1 

DOUBLE 







. Glfl6 

REF 

1 



5270 

5A C71 

c 

IS 

TEMPG2 





















LIB? 

Rif 

^2 

LAST 

J13 li 

5 271 

3 0Q7 2 

1 

CA 

TEMPF2 






U 1 G 6 

REF 

1 



5272 

7 A765 

c 

MASK 

LCT17770 

NEED ONLY 

177C. BUT WHY 

GET A NEW 

CONST. 

L189 





5 2 7 3 

0 QQC6 

1 

EXTEND 








PEF 

22 

LAST 

1359 

527A 

1 A677 

I 

MP 

BiT12 






0191 

REF 


LAST 

1373 

5275 

56 C72 

1 

XCH 

TEHPP2 





















0152^. 

HEF 

;c 

JJST 

135 9 

5276 

7 A6 7 A 

1 

MASK 

6 in 5 






. U193 

REF 

1 



5277 

5A 066 

c 

T5 

TEMPSW2 

indicates 

li^ETHfcR TO 

SET 

TBASE OR 

NOT 
















019A 

REF 


LAST 

1313 

5300 

1 53CA 

1 

TCF 

PHASCHNG +3 






















L1.95_ 





53CI 

_JI.O.CCA 

c 

PHASCHNC INHIhT 







Q196 

REF 

If 7 

LAST 

133A 

5202 

3 A712 

1 

CA 

ONE 

INulC^TESWE CAME FROM 

A 

phaschng 

ENTRY 

0197 

REF 

2 

LAST 

13 7 3 

5203 

5A 066 

c 

TS 

TEMP Sw2 





















Ci9o 

REF 

2 I C 

LAST 

1373 

530A 

5C 0C2 

c 

NOX 

0 






0199 





5 3C5 

3 COCC 

1 

CA 

0 






G20C 

PEF 

3 1 1 

LAST 

1373 

5306 

2A 0C2 

c 

INCH 

Q 






u2Ci 

REF 

1 



5307 

5A 065 

c 

TS 

TEMPSh 
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L PhiSE liELt PAINT £^/^^iC£ "oSeT* S P/»GE PC. T EO S4 


0202 5110 T) oadfe 1 tXTENP 

Q2C3 Rtf 1 531 1 3 531<i 1 DCA ADPPtHP2 OFF TC SPITChEO BANK 

U211A S312 52 QC6 i DTCB 


C2C3 REf A1 LAlT^iaiil EltlACC FbANK« L ST 1 

02 QE REE 1 bill Q2355 C ADRPCHNZ 2CA0P PHSCHhC2 

0206 Rtf 1 _ 531A 201C3 1 


( 



1 



0207 

REE 

X 



5315 

22.013 C 

CNECRTWC 

LXCH 

TEMPECCN 



0206 

REF 

22 

LA5T 

J36E 

53U 

22 006 1 


LXCH 

OEANK 



020S 

REF 

2_ 

L^ST 

1374 

5317 

22 013 C 


LXCH 

TEMPtfcCN 















Q2JJ; 

REF 

1 



5 320 

7 4761 1 


MASK 

OCT 14000 

SEE hHAT KIND OF PHASE CHANCE IT IS 


0211 

REF 

1<7 

-LAST 

136 5 

1321 

1C OCO C 


CCS 

A 



0212 

REF 

1 



5322 

1 saea c 


TCF 

CHECKtr 

IT IS OF T>Pf :b: 














Q211 

fi£f 

L_ 



5323 

3 0C62 C 


C.A 

TEMPF 



Q21^ 

Pf F 

!2 

LIST 

135 5 

5324 

7 47C4 1 


MASK 

BIT? 



0215 

REF 

lAE 

LAST 

1374 

5325 

iO 000 c 


CCS 

A 

SHALL PE USE THE OLD PRIORITY 


.. il21fc 

--REF 

L_ 



5 326 

1 5350 C 


TCF 

GETPR IC 

NO GET A NEW PPIORITV (OH DELTA Tl 














11217 

REF 

A 

LIST 

2 14 

5327 

SO 061 C 

CLUPRIQ 

NOX 

T EMPC 

USE THE OLE PRIORITY (OR DELTA TJ 


0216 

REF 

L_ 



_ 1330 

3 1052 1 


CA 

PHSPRCTI -2 



02 19 

RTF 

1 



53 3 1 

34 07C 1 


TS 

TEMPFP 















0220 

REf 

2_ 

LAST 

-13 74 

5332 

X QC62 C 

CUNl 

CA 

TEhPF 

SEE IF A 2CA0R IS GIVEN 


0221 

REF 

2S 

LIST 

1355 

5333 

7 47C3 C 


MASK 

F IT8 



_0222 

REF 

3AS 

LIST 

1374 

5334 

10 000 C 


CCS 

A 



0223 

Pfcf 

1 



5335 

1 5354 1 


TCF 

GETf, EPPM 





- 

0224 

REF 

312 

LIST 

1373 

5336 

3 C0C2 
54 063 

C 

C 

CA 

TS 

0 



■ 


0225 

PEF 

L 



5337 

TFMPNM 




C226 

REF 

1 



5340 

3 OOCt 

1 

CA 

6 b 






0227 





5341 

0 C006 

1 

EXTEND 

P ICK 

UP 

USERS StPERBANK 


■ 

02^6 

REF 

22 

_LIST 

1199 

U.A2 

04 007 

1 

POK 

SUF'ERBNK 






C22S 

REF 

1 



5343 

54 064 

I 

TS 

TtMPBB 






0230 

PEF 

L_ 



5 344 

3 5347 

1 T0CCN2 

CA 

CCN2A0R 

BACK 

TC 

SWITCHED QANK 

— - - 


0231 RE> 3 LAST 1 37A bl^J 22 073 C LXCH TEPPeeCN 

.02 32 53A6 52 CC6 C DTCB ' _ ^ ^ 


— 

0233 

- J234 

REF 

1 



5347 

C2443 

C 

C 

CQN2ACR 

GENAOP 

L 2 



REF 

3 13 

-LIST 

U74 

5350 

50 002 

GET PH 10 

NUX 

g 

DONJT CAHE IF DIRECT OH INDIHECT 





0235 





5351 

3 0000 

1 


CA 

c 

LEAVE THAT DECISION TO RESTARTS 



0236 

REF 

3 14 

LIST 

1374 

5352 

24 002 

C 


I NCR 

u 

OETAIN RETURN ACOHESS 


— 

U2 37 

REF 

1 



5353 

1 5331 

1 


TCF 

COM -1 




0238 5'35<i C C0C6 1 GEThfhNM EXTEND ^ 
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L PH4SE Ti£L£ H^lNTtN^N CE ^USER'S PAGE NC. 8 EO 54 


0239 AEf^lXa LIST 1374 535 5 5 0QC2 C _ INDEX _Q _ __ 

024Q 5356 _3_ QCOl C DCA 0 

0?4 1 ft EP 2 LAST 137 4 52S7 52 Q64 1 DXLH TEMPKH 

il242 _ Jlif 62 __L/LSJ- 1292 __5J6£ 2_41ii 1 CA Tte L 

0243 REf 316 L/ST 13Li il61 26 QQ2 1 AOS L OBTAIN PETUPN ACC«ESS 


11244 

klf 

1 



5362 

1 5344 C 

TCF 

TCCCN2 












0245 


6_ 

i i5T 


4 7A1 

1 ' 1 ■ 1 H ■■ IJ fl 

iJ V 1 i. 1 U VJ LJ 


PR 1C14 


0246 

REF 

13 

LA S 7 

1331 

0C61 

TEHPG 

EQUALS 

ITEMPl 


02 4 7 

REF 

16 

LAST 

1331 

0C62 

TEMPP 

EQUALS 

iTERf2 


0246 

REF 

4_ 

LAST 

65 

00 6 3 

TEHPNR 

equals 

1TENP3 


024 9 

PEF 


LAST 

65 

QC64 

T ER P 0 6 

EQUALS 

I TERF4 


0250 

REF 

2 

LAST 

6? 

0C65 

TEMPSW 

EQUALS 

I TEHF5 


0251 

REF 


LAST 

■ 253 

0C66 

16MPSR2 

EQUALS 

I TEPfC 


0252 

REF 

27 

LAST 

J16E 

QC70 

TEMPPP 

EQUALS 

PUPTPEGl 


0253 

BtF 

6 

LAST 

144 

0C71 

TEMPG2 

equals 

PUPTPEG2 


0254... 

REF 

L 

_LiSI 

1072 

0C72 

TEMPP2 

equals 

RUPTPEG3 












0255 

REF 

5 

Li S I 

IQ 7 2 

QC73 

TtMPeeCN 

EQUALS 

RUPTPEG4 


0256 

REF 

12 

LAST 

1374 

0006 

BE 

equals 

PbANK 



0257 





14.3751 




BANK 

1 ^ 






0256 

PEF 


LAST 

1361 

lOrlCGO 




SETLDC 

PHASETA6 






0259 





lUt2355 




BANK 























iI26C 

R£f 

1_ 



13, 1436 




EbANK* 

PHSNAREl 






02C1 

AEF 

2 

LiiJ 

136 6 TC 

1373 : 

9 

S* 


COUNT 

K'/PHASe 






















0262 

R£f_ 

_ 4 

kill 

1314 

10,2355 

22 073 

C 

PH5CHNG? 

LXCH 

TENPeeCN 






C263 

REF 

d 

LAST 

137 3 

10,2356 

3 0065 

1 


CA 

TEPPSU 






0264 

REF 

2_ 

LAST 

1373 

1C. 2357 

_J 4716 

1 


RASK 

0CT7 






.026 5 





10,2360 

6 0000 

1 


DOUBLE 







C266 

PEF 

II 

LAST 

1374 

10.2361 

54 06 1 

1 


TS 

TENPC 






















C267 

RtF 


LAST 

137 5. 

__1C,2362 

3 0065 

1 


CA 

TEPPSK 






0268 

REF 

2 

LAST 

1373 

10,2263 

7 4763 

c 


RASK 

ULTl 777C 






Q2c9 





I0,23c4 

0 Q0C6 

1 


exTHNC 







0270 

REF 

-3 1 

m ^ 

LAST 

1373 

10, 2365 

7 4677 

1 


HP 

B I T 1 2 






C271 

REF 

1 

LAST 

1374 

— =*^=^= 1 -= — 

iC, 2366 

54 062 

1 


TS 

TERPP 







0272 

a2t__ 4 

LAST 

13 7 5 

10x2367 

1 .0.065 

1 

CA 

TERPSH 

.027 3 

REF 12 

LAST 

901 

10,2370 

7 41CS 

c 

HASK 

□CToCCOC 

0274 

REf 5 

LAST 

1375 

10,2371 

56 065 

1 

XCH 

TEPF SN 

0275 

RfcF 2 

LAST 

1374 

10t2372 

7 4 76 1 

1 

RASK 

nCT14CCC 

02 76 

REF 35C 

LAST 

1374 

10,2373 

IC OOC 

c 

CCS 

A 


027 ? 


REF 


1C, 2 374 i 5H5 1 


TCF fiNFfBTOC 
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_L. Phi^£ UfiLE PAINllNANCL , , 

USfcM'S PAGt 

NO. 9 63 SA 


0278 

-H£F 

A 

LAST 1375 

lQt2375 

2_Q0^2 C 

CA 

TEIPP 

START STORING THE PHASE INFORMATION 

027S- 

F.£8_ 

- t_ 

L1S.I 13 75 

10,2376 

50 0^1 t 

NUX 

TEMPO 


02HD 

REF 

—2 Lill IB3 

1Q»237? 

54 751 C 

IS 

PhASEl -2 



- 02fll _ 



LAST 1373 

lQt2^00 

10 0(6 C 

BLLCfe*! CCS 

TtMPSW2 

IS n A PHASCHNG CR A 2PNSCHNG 

Q2b2 

■ R£L 

__L_ 


10.2<i01 

1 2415 1 

TCF 

RELCjW2 

IT:S A PHASCHNG 










0283 




JQi2Su2 

L 2^C3 C 

TCP 

+ 1 

ms A 2PHSCRNG 

02 £4 

REF 

-A 

LAST 1373 

IC.2AL3 

4 CQ72 C 

CS 

TEPPP? 


Ji2e5 ^ 

REF 

r 

LAST n7c 

1C#2ACA 

22 072 1 

LXCF^ 

TEMPP2 


a26b 

REF 


LAST 1373 

1G.2A05 

5C 071 1 

NOX 

TEMPG2 


0267 

REF 

e 

LAST 214 


52 751 C 

OXCH 

-PHASEl -2 











0288 

REF 


LAST 137 E 

lCj_2^C7 

1C 0(6 C 

CCS 

TEMPSW2 


i.2a9 




iO.ZAlQ 

12 411 C 

NOCP 


CANsT GET HERE 

. &29C 

Ail 

2 

_EASt J3 li_ 

10.2411 

1 2413 1 

TCF 

bEL0R2 



CZ91 

-R£J 

19 

LAST 

106E 

10*2412 

4 0025 

i 


CS 

TIMFl 


C2S2 

RiF 

- J. 

LAST 

1376 

1C.2413 

5C C71 

L 


NOX 

TEMPC2 


G293 

REF 

4 

LAST 

383 

10.2414 

55*051 

c 


TS 

TBASEl -2 














02 S4 . 

RET 

t 

mii_l 13 7 5 

10*2 411, -1-C 0 6-5 

c 

0ELCR2 

CCS 

TEHf'SV* 

SEE IF wE SEQULC SET TBASE OP UCNCeASE 

0295 

Ri F 

1 



10.2416 

1 2431 

1 


TCF 

BELOVS 

SET LQNGSASE CNLY 

Q2S6 

REF 

1_ 



10.2417 

1 2434 

1 


TCF 

bELC W4 

SET NEITHER 


_ g2JI 

^F 

- 

EAST 

1376 

10.2420 

4 0025 

1 


CS 

TIME! 

SET TBASE TC BEGIN wITH 

C2S8 

-REF 

1. 

LAST 

1376 

10*2421 

50 061 

c 


NOX 

TEHPC 


0299 

REF 

c 

LAST 

1376 

10.2422 

55*051 

c 


TS 

TbASEl -2 














0300 

REF 

3 LAST 

137 6 

10.2423 

3 0065 

1 


CA 

TEMPSV 

SHALL wE NCW SET LONGBASE 

0301 

_ReF 

1 



10.2424 

6 2427 

1 


AU 

B IT14CCM 


0302 

REF 

351 

LAST 

1375 

1G«2425 

1C OCC 

e 


CCS 

A 


0303 





10.2426 

12 427 

c 


NO UP 


***** CANT GET HERE ♦♦♦♦• 

0304 





IC.2427 

17777 

c 

Pil 14CCM 

CJCT 

17777 

• CANT GET H^RE ***** 

0305 

REF 

2 

LAST 

1376 

10*2430 

1 2434 

1 


TCF 

bELDV4 

NC WE NEED CNLY SET TBASE 


Q306 





10.2431 

0 OOC6 

1 

EELl R3 

EXTEND 


SET LCNGBASE 

U307 

REF 

29 

LAST 

1295 

ic,2432 

3 0025 

c 


UCA 

TIME? 


CBOe 

REF 

1 



10*2433 

53*136 

c 


DXCH 

LONGEASE 














0309 

REF 

5 

LAST 

1376 

10.2434 

4 0062 

1 

BELCW** 

CS 

TEMP F 

AND STORE THE FINAL PART OF THE PHASE 

0310 

HEF 

8 

LAST 

13 7 6 

1C. 2435 

5€ 061 

c 


NOX 

TEMPO 


0311 

REF 

6 

LAST 

1376 

10*2436 

54 750 

I 


TS 

-PhASEl -2 














J3I2 

REF 

3 17 

LAST 

1375 

10.2437 

3 C002 

0 


CA 

0 


0313 

REF 

m 

LAST 

13 75 

1 C f 4 

f\J 

c 


LXCH 

TtMPfcECN 


3 ^ 





10*2441 

0 C003 

1 


KEL INT 



0315 





10,2442 

52 uG6 

c 


DTCB 



0316 

REF 

6 

LAST 

13 7 6 

10,2443 

22 073 

c 

CCN2 

LXCH 

TEMPEOCN 



uap: 
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SATRAP .lJ<14 PACP 1^77 




L 

Phi S£ 

-TAELt RAlNTEhAMUL - 




USER' S 

PAGE 

NO. 10 E3 S4 

■ 

*• 














J331I 

All 

-A 

117E- 


J CQ12 C 

CA 

TEhPP 






one 

REt 

A IISI 

137 4 

Ii)tA495 

5C 06i C 

__ KLX 

TEHPC 






0119- 

all 

-3 LAST 

1374 

lCi244ft 

- 54 751 f 

IS 

PHASE! -2 







iilZC 

REt - 

_1 LlSl 

1374 

Lfij2447 

3 CC7C 

CA 

TEPPFP 






0321 

Eli 

IL IASI 

i377 

I0t245Q 

5C 061 C 

Ri)X 

TEHPG 






C322 

REF 

2 LAST 

1374 

LOi2451 

5S*-Ci 2 C 

TS 

PHSPPCTl “2 



















0121 




lOf 2452 

X QQC6 1 

EXTthD 





- 


032A 

REF 

3 LAST 

13 7 5 

10t2453 

3 0044 C 

OCA 

TEMPhF 






0325 

REF 

11 LAST 

1377 

lCr24S4 

50 C61 C 

hDX 

TEHPG 






a32fc 

REF 

2 LAST 

1375 

10*2455 

53*435 C 

DXCH 

PMSNAHEl -2 







n 


032? PEf _ lQii4 56 1 24CC C_ TCF b ELUH 

— -flaae - . sjiii bloc k 02 

_ jC 32.9 RtF A Lj>ST 1369 AOOG SEnOC fFT/SGl 

Q33G BANK 


0211- REf ^ L4 5T im TC 1375: 66 lOC* __ CGU NT 02/PHASE 


..0332 - 

REF 

__i4 

-LAST 13.13 

5 363 

7_4677 

1 CHECKB 

MASK 

lU T 1 2 

SINCE THIS IS OF TYPE B* THIS BIT SHOULD 


UJ33 _ 

REF 

352__ 

LAST 1374 

5364 

JL0_QOO 

C 

CCS 

A 

EF HERE IF hf ARE TO GET A NEw PRIORITY 


0314 

REF 

^ 

__LAST 1374 

. 5365 

1 5350 

C 

TCP 

GETPP iC 

IT IS. SO GET NEM PRICPITY 

— — 












0335 

REF 

1 


5 346 

1 -53^ 7 

c 

T-C F _ 

OLDPPIC 

n isn:t, use tfe cld prigritv 

— — 
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X iLLSlif T S P^JULlAt 


USER *$ PAGt NC. I EO SA 


CQC4 





-C1*332C- 




BANK 

01 


-CQDZ 

RtL 

J. 

LAST 

202 

Cl. 20 GO 




SETLCC 

RESTART 


QOC^ 





Q1.352Q 




BAFiK 




ilGiJ4 

JLEf- 

a_ 

LAST 

-13-7-1 

£3.1436 




EeANK> 

PHSNAMEl 

GOPRCC MUST SWITCH TO THIS EBANK 


egos ^ 

Hlf- 









COUNT 

01/R SPCU 



ggiiA 

H£F 


EAST 

1334 

-El. 3 5 20 

2 0161 

1 

RESTARTS CA 

MPAC 45 

GET GRCUP NCM66R -1 

Q0Q7 





01. 3521 

6 colGO 

1 


DOUBLE 


SAVE FOP indexing 

CG08 

REF 

i_ 



-Clil5Z2__ 

54 155 

I 


TS 

TEHP2G 














gCJL9_ 

REP 




— GU3123_ 

3 J762 

1 


CA 

PHS2tACF 

SET LP EXIT IN CASE IT IS AN EVEN 

QQIG 


. x_ 



01. 3524 

54 157 

C 


TS 

TEMPShCH 

TABLE PHASE 


QOIX. 

R£f 

1 



Cl. 3525 

3 3557 

c 


CA 

P.TPNCACk 

TC SAVE TINE ASSUME IT WILL GET NEXT 

Qgiz 

REP 

1 



01.3526 

54 7CT 

c 


TS 

GOLOC 42 

GRCUP AFTER TUS 














PEP 

1 



_J31i3517 

3 0154 



CA 

TCNPPHS 



REP 

9 

LAST 

136C 

C 1-1353-0 

7 4744 

c 


MASK 

0CT14CC 


OQIS 

REF 

-313 

LAST 

1371 

01.3531 

10 cco 

c 


CCS 

A 

IS IT A VARIABLE OP TABLE RESTART 

0016 

REF 

L_ 



01.3532 

1 3543 

1 


TCP 

1 TSA VAP 

rT:S A VARIABLE RESTART 













QQ17 

REP 

Z__ 

LAST 

1376 

_ Cl. 3532 

IC 154 

c 

t£TPART2 

CCS 

TEMPFhS 

IS IT AN X.l RESTART 

QQ.19 

Ri.E_ 

3‘^ 

LAST 

1376 

0li3534 

1C COO 

c 


CCS 

A 


CCI9 

REP 

_1 



01.3535 

1 3643 

1 


TCP 

I TSATBL 

NC, ITS A table RESTART 













Q02C 

REF 

7 

LAST 

1375 

Cl. 3536 

3 4761 

c 


CA 

Pk 1 r 14 

IT IS AN X.l RESTARI, THEREFORE START 

--0021 

REP 

u 

LAST 

12 7 S 

Cl. 3537 

0 5042 

1 


TC 

F iNDNiAC 

THE DISPLAY RESTART JOB 

CG22 

REP 

- 4£ 

LAST 

1374 

f3.14C0 




EbANK= 

LSTl 


0023 

REF 

1 



01.3540 

C 3 1 6 5 

t 


2CA0R 

IMTCSP 


0023 

REP 

1 



01.354 1 

20103 

1 






002^ 

REF 

2 

LAST 

1376 

01.3542 

0 3557 

c 


TC 

RTENCACR 

FINISHED WITH TUS GROUP, GET NEXT CNE 













0Q2i> 

REF 

- -iC 

LAST 

13 7 6 

01.3543 

7 4 744 

c 

1 IS A VAR 

MASK 

OCT 1400 

IS IT TYPE E ? 

0026 

PEP 

3*5 

LAST 

1376 

01.3544 

1C COO 

c 


CCS 

A 


C027 

REP 

1 



01.3545 

1 3614 

c 


TCP 

ITSL IKCe 

YES, IT IS type 8 













0028 





01.3546 

C C006 

1 


EXTEND 


STORE THE JCB (C» TASKl 2CADR POP EXIT 

0029 

PEP 

2 

LAST 

1376 

Cl, 3547 

5 C155 

c 


NOX 

TEMp;o 


dcic 

REP 


LAST 

13 7 6 

Cl, 3550 

3 1437 

c 


DC A 

PhSNAPEl 


0031 

REP 

2 

LAST 

13 7 6 

(^1.3551 

52 7C6 

1 


DXCH 

GCLCC 














003 2 

REF 

± 

LASI 

1376 

Cl. 3532 

3 0154 

1 


CA 

TEMPPhS 

SEE IF THIS IS A JOB, TASK, OR A LCNCC4L 

0032 

REF 

3 

LAST 

1375 

Cl, 3553 

7 4716 

1 


MASK 

0CT7 


OCBA 

REF 


LAST 

122 5 

Cl, 3554 

6 7715 

c 


ad 

MINUS2 


0Q35 

REP" 

35t 

LAST 

1378 

01,3555 

IC 000 

c 


CCS 

A 


0036 

^ X 

REF 

1 



01,3556 

1 3726 

c 


TCP 

I TSLPCCL 

ns A LGNGC/LL 
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Rif X 01^3560 I 3562 1 TCF ITSA VAIT ___ 


jm3S R£f 1 Qli3361 1 2t21 C IGF n5A4Gb _ tT S A JOB 


GliAiD 

BEf 

1 


Q1.3562 3 37Ao C 

ITSAViAIT CA 

-iiTLICADP 

SET HAITLIST CHL 


ftXf 

1 

EAST 13 7 i 

_ -0X4^353 

54 7C4 

C 

TS 

dOLOC -1 












QGA2 

HEF 


Li91 07J 

01^3564 

5C 155 C 

NDX 

T£fP2G 

blRECTLY 5TCRED 

QfliX 

gxi_ 

3 

L15IJJ7T 

OX* 3 5 65 

- 3 105.4 

X 

CA 

phspfoti 


QGAA 

i4.Ei 

357 

Liil 13-7 8 

Clt3S66 

10- 000 

_C 

TIMETEST CCS 

A 

IS IT AN IHPECIATE RESTART 

OGAi 

REF 

3ig 

LA57 1J7S 

01*3567 

24 QOO 

1 

INCR 

A 

NC • 


JlXf 

_X 


_-Clf3570 

1 357i 

-I 

TCF 

F INC71PE 

FINC CUT hhEN IT SHOULD BEGIN 











0G47 

REF 

1 — 


01,3571 

1 5367 


TCF 

ITSlhUIR 

STCHED INCIPECTLY 












REf- 

a 


j:x.j572 

1 3612 

c 

TCF 

IHEC lATE 

IT riANTS AN IPHEOIATE RESTART 











fiGQ49 

***** IHI 

S REST at 

IFt Fi;<EC 

FIXEC ***** 














^ — Od sc 




5367 



BLOCK 

02 



R£f 

2 

LAST 6ii- 

AQCO 



SETLCC 

FFTAG2 


G052 




5367 



BANK 













01153 

REf 

i - 





COUNT 

02 /F SPCU 












54 

-RXi 


LAST 1375 

5367 

22 7Q6 

c 

JTSINDIR LXCH 

GCLCC 

GET THE CCRFEC7 E BANK IN CASE THIS IS 

QJ35 

REF 

2^ 

LAST 1374 

5370- 22 006 

1 

LXCH 

bb 

Switched eppasible 











Qu5fe 

PEF 

-XiS 

LAST 1375 

5371 

5C QCC 


NOX 

A 

GET THE T IPE INDIRECTLY 

uU67 




5312 

3 0001 

c 

CA 

1 












0X5 fi 

—Rif 

It 

iiST 1375 

5373 

22 CC6 

1 

LXLH 

6E 

RESICRf THE BB AND GOLCC 

0059 

KEF 

5 

LAST 13 71 

. 5374 

22 706 

c 

LXCH 

GOLDC ♦! 



flU6C HEF 2 LAST 137< 3375 1 3573 1 TCF FINDTIPE FIND OGT hHEN IT SHQULC BEGI^ 

P0Q61 ***** YCl PAY RElUPh TQ 5 m 1 ICFEU FlYfcC •♦♦♦♦ ZH 


0062 


C1*X573 

gANK 

01 

0063 

REf 2 LAST 1371 

Clt2C00 

SETLCC 

PEST AFT 

0064 


G1.3573 

BANK 




0065 

REf 

4 

LA<7 1378 TC 

1379 1 

43 

434 


COUNT 

Ol/R SRCL 


* 








0066 




01,3573 

4 0000 

C 

FINCTIME 

COM 


MAKE NECniVe SINCE IT WILL BE SUBTRACTC 



0067 

REF i 

119 

LAST llbl 

01,3574 

5 4 OCl 

1 


TS 


AND SAVE 



C 06 8 

REF 


LIST ii7S 

Cl. 3575 

5C 155 

c 


NOX 

TEHP2G 




0069 

REF 

6 

LIST IJ76 

01, 3576 

4 1053 

1 


CS 

TBASEl 




0070 




01,3577 

0 0006 

1 


EXTEND 
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4074 - 
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i-XSJ[ 

U7£ 

_ll4»360C 

- £0 Q25 

£ 


£U- _ 

Ill-tl 



00 72 

fi£f liL 

Lii S T 

13i£ 

__04»Xfi£l 

IQ QC.Q 

£ 


CCS 

A 



0023 




01.3EQ2 

4 OGQG C 


jiaM 




_ XC7A 

H£f A 

_Liii 

VI* 

Clt3£fl3 

4._L7(LC- 

t 


AO 

OtT37776 



_ __0025 

fi£f— L5£- 



(Jlf 3fcOA 

-6 hJAZ 

1 


AD 

CNF 



0Q7fa 

HSf 22C 

-LIST 

137* 

Q1.36C5 

^ C 0 C 1 

C 


AO 

L 



-J7D-7-7 

BJl 1 

L/!ST 

1391 

C1.36Cfc 

1C OCC 

C 


CCS 

A 



UO 7 fl 

PEf .249 

LiS^T„ 

13 5 9 

C 1 f 3 i U 7 

2 47H 

1 


CA 

ZbP C 



0.0 IS 




C 1. 3610 

1 2612 

X. 


TCF 

^2 



ooeo 




1 1. 3611 

1 3612 

c 


TCF 

♦ 1 



C061. 

REf 1*9 

L/ST 

138C 

01.3612 

6 4712 

1 

ipfcc uie 

AO 

ONE 



0062 

REE 6 

L/ST 

1379 

—0113613 

C 0 704 

1 


TC 

GOLOC -1 



QQ83 

REF 3 

_LASL_ 

137t 

Cl. 36 14 

3 3557 

( 

[ rSLlKEB 

CA 

FTFNCACR 

TYPE Bt 

SC STORE RETURN IN 

008^ 

_ft£F 1 

L iST 

0X7 1 

Ci. 3615 

54 157 

c 


TS 

TEHP5HCH 

TEMPSWCH 

IN CASE CF AN EVEN PHASE 


0.065 . 

PEF 

1_ 



01. 3616 

3 3763 

C 


CA 

PRT2 CACF 

SET OP EXIT TC CET TA8LE PART OF THIS 

^ 0086_ 

REF 

7 

LAST 

1380 

01.3617 

54 7C? 

C 


TS 

GCLUC +2 

VARIABLE TYPE OF PHASE 


- -CUIX 

REP 

A_ 

LAST 

-4X16 

C4t3640 

J 0154 

1 


CA 

TEfiPPHS 

hake THE PHASE LOOK RIGHT FOR THE TABLE 

0486 

REF 

I 



OU 362 1 

7 6043 

1 


MASK 

OCT 177 

PART CF THIS VARIABLE PHASE 

0089 

REF 



-LIXT. 

13flC 

011 36 22 

54 154 

£ 


TS 

TEHPPhS 














CQ9C 





01.3623 

0 0006 

1 


EXTEND 



UQ91 

BEF 

5_ 

-LAST 

1379 

■01.3624 

.5 0155 

C 


NOX 

T£hP2G 

OflTAIN THE J06:S 2CAQR 

GQ92 

REF 

5 

LAST 

1376 

01.3625 

3 1437 

£ 


OCA 

PHSNAREl 


2093 

REF 

8 

LAST 

138C 

01.3626 

52 7C6 

1 


OXCH 

GCLCC 














. QJ94 

REF 

6 

LAST 

1300 

01. 3627 

5C 155 

C 

ITSAJCB 

NDX 

TEPP2C 

NCV ACC the PRICRITY ANC LET:S GO 

0095 

REF 

4 

LAST 

13 7 9 

01. 3630 

3 1054 

1 


CA 

PHSPPDTl 


£45.6 

REF 

9 

LAST 

13 8 L 

01.3631 

5 4 7C4 

C 

CHKNCVAC 

TS 

GCLCC -1 

SAVE PPIO OMIL MC SEE IF ITS 

0097 





01, 3622 

0 0006 

1 


EXTEND 


A FINDVAC OR A NOVAC 

C098 

REF 

1 



01.3633 

6 3637 

c 


BZMF 

ITSNCVAC 



^5399 

REF 

1 



01.3634 

3 3765 

c 


CAF 

FVACCACP 

PCSITIVE, SET UP FINDVAC CALL. 

0100 

REF 

u 

LAST 

13 ac 

Cl, 3635 

56 7C4 

1 


XCH 

C 0 L 0 C “1 

PICK UP PRIC, 

QiOl 

REF 

11 

LAST 

13 0 0 

01.3636 

0 C7C4 

1 


fc 

GCLCC -1 

ANO GC 


01U2 

REF 

1 



01,3637 

3 3767 

1 

ITSNCVAC 

CAF 

NCVACACR 

NEGATIVE, 

J Cl 03 

REF 

12 

LAST 

13 8 C 

Cl, 3640 

56 7C4 

1 


XCH 

GOLDC -1 

SET UP NOVAC CALL, 

0104 





ci, 3641 

4 COCO 

c 


COM 


CORRECT PRIC, 

0105 

REF 

13 

LAST 

i38C 

01,3642 

0 C7C4 

1 


TC 

GOLCC -1 

ANO cr 


0106 

REF 

45 

LAST 

1364 

01,3643 

54 020 

1 

ITSATBL 

TS 

CYP 

FIND COT IF THE PHAiE IS COO CR EVEN 

0107 

REF 

4 1 

LAST 

uac 

01,3644 

1C 020 

1 


CCS 

CYP 


CICB 





01,36<i5 

1 3646 

1 


TCF 

61 

n:S EVLN 

0109 

REF 

1 



01,3646 

1 3744 

1 


TCF 

ITSEVEN 














QUO 

REF 

4 

LAST 

138C 

01,3647 

3 3557 

c 


CA 

RTFNCACR 

IN CASE THIS IS THE SECOND PART OF A 

OIU 

REX 

14 

LAST 

138C 

Cl , 3650 

54 7C7 

c 


TS 

GOLCC +2 

TYPE B Restart, me nfeo proper exit 


cApi A 
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USER'S PAGE NO. 4 

0112 

REE 

t 

liii 13 a c 

Cl»3651 

3 0154 1 

j:a 

TEHPPHS 

SET UP POINTER FOR FINDING CUR 

PL ACE 

IN 


0115 

R£f 

34 

If SI 1361 

Clf 3652 

54 021 C 

T5 

Sk 

THF RESTART TABLES 




0114 

RFF 

15 

LAST 13fil 

(i 1 y 3 A 5 3 

6 002 1 1 

AO 

S.R 





1LLL5 _ 

J»=tf 

7 

Li ST 139 C 

01^38 54 

5C 155 C 

NOX 

TFkP2G 





QllA 

REf 

1 


. 0U3613 

6 2001 1 

AD 

Size TAb 





ail? 

REF 

L_ 


C1.3E56 

-5.4- 156 1 

TS 

PCINTER 

















Olid 




alt 3657 

0 0QC6 1 contolz 

EXTEND 


FIND OUT WHAT:S IN THE TABLE 




1^119 

RFF 

2_ 

LAST 1381 

C1.366C 

5 0156 C _ 

NDX 

PCINTEk 





0120 

REE 

1 


Cl»3e61 

i 2002 1 ... 

OCA 

CAD.k TAB 

QET_ THE 2CACR 





Q121 m 15 USl laJC HWiitLi Z2 LXCh UCLLC STORE THE BE INFQR>*ATICN 


0122 

REF 

112 

LAST 13 8 C 

jQlj3t63 

10 ooo 

C 

CCS 

A 

IS IT A JC9 CP IS IT TIMED 



0123 

REf 

363 

lA-ST 138 1 

01^3664 

24 QCO 

1 

INLR 

. A- 

POSITIVE. REST BE A JUB 



0124 

R£f 

1 


QliJitS 

- 1 3740 

C 

TCF 

1 TSA jeb2 
















0125 

REF 

-324 

LAST 138 1 

01^3666 

24 000 

1 

INCR 

A 

MOST PE 6ITFFP A WAITLIST CR 

LONGCALL 


0126 

RIF 

U 

LAST 1301 

01 f 3667 

54 705 

1 

TS 

GOLCC 

LET-S STORE THE CORRECT CACR 















fjl27 

ftgf 

2_ 

LAST 1375 

C1.3fc7Q 

3-3 766 

_£ 

CA 

WTLTCADR 

SET IP OUR EXIT TO WAITLIST 



0120 

BEF 

17 

kA^ 1381 

01,3611 

54 704 

C 

TS 

OCLOC -1 
















Q12S 

■REF 

le 

LAST 1381 

01.3672 

3 0706 

C 

CA 

GCLOC +1 

NOW FINO CUT IF IT IS A WAITLIST CALL 


0130 

REF 

29 

LAST 135S 

01t3673 

7 4701 

1 

PASK 

bI7 1 C 

THIS SHOULC BE CNE IF WE HAVE 

-PB 


QI31 

REF 

365 

LAST 1361 

Cl, 3674 

IG OOO 

c 

CCS 

A 

FOR that RATTER SC SHOULD BE 

BITS 9,8,7, 


AQ132 









6,5, AND LAST BUT NOT LEAST (PERHAPS NOT 


40133 









IN IMPORTANCE ANYWAY. BIT 4 



Cl 34 

REF 

1 


C 1, 3675 

1 3733 

1 

TCF 

I TSWTLST 

IT IS A WAITLIST CALL 















0135 

Fl£f 

3 

LAST lilil 

Qlii076 

50 1 56 

0 

NDX 

POlNTtk 

OBTAIN THE ORIGINAL DELTA T 



0136 

PEF 

1 


01,3677 

3 2000 

0 

CA 

PR0TTA8 

ACDRESS FCfl This LONGCALL 















0137 

RLf 

L_ 


01,3700 

L 5376 

1 

TCF 

I TSLCCLl 

NCW GO GET THE DELTA TIME 















R013b 

..«*«** THIS HLST BE 

-IN FIXED 

FIAEO ***** 







kl3S 




5376 



- 

BLOCK 

02 

FFTAG2 

- - - . - 


C lAC 

PEF 

2 

LAST 1379 

4C0C 



SETLCC 


Cl4l 




5376 




BANK 
















01^2 

RFF 

2_ 

.last" 1379 

TC 1379t 

L 


1* 

COUNT 

02/P SBOU 















0143 

REF 

19 

LAST 1361 

5376 

22 

7C6 

C 

ITSLGCLl LXCH 

aCLCC +1 

OBTAIN THE CCRRECT 

E BANK 

0144 

REF 

4_ 

■LAST 1375 

5377 

22 

0C6 

1 

LXCH 

Bb 



0145 

REF 

2C 

LAST I3_aj 

5400 

22 

7C6 

c 

LXCH 

COLOC *l 

AND PRESERVe CUP E 

AND F OANKS 


ki±fe 5401 0 QCJCb 1 EXTEND GET THE DELTA THt 

L147 filF iit L ^ST 13 81 54C2 5 COCO 1 NbX A _ 
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014 9 

REF 

21 

L>5T nai 

5 404 

22 7C6 

i 

EXCK 

gOLCJC ♦! 

RESTCRE OUR E ANO F BANK 

QlSU 

REF 

5 

L/ST 13 61 

540 5 

22 006 

1 

LXCH 

Bb 

PESTCRE THE TASKS E AND F BANKS 

0lt>l 

ktt 

12— 

13fl2 

5406 

22 706 

_C 

ixch. 

OOLLC ♦! 

AND PRESERVE CUP L 











0152 

Rif. 

1 


5407 

1 370i 

0 

TCF 

I TSLGC12 

NCR EE1:S PROCESS THIS LOKGCALL 


fi0153 


- HXL MAY j<£lLRN IQ ShXlCI'ED FiJttC 



















01*3701 



BANK 

Cl 


U155 

RtF 

A 

L4S1 137S 

ailPOQ 



se rtcc 

RESTART 


Cl5t 




_01f37Cl 



BANK 













0157 

P£F_ 


LAH 1179 10 


7C H34 

COtNT 

Ul/PSRCb 












01511 

ftgf 

_£_ 

L^ST 1201 

01.3701 

52*140 

J nSLGC.L2 

OXCH 

LONG TIME 



0159 





Cl. 3702 

0 C0C6 

I 


EXTEND 


CALCULATE TIME LEFT 

olbO 

REF 

2L- 

1 ACT 

137 i 

C1.37C3 

4_fl025. 

1 


DCS 

ti me 2 


0161 

REE 

1 

L4ST 

13^ 

Clt3704 

.21*140 

1 


DAS 

LONG TIME 


0 lc2 





ci,3705 

b C0C6 

1 


EXTEND 



0163 

RIP 

_2_ 

LAST 

-13.7. t 

Cl. 3706 

3 1136 

1 


OCA 

LONGbASE 


0164 

REF 

€ 

LAST 

1362 

01.3707 

21*140 

1 


CAS 

LONGTIME 














0165 

REF 

_9_ 

LAST 

JJB2 

Cl. 3710 

11*137 

J 


CCS 

LONGTIME 

FIND CUT HOW THIS SHOULD BE RESTAPTEO 

0166 

REF 

1 



Cl. 3711 

1 3721 

1 


TCP 

LONGCLCL 


OUT 





01.3712 

1 3 714 

1 


TCF 

+ 2 


. ... 0166 

RIF 

.JL_ 

LAST 

1374 

01.3713 

1 3607 

1 


TCF 

IMEUIATE -3 


Clb9 

Rfcf 

1C 

LAST 

1382 

01.3714 

11* 140 

1 


CCS 

LONGTIME ♦! 


owe 

PEF 

=i_ 

LAST 

1362 

01*3715 

1 3721 

1 


TCF 

LONCCLCL 


0171 





01.3716 

13 717 

1 


NOQP 


CANST GET HEME 

0172 

REF 

3 

LAST 

1382 

01.3717 

1 3607 

1 


TC F 

IMEDIATE -3 


0173 

REF 

4 

LAST 

13 8 2 

C 1.3720 

1 3612 

0 


TCF 

IMFC lATE 














0174 

JEL_ 

X_ 



(Ll.3 721 

3 3764 

1 _ 

LCNGCLCL 

CA 

LGCICAUP 

RE WILL GO TO LCNGCALL 

0175 

REF 


LAST 

1382 

01. 3722 

54 ?C4 

c 


TS 

GCLOC -1 














0176 





0 1.3723 

0 C0C6 

1 


EXTEND 


PREPARE CUP ENTPV TO LCNGCALL 

0177 

REF 

11 

LAST 

1382 

61.3724 

3 1140 

c 


OCA 

LONGTIME 


owe 

REF 


LAST 

1382 

Cl. 3725 

0 C7C4 

1 


TC 

GCLOC -1 














0179 

REF 

3 

LAST 

1361 

C 1.3726 

3 3766 

0 

ITSLNGCL 

CA 

MTLTCACR 

assume it WILL CC TO WAITLIST 

018C 

REF 

25 

LAST 

13 82 

Cl. 3727 

54 7C4 

6 


TS 

GOLC C -1 
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REF 

e 

last 

138 1 

0li3730 

5C 155 

c 


NOX 

TEMP2G 


0182 

REF 

5 

LAST 

138C 

01.3731 

4 1054 

c 


cs 

PHSmPCTI 

GET THE DELTA T ADDRESS 













0183 

REF 

2 

LAST 

138 1 

C1.3732 

1 8376 

1 


TCF 

ITSLGCLl 

NOW GET THE DELTA TIME 













0184 

REF 

_ 

26 

LAST 

1382 

Cl. 3733 

4 0706 

1 


CS 

CGLOC ♦! 

CORRECT THE B6CCN INFORMATION 

0185 

REF 

27 

LAST 

1362 

01.3734 

54 7C6 

1 


TS 

GCLOC ♦! 
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C 

NDX 

PCifllER 
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REF 

2 _ 

LAST 

1381 

01*3736 

A 2Q CO 

c 

CA 

PPDTTAP 

OIRECUY CR INDIRECTLY 


0168 

REF 

-1 



Ca*X7J7 

I Jit6 

c 

TCF... 

IIPETEST 

FIND CUT HOH THE TINE IS STOREU 
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REF 

ie 
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■ 138.2.. 

01,37^0 

96 705 

_c_ 

lTSiJCD?_ XCH 

GCLLC 

STCRE THE CADR 












0190 

REF 

5 

LAST 

Ufli 

Cl*37^1 

5C 156 

0 

_ . NDX 

POINTER 

ADD THE PRICRITV AND LET:S GO 

0191 

REE 


■ LAST 

uaj 

0 1* 3742 

3 ^CCC 


CA 

PRUT TAB 



-01S2 

REF 

1 



01.1743 

1 3631 

1 


TCF 

CHKNCVAC 

■ 


0193 

Rtf 

3 

LAST 

138 C _ 

_-i:i»37A4 

3 0157 

1 

ITSEVEN 

CA 

TEMPSiCH 

SET UP FOR EITHER THE SECOND PART OF THE 

019^ 

REF 

29 

LAST 

1383 

11*3745 

54 7C7 

( 


TS 

GOLUC 42 

TABLE* DR A RFTURN FOR THE NEXT GROUP ' 

0195 

REF 

9 

Liil iafl2 

Cl* 3 7 46 

50 111 

C 


NDX 

TEHP2G 

SET UP POINTER FOR OUR LOCATION HITHIN 

0196 

JIIF 

2 

L AST 

D81 

01* 3747 

.3_2QQ.C. 

c 


CA 

SIZE TAB 

THE TABLE 

til67 

REF 

1_ 

LAST 

138] 

01»37%q 

6 0154 

1 


AD 

TEMPPHS 

THIS NAY LCCK 840 BUT LETJS SEE YCU DO 

0198 

RtF- 

8 

LAST .UAi- 

a *3711 

6 0154 

1 


AO 

TEHPFhS 

BETTER IN TINE CR NUNBEBR OF LOCATIONS 

0199 

REF 

9 

LAST 

1363 

01*3752 

6 Q154 

1 


AO 

TEHPPhS 


0700 

REF 

6_ 

- -LJ S T 

1382 

C1.3753 

54 196 

1 


TS 

POINTER 














0201 

REF 

1 



01*3754 

_ 1 3657 

1 


TCF 

CONT EL2 

NOW PROCESS WHAT IS IN THE TABLE 













0202 

REF 

46 

LAST 

1311 

Q1.3755 

3 5214 

c 

PHSPART.2 

CA 

THRE C 

SET THE POINTER FOR THE SECOND HALF OF 

0203 

REF 

7 

LAS! 

1383 

Cl*3756 

26 156 

1 


ADS 

POINTER 

THE TABLE 













0204 

REF 

5 

LA^ST 

13 SL 

01^375 7 

3 3557 

c 


CA 

RTRNCACR 

THIS WILL BE COR LAST TIME THROUGH THE 

0^Q5 

R£F 

IQ. 

LAST 

13.03 

.01*3 760 

54 707 

c 


TS 

GOLUC 42 

EVEN TABLE , SO AFTER IT GET THE NEXT 

40206 











GROUP 

0207 

REF 


LAST 

1302 

Ut376i 

1 3657 

1 


TCF 

CCKTeLZ 

SC LETtS GET THE SECOND ENTRY IN THE TBL 













0208 

-REF 

fa7C 

LAST 

1376 

Q154 



lEMPPHS 

EQUALS HPAC 


0209 

REF 

671 

LAST 

13 8 2 

0155 



TEMR2G 

equals MPAC 41 


0210 

REF 

672 

LAST 

13 8 3 

0156 



POINTER 

EQUALS HPAC *2 


0211 

REF 672 

LAST 

1382 

0157 



TENPSHCH 

EQUALS HPAC 43 


0212 

REF 

1 



0705 



GCLCC 

EQUALS VAC5 42uC 


0213 

REF 

7 

LAST 

136C 

7715 



HINU52 

EQUALS NEGL 


0214 

REF 

2 __ 

LAST 

113 2 

6C4 3 



CCT177 

EQUALS L0H7 
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—REF 

L_ 



U1.37t2 

L3,751. 

JL_ 

PHS2CADP 

GENAOR 

PHSP ART2 





0216 

PiF 

L_ 



01*3763 

03533 

1 

PRT2CA0K 

CENAOR 

GETPAPT2 





J217 

REF 

4 

LAST 

12 8 C 

Cl» 3764 

C5231 

I 

LGCLCACR 

GENAOR 

LONGCALL 





0216 

REF 

32 

L is T 

1378 

Cl. 3765 

CS042 

1 

FVACCAOR 

GENAOR 

FINLVAC 





0219 

REF 

ii 

LAS 1 

1202 

Cl *3766 

C5140 

1 

hTL f CAOK 

GENACR 

WAITLIST 
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REF 

32 

LAST 

1368 

01*3767 

C5027 

1 
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GENAOR 
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1 
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J— 
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R£f 
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3 4714 

1 

^FRC^C 0 U CAP 

ZERO 
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OUClB 

REF 

2 <3 

LXST 132 % 5411 

54 032 


TS 

coux 


OOC 9 . 

Rii 

JJ 

L^ST 5412 

54 033 

c 

TS 

COUY 


0010 

RtF 

<3 

LiST 133 C 5413 

54 034 

1 

TS 

COUZ 


QOll 

REF 3 ia 

L/S 1 1374 5414 

0 00 C 2 

_£_ 

TC 
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fl 
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0015 

Rif 

1 



C7*2-OflO 




sbtlcc 

KCUE SR 



0016 





0 7.2116 




BANK 

















0012 

Jlif 

_ 1 







COUNT 

C7/IMCCE 
















cxiLa 





f:7»251fc 

C CQ04 

_X. 

IPUZiftO 

iNhlhT 


ROUTINE TG ZERO ICDuS. 


0019 

Sif 

39 

LIST 

39C 

.07,2517 

4 1036 

1 


CS 

OSFTIB +110 

OCNT ZERO ecus IF IMU IN GIMBAL LCCK AND 

002Q 

Htf 

A 



07,_2520 

7 4726 

1 


MASK 

8ITS4C6 

CCAPSE ALIGN (GIM8IL RUNAWAY PROTECTION) 

0021 

Rif 

367 

LIST 

1381 

07.2921 

- IC. iUQ.0 

C 


CCS 

A 



JIQ22 

Rif 

1 



07,2522 

1 2526 

( 


rcF 

IMUZEFCA 
















0021 

flff 

i6_ 

LIST 

-1324 

07,2523 

0 55i7 

c 


TC 

ALARJ- 

IF SO. 


0024 . 





07^2324 


c 


OCT 

00206 















0025 

Rff 

L_ 



..il.2j.23 25 

_l 3461 

£ 


TCF 

CA&ETSTJ +4 

IMMECIITE FAILURE. 















0032 

REl 

2 

L IS I 

ISlQS 

07.2526 

0 34 55 

C 

IHOIIROA 

TC 

CAGETSTJ 



PaQ33 





CQ ILL 

TFti RGftK, 





003^ 

REF 

29 

LIST 

1031 

U7,2527 

4 1321 

1 


CS 

I MCDES33 

DISABLE CAP AUTC ANO HCLO MOOES 


0035 

RIF 

2 

LIST 

524 

C7,253G 

7 4 7 30 

0 


MASK 

SURE poll 

6115 FOR ORCUND 


0036 

REF 

20 

LIST 

138S 

C 7. 2531 

21*321 

1 


ADS 

1MC0ES33 
















0037 

Rtf 

43 

LIST 

7ie 

07.2532 

4 I3i0 

0 


CS 

IM00ES30 

INHIBIT ICOLFIU AND IMUFAIL (IN 

CASE WE 

QQ3fl 

■ ilLf 

L_ 



Q7. 2533 

- 7 5660 0 


MASK 

BITS3£4 

JUST CAME CUT OF COARSE ALIGN). 


.0039 

BtF 

44 

L iST 

1385 

£7,2534 

27*320 

£ 


ADS 

I MC0ES3O 
















aQ4>C 

-R£f. 

2_ 

LIST 

1385 

£7.2535 

4 4726 

1 


£i 

blTS4C6 

SEND ZERO ENCCCE wlTH COARSE AND 

ERROR 

0041 





£7,2536 

0 0006 

1 


EXTEND 


CCUNTER OISABLEC. 


0042 

REF 

27 

list 

98C 

CT, 2537 

ca 0 12 

1 


WAND 

CHAN12 
















0043 

_B.fcF 

A 

LIST 

179 

07,2540 

0 3070 

£ 


TC 

N( AT TCFF 

TURN CFF NC ATT LAMP. 














Qii44 

REf 

AC 

-LAST 

13 5 9 

07,2541 

47£6 

1 


CaF 

BITS 



0045 





Ql7 . 2 5 42 

0 0006 

1 


EXTEND 




QC4 6 

Kt F 

3E 

LIST 

13 6 5 

£7,2543 

05 012 

1 


hCR 

CHAK 12 
















00461 

RIF 

1 

LIST 

I3 9_ 

C 7 1 2 544 

0 54 10 

1 


TC 

7ER0 ICDU 



004 7 

R|F 

At 

LIST 

13 5 9 

£7,2545 

3 4705 

i 


C AF 

BITO 

WAIT 320 MS TC GIVE AGS ACEQUATE 

TIME TO 

11048 

REf 

52 LIST 

-I3Bi 

07,2 546 

0 5140 

1 


TC 

WAI 1 LIST 

RECEIVE ITS PULSE TRAIN. 


0049 

REF 

5 

LIST 

182 

13,1474 




F 0 A h K « 

CCUIAC 



0050 

REF 

1 



07,2547 

02561 

i 


2CA0F 

IMU2ERC2 



£050 

— Ri-f 

1_ 



07.2550 

lelC3 

1 



















0.051 

R|F 

45 

LIST 

U8 5 

£7,2551 

4 1320 

c 


CS 

I MOOES 30 

SEE IF IMU LPERATIKO AND ALARM IF 

Nor. 

. .0052 

RE f 

34 

-USX 

1364 

07.2952 

7 47C2 

1 


MASK 

UIT9 



0053 

RJF 

3<6 

LIST 

130! 

17,2553 

1£ OCO 

c 


CCS 

A 



0054 

REF 

1 



C7,2 554 

1 2557 

c 


TCF 

MlOEEXIT 
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QQ^5 

RLf 

11 

_LiJST iias 

. Cl .2-515 

._C_ 55J7 

( 


TC 

ALAR r* 
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01.115 a 

00110 

1 


OCT 

210 

















Q 1. nil 

Q 00 Cl 

1 

F'CCLCexll 

RELlM 


GENERAL MCOE-SW ITCHING EXIT. 

fliiSfl 

B£f 

^ 1 

nil 111 1 

JJ-7.<ii.60 

.1 45 70 

( 


TCP 

SMFE TOFN 

























Rtf 

2 

mi lias 

C.7i21.fcl 

0 1455 

C 

tF*UZERC2 

TC 

CAGETSTJ 

POSSIBLY Switch to turn-cn program ~ 

OQfci 

R£f 

L_ 

LAST 13B* 

C?.25t2 

0 5410 

_L_ 


_LC 

ZtFC ICCU 

ZERO CDUX, COUY, COUZ 


m<iZ 

_ JIF 


L A5T _L18i 

.^7. 258 3 

4 4T06 

C 


CS 

F IT5 

PEMCVE ZERO DISCRETE. 

QQ63 




07.2564 

d 0006 

1 


EXTEND 



0064 

flEf 

3^ 

LAST 1385 

C 7, 2565 

03 012 

1 


In ANO 

CHAM2 













QQ6S 

Rff 

3S 

■LAST 135 S 

C7.2566 

3 47GG 

1 


CAF 

6IT11 

WAIT 10 SECS FOR CTPS TO FIND GIMBALS 

00o6 

REF 

4 

LAST 15£ 

. Q7f 2567 

0 5161 

1 


TC 

VAR DELAY 













QQ6 7 

&fi_ 



LAST 1386 

C7«257C 

C 3455 

jL_ 

ifUZEROJ 

TC 

CAGE TSTJ 




R£F 

2 

EAST 1385 

C7, 2571 

4 5660 

C 


CS 

fc ITS3e4 

REMOVE IMUFAU AND ICDUFAIL INHIBIT, 

0070 

REF 

4t 

LAST 1385 

07,2572 

7 1320 

C 


NASK 

IM0DES30 


QQ71 



^7 

LAST 13BE 

07.2573 

55*320 

C 


TS 

I MODES 30 



Q072 

REF 


EiS_l .138 5 

07,2574 

4 4730 

c 


CS 

SUPEROll 

ENABLE GAP AUTO AND HOLD *«CUES 

0073 

REF 

—U L4ST 1383 

C7.2575 

7 1321 

J 


MASK 

IMCDES33 

BITS FOR GROUND 

0074 

REF 

32 

LAST 1386 

07,2576 

55*321 

1 


TS 

IM0CES33 













... QQ75 

ILtf_ 

40 

LAST 1057 

C7.2577 

0 4633 

c 


TC 

IbNKCALL 

SET ISS WARNING IF EITHER OF ABOVE ARE 

007fc 

REF 

C. 

LAST 153 

07,2600 

14665 

1 


CADR 

SE TI SSb 

PRESENT. 
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C 0004 

c 

IMUCDAflS iNhlNT 





Qceu 

_ &JLt 


_LA11 AJBX 

CUZtCl 

C 1455 

c 


TC . 

CACE TSTJ 




OCfli 


J 

LA SI 

1B2 

C1x26C4 

C 2746 

c 


TC 

SETCCARS 





0082 

REf 

41 

LAST 

116 C 

C7f 26C9 

J3 6Z11 

c 


CAF 

SIX 





REF 

« 7 

LAST 

13 8 5 

t7,24C6_ 

C 514C 

1 


TC 

WAITLIST 




QOflA 

REF 

6. 

LAST 

13 0 5 

El. 14 74 




EBANK- 

CUUI NC 




0C6*} 

MF 

1 



07.26C7 

C2612 

c 


2CA0R 

C0AR5 




QQ85 

R£f 

1 



_ 07.2610 

16103 

1 








00 £6 

RU 

. 2 

LAST 

lias 

C7t2tll 

1 255 7 

c 


TCF 

MODE EXIT 


















Qoa? 

a££- 

1 



07^2612 

fl 3443 

1 

CCARS 

TC 

CA&fcTEST 




_ _floa£ 

Att 

47 

J.ASJ_ 

1315„. 

C7.2613 

3 47C5 

_L 


CAF 

9IT6 

ENABLE ALL THREE 

IS5 ecu 

ERROR COUNTERS 

(LQB9 





iL7»26lA 

0 0006 

1 


EXTEND 





QQ9Q 

REF 

4C 

LAST 

AlBt 

07.2615 

OS Q12 

1 


MOP 

CHAN12 





0091 

R£i 

£9 

LAST 

Ills 

C7i2616 

3 4711 

1 


CAF 

TWO 

SET ecu INCICATCR 



QL92 

a££- 

1 

LAST 

1161 

C7.2617 

5S*<I74 

_c_ 

CCARSl 

TJS 

COUiNC 





0Q_91 

PE P 

.. 6 

xnLiiai 

CJiZtEC 

51*414 

1 

INDEX 

CDUI FC 

CCMPLTE THETAC - THETAA IN US 


QQ94 

BJt±. 

21 

LAST 

132 4 

07.2621 

3 115 5 


CA 

THETAD 

COMPLEMENT FORM 


0095 





07^2622 

C 0CC6 

1 

EXTEND 




0096 

REF 

9 

LAST 

1387 

0U2623 

5 1414 

1 

INDEX 

CDUI NO 



0097 

REF 

-1C 

LAST 

1384 

07.2624 

_20 U32 

1 

MSU 

coux 



cc9a. 





07,2625 

0 0006 

1 

EXTEND 




0099 

REF 

45 

LAST 

13 5 9 

C7y 2626 

7 4676 

C 

MP 

PI T1 3 

SHIFT RIGHT 2 


QICO 

R£f_ 

221 



C7.2627 

__56 CCl 

C 

XCH 

L 

RCUNC 


UJcl 





C7,263C 

6 0000 

1 

DOUBLE 




01C2 

PEF 

14 

LAST 

1375 

C7, 2631 

54 061 

1 

TS 

ITEMFl 
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07.2632 

I 2634 

C 

TCF 
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R£f_ 

2 
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C7,24^2 
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1 

CQABS2 

TC 

CALL TEST 

OCNT CONTINUE IF CAGED. 
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REf 


LAST 13 b 7 
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1 


TS 

1 TEMPI 

SETS TC ♦O. 


0113 

REP 

71 

liST 1387 

C7.264A 
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1 


CAP 

ThQ 

SET ecu INCICATCR 



Rif 
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LAST JJil 

C7t2695 
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C 

»3 

TS 

C DU INC 














• 
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12 

LAST 13flg 
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51*474 

1_ 


INDEX 
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PEP 

*3 
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LIST 13 0 7 

C7,26R7 

11*471 

c 


CCS 

CCHH/'NC 

NUMBEP OF PLLSES REOUIPED 


0117 

REF 

L_ 


C7,2650 

0 2654 

1 


TC 

COMPCS 

GREATER THAN MAX ALLOWED 


cue 

REF 

L_ 


07,2651 

U 2663 

c 


TC 

NEXTCCL ♦! 



0119 

PEf 

1 
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1 


TC 

CCMNFG 
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REF 

2 

LIST 13SC 
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c 


TC 
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013e 
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REf 
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1 

1 
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AD 

-COM MAX 

COMMAX a WAX NUMBER OF PULSES ALLOWED 

_ 0122 
0123 

REf 
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C 0006 


EXTEND 


MINUS ONE' 


L. 



07*2656 

6 2731 

i 


B2MF 

CCMZEfiC 



0124^ 

REF 

lA 

LA SI 

1306 

C7jJ^65 7 

51*474 

X 


INDEX 

COU! NO 



0125 

REF 

A 

LIST 

13 8 8 

C7,2660 

55*471 

c 


TS 

COMMAND 

REDUCE COMMANC 

EY MAX NUMBER OF PULSES 

0126 

ai£_ 

1_ 



07*2661 

4 3545 



cs 

-COMMAX- 

allowed 



0127 

REF 

16 

LAST 

1301 

07,2662 

24 061 

c 

NEXTCCU 

INCR 

ITEMPl 



0126 

&if_ 

Ifc 

lAST 

136C 

— (L7i2e63 

6 4713 

c 


AD 

NEGO 



0129 

REF 

15 

LIST 

13 8 8 

C7,26eA 

51*474 

1 


INDEX 

CDU INC 



0130 

REf 

A 

LIST 

98C 

07,2665 
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02^ 9 ^ ^ zmz E3.1^CC E6/^= 140C VAPIAE LE, ACT L ALLY. 


l»3U0 

-Rif 14 

LiiL 

1383 

07.3125 

_54_ 161 

C 

I)*UPULSe TS 

MPAC +5 

SAVE ARRiVlAG ECAOR. 

QiJDl 

REF 

7 

LAST 

1391 

C7,3 126 

0 3 A 5 5 

C 

TC 

CAGE! ST J 

DCNT PROCEEC IF I MU BEING CAGED. 


u3t2„ 

REF 

3 

LAST 

_4JJ_ 

C7ilil7 

11 '304 

C 

CCS 

LGYR C 

SEE IF GYROS EUSY, 

0303 

REF 

1 



07.3130 

u 3171 

c 

TC 

GYPCELSY 

SLEEP. 













REF 

6 7i 

LAST 

1394 

07,3131 

54 156 

1 

TS 

HP a : +2 


U305 

REF 

S2 

LAST 

139 1 

07.3132 

3 4705 

1 

CAP 

1 1 T 6 

ENABLE THE POWER SUPPLY. 

Q3C6 





C7.3133 

6 0006 

1 

EXTEND 



Q3t7 

REF 

15 

LAST 

139C 

07.3134 

05 014 

1 

NOR 

CHAN 14 













0308 

REF 

2 d 

LAST 

1359 

(.7,3135 

3 4710 

c 

CAF 

FCUP 


0310 

_BiLL 

It 

LAST 

1391 

07.3136 

0 5140 

1 

GWAKE2 TC 

WAITLIST 

(IF A JOB WAS PUT TC SLEEP, THE PCWER 

UJll 

RtF 

u 

LAST 

139 I 

E3.1474 



EBAKKc 

CDU I hC 

SUPPLY IS LEFT CN BY THE WAKING JOB). 

Q3U 

PEF 

L_ 



07*3137 

C32C7 

1 

2CA0R 

STFTGYPr 


0312 

REF 

1 



07,3140 

16103 

1 





G31J 

RIf_ 

676 

-LA-^T 

1394 

07,3141 

3 0161 

1 

CA 

MPAC +5 

SET LF EBANK, SAVING CALLER'S EBANK FCR 

0314 

REF 

56 

LAST 

1363 

07,3142 

56 0Q3 

1 

XCM 

t bANK 

RESTCRATICN ON RETUPN. 

C315 

REF 

677 

LAST 

139^ 

C7,3143 

56 L61 

1 

XCH 

HPAC +5 


Q316 

REF 

4 

LAST 

1394 

07.3144 

55*304 

c 

TS 

L&YRC 

RESERVES GYROS. 

031 7 

REF 

14 

LAST 

136 ( 

07,3145 

7 <(373 

0 

hask 

LUWb 


0318 

REF 

21 

LAST 

1369 

07,3146 

54 061 

1 

TS 

1 TEH PI 













0319 

__R1F 

73 

LIST 

1386 

C7,3147 

3 471 1 

1 

CAF 

TWO 

FORCE SIGN AGREEMENT ON INPUTS. 

0320 

REF 

678 

LAST 

1394 

07,3150 

54 157 

c 

CYRCAGRE TS 

MfAC +3 


0321 





C7,315i 

6 CuQO 

1 

DOUBLE 



G322 

REF 

22 

LAST 

1394 

07,3152 

6 0061 

c 

AD 

1 TEHFi 


C323 

REF 

619 

LASI 

1394 

C7,3153 

54 160 

1 

TS 

MPAC +4 


G324 





07,3154 

0 OOCt 

1 

EXTEND 



0325 

REF 

314 

LAST 

1393 

U1 

5 COCO 

1 

INDEX 

A 


C324 





07. 3156 

3 1401 

c 

DC A 

1 40C 


0327 

REF 

68C 

LAST 

1394 

C7, 3 157 

52 155 

1 

OXCh 

MPAC 


0328 

REF 

11 

LAST 

1295 

07,3160 

0 7226 

c 

TC 

TPAGREF 


0329 

REF 

681 

LAST 

1394 

07, 3 It 1 

52 155 

1 

DXCH 

HP AC 


0330 

REF 

682 

LAST 

1394 

07,3162 

50 160 

0 

INDEX 

MPAC +4 


0331 





07, 3 163 

53'4Cl 

1 

DXCH 

14C0 













0332 

REF 

663 

LAST 

1394 

C7,3 164 

10 157 

c 

CCS 

MPAC *3 


C333 

REF 

1 



07,3165 

1 3150 

1 

TCF 

GYRO ACRE 













0334 

REF 

664 

LAST 

139 4 

C 7 f 3 1 66 

3 0161 

1 

CA 

MPAC *5 

PCSTQPE CALLER'S EBANK. 

0335 

REF 

59 

LAST 

1394 

07,316? 

54 aC3 

c 

TS 

66ANK 


0336 

REF 

e 

LAST 

1392 

C7,31?0 

1 2557 

c 

TCF 

k.ODEEXIT 
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PQ331 



JiCLTlhES TO 

ALLCh TORQLINO 

ei 

ONLY ONE 

3QQ AT 

A TINE.^ 














0338 





Q7, j ni 

C QQC1& 1 

GYACMUSY 

EXTENL 


SAVE RETURN 2FCA0R. 

Qjaa 

Rfcf 

20 

LAST 

1151 

01*3172 

1-0134 

1 


OCA 

6UF2 



A£f 

6E5 

Liil 

1394 

07.3173 

52 155 

1 


DXCH 

MPAC 


0341 

REP 

L 



07.3174 

1 3206 

0 

PEGSLEEP 

CAP 

LGNArE 



REF 

5 

L4SV 

i29C 

C7,3l?5 

1 5070 

1 


TCF 

J0> SLEEP 














0343 

REf 

b 

LIST 

1394 

C7.3176 

11»304 

c 

GtaANE 

cc s 

loypj: 

WHEN AhAKENEO. SEE IF GYPCS STILL BUSY. 


REF 

L_ 



07,3177 

1 3174 

1 


TCF 

KEGS LEEP 

IF SO, SLEEP SORE «ORE . 













0345 

REE 

6 £ t 

LIST 

1395 

XI. 3 200 

34 156 

1 


JTi 

HP AC *2 


C34<? 





0 7 f 3 it C 1 

0 0006 

1 


EXTEND 



C3^7 

REF 

667 

LIST 

1395 

C7,32C2 

3 0155 

c 


OCA 

MPAC 


034 8 

REE 

21 

LIST 

139 5 

C7.3203 

52 134 

0 


DXCH 

bUFI 

RESTORE SbflETDRN INFO, 

Ci49 

Rtf 

HO 

1.4 SJ J18X 

011 3 204 

3 4712 

1 


CAF 

ONE 


Qi50 

REF 

1 



07« 3205 

1 3136 

A 


TCF 

G^AK E2 



0351 

REP 

1 



C 7i 32 06 

i?L76 

1 

EOWIAE. 

CADR 

GVAK 6 
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laPCUlKC HAIUIIT TASKS 


















aiS3— 

REF 

L- 



07.3201 

^ 3^30 


STRTGYRC 

_C5 

ADtSELCT 

DE-SEIECT LAST CYRO. 

Q334 _ 





. JI7jJL210 

0 0006 

1 


EKTENO 



0355 

fLti_ 

IL 

Aj5T 1351 

CJU3111 

AAA 

1 


KANO 

CHANIA 














Q356 

R£f^ 

_ A 

_USI 

liil 

jQJAi212 

Q 3AA3 

1 


TC 

CAOETEST 














0357 

- RPP 

t_ 

LiST 

136§ 

07.3211 

3 1304 

1 

STRTGYR2 CA 

LOYFC 

JLRP ON PHASE COUNTER IN QTTS 13-lA. 

Oi^e 





07.32141 

0 0006 

1 


EXTEND 



.0355 

REF 

Ai_ 

_LlSt_ 

13? t 

L7t3215 

7 ^7C7 

i 


RP 

f.ITA 


_Q36Q 

REF 

373 

-JJLLL 

136^ 

C7.32A6 

.50 OCU 

1 


INDEX 

A 


Q.3C;1 





07,3217 

1 3220 

c 


TCF 

+ l 


AitZ 

REF 

1 



07,3 220. 

0 32 3 5 

c 


TC 

GSELECT 

«0. CC Y GYRO. 

0363 





07,3221 

00202 

1 


OCT 

00202 



oseA 

PfcF 

_2 

LiST 

1366 

€7,3222 

0 3235 

c 


TC 

GSELECT 

*1. CC 1 GYRO. 

0365 





Q7t3223 

00302 

c 


OCT 

00302 



0366 

RtF 

3 

LiST 

13? < 

€7,322A 

0 3233 

c 


TC 

GSELECT -2 

-2. DO X GYRC. 

0367 





07,3225 

0^0 ICO 

€ 


OCT 

00100 



0360 

REF 

25^ 

LiST 

13? 3 

07,3226 

3 <t71A 

1 


CAP 

ZERO 

**3. DONE 

0366 

REP 

2_ 

LiST 

A3 9 6 

C7.3227 

55*3C-!. 

c 


TS 

LGYP C 


0370 

REF 

2 

LiST 

1395 

07,3230 

3 3206 

c 


CAF 

LGViAKE 

WAKE A POSSIBLE SLEEPING JOB. 

03 7 i 

REF 

6 

LiST 

126C 

€7,3231 

0 507A 

1 


TC 

JOBKiKE 



OilZ 

KEF 

i 

LIST 

1391 

07,3232 

1 303A 

1 

NQRESET 

TCF 

IFUF INEO 

CO NOT RESET POWER SUPPLY 
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C 3 73 

fin 

21 LIST i 39 <^ 

^ 07,3233 

A A 71 Q 

1 -2 

cs 

FOUR 

SPECIAL ENTRY TC REGRESS 

LGYRO FOR X. 


0 J 74 

REt 

e. 

L 4 il a 3 _ 9 _C 

03 j 323 ^ 

_^3 'JjQA 

C 

ADS 

LOYRC 
















ijJ 75 

aif 

JiZ- 


iJJ*J 235 

0 .C 2 

C ^SELECT 

INPEX 

Q 

SELECT GYRO. 



037 c 




_QL, 3 ii 6 

^ QOQO 

1 

CAf 

0 

PACKEC WORD CONTAINS GYRO 

SELECT BITS 


0 - 113 . 

fl£f 



LIST 137 S 

17.3237 

—54 06 a 

1 

^ li , 

1 TL MPA 

AND increment TC LGYRO. 



03 7 e 

R£f 

ic 

LAST 136 7 

_Clt^ 3_240 

7 A 716 

1 

HASK 

SEVEN 




C 3 

HEf 


LIST I 39 i_ 

C 7.3241 

6 <i 6 7 6 

1 

AO 

BIT 13 




cjgc 

REF 

s_ 

LIST 1397 

C 7 . 3 2 ^ 2 

27 * 3 CA 

C 

ADJr 

LCYP C 




. 0361 

KEF 

EC 

L 3 ST 139 ^ 

C 7,3243 

5 A CC 3 

c 

TS 

EbANK 




0382 

REF 

15 

L ^57 USE _ 

_C 7 t 3 2 A^ 

7 A 3 7 3 

c 

MASK 

LOW 6 




03 fei 

ft£F 

1 3 

LiiST 1394 


- 54 Q 61 

1 

TS 

ITEMFl 





G 3 aA 

REt 

21 

LAST 

1391 

CT. 32 A 6 

^ A ?16 1 

CS 

SEVEN 

0305 

RFF 

c; 

^ — 

LAST 

■ 1391 _ 

C 7 fi 24,7 

-7 QQ 6 <t 1 

MASK 

ITEMFA 


03 aa 

R£f 

6 LAST 1397 

C7-,32JQ._.5.A_Q6A 1 

IS 

I TEMP4 


Li3a7 




C7. 32S1 

a 0006 

1 

EXTENL' 

MOVE OP CCMMANO TO RUPTREGS FOR TESTING. 

_ jQififi 

R_EF 

2 A 

_kAST 1397 ^ 

C7, 3252 

5 CC61 

C 

INDEX 

ITf F PI 

0309 




C7j3253 

3 lACl 

C 

OCA 

140C 

0 39C 

REF 

28 

LAST 1375 

C7.325A 

52 C7l 

_£ 

CXCH 

KUL TFECl 










0391 

RIF 


LAST 1397 

07.3255 

IC 070 

1 

CCS 

RUPTREfcl 

C392 

REF 

1 


C7.3256 

1 327 1 

i 

TCP 

MAJ + 

C'393 




07,3257 

1 326 1 

c 

TCF 

♦ 2 

039A 

Rtf 

1 


C7, 3260 

1 3AU 

1 

TCF 

MAJ- 


„ Q3S5 

filF 

_JL_ 

nSI 13 73 

£1*5141 

_liLX71 

c 

CCS 

RUPTK6C2 

0346 

REF 

_L_ 


C7.i262 

JL^26 6 

I 

TCF 

H I N + 

0397 

REP 

L_ 


07. 3263 

1 3213 

c 

TCF 

STRTGYP2 

aise 

REF_ 

l_ 


07.326A 

1 3906 


TCF 

MIF - 

0399 

PtF 


LAST 1397 

C7,3265 

1 3213 

c 

TCF 

STRTCyR2 













II 


i 

/ 

4 

I 

I 

0 

r 

j 

4 
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RCF 

JL^ 



Q 7« J ^66 

_iL-332iL 

1 

R IN< __ 

4U 

-GVFCFIN 

SHALL POSITIVE COMMAND. SEE IF AT LEAST 

u4Ll 





07-ti24.7__ 

Q Q.QOa_l_ 


tXTENL 


16 GYRC PULSFS. 

Q4G? 

RPF 

i_ 

-Li97 

13 9 7 

CJ^llQ 

6 3213 

_1_ 


BZMF 

STPTGYF2 



- Q^£i3 





Q7»3271 

-JiJ10Q6 

1 

RAJ + 

EXTENL 


DEFINITE POSITIVE OUTPUT. 

a.4.U4,. 

R£F 

1 



07.3272 

_1 1432 

-L_ 


-I3CA 

J^VRLFFAC 


U4Q5 

RtF 

iC_ 

L^ST 

1397 

L7.3273 

2C C7l 

C 


04 S 

RUPTPEGl 














04f)6 

- JL£ F 

3_ 

LAST 

1397 

07.3274 

0064 

C 


CA 

17EFP4 

SELECT POSITIVE TQRUUING FOR THIS GYPO. 

0407 





07.3275 

U 0006 

1 


exTENL 



C4‘jtj 

RLf 

17 

LAST 

1396 

C7,32?6 

C5 014 

1 


WC'R 

CHAM4 



G4U9 

REF 

_1L 

USJ 

1341 

C7f 3277 

i 6043 

c 


OAF 

L0R7 

LEAVE NUMBER CF POSSIBLE 8192 AUGMENTS 

0410 

REF 

e 

LAST 

1397 

C7,3300 

7 C071 

c 


FASK 

P0PTf<LG2 

TC INITIAL CCFMAND IN MAJCP PART CF LCNG 

0411 

R£F 

s_ 

LAST 

139E 

0 7. 3 301 

5 6 C71 

1 


XCH 

KUPT RFG2 

TERM STORAGE ANC TRUNCATED FP.ACTICN 

___ 0412^ 





07,3302 

C 0006 

1 

GHERCb 

tXTENO 


IN MINOR PART. THE MAJOR PART HILL UF 

0413 

-^EF 

1C 

LA_S T_ 

1.3 74 

C7f 3303 

7 4 7C 3 

i 


FP 

F ITS 

COUNTED CCMN TC ZERO IN THE COURSE OF 

0414 

REF 

17 

LAST 

137 5 

C 7. 3 304 

54 062 

1 


TS 

iTtHP2 

PUTTING OUT THE ENTIRE COMMAND. 

_ _.a4i5 

—REF 

31 

LAST 

1398 

C7,330S 

3 C070 

L 


CA 

RUP7REG1 


^ C416^ 





07,3306 

C 0006 

1 


EXTEND 



--■ Q417 

■_B.EP 

2 5 

LAST 

-lias 

02t33€7 

7 4702 

1 


FP 

e 179 


-0418 

REF 

32 

LAST 

13 9 8 

C7, 3310 

54 070 

1 


TS 

t'OPTREGl 


0419 

REF 

223 

LAST 

Uo7 

07.3311 

3 0001 

c 


CA 

L 


- Q420 





C-7.3312 

C 0006 

1 


EXTEND 



0421 

REF 

76 

LAST 

1359 

C7,3313 

7 4675 

c 


HP 

L1T14 


0422 

REF 

le 

LAST 

1398 

07,3314 

2 6 C62 

1 


AOS 

ITE FP2 

INITIAL CCFFANO. 













0423 





07,3315 

C 0006 

1 


eXTENO 


SEE IF MOPE THAN ONE PULSE TRAIN NEEDED 

0424 

REF 

33 

LAST 

1_39_8_ 

C7,3316 

3 0071 

1 


DCA 

PUPTRECl 

(FORE THAN 16383 PULSES!. 

042»> 

REF 

L_ 



C7.3317 

6 7 716 

c 


AU 

MlNUSl 


0426 

REF 

376 

LAST 

1396 

07,332C 

IC cco 

c 


CCS 

A 


C427 

REF 

1 



07,3321 

1 3345 

1 


TCP 

LONGGVRC 


U428 





07, 3322” 

776CI 

0 

-CYRCMIN 

OCT 

“176 

MAY eE ADJUSTED TC SPECIFY MINIMUM CMO 

0429 





07,3323 

1 3327 

c 


TCF 

♦ A 


. 












043C 

REF 

77 

-LAS T 

1398 

C7.3324 

3 4o7 5 

1 


CAP 

B1T14 


0431 

REF 

19 

LAST 

1398 

C7,3325 

26 C62 

1 


AOS 

1TEFF2 


0432 

REF 

2‘5 

LAST 

1396 

07,3326 

3 4714 

1 


CAP 

ZthC 



0433 

REF 

2i 

LAST 

139 7 

C7, 3327 

5C 061 

c 

♦ 4 

INDEX 

1 TEFPl 


04 34 





07, 3330 

53*4Cl 

1 


bxCH 

1400 



uip.; 

ASSXM 

ILL Ki 

23/ Li -4uL fb. 

Lu-RAM LL 

J^L 1 ^ iih £11 a 


llll-LJl 

_ — AUUj pUU^ 

— 

L 

IfL 

MCCi 

SlillOhlNO RCUIJRES 
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0435 

Rif 

EC 

Liil 139 £ 07,3131 

3 0062 

c 

CA 

1TERF2 

ENTIRE CCAAANC. 


043b 

RtF 

3 

LIST 139C 07,3332 

54 047 

C LASTSEG 

TS 

GYPr CPO 



<L433 



07^3333 

C Q Q C 6 

1 

EXTEND 




0435 

R£F 

44 

L45I 139 3 01,3234 

? 47C1 

1 

MP 

BMU 

WIITLIST OT 


0439 

REF 

47 

Lli1_13ai ^1*3335 

6 6214 

c 

AD 

THREE 

TRUNCATION AND PHASE UNCERTAINTIES. 


044C 

HEE 

»7 

LiST 1394 C7,333fe 

0 5140 

J 

TC 

WAITLIST 



0441 

REF 

22 

Un 139.4 £3,14 74 



iBANK* 

CDUIND 



0.444 

REF 

2 

LAST 1394 C7,3337 

C32C7 

1 

2CACR 

STRTGYPC 



G442 



07.3340 

16103 

J 






Q446 Rif Ll&J JL291 C7.a3^1 i ^7ai C GYRCE;!! T CAF elTJC 

fiAAS L7.33A2 Q C0C6 1 EXTEND 

C^5t REE IE L^ST 139^8 C.7t33^3 Q5 OlA J wOR CHANH 

0451 REF 7C L/iSl 1392 C7,3344 1 3213 C TCF TASKCVER 


0452 

REF 

26 

1JLSL13 9 i 

C 7,1345 

5C C61 

LCRGGYRC INDEX 

ITEJ*P1 



0453 





07,3246 

53*HCi 

1 

DXCH 

1400 

IMT lAL CCPPANO OUT PLUS 

N AUGMENTS OF 

u^54 

RLF 

LB... 

LAST 

1398 

C7.3247 

3 4675 

1 

CAF 

BIT 1 4 

6192. initial CCMMANO IS 

AT LEAST 8192. 

C455 

REF 

21 

LAST 

1394 

C7,i250 

6 C062 

C 

AU 

I TEPP2 



0456 

REF 

4 

LAST 

13 9 < 

C7_a3351 

54 047 

C 

TS 

GYkCCPC 




0457 





07,3352 

C .0£LC6 

1 AUGl 

EXTEND 

GET WAITLIST n TL TIHE WHEN TRAIN IS 

0456 

REF 

46 

LAST 

1399 

57,3353 

7 47C1 

1 _ 

MP blTlC 

ALNOST OUT. 

0459 

REF 

^1 

-LAST 

136 L 

07,3354 

6 7714 

1 

.AlD NEG3 


04 6 C 

REF 

5i 

LAST 

1394 

07,3355_ 

0 5140 

1 

TC WAITLIST 


C461 

REF 

23 

LAST 

1399 

63,1474 



EBANK« C DU INC 


0462 

REF 

L_ 



07.3356 

03361 

C 

2CA0R 8192AUG 


0462. 

REF 

1 



C7.3357 

161C3 

1 



04 63 

Rif 

L 



.074 3.360 

1 3341 

c _ _ 

TCF GYRCEXIT 



... 0464 

REF 

5 

LAST 

1396 

07^33 61 

0 3443 

1 

ei92AUG 

TC 

CAGE TEST 











. — . 

0^64 1 

REF 

47 

LAST 

139A 


3 4707 

c 


CAF 

B1T4 

04642 





C7, 3363 

C 00C6 

1 


EXTEND 



0^6^ 2 

REF_ 

4T 

LAST 

1392 

C7,3364 

02 G12 

c 


RAND 

CHAM2 


04 64 4 

REF 

317 

LAST 

i39€ 

C7.3365 

iO 000 

c 


CCS 

A 


04 64 5 

R.LF 

3 

LAST 

1384 

C7i3366 

1 3441 

i 


TCF 

I PUEAC 


0465 

REF 

1C 

LAST 

1391 

C 7, 3 36 7 

3 1304 

1 


CA 

LGYfiC 

AGO 8192 PULSES TO 6YRCCND 

0466 

REF 

1 1 

LAST 

1391 

C7. 3370 

54 0C3 

c 


TS 

E BANK 


. . 0467 

REF 

16 

LAST 

139 1 
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PQD2^ 

LFPLPl 

PRCCPAI* 





















Qn:>^ 

Pgp 

2£ 

LXSJ-_ 

1413 


54 Qlc 

1 

OPR LPT 

TS 

BANKPOPT 


QLiZt 

Rif 

228 

LAST 

1413 

07,3637 

5 6.JJC2 

1 


XCH 

Q 


QQZ 7 

8Ef 

n 

LAIT 

iHll 

07,3640 

54 i]J2 

C 


TS 

CROP 1 


_ — Q fl — 

AEf 


LIST 

1^13 

07.3641 

Q 4414 

_i_ 


TC 

LCD SIRPT 

TIME IS SNATCLEC IN PUPT FOP NOUN 65. 

ua2s 

PEP 

164 

LAIT J_412 

_0-7i3642 

3 4714 

1 


CAP 

2 EPC 


QC30 

PCF 

2 

LIST 

181 

07,3643 

56 045 

c 


XCH 

INL I NK 


0Q31 

PEf 

_2. 

LIST 

12 T 

07,3644 

54 073 

1 


TS 

KlVTERPI 


0032 

PEP 

34 

LIST 

1359 

C7t3c45 

3 4710 

0 


CAP 

LIT’ 

TORN CN OPACr LIGHT 

0033 





C 7 j 3 6 4 6 

C 0006 

1 


EXTEND 


(BIT 3 OF CHANNEL 11) 

003^ 

PEP 

24 

LIST 

140 2 

07,3647 

05 on 

1 


hOR 

0 Slip CUT 


-J7Q3^ 

REF 

■ 11 

LAST 

I4l 3 

C7,365Q 

3 4362 

1 

UPRPT 1 

CAP 

L0Vi5 

TEST FOR TRIPLE CHAR REDUNDANCY 

0036 

REF 

7 

LIST 

141 4 

07,3651 

f 00 7 3 

I 


MASK 

KEYT £PP1 

LCW5 CF WCRC 

0037 

AEF 

1 

LIST 

14 1 4 

07. 3652 

.56 073 

c 


XCH 

KEYTEPPl 

LCW5 INTO KEYTEPPl 

CU38 





07,3653 

0 0006 

1 


EXTEND 



0.039 

REF 

=_ - -=*• 

49 

LIST 

1412 

07,3654 

7 4701 

1 


HP 

b I T 1 0 

SHIFT RIGHT 5 

00^(0 

-PfJ- 

L 



J7i3655 

54 734 

c 


TS 

KEYTERP2 


00^1 

REP 

U 

LIST 

1.4 1 4 

07 f 5 656 

7 4362 

c 


MASK 

LCW5 

MID 5 

0042 

REF 

1 



07,3657 

6 3713 

1 


AD 

Hilt 


0043 

REF 

L 



07,3660 

a 3710 

1 


TC 

UPTt ST 


0 04^ 

REF 

5C 

LIST 

1414 

07,3661 

3 4701 

c 


CAP 

BIT 10 


0045 





_ 07,3662 

0 0006 

1 


EXTEND 



0046 

REF 

1 

LIST 

1414 

C 7 i 3 66 3 

7 0734 

c 


HP 

KEYTEPP2 

SHIFT RIGHT 5 

0047 

HEP 

14 

LIST 

1414 

C7, 3664 

7 4362 

c 


RASK 

LOWS' 

HIGH 5 

0048 





07,3665 

4 OOCC 

c 


COM 



G0-ii9 

REF 

2. 

LIST 

1414 

07,3666 

0 3710 

1 


TC 

UPTEST 




RIF 

L 



07, 36o7 

4 3716 

c 

UPQK 

CS 

ELRCCDE 

CCCE IS GCOC. IF CODE » 'ERROR RESET*, 

0051 

REF 

i. 

LIST 

1414 

07,3670 

6 0073 

0 


AD 

KEYTERPl 

CLEAR UPLC’CKFL ( SET BTT4 OF FLAGWR07 - 0) 

0052 





07,3671 

G 0006 

I 


EXTEND 


IF CCCE OCeS NCT ■ 'ERROR RESET*, ACCEPT 

0053 

REF 

1 



07,3672 

1 3700 

1 


BZF 

CLUPLCCK 

CODE ONLY IF LPLOCKPL IS CLEAR (»0). 


QQM . 

Rif 

_4_9 

LISJ 

14JL1 

07,3673 

3 470? 

c 


CAP 

b IT4 

TEST OPLCCKFL PCR C CR i. 

0055 

REP 

19 

LIST 

774 

07,3674 

7 CIC3 

1 


MASK 

PLAGViflO? 


0056 

REF 

3E6 

LIST 

14 1 1 

07,3675 

1C QCO 

c 


CCS 

A 


0057 

REF 

4 9 

LIST 

1413 

07,3676 

0 5222 

c 


TC 

PESURE 

UPLOCKPL • 1 

0058 

REP 

1 



07,3677 

0 3626 

c 


TC 

acceftup 

UPLCCKPL > 0 













0059 

HEF 

5C 

LIST 

1414 

07,3700 

4 470? 

1 

CLUPLOCK 

CS 

bl T4 

CLEAR UPLCCKPL (I.E., SET 3IT4 OF 

0060 

REF 

iC 

LIST 

1414 

07, 3701 

7 CIQ3 

1 


PASK 

FLAC.UR07 

FLAGhPC? • C) 

OCcl 

KEF 

2 1 

LIST 

141 4 

07, 3702 

54 ICi 

1 


TS 

FLAGFRC7 


0062 

REF 

2 

LIST 

1414 

07,3703 

0 3626 

c 


TC 

ACCEFTLP 



»u063 CCOE IS BAD 


0064 

REF 

TU 

AM 

II 

LIST 

1414 

07, 3704 

4 

0103 

1 

TMFIIL2 CS 

FLAGUFC? 

LCCK CUT FURTHEF 

UPLINK ACTIVITY 

0065 

REF 

51 

LIST 

1414 

07,3 705 

7 

4707 

1 

MASK 

h 114 

(BY SETTING UPLCCKPL * 1) 

UNT IL 

0066 

REF 

23 

LIST 

14 14 

C7,37C6 

26 

1 C 3 

1 

AOS 

FLAG0PL7 

•ERfiCR RESET* IS 

SENT VIA 

LPL INK. 


006? 

REF 

50 

LAST 

1414 

01,3707 

0 

5222 

0 

TC 

RESUME 

006 9 

REF 

6 

LAST 

1414 

C7,3710 

6 

0073 

C UPTEST 

AO 

KFYTEMFl 


gap: 
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1 

K£^PLn« LPRLPT 






USER'S PAGE NC. 

3 

EO SA 

■ 


~ ‘ ' ~ ~ " — — 














aniG- 

Rtf 317 LAST 1^14 

C7.37I1 

IC.OGU C 


XCX_ 

A 







0071 

Rtl 1 

_X7»3712 

Q 370<i 1 


TC 

T MF A U2 







00.12 


C7^3713 

1J74C 1 

RllQ 

OCT 

7774C 







.ao73__ 

Alt .2 USX 041 5 

CJjJ7lA 

C_i7tlX- 


TC 

TKFAIL2 







00 7^ 

Ptf 2 2S LASX 141^ 


Q CCC2 C 


TC 

0 








Qfl 75 

. C7. 3716 00022 1 £L«CCCE CCT 22 













KDcnt 

•LFLIfK AtlJkllY LIGH* IS TURNED CFF_ EY ..... 






RCG77 

L.. vePElCSF 






F CO 7 6 

2. EFPCR RESET 






ftQ079 

_ _ -3.. UPCAIE PRCGPAPIP27) ENTERED BY V70. V71 tV72. AND V73. 




















agoBO 







RflClBl 

TEE RECEPTION CE A EAC CCCEd.fc CCC FAILURE! LOCKS GOT FUHTEEP LPLINK 

ACTIVITY BY SETTING BITA 

OF FLAGWRC7 • U 


RfiOd3 

TFIS INCICATIGN WILL BE TRANSFtPREO TC THE GkQUND BY THE OOWNLINK WHICH 

DGWNL 

INKS ALL FLAGMOROS. 




ROCflS 

NFEN LfLIhf ACIIVITY IS LCCKEC CUT ,IT CAN EE ALLOWED WHEN THE GRCONC UPLINKS 

AND 'ERROR RESET' 

CCDE 

* 


PQoe? 

(IT IS PECCHRENOEC THAT THE 'ERROR LIGHT RESET' CODE IS PRECEEDEO BY 16 

BITS 

THE FIRST CF WHICH 

IS 1 

FOLLOWED 


POO 8 9 

BY 15_ iiPCXS. THIS WILL ELIHINATE EXTRANEOUS BITS FROM INLINK WHICH MAY 

HAVE 

BEEN LEFT CVER FRCM 

THE 

ORIGINAL 


PCQ91 

-EAILLPE) 






PC0v2 

URIINK ACTIVITY IS ALSC ALLCViEO lUNLCCKEC ) DURING FRESH START WHEN FRESH 

START 

SETS 6ITA OF FLACWRC? 

» C. 



GAP; fiPVISlCN 211 fF ACC PHLGPAM CCLCSSUS fiV NASA 20211ii~C31 HU ALG. 2<!i.l9te SATWAP >004 PACE U16 

L Ol^PLA^t 1N1 £Pl£ACE liCUTlNtS UShT*? PAGt NO, I fn SA 


kOOUl 

CISFLAYS C/N BE CLASSIFIEC IMC THE FCLLCWINC CATEGCRHS- 










R0002 

L* 

PRiCkITY DISPLAYS- DISPLAYS WHlCP TAKE PRIORITY UVLf 

ALL CTHtR DISPLAYS. USUALLY 

THESE DISPLAYS APE SENT 


R.(liU2A 


j:i.l_Ufill£R CRITICAL ALARM CONDIIICNS. 




RUQUS 

i. 

EAAiNLlC VXR£ UliPLAYS- ALL LATENCEO ViBBS ANL MARK 

PLUTINES SHCLLC USE EXTENDED 

VEPB (NARKI DISPLAYS. 


Rflimi 

L.U 

l^CLKNJ^L DISPLAYS- ALL MISSION PPQGRAM C I SPLAYi. WH ICH 

INTERFACE WITH THE 4STRDNAUT 

DUPING THE NORMAL 


fiilflas-- 


SfcCLENCE Of EVENTS. 




RUOIQ 


MISC. DISPLAYS- ALL CISPLAYS NCT HANDLED BY THE DISPLAY INTERFACERCuT INES. THESE 

INCLUDE SUCH DISPLAYS AS 


fiOU12 


kk CISPLAYS AND SPECIAL FURBOSE CISPLAYi HANCLEC BY 

P IhBALL. 




RQJ13 5- ASTPGAALT IMTIATEC DISPLAYS" UL CISPLAYS IMTIATPD fcXURNALLV. 

ROOU The FC;LLC>.lNg TERRS APE USEC TO CESCRieE THE STATUS Of QISPL<.VS- 


RQQ15 1. ACTIVE-THE CiSPLAY IS (U EEIKC CUPLAYED TO THE ^STRChAlT AND WAITIRG FCR A RE5PCRSE OR 

RCOi? UI hAITINC FIRST Ih LIRE FCR THE AS TRORAUT TO FINISH USING THE DSKV OR (3> BEING DISPLAVEU ON THE OSKV 

RM1$ an NOT WAITING FOR A P_E5PCNS£. 

P.Q02Q 2^ INACTIVE -I CISPLAY WHICH HAS (11 cEEN ACTIVE BUT WAS INTEPRLP7E0BV A CISPLAY CF HIGHER PRIORITY, 

RCa22 lil BEEN PUT iAlO- THE WAITING t 1ST AT TIME IT WAS PEOLESTEC DU E TO THE FACT A HIGHER PRIORITY DISPLAY 

K002^ ln/IS ALREADY QClNGf (31 BEEN INTERRUPTEC BY THE ASTRONAUT (CALLEC A PINBRANCH CCNCITTONt SINCE THIS TYPE 

-RJu2fe Cf INACTIVE CISPLAY IS USUALLY PEACTlYATED ONLY BY PINBALL) CH (4> A DISPLAY WHICH HAS FINISHED BUT STILL 

PQC2tl KAi iNFC SAViC .FgR_.BLSTAP.T FUPFCS ES. 


RQC29. 

DliPLAV 

FRICflTieS WORK AS FCLLChS- 










RQQ3Q 

INTEPPLPIS- 




R0031 

1 . 

THE ASTRONALI CAN INTEPRLFT ANY CISPLAY WITH AN EXTERNAL 

CISPLAY 

REQUEST. 


ftU033 

2. 

INTERNAL DISPLAYS CAN NOT BE SENT CUT WHEN THE ASTRCNAUT 

IS USING 

THE OS'KY. 


KQQ3^ 

Li_ 

PPICRITY CISPLAYS INTERRUPT ALL CTHEP IVPES OF INTERNAL 

CISPLAYS. 

A PRIORITY DISPLAY INTERRUPTING ANOTHER 


R0037 


FflICPITY DISPLAY WILL CALSE Ah AfiCRT UNLESS BIU^ IS SET 

FCR THF 

LINUS ROUTINE. 


FQ03SI 


A MARK DISPLAY INTERRUPTS ANY NCPPAL DISPLAY, 




ROOAC 

Li_ 

A PARK THAT INTERRLPTS A MARK CQPPLETELY REPLACES IT. 










HOOAl 

CPDER 

CF WAITING CISPLAYS- 




RGDA2 

Lj 

astpcnalt ixternal use 




R0CA3 

2 . 

PPICRITY 




ROOAA 

3, 

INTERRUPTEC PARK 




R00A5 

A. 

INTERRUPTEC NCPMAL 










P C C At 

5. 

NARK 1C BE REQUESTED (SEE UESCRIFTIGN CF ENOMAPK) 




POOA7 

t . 

NARK WAITING 





RQLA8 7. NCPNAL WAITING 
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L DlSPLiY Uh1£^RF/C£ HCUTINES USER^S PAGE NO, ^ EO S4 


POO^S Iti OlifLAY RQ LT 1 llii_ AR E INTERDEC TO SERVE AS AN INTERFACE btThEEN Thi USER ^NC PINEALL. THE 

R0Q51 FCLLCklNG STAT EME MS -CAN BE MAUE ABOUT NORMAL DISPLAYS AND PRICRITY DISPLAYS (A DESCRIPTION CF MARK ROUTINES 

ftCUSl Mill ECllCh lAlERl; 


kQQbh 

■kOaSA 

KQD3e 

RQC59 

RQQ61 

RQQfa3 

ROOfiS 

hQQ66 

AQOti? 

P0Gt9 

RQQ7Q 

HQ 072 

R00 7A 
RQQ7b 


fcQG76 A CESCPIRTION CP EACH ROUT IN£ WITH AN t^AMPLE FOLLOWS: 


aOU77 dCCSP IS LSEt IQ CISPLAY A VERl NCUN ARPiVING IN A. NO RETURN IS MACE TO THE USER, 


h0fl79 CnCSP IS NOT RPSTARTABLE 

RCOtiO 2, A V ERB PASH MTH G.CDSP AL»iAYS TURNS CN THE FLA^JM. 

AOObI CAP VXXNYV 

A0Cfl2 TC bANNCALL 

ACQ63 ^CAOR GODS^ 


VXXNVY OCT OXXYY 


ROQBb CCCSPP IS THE.JAME AS CQvSP CNLY RETURN IS TO THE uSEF. 


AGOBA 
AQOBT 
AUQ fl e 


CAF VXXNYY 

TC bANKCALL 

CADR GOOSPP 


1* ALL RCUTINES THAI tNC IK R HAVt AN IttHEClATE PfcTUKN TC THE USER, FCR ALL FLASHING DISPLAYS THIS RETURN 

IS. JQ.THE US£flS CALL CAD R tA . FOR THE ONLY NUN FLASHING IMMEDIATE RETURN CISPLAY (GCDSPRl THIS RETURN 

IS TC THE USERS CALLING LCC M. . _____ ___ 

2. ALL PCUTINES NOT £NDIN0 IN R CC NOT CO AN IMMEDIATE RETURN TO THE USER, 

1-M ALL RCUTINES THAT ENC IN H SIAPT A SEPARATE JCE IMAKEPLAYI WITH USERS JOB PRIORITY. 

A. ALL. R.LUIIKES _NQJ ENCINC IN R BRANCH CIRECTLV TO.MAKEPLAY WHICH MAKES THESE CISPLAYS A PART OF THE 

USERS JOE. 

L, ALL CISPLAY RCUTlNES ARE CALLEt VIA EANKCALL. 

TC restart a display THE USER WILL GENERALLY USE A PHASE OF CNE WITH OESIREO RESTART GROUP (SEE 
CESCRIPTICN CF RESTARTS), 

1m ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER HwCR ASTRCNAUT RESPONSES. A TERMINATE (V3<t) BRANCHES 

TX THE USERS CALL CACR ♦it A PROCEED (V33) BRANCHES IQ THE USFRS_ CALL CADR ♦a, AN ENTER OP RECYCl E 

(V12I tJRANCHtS TC THE USERS CALL CACR *3. 

Lm ALL RCUTINES MUST BE USED UNCEP EXECUTIVE CONTROL. 


Aooes 


1 

1 

! 

1 

1 

i 

1 

i 

• 

• 

« 

• 

• 

• 

IHMECIATE RETURN OF 6CCSPR 









i)OD90 

GC FLASH CISPLAYS 

FLASHING VERB HCUN WITH NO IMMEDIATE RETURN TC 

THE USER. 3 RETURNS ARE POSSIBLE 

FROM 


R0Q9 2 

THE ASTRCNAUT (SEE 

NC. 7 ABOVE). 










AQja93 


CAF VXXNYY 

VAX NYY WILL BE A FLASHING 

VERB NCUN, 


ACiCSA 


TC SANKCALL 




AQ095 


CADR GOFLASH 




A0CS6 


• • • • « • 

TEkMINATF RETURN 



AOOS7 


• • • • • • 

PROCEED RETURN 



A009E 


« • • • • • 

ENTER CR PECVCLE RETURN 




Pa099 CCPERFl IS ENTERED WITH uESlRtC CHECKLIST VALUE IN A. GLPtPFl WILL DISPLAY THIS VALUE IN PI BY MEANS OF A 


LXBLl a.SSft»Pt F RP\tl<;inN ?M JLE AikL PRCGRAW rr.LtS-:Ll5; RV NA.<;a 7n21111-L^l l:17 61JG. SATRAP 

.004 

PAGE 1418 






_L- ^ - Jlli£LiT JJatMfACE JlCL TINES USER'S PAGE NC. J 


EO S4 





1 V 

_ iOllilL fULSKiNt JliAJLt PEPFCP^' CN CHECKLIST ( V50 N2!) IS THEN OISPLAVED. NO IMHEOIATt RETIRN 

IS 

HADE TG 

■ ■ ■■ km 

Anin2^ USfA.Ji££ NQ- 7 AECVEl. 







■ “ “ 

RCiC^ . aCilftfl fcLANKS kEClSTERS P2 AAC R3 





AQlUS 



CAP 

OCTX)t 

CODE FOR CHECKLIST VALUE AX 



AaiQ6 



TC 

6ANKCALL 




A01C7 



CACR 

GCPERf 1 




AJica 



« 

m m 0 

TERMINATE RETURN 



AC1Q9 



« . « 

... 

PBQCEEC RETURN 



AOllO 



• • * 

... 

ENTER RETURN 




1ULU4. 

GL££Bf2 ii £K11R£L klTW /L VARlABLt NCUN AND WO 1 

_(. YQO 

FCR NIC OP Nil) 

IK A. GCPERF2 KILL FIRST DISPLAY THE 

RQUi 

RfCLESTEC NCUN BY MEANS CF A VOINYY CP A VOONYY 

. PLEASE PEFFCPM ON NOUN ( V50 NVYI THEN B6CCHES A FLASHING 

R-Q115 

GiSFLAU NO IMMEEIATE RETURN IS MACE TC THE USER (SEE 

NC. 7 ABOVE). 



6.ail6 

6CfEHF2 CUES NCT HANK ANY RECISTEPS 





-ACllT 


CAH 

VXXf- YY 

VARIABLE NCUN YY. XX«00 OR 01. 

A Gilt 


TC 

BANKCALL 


AL119 


CAOR 

CCPERF2 

* ’T A __ - - ■ 

ACJ120 


. « * 

... 

TERMINATE RETURN 

AOUl 


• « « 

... 

PROCEED RETURN 

AU122 


* # * 

... 

ENTER RETURN 


B0i23 

GCFERF3 15 USED FCR A PLEASE PERFCRM CN A PRCCR4H NUMB 

£P. THE [ESIPEO 

PROGRAM NO. IS ENTERED IN A. GGPERF3 

H0125 

ClSPLAYS THE NO* EY MEANS CF A Vo6 N07 FCLLCViEO 

6Y A FLASHING V50 NL7 

FOR A PLEASE PEHFCRM. NO IMMEDIATE RETURN 

R0127 

IS MACE TC THE USER (SEE NC. 7 ABCVEJ. 




- 





RU128 

. GCFERf2 ELANKS REGISTERS R2 ANC R3 





A0129 


CAF 

D6CX X 

REQUEST PERFCPM ON PXX 

ACI3Q 


TC 

PANKCALL 


A 01 3 1 


CADB 

GCPERFB 


A0132 


... 

... 

TERMINATE RETURN 

AQ133 


... 

... 

PROCEED RETURN 

A0i34 


... 

... 

ENTER RETURN 





— 

pai35 

_GCF£Rf4 IS USEC FCR A PLEASE PEPFCPM CN AN CPTION. THE 

ceSlREC OPTION 

ISENTEREO IN A AMD STORED IN CPTIONl. 

RC137 

GCFERF4 CI5PLAYS Ri AND R2 EY MEANS Of A V04N06 

FOLLOWED 6Y A FLASHING 

V50NCH FOR A PLFASE PERFORM, NC 

s C 1 3 9 

IMMECIA1E FETURN IS MACE TC THE USER (SEE NO. 7 

ABOVE I 

. 



AQIAC. 


CAF 

OCT XX 

REQUEST PERFCPM ON OPTION XX 

AO 1 4 1 


TC 

BANK CALL 


AC 1 42 


CAOR 

GCIPEFF4 


AG 143 


... 

... 

TERMINATE RETURN 

Au 144 


... 

... 

PROCEED RETURN 

AO 14 5 


... 

... 

ENTER RETURN 


acv-isilih 217 Cf AUC faCGUAt* CCLOSSUS BY NASA .2^i2m 1-C3 1 111! ALG, SATHAP .OQA P4GE l<tl9 


L Dl£Pl./^ lNlERf/C£ PDUIINLS _ - USER’S PAGE NC. 4 EO 


£Q14T GCtSPfiil IS USED 1C DISPLAY A VERB NCUh ARRIVING IN A tlTH A PtlURN TC THE USER AFTER THE DISPLAY HAS BEEN SENT 
B0i^9 CLT, . 


JiQliC CAF VXX KVY _ 

A0151 rU 6ANl«C.ALL 

A0152 CADR GOUSPPET 


AJQ153 RETURN TO USER 


RUiiA MCGJiF li_kSEiL IC DISPLAY A VERB NCUN ARRIV I NG IN A. PEGCUS P IS THE SAME AS GQOSP ONLY REGODSP REPLACES ANY 
RQ1S6 ACIJVE NCPPAL CiSFLAY IF CNE YAS ACTIVE. 


AUI57 

AQiSi) 

AD-LLS 


CAF VXXNVY 

TC BANKCALL 

CADR PcCOCSP 


fUUcjQ 

Rt/LAS> 

IS THE SAFE 

AS GO FLASH CNLV 

REfLASH PBPLACfcS 

ANY ACT IVE NORMAL 

DISPLAY IF CNE WAS ACTIVE. 











AQI62 





CAF 

VXXNYY 

VXX NYV rtILL BE A FLASHING VERB NCUN 


AQi43 





TC 

OANKCALL 



A C 1 64 





CADR 

PEFL ASH 



AC16S 





• • • 

# • • 

TERMINATE RETURN 


AUI6<) 





9 9m 

• 

PROCEED RETURN 


AQ167 





9 

^99 

ENTER RETURN 











RaiAB 

CCFI^ASHR 

IS SARE AS 

CCFLASh ONLY AN 

IFFEDIATE 

return 

IS MADE TC THE USERS CALL CACP ♦A. 


- AL17L 





CAF 

VXXNYY 



AD ill 





TC 

banxcall 



— Aona 





CADR 

GOFL ASHP 



AQ173 





• • * 

• • • 

TERMINATE RETURN 


- AC.17A 





• • • 

• • • 

PROCEED RETURN 


AQi75 





• • ♦ 

• • • 

ENTER OR RECYCLE RETURN 











AQ17t 





• • • 

* • • 

IMMECIATE RETURN FROM GCFLASHR 











JIQ177 

GCFERFIF 

IS l»tt_SAHfe 

AL COPER FI ONLY 

CCPLRP IR 

HAS AN 

IMMEDIATE PE TURN 

TCUSERS CALL CADR ►A. 

— 

RQi79 

GCf ERFIF 

ELANKS REGI 

STERS R2 ANC R3 








ACIEC 


CAF 

OCTX > 

CODE rCR CHECXLIST VAUUE XX. 



AUlKi 


TC 

B ANK CALL 




AC 162 


CADR 

btHLRFlR 




AU163 


• • • 

9 9 9 

TERMINATE RETURN 



AC1B4 


9 9 9 

9 9 9 

PPCCEiC RETURN 



Aoies 


9 9 9 

9 9 9 

ENTER RETURN 



AOil6 


9 9 9 

9 9 9 

IMMEDIATE RETURN FROM GOPERFIP 

_ — 


ROl 67 

GCFEPF2P 

IS THE SAME AS CCPERF<; CNLY AN IMMEC lA I E HETUHN 

IS HADE TO 

USERS^CALL CALM ♦<. 

- _ 


JiJm ASSeilRlF ft£k.Klf.K 2 17 f.F AGf. PRCfiRAX CQiC^SliS fiV NASA 20211 11-C31 


lil? AUL. SATRAP .004 PAGE M20 


CliPL^Y INlEPPACi JJCyilIttL 


USER'S PAGE NC. 


£0 SA 


GCfEBfail DCES hOT BLA^K AKY AEG 1 SUBS 


AC19G 


LAL 


-OAhXY. 


VARIABLE hCLN YY PEOUESTEC. XX-QQ OR 01 


AjQi9i 


IL 


bANKCAL L 


Jiai92_ 

10193 


CAD R G0PEPF2P 


■ • a 


ji^-a 


TERMINATE BPTUBA 


1U19A 

AQI95 


• • • 


• • • 


Aai9t 


A C2GG 
A02_01 
A~Q2Q2 
AQ2Q3 


AQ20A 

AQ 205 


AQ20fe 


Aa^QS 
A_il 2 1 0 . 
A02U 


A02i3 

A02JA 


A0215 


A02li 

AC220 


A02<:1 


AQ222 

A0223 

A022^ 


A022& 


m • 


PROCEE D RETt RN 
ENTER RETURN 


• • • 




IMMEDIATE RETURN HERE FROM 00PefiF2R 


RQ197 CtPERfIR 15 THE SAME A 



R0199 GLPEPfaH fiiAN1<S RiClSTERS_«2 ANC R3 


CAF 

TC 


PFOGXX 


PERFORM PROGRAM XX 


EANKCALL 


CADR 


GOPEfiF3R 


• • • 


* * 


• • 


* • 


« « 


TERMINATE RETURN 
PROCEED RETURN 
ENTER RETURN 


• • 


• « 


C0PEflF3R IMMEDIATELY RETURNS HERE 


110201 ex Jill A F IS JHl i^ME AS GCPERFA ONLY ^N IMMEDIATE HETURN IS MADE TO USERS CALL CADR ♦A, 


CAF 


OCTXX 


REQUEST PERFORM ON CPTICNXX 


TC 

CADR 


BANKCALL 
COPER FAR 


m m 


# m 


TERMINATE RETURN 


# • 


PPOCEEC RETURN 


ENTER RETURN 


m • 


• • • 


IMMEDIATE RETURN TO USER 


R02i6 CXPXRfAH eiANKS REGISTEK R3 


r02l7 REfLAiMP IS THE SAME AS PEFLASh CNLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CACR ♦A. 


CAF 

1C 

CA^ 


VXXN YY 


VXX NYY HILL BE A FLASHING VERB NOUN 


OAKKCALL 


REFLASHR 


• • • 


« • # 


• • 


• • • 


* • * 


TERMINATE RETURN 

PROCEED RETUkF 
ENTER RETURN 


• • 


immediate return to user 


R0226 RECCOSPR IS THE jAME AS REGCCSP ONLY A RETURN (IMMEDIATFI IS MACE TC THE USER. 
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A022£ 

ACZZS 

m 

Afli31 

CAf VXXNYV 

TC bANKCALL 

. CADR HEGCCSPft 

IPHECTATE RETLRA TO USER 


AQi31 


• • • 


f.APl A^SP^Rlf ftgVlStC^ 237 CF ACC PRCGBA^^ CCICSSUS BY NASA 2021111-031 



1:17 AUG. 2‘t,l‘ifcfl SATRAP .OOA 

PACE IA22 


L 

DI S^LAA Ah 1 Ef:£AL£ RGiLliN L S 
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eo SA 


PQ212 

aCJLAajt_i5_-ViLD_TC CIS PLAY A PARK VEB8 RCON ARBIVINC IN 

A. NC RETURN 

IS 

MACE TO THE USER. 









K0?3^ 

CCXCSP « GCPASK 







AQ2ii_ 

CAP 

VXXNTY 



VXXNYY CONTAINS VERB ANO NOUN 


AC23fe 

TC 

BANKCALL 





AQZ31 

CAOK 

GCMAPK. 



OTHER EXTENDED VERBS USE CADR 

GOXOSP 








Rd?3fl 

iULAAPKR IS THE SAHE AS GCHAftK ChLY hETURN IS IQ THE USER. 






KC23‘^ 

GCXCSFR a GCKARKR 







Ail2^0 

CAP 

VXXNYY 





AC<:^1 

TC 

EANKCALL 





AQ2«*2 

CAOR 

GCMARKP 



OTHER EXTENDED VERBS USE CAOR 

GCXCSPP 


Afl2^3 

• • • 

» • « 



IMMEDIATE RETURN CP ouMARKR 









- 

GCRARHF LISPLAYS / FLASHING HARK VERB NCCN WITH NO IMMEDIATE RETURN 

TO 

THE USER. 3 RETURNS ARE POSSIBLE FRCM 


THE ASTRONAUT (SEE NG. 7 ABCVE ). 














QClEifJ - CCRAPKF 













AC2Ae 

CAP 

VXXNYY 



VXXNYY WILL RE A FLASHING MARK 

VERB NCUN 

AC2A9 

TC 

BANKCALL 





AC25Q 

CACR 

GOMAPKP 



OTHER EXTENCEC VERBS USE CAOP 

GCXCSPP 

A02S1 

* • • 

• « « 



TERMINATE RETURN 


A0252 

• « « 

• * « 



PPOCEEC RETURN 


AQ253 

• » 

• • « 



ENTER OR RECYCLE RETURN 



PQZb^ 

eCH^RKPP 15 THE SAME AS GCHARKF CNLV AN IMMfcOlATE RETURN IS RACE 

TC 

THE USER CALL CADR ■*A. 









gQ2S6 

CCXCSFFR s GCMARKPR 







jk^ztn 

CAP 

VXXNYY 



Flashing mark verb ncun 


AC256 

TC 

BANK CALL 





AC2 5S 

CAOR 

GbHARKFR 



OTHER EXTENCEC VERBS USE CADR 

CCKOSPFP 

AC260 

• • • 

« • # 



TERMINATE RETURN 


a6261 

# « • 

• • • 



PROCEED RETURN 


A0262 

- — > 

• # • 

# • • 



ENTER CR RECYCLE RETURN 









_ A 026 3 

• • * 

• « « 



IMMEDIATE RETURN TO THE USER 



P026A 

GCN/HUl IS USEC FCR 1 PLEASE PERPCRM CN A MARK REQUEST 

WITH CNLY 

1 ASTRONAUT RETURN TC THE USER. NO IMMEDIATE 

^ J 2 fc 6 

KEILRN IS MALE. THE OESlKtd MARK PLEASE PERFORM VERB AND DE5IPEC 

NOUN 

ISENtEREO IN A. GCMARKl DISPLAYS 

Rl, P2, P 

P026B 

MEANS CP A VC5NYV PCLLGwEC BY A FLASHING VSXNYY POP A 

PLEASE PEPFCRM 

• 

THE ASTRONAUT WILL RESPOND WITH 

A MARK 


K0270 


AC272 
ACJ2 73 


BACK Id THt USBR. 


CAP 

TC 


vsxriw 


X»l,2»3»^ V» hCUJi 


BANKCALL 


i3^wi<;[nK nr Aar narnpAM rnicssiK pv nasa gci^llii-t3i 


■LiJJ.AUQ^ ^^11969 SATRAP .004 PAGfc 1^23 
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A027A 

CADR OCMARKl 











ENJJLR^R^ 1 URN 





XA. 

♦ •A If fiLAftKlMC DESlRtH i:N NCh R ROUTINES, NOTIFY UlSPtAYfcP, 









ji027 7 

GL^ARAlP U THE S/tt AS A GQPAPRl ONLY Ah iPHEOIATE RETURN IS RACE 7C THE USERS CALL 

CACR 

♦ 2. 


AQ279 

CAF V5XNYY X«1.2.3f<« 

YV • 

NOUN 


AA?iG 

TC BANKCALL 



AQ2ai 

CADR COMAPKIP 





AOlie 

A03i9 


AC2a2 




« . A 


ASTRONAUT ENTER RETURN 

AQ263 




• # • 

• • • 

IPPECIATE RETURN TO USER 








&fl2.flA 

GfRiRK? !< 

TFF SA»>f 

AS GOPARKl CNLY 3 RETURNS 

ARE MADE 

TO THE USER 

FRCP THE ASTRONAUT. “ 

A026t 




CAF 

V5XNYV 

X*l,2,3,A YY*NCUN 

>0287 




TC 

bankcall 


402 an 




CADR 

gcnark? 


A 02 89. . 




• • * 

• • • 

TERMINATE RETURN 

A0290 




• • « 

• ♦ • 

PROCEBC RETURN 

A029I 




t • • 

• • • 

ENTER RETURN 

R0292 

GCNARK2R I 

‘ THE SANE 

AS OCPARKIR ONLY 3 ASTRONAUT RETURNS AF E PACE 

TC THE USER. 








AiiZfiA 




CAF 

V5XNYY 

X»d.l,2,3.A YY*NCUN 

AQ29S 




TC 

DANK CALL 


AU296 




CAOP 

G0HAPK2R 


AOiST 




• ^ • 

• « V 

terminate return 

A029e 




• • • 

« • « 

PROCEED RETURN 

AQ299 




• • • 

• • • 

ENTER RETURN 








AQ30Q 




• • • 

• • « 

IPMECIATE return to The USER 








*0301 

GCRiRK3 IS 

USED FCR 

A PLEASE PERFCRR Ch A HARK 

REQUEST 

NITH A 3 COMP. DEC DISPLAY. THE DESIRED MARX PLEASE 

P_a303 

PEFFCFP VEFB AND NCUN ARE ENTERED IN A. &0MARK3 DISPLAYS Rl, R2. P3 

BY MEANS OF A VOANYY FOLLOWED BY A FLASHING 

. _J»U30S 

V5>N\Y FCP 

A PLEASE 

PERFGRF. GCFARK3 FAS 3 ASTRONAUT RETURNS TO THE 

USER RITH NO IPFECIAIE RETURN. 








AQiO? 




CAF 

V5XNYY 

X*l, 2, 3, A YY-NCUN 

Acaoe 




TC 

BANKCALL 


AC309 




CADR 

GUF*ARK3 


AO 3 1C 




• * # 

• • 4 

TERMINATE RETURN 

Aoaii 




• • # 


PROCEED RETURN 

*0312 




• • • 

• « « 

ENTER RETURN 








R0313 

CEFARKA IS 

the safe 

— — - ^ ^ 1 . ■ ■ — — 

AS G0NARK3 CNLY R2 ANO R3 

ARE blanked ANC Rl IS 

DISPLAYED IN OCTAL. 








AOiS 




CAF 

VSXNYY 

X-l,2,3,A YY*NOUN 

AOiU 




TC 

bANRCALL 


>0317 




CA OR 

GONARKA 



• • 


# • « 


TEPHINATF RFTllR^ 
PROCEED SETURh 


• « « 


CAP i 


Cf tuL pgrfifljM rntr.viijs flv 2G2iiii>c3i 


111! AtjC, 2A«iq6a SATRAP 


QQA PACe l*>2^ 


DISPU^ JKUB^ACfc RClillN£i 


USEK*S PAfie NO 


EO 


~ 1 — -T 

*1 ■.* 


AC3ZQ ^... ENTER PET URN 

R032] Fir. SPafeT~rir Llgp Tn niSPLAV a verb NCIjN IRRIWINu Ul a bITH a PETUWn NaTe to THE USER AFTER THE UlSPLAV HAS BEEN 

RJQ 3^23. SEA T CIJ_. 


A 0324 
A113Z5 
M124 


lAF S^XXNTY 

IC ^ANKCALL 

CACP EXt'SPPET 



AiJ321 RE TURN TO USER 

fea32fi KLEFNFl CLEANS OUT ALL MAPK C 1 S prA V r'^ACT 1 V E AND 1 NACT [ VE t . V RETURN IS HADE TO THE USER AFTER THE HARK CfSPLAYS 

i<a33fl MAVi JLElh CLEAALC CUT, .. 

Afl331 T~ ^ ^ BANKCALL 


Aa3 3i „ CAOR KLEENEX 



^0334 PPPKfiFAh i; A SPECIAL PURFCSE RCUT INE USED FOR SAVING JOE VAC AREAS (SEE DESCRIPTION CF MARKORAN BELON), 


40336 _ .-■ rC B ANKCALL 

AC337 CADR MARK E PAN 


BAD RETURN IF MARK DISPLAY NOT ACTIVE 


(GOOD RETURN 10 IMMEDIATE RETURN ICC OF 

A034a last Flashing mark r pcutine) 


fiiiiAi PINEPNCH J<IESTABL ISFES THE LAST ACTIVE FLASHING OISPLAV. IF THERE IS NC ACTIVE FLASHING DISPLAY, THE DSKY I S 

^0343 BL4FKEC ANC CCN TH CL IS S ENT TC ENOCFJCB. 


AQ344 IC POST JUMP 

AC345 CAOP PINBPNCH 


FJ346 PPICOSP IS USEE AS A PRIGPITY DISPLAY, IT KILL DISPLAY A CCFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM 
R034a THE AiTPCNAUTISEE NC.7 ABCVE), 


£31349 THE MAIN FUPPCSE CF FRICCSF IS TC REPL ACE THE PRESENT LISPLAY WITH A DISPLAY OF HIGHER PPIQRnv AND TO 

R035I PRCVIC E A FEAN S FCP PESTORINU THE CLC CISPLAY WHEN THE PRlCklTY DISPLAY 
R 03~52 I S RESfCNCeC TC IHE ASIRCNALI. 


_ KOJSl IHE FCRMEP DISPLAY IS PESTCREC BY AN AUTCMATIC BRANCH TC WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE 

R0i55 PR 1C CISPLAY^ 


AD356 CAF VXXNVY VXXNYY WILL fit A FLASHING VERB NOUN 

*0357 ^ TC BANKCALL 

*0356 CAOR PR 10 CSP 

AQ359 

AGi6(J 


TERMINATE PEIUBN 

PROCEED RETURN 


40338 

AQ339 


GAei CF ACC PaUCHAM cm OSSUS MASA :?iJ2111 1-C31 I;1?^LG. 2A.1968 SATWAP >QQ4 PAC£ U25 

L DiiPLi^ INlEf<FiC£ AClllftEi USER’S PAGE NO. 10 tO SA 


AOJAl — ... ... ENTER QP RECYCLE RETURN 

RlOAi Pflirn<Pfl IS YHf <;i»F as PBirnsPgNLV iN INNECIATE CtiTUPN IS ►^ACE TO THE USERS CALL CACR ♦4. 


AQ3ft4 CAP VXANYY ^ANYY WILL BE A PLASHING VERB NOUN 


AC?A5 


TC 

fcANhCALL 



CAUR 

PRICCSPP 


AQ362 ^ .. . ... TERMINATE RETURN 


AQ36fl 

• • # 

♦ • • 

PROCEED RETURN 

AOifcS 

• • • 

m m • 

ENTER CR RECYCLE RETURN 


AU370 IMWfcCIATE RETURN 


R0371 PPICL/PE' C£LS A VCSNO? PHlCDSFP. 


fiJU12 1 

CJ_£ANtSP CLEANS QLT ALL NCRNAL DISPLAYS (ACTIVE AND INACTIVE 1. A RETURN IS MADE TC THE USER AFTER NORHAL 


DISPLAJfS APE CLEANED C 

:ut€ 


AC375 K_ GAKNCALL 

All37t CApR CL L A NDSp 


Aiaii return to user 


po^oa 




RQAvS 

R0^06 


K0<»07 


ftQ<tU9 

PO^IO 


p 041 1 


R0414 


H0415 


M 


k U J J ^ A A A A a«ir#Ar • 

r^UC £.G 



niSPL^V IhllERFAte RriiTINfcS 

USER'S PAGE NC. 11 

EO S4 







poaifl 

tlFEML INFCRXATiCN 




M 3 7 9 












iLU3aQ 

^ ALAfP CP AfCRT EXIT PCEtS — 









aoiai 


PRICeCRl TC ABORT 



^0362 


OCT 1502 









PP1C2C&J 1< ERANCEC TC WHEN (1) A NCFRAL DISPLAY IS RECUtSTEC ARC ANCTHER NCRKAL DISPLAY IS ALREADY 

ACTIVE 


-Ril3 0i> 

IPEFLASF ARD RtGQCSP ARE EXCEFTILNSI 

CP (2) A PRIORITY DISPLAY IS REaUFSTEO wHcN ANCTHER PRIORITY DISPLAY IS 


R03e7 

ALFEAO ACTIVE (A PRICRITY WITH HALS 

EITK IS AN EXCEPT lOM . 









kuaefl 

ERA5AELE 1 M T I AL I 2 A T I CF HECUIPEC — 





K03e9 

ACCCPFLISHLO BY FRESF START- 1. 

FLAGWRC^ (USED EXCLUSIVELY BV DISPLAY INTERFACE ROUTINFST 



R029I 

2. 

NVSAVE * NCRHAL VETB ANC NOUN REGISTER. 



K0393 

3. 

EEANKTEP « NORMAL INACTIVE FLAGRCRO ( AL SC CONTAINS NORMALS EBANKT. 













-jySLlSji) 

5. 

PISAVE =* MARKbPAN CONTRCL RCRO 



RG396 

4. 

RESTREG - PRIORITY 30 ANC SUPERBANK 3. 



RG398 

CLTFIT — 









P0399 

FVVCPC « FRIC VERB AAD NCUR 




PQ4u<j 

FVVCRC ♦KMARKNV) =» PARK VERB ANC RCUN 



RC401 

FVViCPC ♦21NV5AVEJ » hCBRAL VERB 

ANC NOUN 





0 




ISPFLG<£BANKSAV I » PPIC PLAGhCPD (INCLUDING eSANKl 


CSPFLC ♦KMAPPEBAM PARK FLAGhCPL (1^CLUCI^G EDANK) 


CSPFLC ♦2(EBAhKTEW| = RC^HAL FlAGhCRC <INCLUCIG EBANK J 


C ACPFLSF « PFIC ISERS CALL CACR ICCATICh 
CACRFLSF 4lt^AftKFLSH) - 


PARK LSEPS CALL CACR +1 LCCATICN 


(ACRFLSH 42(1EPPFLSHJ • MCRHAL IfSEPS CALL CAOP +l LOCAT ICN 


FPICT IWE a T !>■£ EACH PRIC REQUeSl FtRSl SENT OUT 


CFl ICM « 0E< IREC OPT ICh FFCR GCFEPFA 


FLAGRFC4 « BIT IhFQ F CR CChTRCL CF ALL CISPLAV PruTIKES 
LSPIEM » R1 INFC FUR ASTflCMLT FflCM PERFORH D I SPLAYS! NCFRAL I 


RQ412 SLERCLT1NE5 USfcO- 


KVSuat FLA GUP. FLACCCRNt ENOCFJGB, BCANKSU6» AfiOFT, jnewAKE» JoaSLEEPf FINDVAC* PRlOCHNGf 
JAF TERP, h^SUeU SYi FLASHCRf bhC IDLE t CHANGl t BANKJUHP* HAKECAUR, hCVACi 
CEEPl!— (JTCREO INTCJ =_ 


HQ^16 

TERPCPARY TEPPCRAfiieS- A, Q, L 

, APAC ♦2f MPAC 

*3f MPAC 4L, MPAC 45, HPAC 46, flUPTREG2, RUPTRcG3, CVL, 


Kd418 

EEANK, RLPTREGA* LCCf BANKSET. RCOE 

, APAC, MPAC ♦! 

4, facereg 


R042C 

ERASAEES(SHAEEC and lsed uith 

CtEEP PRCGRAMSJ 

CAORSTCR, CSPLIST, LCC, DSPTEMl, CPTICM 


_ 





RU422 

erasaelesiused only ev disFlav 

PClTINtST- NVWOPDt + l» » DSPFLGf + i .4-2 , CACRFL SH , + 1 # 42 , fUlOTIMEt FLACUP.04» 
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~bIa2A RlSiVEf ¥£H^2PACf ^ ~ 


- ROWS - 

- HXj»l<- 

- XLSiLlL-i^U^l - iiOl SXCRIL m Cl- RCLKKEIC. VEMBEG. LOCCIP. RCMA^El 



FLJGWCPC LtSCPlPT IGhi-' 


fc^n 

PLi^CkR£4- ShE CESCRIPTICN U^0£R ICC S£CHCN ERASABLE ASSlGNHeNTS 




QiJfliL. CSP_FJ.C + 1. CSPPLC ^2- 


ftC4i2q 




KOA3Q. 

BUS 1 

eiAPK R1 


Ra^21 


eiAhK R2 


ROh32 

1 

tLAPJ< Ri 


iia^33 

A 

FLAShLNG DISPLAY REgOESTtC 


RQ^3^ 

t 

«» 

FEPFCRW DISPLAY RECUESTEC 


RC4j5 

£_ 

EXCSPPET GCCSPRET 


p.a^it 

7 

PPIC DISPLAY 


i^a^37 . 

e 

CEC PARK PERFCRM 


R043fi 

s_ 

Efc^RK 


_BQ429 

u 

EBAtK 


H0440 

LL_ 

eeapk 


-- RQ441 

LL. 

V99PASTE 


R0442 

11 

2KC PART DF PERFORP 


«0443 

It 

HEFLASH GR RECC BEFLASH OR REDO 


RQ4S4 

15 

PARR RECUEST 


KQ44b 

RE574P11NG OlSPLAtS— 






KU44fe 

RLLES FCP THE CSKY CPERATCR— 



R0447 

iii 

PBCCEEC APC TERMUATE SERVE AS RtSPChSES TO RECLFSTb FCP CPERATOB RESPCNSE 

(FLASHING V/N). AS LONG 



AS THFRF IS ANY RELUEST AWAITING OPERATOR RESPONSE. ANY USE OF PROCEED OR TERHINATF WILL SERVE AS 

PU451 


PESPCNSES 1C THAT REQLEST. CANE SHCULC Bt fcXtPCISEU IN ATTEHPTINC TC KILL 

AN OFERATCR INITIATED PCNITCR 

_Ri}453 


klTH PROCEED AND TERMINATE FOP THIS REASON. 


Rr}<t54 

2^ 

THE ASTRONALT MUST RESFCND TC A PRICBITY DISPLAY NC SGCNER THAN b SECS FROM 

TF E TIME THE MISSION 

Ka45.6 


PBCGRAP SENT CUT THE RECUEST FCP OPERATOR RESPCNSE (THE ASTRONAUT WOULD SEE 

THIS DISPLAY FOR LESS TIME 

R0h5S 


CUE TO TIPE IT TAKES TC GET DISPLAY SENT CUT.) IF THE ASTkCNAuT BESPCNCS TCC SCCN, THE PRIORITY DISPLAY 

HQ^feO 


IS SENT OLT again AND AGAIN UNTIL AN ACCUMULATED 5 SECS FRCP TIPE THE FIRST PRIORITY DISPLAY WAS SENT 

R0462 


CUT. THE SAME 5 SEC. DELAY WILL CCCUR AT 163.84 SECS CR IN ANY MULTIPLE OF 

THAT TIME DUE TO PROGRAM 

P04t4 


CCNS lOERATICN. 


P. C 4 6 5 

U 

KEY RELEASE BLTTCN- 


Ru466 


AJ IF THE KEY RELEASE LIGHT IS CN, IT SIMPLY RELEASES ThE KEVBrARD AND DISPLAY FOR INTERNAL USE. 

KU408 


E) IF THE KEY RELEASE LIGHT IS CFF, AND IF SOME RECUEST FOP OPERATOR RESPCNSE (FLASHING V/N) IS STILL 

R047C 


AWAITING RESPONSE TFEN IT RE-ESTABLISHES THE CISPLAVS THAT CRIGINALLY REQLESTEO RESPONSE. 



IF AN CPEFATOP WANTS THEREFCPE TC RE-ESTABLISH BUT CCNCITION (A) IS ENCOUNTERED. A SECOND DEPRESSION OF 

R0474 


KEY RELEASE ELTTON MAY BE NECESSARY. 


R04 75 

4 . 

IT IS IMPORTANT TC ANSWER ALL BkCUESTS FOB UPEBATCF RESPONSE. 


76 

5 . 

IT IS ALWAYS GOOD PRACTICE TC TERMINATE AN EXTENDED VERB BEFORE ASKING FJ>^ 

ANCTHER ONE CR THF SAME ONE 

R 0478 


OVER AGAIN. 










R0479 

5PUUi 

CCNSICERAI ICNS— 
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RG^£1^ *Z SAVeC _Ch_LY_ ih ►ARi< CISFLAYS ~~ ~ ~ 

2, CCtSACf') iP£CtICSPlB)t.QC^APK(fl) ALWAYS TUhN LN TF E FLAJh IF EME^REC WITH A PASTE VEP0 RECUEST. 

RQ^fiJ 3. ALL NORMAL DISPLAYS ARE RESTARTABLt: E AC 6P T GOD SP I R ) « FEGQCSPIP) ' 

__ 4. ALL EX IENCEC VERBS WITH DISPL AYS SHCLL D jTAPT WITH A TC TFSIXALT AND^ FINISH WITH A TC ENOEXT. 

£.aAfi6 , 5. GL CSP(R) ANC HEG OCSPIP) MUS T EE IN THE SAME EBAHK ALC SUPERbAN K AS T HE LAST NORH AL DISPLAY ?<t STARTED 

EY A .1 RESTART PHASE CHANGE, 

.. JiL_OPC:cR_ IC SET UP A h CN DISPIAY . 1 R ESTART H (jIMt Tj-E US ER F^UST HAKE C ERTAIN THAT RES1REG CONTAINS THE 

r CCPPLCT PBICRITY AN D S UPE R EANX A N C TH AT EBANKTEi- CCfjTAINS THE CO 

hG^91i 1, IF CLEANCEP IS RESTAPTEC VIA A .1 PHASE CHANGL , CAE iEPC SHCULD BE EXECOTEC EEPCRE THE TC 6ANKLALL. """ 
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Iti? ALG. 24.iq»e SATRdP ,Q0^ P/IQE M29 
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PU<i92 

A0<i9J 

CAL 

L IF C 

SECUENCE FOR. 

CLANK IKG 








CTI VELY 







CAF 

TC 

BITX 

x» 

li2#3 BLANK R1,R2,R3 RESPE 








BLANKET 



A(J^SS 









♦ • f 

# • ♦ 

RETURN TO USER FERE 

















IK 

rflC£H 

Tf USE fiLAKKET CCPRECILY THE 

usek rust 

USE A PIS FLAY ROUT IKE 

THAT 

ENDS IN « FIRST FULLQhED 

bY THE CALL 


TC 

ELAFRET AI 

THE IRMECIATC RE7LP^ LOC 





















C14«9 





_ 5A15__ 




QinOK 

(12 




C50.0 

Rlt 

_ 



4C0Q 




setlcc 

FFTAG9 




0501 





5915 




SANK 



















Oifl2 - 

Rtf 

_ 1 







COUNT 

02/D5PLA 


















Q5iI3 

HEP 

-3X2- 



5915 

59 192 

X 

BLANKET 

TS_ _ 

MPAC +6 




Q50A 

R £ F 

I 



5916 

4 0160 

1 


cs 

PLAYTEAA 




0^05 

Rep 

7CA 

LAST 


59 17 

7 0U2 

c 


HASK 

HPAC *6 




U5C6 

R£F 

7C5 

LAST 

U2S 

5920 

5C 161 

1 


INDEX 

NPAC +5 




C5UJ 

RtE 

_ 2 

LAST 

14 2 S 

5921 
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,R02U9 PiY BE USED AS NFfcflfc EV fiNY FXTFNCEC^ VERB WHl^ HAS DCKE TESTXACT 


0211 REF 1 COUNT * ♦S /exTVfc 


U212 

REF 

_4S 

LIST 

ML^ 

5514 

4 47CC 

( E50FP 

cs 

b IT 5 


0213 

REF^ 

11 

LAST 

142 S 

5515 

7 1044 

1 

MASK 

EXTV E ACT 


0214— 

RFF 

12 

L>ST 

1455 

5Slfa 

5S’044 

J 

TS 

FXT^ EACT 
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_ _L SPPVICE RC LTIKES LSbft*S PAGE NO. 8 EO 

f J216 SLEPCnihES TC TURN CFF AND TtK^ CN TPACKEP FAIL LIGHT. ' 


0217 





552.Q 

g UC04 

JL^ 

TkF AUOF 

INKINT 



u2I£ 

R£f 

1 



5521 

^_I7C4 

1 


CS 

UCT4C200 

TORN CPf TRACKEF LIGHT 



** 

LJ5T 

i3q; 

5522 

7 IL36 

1 


HASH 

OSPT^E ♦lie 


022 c 

RLE 

11 

L/iT 

14 5J_ 

5523 

6 467*1 

G 


AO 

bIT15 


_a22i 

HE f 

45 

LAil 


5 5 24 

53*C36 



TS 

OSPTAfi +110 


azzjjL. 

- M.f ■ 

33 

LAST 

21 7 

5525 

_4 1331 

C 


CS 

OPTP.COES 

TC INSURE THAT CCDU FAIL VdLL GO ON 

- w22i4_ 

KEF 

* a 

e V 

LAST 

U74 

5526 

7 4 7 C*! 

1 


MASK 

e IT7 

AGAIN IF IT WAS ON IN ADDITION TO 

-J2*>17 

REF 

34 

LAST 

14 5 1 

5 5 2 7 

27*331 

c 


AOS 

OPTMCTFS 

TRACKER fail. 


J222 





5530 

0 00 C 3 

1 

PEG 

REL INT 



C223 

REF 

34<3 

LAST 

145*. 

5531 

0 C0C2 

c 


TC 




Q224l 





5532 

C 0004 

r' 

U 

TRFA ILCN 

INH IN r 



0225 

REF 

4t 

LAST 

14 5 1 

5533 

4 IC36 

1 


CS 

DSFTAfi +110 

TURK CN 

Q226 

..RIF 

2 

LAST 

14 5 t 

5534 

7 77C4 

1 


MASK 

0CT4C200 


0227 

HEf 

47 

LAST 

14 5 6 

5535 

27*036 

1 


AOS 

OSPTAe +110 


t,226 

REF 

1 



5536 

1 5530 

0 


TCP 

REO 
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4^ 

ALiPM Ah£ JlBQRl 


U5t R ' 9 PAr.e 

NO* 1 EO SA 







RflCCl 


-J±£ EJCLLCklRL 

suePXijmE FAY n calleq 

TO DISPLAY A NCN-ABCRTIVE ALARM CONDITICN 

. IT MAY BE CALLED 

RQUiia 

EIlJ-Efi 

iiS INTERRUPT CP 

UNLER EXECUTIVE CCNTRUL. 







CALllMi <££U£hCE— i5^S-£l2LLtkSJ 




aoics 


LC A.LA&P. 




R&QijL6 


CCT 

ALARM KC. NM IN 

general area AAA. 


PQ0U7 



iHETCRN^ HEPEJ 









OOflii 



5^27 

BLOCK u2 


CQQ9 

PEF 

1 

<♦000 

SETLCC FFTAC7 


t)QiQ 



5537 

SANK 



cmix 

REf 

fi Lisi aac _ 

C37 5 

EOANK- FAILREC 



0012 

8 £f UL 







-COUNT 

r>2/ALARM 















Rflul3 

Alarm urn? cn 

the 

PRCGRAP ALIPP LIGHT. 

BLT CCES 

NOT DISPLAY. 















QOiA 




5537 

Q ilOC9 

c 

alarm 

INHINT 
















0015 

fi-Ef JS C 

Um4 5 6 

5590 

3 0_002 

C 


CA 

Q 



0016 

REF A 

LAST 

U6C 

5591 

55*363 

1 

ALARM2 

TS 

ALKC ADR 



0017 

REf 3!1 

LAST 

1957 

5592 

5C 0C2 

0 


INDEX. 

G 



coxa 




5543 

3 COCO 

1 


CA 

0 



0019 

REF 2 A 5 

LAST 

1954 

5 5^^ 

54 QCl 

1 

BCRTENT 

TS 

L 















0C2O 

KEI 37 LAST 

19^ 

J595 

3 0006 

1 

PRICENT 

CA 

BLANK 



00202 




5 54 6 

0 0006 

1 

♦ 1 

EATCNO 




Q020A 

R£f 

-XiJST 

1936 

5597 

04 CC7 

1 


ROR 

SUPER BNK 

ACC SUPER BITS. 


0021 

REF 5 

LAST 

1957 

5550 

55*364 

c 


TS 

ALHCAOP ♦! 















— 0022 

-- REP 35; 

LAST 

J957 

5551 

_J 0 0 C2 

c 

LARMENT 

CA 

0 

STCRE RETURN FCP 

ALARM 

0023 

— H L F _JLL_ 

LAST 

1454 

5552 

54 061 

1 


TS 

I TLHPl 















QC24 

REF 9 

-JAST 

195 7 

5552 

10 375 

1 

CHKFAILI 

CCS 

FAILPEG 

IS ANYTHING IN FAILREG 

_0X25 

R£F 1 



55 59 

1 555? 

1 


TCF 

CHKF A1L2 

YES TRY NEXT REC 


002t3 

REF 1C 

LAST 

195 7 

5 55 5 

22 375 

c 


LXCH 

f AILKEC 



0027 

REF 1 



5556 

1 5571 

c 


ICF 

PRCG LAPP 

Turn alarm light 

CN FCP FIRST ALARM 













0028 

REF_JLi 

LAST 

1957 

5557 

IC 376 

~r 

CHKFAIL2 

CCS 

FAILPEG +1 



0029 

REF 1 



5560 

1 5563 

c 


TCF 

FAILS 



0.030 

REF 12 

LAST 

14 5 7 

55el 

2 2 3 76 

( 


LXCH 

FAILPEG ♦! 



00 31 

REF 1 



5562 

1 5574 

c 


TCF 

MULTEXIT 















0032 

REF 13 

LAST 

145 7 

5563 

3 03 7 7 

1 

FAIL3 

CA 

FAILREG *2 



0033 

REF 37 

LAST 

1196 

55t4 

7 4672 

1 


MASK 

POSH AX 



_ Q03M 

REF 41? 

LAST 

1954 

5565 

1C OOU 

c 


CCS 

A 



00 35 

REF 1 



5566 

1 5600 

c 


TCF 

MULT FAIL 



0036 

REF 14 

LAST 

1957 

5567 

22 3 77 

1 


LXCH 

FAILPEG ♦? 
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(iQ3? 

£E^ 


LAST 1457 

iSIO 

1 _5 5 14 C 


TCF 

NULTtXiT 












QO'ria 

HFf 

kM- 

LA47 t456 

5571 

4 IQ 36 1 

PRLiGLAPP 

cs 

CSPTAB tllC 


- fln3L<L_ 

R£if 

2_ 

LAST 1433 , 

5112 

1 -56 11 C 


HASK 

UCT4040C 



-JL£t 


LAST 145E 

5573 

U»01i)_l 


AOS 

OSPTAE -*-110 












QO^ii . 

ALL 

42 

LAST 14:51 

_1174 

56 CAl C 

RtLie^IT 

XCH 

ITEMFl 

DETAIN return ACORESS IN A 

0042 




5175 

_ 0 0003 1 


REL INT 



0043 

HEf 

-4 IE 

LAST 1457 

5S76 

5C OCO 1 


INDEX 

A 


0044 




5577 

C 0001 C 


TC 

1 












QQ/t5 

REf 

246 

tiST 145] 

56CC 

3 QQCl C 

►ULJFAIL 

CA 

L 



-REf 

;e 

LAIT 145 6 

5601 

6 4674 C 


AO 

e ITl 5 


004 7 

REF 

15 

LAST 1457 

5 60 2 

54 377 C 


TS 

FAILPEC *2 



fiii4_e 

REF 

1 

AAiT 1451. 

. 5603 

1 5574 c 


TCF 

rtULT EX IT 



RQQ 44 

PRlPLiPM 

CISPLAYS VCSNO*? YIA 

PPICOSPR miH 3 RETURNS TC 

Tht LSEF FRCM 

THL ASTRONAUT AT CALL LQC +1,42, 43 AND 

RQOil-. 

- Ah 

1RREL1A7E RETURN 

7C THE USER AT CALL 

LCC +4. 

EXAMPLE 

FOLl CkS, 


A0052 . 







CAF 

OCTXX 

ALARM CODE 

A0iJ!i3 







TC 

B ANKCALL 


. JIQ054 







CADR 

PkILLARF' 












Ajga^s 







* • • 

■ ■ • 


A0056 







• • • 

• • « 


40057 







• • • 

• • » 

ASTRCNAUT RETURN 

A 00 5 8 







TC 

P HAS CHKG 

IMMEDIATE RETURN TO USER. RESTART 

A005^ 







OCT 

X . 1 

PHASE Change for pkio display 


0Q60 




10.3671 



BANK 

10 


0061 

REF 

2 

LAST 1425 

10t2CO0 



SETLOC 

CISPLAYS 


C062 




10. 3671 



BANK 




0063 

REF 

2 

LAST 1429 7C 

14<.9 : 

65C 65C4 


COUNT 

IG/DSPLA 












C Uti4 




10.3671 

0 OOC<t c 

PP ICLARM 

INhlNT 


* • * KEEP IN display routines BANK 

0065 

REF 

247 

LAST 145fi 

iCf 3672 

54 OCl 1 


TS 

L 

SAVE ALAR*^ CODE 











0066 

REF 

24_ 

LAST 1406 

1C. 3673 

3 0133 C 


CA 

LUF2 

2 CADP OF PBICLARM uSEF 

0067 

REF 

6 

LAST 1457 

10.3674 

55‘J63 1 


TS 

ALNC AOF 


0066 

REF 

2S 

LAST 1456 

K. 3675 

3 C134 1 


CA 

3UF2 +1 


0064 

REF 

1 


IC, 3676 

0 5546 C 


tc 

PPIOENT +1 

♦ LEAVE L ALCNE 

OC71 




10.3677 

77467 1 

-2SEC 

DEC 

-2CC 

•** ccnt mcve 

00 7<: 

REF 

C 

LAST 756 

1C, 3 700 

3 474J C 


CAP 

V05NC9 


0073 

REF 

1 


10,3701 

1 2632 C 


TCF 

CklLLSPP 












00 74 




5604 



BLOCK 

U2 


0075 

REF 

2 

LAST 145T 

4CC0 



ScTLCC 

FFTAG7 


0076 




5 604 



BANK 
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JUI i XA5X 1451 TC X45fii 31 31* CQUKT tlZi?.AlJlRJi 







5feL4 

jD ClflC4 

C 

EAILCLT 

.lliUlKT 




Gil?*} 


LAST 

145 7 

56C5 

J__CDQ.2 

c 


CA 

C 



jlCflG 

A£E 

I 

L/ST 1456 

5 6JQ6_ 

_5i.*36i 

1 


TS 

ALMC ACF 




Gum 

R£f 

354 

LISI^ lk33 

. 1L6 G 7 

002 

c 


INDtX 

0 



0062 





5tlC__ 

3 CO 00 1 _ 


OAF 

c 



00 6 3 

REE 

L. 



-^6U 

Q 5544 

J— . 


TC 

bORTENT 



0064 





5612 

40<*C0 

1 

CCT404G0 

acT 

4040C 
















00a45 





5613 

0 coot* 

_£ 


INhiNT 




GOBS 

mf 

16 

LIST 

144 2 

^614 

3 4 71 1 

! 

IMPER 

CA 

TWC 



ooe^Li 

BEf 

17 

ml 

136 8 

5615 

6 0005 

1 


AO 

Z 



0l‘B52 

REf 

L. 



5616 

54 017 C 


TS 

bPCPT 



QQB^jL- 





5617 

5_G.0n 

1 


Pt SOME 




00654 



LAST 

14 24 

5 620 

0 4574 

C 


TC 

POST JLMP 

RESUNE SENDS CONTROL HERE 


QQfiSS 

REF 

il 

L/ST 

Z5 2 

5621 

12632 

c 


CAOR 

ENf H A 



CQ65i2 





5622^ 

0 0004 

c 

PQQCCq 

INHINT 




006553 

REF 

355 

LAST 

145S 

5623 

3 00C2 

c 


CA 

n 

v 



000554 

REf 

6 

LAST 

1454 

5624 

55 '363 

1 

A60RT2 

TS 

ALMC acp 



QC8555 

_Rlf 

356 

LAII 

1454 

5625 

5C CC2 

c 


INDEX 

0 



006556 





56i6__ 

3 OOCO 

1 


CAF 

c 



006557 

RE f 

2_ 

LAST 

145 5 

5627 

._Q 554_4 

1 


TC 

BCRT ENT 



008556 





5630 

77770 

1 

CCT7777C 

OCT 

7 777C 

DCNT MOVE 


_ GO 65 6 

RtF 

U 

LliT 

142S 

5 6 31 

4 4712 

c 


CS 

bit 1 



006561 

REF 

* j 


1 ^ c 

5632 

7 0075 

1 


HASK 

FLAC^PDl 



Q 085 6 2 

REF 

LL^Lin 

.L4 5_l 

5633 

54 075 



TS 

FLAC hKLl 

RESET AVECFLAG 


QiG5 6 3 

ref 

5fc L^ST 

144 1 

5634 

4 47C5 

c 


CS 

b I T fc 



006564 

REF 

—14 

LAST 

1414 

5635 

7 01C3 

i 


NASK 

FLACkPD? 



006565 

REF 

^ if 

LAST 

1454 

5636 

54 103 

1 


TS 

FLAGWFC7 

RESET V37FLAG 



0085 7 

REf 

24E 

LAST 

141C 

5 617 

0 4S3i 

C 

TC 

BANK CALL 

0085 e 

REF 

2 

LAST 

174 

5 640 

12465 

C 

CAOP 

F P . K L E A N 

00655 

REF 

L 



5 64 1 

0 5614 

1 

TC 

rtHIHFER 


QQ86 





5642 

0 C0O4 

C 

CCSHCLE 

INHINT 




0067 

REF 

357 

LAST 

1454 

5643 

3 0002 

0 


CA 




0QB4 

REF 

L. 



5 6^ A 

0 5624 

1 


TC 

AbCR 7 2 



0090 





5645 

C11Q3 

1 

CCT 1103 

CCT 

110 3 



0041 





5646 

0 QCC4 

c 

CURTA INS 

INHINT 




Q092 

REF 

358 

LAST 

1454 

5647 

3 0002 

c 


CA 

Q 



0044 

REF 

2 

LAST 

U6C 

5650 

0 5 5 ^ i 

1 


TC 

ALAF P2 



0095 





5651 

CQ217 

c 

CCT217 

acT 

00217 



0046 

REF 

4 

LAST 

5 S 

5652 

0 1363 

c 


TC 

ALKC ADR 

FETUFN TO USFP 















0049 

REF 

lac 

_LASI 

1455 

5112 



DCALARM 

EQUALS 

ENOCF JCE 



PC 100 

CALLING 

-SEQUENCE FCR 

varalarp 





















_ AO 101 









CAF 

( AL AFP J 
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Satrap 

.OQA PACE 146C 



ALAP*< iKC ABCRT 





LlSbR'5 PAGE 

NC. 4 

EO S4 
















Tc 

VaRALAPP 





a£iu3 

VAi; JLifiH 

TLRKS 

PBfGRAM ALAB>« LIGHT BLT DCEg 

_fetQT LIS PL 

.AY 



'■ 






C G0C4 C VAPALIRM iNHiNT 















oix^ 

R£f 2<a 

i/ST 

S65A 

5A QCl 1 

TS 

L 

SAVE LSEPS ALAPP 

CCOE 



^L£} 

A£E 3iS 

I.AS1 145 S 


3 QOCi^ C 

CA 


SAVE USERS C 



OIL? 

iLEf li^ 

L4ST i45S 

5656 

-55*363 1 

IS 

ALHC AQP 





ClQt 

iUF 2^J^ST 145 £ 

Ai31 

Ji._55_45 C 

TC 

PkICENT 




OICS 



5 66C 

C0014 1 0CT14 

OCT 

14 

CCNT PCVE 




XiilO 

K tf U 

LIST 145i 

5661 

0 1363 L 

TC 

ALPICADfi 

RETURN TC USER 













. UllI 

Rtf. . B 

LAiT,_i4 52 

5tOA 

ABORT 

euUALS 

BAILCLT 

TEAPORARV UNTIL ABQPT 

CALLS OUT 
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USER'S PAGE NO. 1 fO 

S4" 


ftQQOl 

PFCCRiP hAtlt 

P27 


RU002 

kFllTfch ITL: 

KllRCY/ D£ hDLF 






Rimoi 

JLC£ KCi 

6 


RCCLC4 

MCt &rt 

K iLRCTf 


anniii 

tA'lti 

Q1CEC67 






RilC&6 

LCC itcilGh; 

UFCATE PRCGPAR. 

— - 1— ’»• 





>jj0l7 

PU^Cl-- XESCfll - 

P27 (THE UPDATE PRCGPARI PROCESSES COMMANDS AND DATA 


PQCb6 


INSERTICNS BEQUESTfcC BY IHE GROUND VIA UPLINK. 


RQQQq 


THE P27 PROCPAP hlLL ACCEPT UPOATeS 


RQfllQ 


CNLY CUBING POO fCR THE LP# ANO ONLY DURING POOj 


RQQli 


PC2, AND PRESP start FCF Tm£ CSM 






AaQi2 

CALLIMliltJ- 

PRUGPAM IS INITIATED BY UPLINK ENTRY OF VEP BS 70* 71, 72 AND 73. 



kOQU 

SLgBCnihE<l 

TESIXACT. NtWiKCCEX. NEWPCCEX 43. uDXDSPF, BANKCALL* FINDVAC. INTPRET. INTSTALL, TPAGREE. 


RUQ16 


IMhAKEU, ENOEXT, POST JUMP, FAUTCN, NtwPHASE, PHASONG 






kAlilXI 

JiCFFJL EXIT; 

1C ENEEXT 






8CQ1B 

ALAPP7PBCP1 * 

TC FAUTCN FCULChEO 8Y 1C ENCEXT 






R0U19 

R E S tjfl AT SI 

P27 IS RESTART PROTECTEC IN TWO RAYS... 


RQ02C 


1, PRIOR TC VERIFLAG INVERS ICN ( Wh ICH IS CAUSED BY THE GROlNC/ASTRCNAUT • S VEftlFICATIUN OF 

UPDATE 

PQQ^2 


DATA BV SENDING A V33E WHEN V21N02 IS FLASHING! 


R0023 


NC PROTECTION EXCEPT PR6-P27 MODE IS RESTLPED, CCAST ♦ ALIGN DCwNLIST IS SELECTED AND 

UPL INK 

RQJQ25 


^ACTIVITY light IS TURNED OFF. (JUST AS IF A V34t WAS SENT CURING P27 DATA L0A051. 


R0027 


V7C.V71.V72 CR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER. 


R0w29 


2. AFTER VERIFLAG INVERS ICN (WHEN UPDATE OF THE SPECIFIED EHASABL6S IS BEING PERFORMFDI 


ROa31 


PflCTECUD AGAINST RESTARTS. 



sjiflji . 

OEBRIH 

UFBUFF (2CD* TkMF STCRAGE FOR ADDRESSES ARC CCNTENTS. 


PQ033 


UPVERB (U VERB NUHBER MINUS 700 (E.G. FCP V72. UPVERB « 720 - 7C0 - 2) 


hiLU2b 


UPCLOMCO (l» FOR MAJCP MCCE INTERRUPTED BY P27. 

j: 

R0036 


CCRFNUMS (11 TOTAL NUMBER OF COMPONENTS TC EE TRANSMITTED. 

4 

R003e 


UPCCUNT (1! ACTUAL NUMBER OF COMPONENTS RECEIVED. 


RQQ39 


UFTEMF (11 SCRATCH. BUT USUALLY CCNTAINS CCMPCNENT NUMBER TO BE CHANCEO OUHING VERIFY CYCLE 




— ! ^ ' -■ 





RUO^il 

_JiifLl 1 


■■ ij 1 






EMH\ I 

CESCRIFT ICN 



HJQUA3 

VTCe>>>>X[XXXXX6 ILIETOFE TIRE IISCREREMI CCL6LE PRECISION CCTAL TIRE INCBERENT, XXXXX XXXXX* 


ROOA5 


IS AXOED TO TEPHEM. SL6TKACTEC FROM ACC CL CCK ( TTmE2 , T IHE 1 1 . SUBTRACTEC FROM CSM STATE 


j*Q 1 


VEC1CH TIMCdETCSMI ANC SUBTRACTED FROM LLM STATE VECTOR T IM&( TETLEM ) . 


HQO^R 


THE OP CCTAL TIME INCREMENT IS SCALED AT 2(281. 



Bfw isinK 2n Tf M.c. pnrr.ttA»! cn r,s<;tj5. bv nasa 2 (j 2 nii-c?i i;n aug- 24.iqta satrap .cqa page i ^62 

L UPC^1£ program " ~ USER'S ?AGfc NO, 2 EO S4 



fiCCSL 

V7_L£11£AA1A^ 

lCLChlIGii.LS tilCCK UPCATE) II-2^CCTAL COMPONENT St 

XXXXXi 



JiflOSi 


. LQAOtD INTO EPASAELE STARTING 4T ECAUP , AAAA 

9 



RQCS2 


n IS -CE- 3 -ANC. .LE, 2QC.. 




-KQOiJ 


AND (AAAA ♦ II - 31 DCES NCT PRODUCE AN ADCFESS 

IN THE 



RQQiA 

9 NEXT CAhK 





SQD55 

^ A 

SCALING IS SAME AS INTERNAL REGISTERS. 





E0(j 36 (SCATTER. UPCATiJ (II-n/2 OCTAL CQMPONfcMS tXXXXX , APE 

hau^7 AJAA tiXXXXE LLALED INTO ER/iS/tBLE LCCATtCNS. AAAA. 

RQQSe A^ ^AI>;iX>>E 11 IS .GE- i ,ANL, ,Le. IPC, AND MUST BE GCC. 

RjQOeO • SCALIN G IS SAME AS INTERNAL REGISTERS. 


I 


H 


i 


RflG61 _ .VriEAXJOnXXXXXE tCCTAL CLCCX INCLpEPtATJ CLUBLE PRECISION OCTAL TIME 

R0062 INCPEMtNT XXXXX XXXXX, IS ADDED TO THt A&C CLOCK, IN 

MSILZ CENTISECCNCS SCAlEC AT 12126. 

POCe^ THIS LQ AC IS THt OCIAL EQUIVALENT OF V5E. 



KLQt5. 

P0g66 

(jr 


RCOEl 


P 0.069 
PQ072 


mj.pn 


i.A AOCITICN TC THE ABCVE REGIS TER LCAQS, ALL U PCATES 
CCKPLE PENT BITS OF F LAGRCR0 7 . ^ 


ACC 1 T ICNAL NCTFS : VERB 71i JL3T_DEFINEC ABUVt wILL QE USED TC PERFORM BUT NOT LLM ITED TO 

1. CSP/LM STATE VECTCP LPCA TE 
2, REf SHMAT OPDATfc 



THE following UPDATES-- 


POU73 

THE FCLLCWING COMMENTS CELIMATE EACH 

SPECIAL UPDATE- 

— 












KUG7A 

1- CSM/LM STATE 

VECTCP UPCATtlALL DATA ENTRItS 

IN OCTALI 













HCG75 

EMP IE S : 

DATA CEFIMTICN: 


SCALE 

FACTORS : 



P0077 

V7IE 

CCNTIGUUUS 6LCCK UPDATE VERB 






P0C78 

2U 

NLMKEP CF CCMPCNENTS FCP STATE 

vector If CATE 





HOOEO 

AAAAE 

ECACR CF 'UPSVFLAG* 






P0082 

XXXXXE 

STATE VECTCP IDENTIFIER: COCCI 

FOR CSH, 7777e 

FOR LEM - EARTH 

SPHERE CF 

INFLUENCE 

SCAL ING 

Rooes 


00002 

FOR CSM, 77775 

FOR LEM - LUNAR 

SPHERE CF 

I NFLUENCe 

SCAl ING 

RC08A 

>>>>XEXXXXXE 

X FCSITICN 






ROC86 

XX) XXE XXXXXE 

Y PCSITICN 






ROC eE 

XXXXXEXXXXXE 

2 PCSniON 






ROOSO 

XXXXXEXXXXXE 

X VELOCITY 






P C, 0 S 2 

XXXXXEXXXXXE 

Y VELCCITY 






ROD 94 

XXXXXEXXXXXE 

1 VELCCITY 






Rdu96 

XXXXXEXXXXXE 

T IME FROM ACC CUCK 2£PC 






ROOSft 

V33E 

VEfiS 33 TC SIGNAL THAT THt STATE VECTOR IS FEACY TC bE STCREO. 





















F_Gl<t'» 2, REf SKfAKALL CATA ENTRIES IN CCTALI 


FC1A5 ENTHESj ^ DATA CEFIMTICNS* SCALE FACTORS: ^ 




CAP ; 


flhVilSlCh 211 ff ACf. PRff.fiAM f.mpssy^ flY NASA 2Q211I1-P^1 


l;X7 ALG. 2^il9tB SATOAP ,QQ^ P4Gf 1463 

L UftATE FfiCCfiAm _ USER'S PACE NC. i EO SA 


PMlkl 

k^lll 

CCMIGUQUS 8 LCC 8 OPCATE VtHe 




F 0 i 4 B 

2 Cf 

NLPaeF OF COHFCHENTS FCP REFSMMA 7 UPDATE 




aciso 

UAU 

ECACR CP 'RFFSHHAT' 




fiUl 52 

lA^XAElXKXJiE 

RCh 1 CQLLPN 1 

2 (-n 



R 0154 

XXXXXtXXXXXE 

RCh 1 C 0 LLP 8 2 

2 (-n 



RLll 46 

XXXXXEXXXXXE 

RCk 1 CQLUIWN 1 

2 (-n 



80158 

XXXXXlXXIXAi 

HCh 2 COLLPH 1 

2 (-U 



P 016 C 

XXXXXEXXXXXE 

RCk 2 COLUPN 2 

2 ( - n 



8 <J 162 

jLXlXXEXXXXXE 

RC 8 2 COLUPH 3 . 

2 (- 1 ) 



8 CU<i 

X>)>XE>XXXXE 

RCh 3 COLLPN 1 

2 <-U 



80166 

)IXX>XEX>XXXE 

Ht»! 3 C 0 LUP 8 2 

2 < - 1 ) 



80168 

XXIXXEXXXXXE 

_RI.lL 3 CCLOPh 3 

21 -n 



Pi 3170 

V 33 E 

VEB 8 33 TC SIGNAL THAT PEPSPMAT IS READY TL 86 STORED. 





^144. 




4irulJ.7 




BANK 07 






- - - — -- - — __ 

0172 

REP 

4 

LAST 53t 

43t2_CflQ 

43.3721 




SETLCC tXTVFPPS 
BANK 




0173 

























0174 

REF 

13 

LAST 738 

£3in06 




6BANK« TEPHEM 






















0175 

R£f__ 







COUNT* $F/P27 







Q17& 

REi_ _ 



4 3 f 3 7 2 1 

3 

4714 1 

V700PCAT 

CAP UP70 


COPES 

HERE 

CN 

V70E 


0177 

-REF 


LAST 224 

43.3722 

_L 

4730 1 


TCP V73UF0AT 

♦1 




































fllTfl 

BEf 

—L- 


43.3123 


4712 1 

V71LPCAT 

CAF UP71 


CONES 

HERE 

CN 

V71E 


017<i 

REF 

1__ 

.LAST 4463 

43,3724 

1 

3730 i 

TCF V73UPCAT 

♦ 1 







ciac^^^atf S - 43,3125 3 4711 1 V121.PCA7 CAF UP72 CCPES HERE CN V12E 

QiSl AEl 4 LAST iA63 43,3726 1 3730 1 TCP V73UFD_AT *\ 


0162 

REF 

1 



43_, 3727 

3 6214 

C 

V73UP0AT 

CAF 

UP73 

CCHES HERE CN V73E 















0163 

_REJL 1.^ 



43,3730 

54 331 

r 

♦ i 

TS 

UPVCPBSV 

SAVE UPVER8 UNTIL IT'S CK TO ENTER P27 















03.04 

REP 

IE 

LAST 

26C 

43.3731 

0 20 76 

1 


TC 

TP STXACT 

CRAB CISPLAY IP AVAILABLE, CTHERhlSE 


Aties 











fURMOPERATCft ERROR* CN AND TERNlNAfpJCb 















OlflO 

REF 

ifi 

LAST 

136 i 


i 1011 

c 


CA 

MCD« EC 

CHECK IF UPDATE ALLOWED 


Cl 87 





43,3733 

0 00C6 

1 


EXTEND 


FIRST CHECK PCR NCOREG » *0, -0 


n 188 





43,3734 

1 373e 

1 


dZP 

♦ 2 

1*0 - POO, -0 » FRESH START) 


CiB9 

R£F 

L_ 



43,3735 

0 3746 

1 


TC 

CKHOFCRF 

NOW CHECK FOR PRQGRAN WHICH CAN BE 


AOISO 











INTERHCPTEO BY P27. 















0141 

REF 

_1S_ 

LAST 

146 3 

43.3736 

Tl'OU 

c 


CAE 

MODREG 

UPDATE ALLCWEC. 


C142 

REP 

2 

LAST 

6S 

43,3737 

5 4 U1 

1 


TS 

UPtJL CNCD 

SAVE CURRENT NAJDR NCOE 



I:_ll 4liG. 24.1969 SATHAP .QQ^ P*GE MflA 


*A£J A<;Sg|.Bt,y BP\<!«^!nN Cf Af,r Pttcr.fiAM CCICSSUS by NASA 2021111-031 

L HBCCBAM ^ USER’S PAGE NO.^ 4 


E3 S4 


0X33 



LAST 

43.3 74C 

iC 331 

Q 


_04E 

UPVE PESV 

SET LPVfcPB TO INDICATE TO P27 



ax9ifc 

REF- 

2 

XMl -19 

63.3 141 

54 302 

1 


TS 

UPVEFfc 

WHICH EXTENCeO VERB CALLED IT. 










fiiSLi— 

REF 

IJIS ULSJ^OASC 

43.3142 

3 4112 

1 


CAF 

ONE 



fllSfc 

Rtf 


_L1SL A9_ 

63-t3T6 3 

_54-iC3 

c 


TS 

UPCCLNT 

INITIALIZE LPCCLNT TO 1 














JiXST 

KU 


■LAST H59 

43*3164 

0 4576 

a 


TC 

POST JLMP 

LEAVE EXTENDED VERB BANK AND 


0196 

lEf 

J 


63,3145 

5733 5 

c 


CAOP 

UPP6RT2 

CC TO UPDATE FHCGflAM(P27) BANK. 


























Q199 

BEF 

11 

L i S T 

63.3146 

6 OlCl 

c 

CKHCHCRE 

cs 

FLAGhRDS 



02QQ 

REF 

-23 

LAST 144C 

63.3747 

7 6703 

_fi_ 


MASK 

HUB 

CHECK IF COMPUTER IS LCC 


020 1 .. 

REF 

^19 

LIST 1<»5E 

63i315C 

1C CCO 

c 


CCS 

A 

IS CCMPUTER LCC OB AGC 


0202 

REF 

1 


63.3751 

1 3757 

c 

UPEP.LEM 

TCP 

UPLRROF 

ERROR- IT'S THE LfcM ♦ MODE IS NCT POO. 


02C3 

REF 

19 

LAST 1459 

<3.3152 

6 6111 

c 


CS 

TWL 



020^ 

REF 

_ 2C 

LAST 1463 

63,3753 

7 ion 

1 


MASK 

MCOR eg 



U2GS 

BtF 

^2C 

last 146< 

63,3754 

10 000 

c 


CCS 

A 



^ 

REF 

2 LAST l^bA 

63.3755 

1 3757 

c 

.^L!PERCr<C 

TCF 

UPERRCF 

ERROR- IT'S THE CMC AND MODE IS NOT 


A02C7 










POO OR P02. 


<]20e 

Hlf 

3U 

last 146(: 

43i3156 

C 0002 

c 


TC 

Q 

ALLCh UPDATE TC PRCCEED 














0209_ 

REF 

It 

LAST 146 4 

■43^3757 

0 ^ 5 14 

c 

UPEPROP 

TC 

POST JUPP 

TURN CN 'CPERATCR ERROR* LIGHT 


0210 

REF 

1 


63,3160 

57716 

c 


CAUR 

UPERPCUT +2 

GO TO COMMON UPDATE PROGRAM EXIT 














0211 

REF 

2E1 

LAS1.a45i 

6716 



LP7C 

equals ZEEL 



U2i2 

REF 

176 

LAST 1466 

6712 



UP7 1 

EQUALS ONE 



Q21i 

n ^ 

—REF 

D C ( 

EC 

« 1 

LAST 1466 

t il < T 1 A ^ ^ 

6111 

A 1 A 



UP7^ 

n O J 

EQUALS TMC 

LniiAi c r uL L. c 




021 A REF !3 L^ST 621^ UP73 EQUALS THE EE 


0215 


06.3665 

BANK 

06 

0216 

REF 

2 LAST 1296 27,2000 

SE TLCC 

UPDATE2 

Q217 


27,3335 

BANK 



C316 

REF 

1 

COUNT* 

H/P27 


0219 





27,3335 


UPPART2 

EQUALS 



UPDATE program - 

PART 2 

0220 












t TO RE STORE CLD MODE 

REF 

103 

LAST 

14 10 

27,3335 

0 53Cl 

1 

TC 

PHASCHNG 


SET RESTART GROUP 

0221 





27,3336 

07026 

1 

OCT 

07026 


AND CGHNLIST AND 

EXIT IF RESTART CCCURS. 

0222 





27,3337 

300CC 

1 

OCT 

3000C 


PRIORITY SAME AS 

CHRPRIO 

0223 

REF 

7 

LAST 

172 

02C6 



EBANK» 

UPBUFF 




0224 

REF 

1 



27,3360 

03666 

C 

2CACH 

UPCUT ♦! 




0224 

REF 

1 



27, 3361 

56 ICC 

C 



















iI235 

REF 

n_7 

LAST 

1466 

27,3362 

3 6712 

1 

CAF 

ONE 




0226 

RU 

7 

LAST 

1066 

27,3363 

56 332 

1 

TS 

DNLSTCCD 


OCWNL 1ST 



0227 

REF 

12 

LAST 

751 

21,3366 

0 5263 

1 

TC 

NEWMCCfcX 


SET MAJOR MCOE » 

21 

0228 





27,3365 

C0C33 

1 

DEC 

2 7 





I:17 AUG. 2A.l<i6d SATRAP .00^ PAGE 


4iV£J A.S.S£hELE B£ V ISlC i < ££ .AGC-P-ECCRAM CflLQSSUS N ASA 2u2llIl-L3I 


UPX# TJl E&Q £jlim 


OSES'S PAGE NC. 


E3 SA 


0229 

AEE 

2 

-EiiiT 

27,33^6 

._5C 3C2 

C 

iNi)ex_ 

OPVEPb 

PRARCH DEPENDING ON WHETHER THE UPDATE 

U230 




27*334 7 

1 3350 

c 

TCF 

+ l 

VERB REQUIRES A FIXED OR VAPIABLE NUMBER 

'J231 




27.3350 

1 3353 

_£ 

TCF 

+ 3 

V70 FIXED. (CF COMPONENTS. 

ij232 

REf ^ 

2 


27*3351 

1 1355 

( 

TCF 

OHKE ILl 

V7l variable - GC GET NO. CF CQMPCNENT5 

0222 

REF 

2 

EISJ i4cL5^ 

2^7 1 3352 

1 3356 

C 

TCF 

pum LLl 

V72 VARIABLE - GO GET NO. OF COHPONLNTS 

C23A 

RFF 

JLL. 

t ^ S T ^ ^ 

27,3353 

3 4711 

2 

CA 

Tk<C 

V73 (AND V7C) FIXED 

i3233 

REP 

A 

EAST 112 

27. 3 35 A 

54 3C0 

C 

TS 

COHPMPB 

SET NUMBER CF CCMPONENTS TO 2. 

0236^ 

REf 

1 


27j3355 

1 34QI 

c 

TCF 

OhwELL2 

GC GET THE TRC LR0AT6 COMPCNENTS 


-QZ33 REf 
^23 a 
02jq 


1 


REf 127 
REF L 


21,1236 

2U3i57 



QhREUl 

*2 


_CAF 

TS 


A^ypeuPF 

MPAC 42 


CAF 


UPLQAOPV 


♦^^Efi-OeST UlER TO SEND NURBtK • 

» OF COMPON ENTS P ARAME T ER ( I M . • 

{CRAV32 RETURNS HERE IF V32 ENCOURTEREDJ 


024C 

REF 

24 4 

LAST 1459 

2J.3361 

0 4555 

C 

TC 

LANKCALL 

OISPLAy A FLASHING V21N01 


- Ji24l 

REf 

13 

lAST 62 1 

27t33t2 

20465 

1 

CAOR 

GOXCjSPF 

TC RECUFST 11. 


0^42 

RIF. 

L_ 


27.3363 

_1 3646 

1 

TCF 

UPCjUTA 

V34 TERMINATE UP0ATE(P27) 

RET URN 

0241 

A£f 

1 

_ LA S T 146 5 _ 

27*3 364 

1 3360 

c 

TCF 

CHWELLl *2 



^ 0244 

_R£f_ 

l_ 


27.3365 

0 3442 

c 

TC 

CK4V22 

DATA OR V32 RETLRN 


Q2A5 

— REL 

4L 

L ^ S 7 13 55 

27.3366 

4 4711 

c 

_ . C5 

bIT2 



2246 

RtF 

8 

LA Sl_24 6 4 

27.3367 

6 (ilfl4 

c 

AO 

UPBUFF 

IS IKNUMBER CF COMPONENTS 

PARAMETER I 

0247 




27,3370 

0 00C6 

1 

EXTEND 


.GE. 3 ANC .LE. 2C0. 


. 024 8 

REf 

5_ 

LAST 1465 

27.3371 

6. 13 60 

1 

32MF 

CHNELLl *2 



U249 

PCf 

9 

LAST 1465 

27,3372 

4 0304 

1 

CS 

UPBUFF 



Q25_Q 

REf 

1 


2 7:, 3 3 7.3 

6 4376 

1 

AO 

UP21 



J2S1 




27.3374 

C C0C6 

1 

EXTEND 




0252. 

Rif 

C 

LAST 1465 

27,3375 

6 3360 

1 

dZHF 

(JHV.ELL1 *2 



C253 

REF 

JC 

LAS1_1465 _ 

27*3376 

30 3C4 

c 

CAE 

UPfiUFF 



02b*, 

REf 

5_ 

_LA St 146 5 

27.3377 

54 3C0 

c 

TS 

COMPNUMB 

SAVE M IN COMPNUMfa 



Afl2 57 OPiiLFP LCACIKG SECUENCE 


225.71 

PEf 

J 

LAST 

146 4 

27*3400 

24 

3C3 

1 


INCR 

UPCriNT 

INCBEMCNT COUNT OF CCMPONENTS RECEIVED. 

0258 

- R E F 




27.3401 

3 

36 16 

0 

LHWfcLL2 

CAF 

ADUPEFMl 

CALCULATE LCCAT ION(ECAOR» IN UPBUFF 

0254 

RLF 

4 

LAST 

1465 

27, 3402 

6 

C3C3 

1 


AD 

UPtCCNT 

^HERE NEXT COMPCNENT SHOULD BE STCREC, 

026G 

REf 

726 

LAST 

1465 

27,34C3 

54 

156 

1 

♦ 2 

TS 

MPAC +2 

PLACE ECADR INTC R3. 

02 b 1 

-B-Lf 

2 

-LAST 

1465 

27.3404 

3 

3452 

1 

♦ 3 

CAF 

UHLOAONV 

(CK4V22 RETURNS HERE IF V32 ENCCUNTEREO 

0262 

PEF 

22C 

LAST 

1465 

27,3405 

0 

4555 

c 


TC 

8ANKCALL 

DISPLAY A FLASHING V21N01 

0263 

REF 

14 

LAST 

1465 

27, 3406 

20465 

i 


CAOR 

GCXDSPF 

TC REQUEST CATA. 

02 64 

REF 

2_ 

LAST 

1465 

27,3407 

1 

3646 



TCF 

UP0UT4 

V34 TERMINATE UFDATE(P27> RETURN. 

02 65 

REF 

2 

LAST 

1465 

27,3410 

1 


c 


TCF 

OHImi L L L 2 5 

V33 PRCCEEC RETURN 

0266 

REF 

2 

LAST 

146 5 

27,3411 

0 

3442 

c 


TC 

CK4V32 

DATA Cfl V32 RETURN 

C267 

HEf 

5 

LAST 

14 6 5 

27,3412 

4 

03C3 

c 


CS 

UPC CUNT 

HAVE HE FINISHEC RECEIVING ALL 

0260 

REF 

6 

LAST 

146 5 

27,3413 

i) 

0300 

1 


AO 

CC'MPNUMfc 

THE DATA wE EXPECTED. 

G26 4 





27,3414 

0 

0006 

1 


EXTEND 



02 70 

REf 

L 



27,3415 

6 

3417 

c 


BZMF 

UPVE R IFY 

VES- GO TC VERIFICATION SFCUENCE 

0272 

RFF 

1 

LAST 

1465 

27,3416 

1 

3400 

1 


TCF 

0HWELL2 -1 

NO- REQUEST ACCITIONAL DATA. 


VER IFT SEQLEhCi 


CAP; kgwi^ir.h r,P PUrnPAM. COIDS^US by NASA 2Q2111i-C31 l;n AUG, 2A.1968 SATRAP .OO^t PAhf H66 


LPtAIt PRCCftAM _ _ 0SEP»S P4G£ NC. S 63 SA 


02 lA 

KU 

1 



22^3417 

3 

34S0 

C 

IPVERIFV 

CAF 

AOUPTERP 

PLACE ECAOB WHEPE COMPONENT NO. INDEX 

azi5 

Rtf 

729 

LIST 

14.65 

27*3420 

^4 156 

-1 


TS 

PPAC +2 

IS TC BE STCREO INTO R3. 

Q21t 

REP 

L 


27.3421 


3453 

_C_ 


CAF 

UPVPFYNV 

(CK4V32 RETLRNS HERE IF V32 ENCOUNTER ED 1 

0277 

Rtf 

2:1 

L4ST 


_^*342i 

_q 

4555 

0 


TC 

8ANKC ALL 

DISPLAY A flashing V21N02 TO REQUEST 

0278 

_REF 

IS 

LAiJ 

146 5 _ 

_27j3423 


2U465 

1 


CADP 

GOXOSPF 

DATA CCRRECTICN OR VER IF I CAT 1 CN. 

0279 




146S 

27.3424 

_JL 

36^6 

_L_ 


-TLf 

UPC 014 

V34 TERMINATE UP0ATt(P27) RETURN 

0200 

BEF. 

1. 




L 

34 5^ 

C 


TCF 

upstcre 

V3T DATA SENT IS GOOD. GO STORE IT. 

0201 

REF 

3 

EAST 

1465 

27.3426 

0 

3442 

c 


rc 

CK4V32 

CCMPCNENT NC. INDEX OR V32 PETUPN 

0282 

REF 

2_ 

J.#ST 

&J_ 

27.3427 

3 

0330 

1 


CA 

UPTt PP 

DOES THE COPPCNENT NO. INDEX JUST SENT 

0283 





27,3430 

C 

OOC6 

1 


EXTEND 


SPECIFY A LEGAL CCMPCNENT NUMBER? 

02 64 

REF 


LAST 

146 5 

27,3431 

6 

3417 

c 


BZMF 

UPVERIFY 

NC» IT IS NCT PCSITIVE NONZERO 

0285 

REF 

2 

LAST 

1466 

27i 3432 


C33C 

_fi_ 


CS 

UPTEHP 


0288 

REt, 

7 

LAST 

1465 

27.3433 

6 

C3CC 

I 


AO 

CCMPKOPfc 


02a9 

REF 

12 

LAST 

14 5 S 

27.3434 

6 

4712 

1 


AD 

BITl 




0290 





27.3435 

C 

0006 

1 

EXTEND 







0251^ 



_US1 

1<l6A 

_ 11*34 16 

6 

3417 

C 

BZMF 

UPVERIFY 

NC 





0292 

REF 

2 

LAST 

146 5 

27,3437 

3 

3616 

r 

4, 

CAF 

AOUPPFMl 

YES- BASED CN 

THE COMPCNENT NC. INDEX 




-0293 

REF 

_A. 

- LAST 

1466 

27,3440 

6 

0330 


AO 

UHTEHP 

CALCULATE THE 

ECAOR OF LOCATION IN 




02 94 

RfF 

4 

LAST 

1465 

27,3441 

1 

340 3 

1 

TCF 

CHWLLL2 >2 

UPBUFF NMICH 

USER RANTS TO CHANGE. 




















0295 

JlEP 

_2_ 

LAST 

1464 

27,3646 



UPaUT4 

EQUALS 

UPGUT 

COMES here CN 

V34 TO TERMINATE UPDATE 




BiUSii CHECK FOP VEPE 32 SECUENCE 


0297 

REF 

72C 

LAST 

1466 

27f 3442 

4 0154 

C 

CK4Vi2 

CS 

MPAC 

ON DATA RETURN FROM 'GCXOSPF* 

0298 

REP 

59 

LAST 

1459 

27.3441 

7 4705 

C 


MASK 

E 1 T 6 

ON DATA RETURN FROM •'GCXOSP"& THE CON- 

C299 

REF 

421 

LAST 

14 6 4 

27,344<, 

1C 000 

c 


CCS 

A 

TENTS CF MPAC • VERB. SO TEST FOR V32. 

0300 

REF 

361 

LAST 

1464 

27,3445 

0 C002 

c 


TC 

Q 

IT’S NCT A V32, 11*5 DATA. PROCEED. 

0301 

REF 

3 62 

LAST 

1-466 

27,3446 

50 CC2 

0 


INDEX 

Q 


0302 





27,3447 

7*7771 

c 


TC 

0 -6 

V32 ENCOUNTERED - GO BACK AND GET DATA 













u3U5 

REF 

5_ 

LAST 

-L±Lt 

27,345C 

C0330 

1 

ADUPTEMP 

ACRES 

UPTt PP 

ADDRESS OF TEMP STORAGE FOR CORRECTIONS 

- Q3l*6 

REF 

n 

LAST 

1465 

27,3451 

00304 

c 

AuUPBLFF 

AUHES 

UPEUFF 

ADDRESS OF UPDATE DATA STCRAGH BUFFER 

0307 





27,3452 

C5201 

1 

UPLCADNV 

VN 

21CI 

VERB 21 NOUN Cl 

0308 





27.3453 

05202 

1 

UPVPFYNV 

VN 

21C2 

VERB 21 NCUN C.2 

0309 

REF 

a 

LAST 

1171 

4 376 



UP21 

m 

MDl 

DEC 21 ■ MAX NC CF COMPONENTS *l 

03121 

R E F 


LAST 

14 3 1 

4 715 



UP0TPHA5 

EQUALS 

F IVE 




F0313 



PPE- 

STORE 

and fan TO 

AFPRCPRIATE BRANCH 

SEQUENCE 
















0314 





27.3454 


UPSTCRE 

EQUALS 


GROUND HAS VEPIFIEO UPDATE. STORE DATA. 
















0315 





27,3454 

C 0004 

0 

INHINT 


















0316 

REF 

26 

LAST 

1459 

27,3455 

3C 103 

c 

CAE 

HLAGNPC7 

INVERT VER IFLAGIBITB OF FLAGWR07I TO 


_ 

J317 

RDF 

249 

LAST 

146 C 

27,3456 

56 001 

0 

XCH 

— — il . 

L 

INDICATE TO THE GRDUNOIVIA ODNNLINKJ 



_ 0318 

RIF 

39 
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LEM52 


13,2219 


727 


1 727 


LCAOLVl 


1399 


1 1399 


lASTTIME Cl, 1500 
LASTXCMD 0C31 
lASTYCMO QC35 


12 C 1 


LENGTFCT E 5,1912 


95 


19 919 937 LOAOSTAT 


91,2771 

33 ? 

10 

316 

395 

9 l, 2 C 01 

3 16 

1 

237 


IC 19 

73 

4 

337 

368 


76 


78 


LEC 

LESCHH 

LEMO 


LAT 


1 IC 3 


E7,16 5_3 

05,3196 
E 7 , 1729 


11-5 
18 7 
116 


7 115 023 LOAOSTDT 33,2569 

1 187 LQACTIME 22,3505 

11 636 617 LOAOVZ 22,3303 


17 75 12C5 LtMOCVFL 25,2733 


812 


1 612 


LCC 


LAIJSPLI E7,i9CC 


119 


U 119 859 LE MQPTR 2 5 ,273 7 


612 


i 612 


L QC C T H 


LAT-LCNG 12,2322 
LATANC E 7 ,U 75 
LATAZCHK 09, 26 17 
ATE IAS 26 ,3 29 1 
LATIlOOe E 5 ,i 9 C 2 
LATlCNC 12 , 2 CGC 


1203 


9 999 691 LEkOI 


1 16 


26,3197 


830 


1 819 


lqcsam 


0169 

0069 

19,2216 


927 

2 

92 P 

929 

1972 

30 

921 

1295 

910 

1 

909 


69 

93 

368 

1997 

63 

31 

368 

1992 

701 

2 

69 3 

739 


116 


993 


1 919 




829 lFTFLGCN 93,2719 

LGCLCACft cl, 3769 

5291 
06,3516 


229 


1383 


LGCL 2 C 0 R 
526 LGCOMP 



I 13*14 
I 1 2 01 
290 


27 


1 1203 


LATSLCPE 26,3199 * 832 


LGdAKE 07,3206 


79 5 


LGYRO 


130 9 


i :‘95 

77 


LQCSKIRT 22,2736 
LCC THE 7 A 2 2,362 2 

LOO E 7 ,lo 2 S 

296 LCPMIXNS 92,210C 

92,2116 


lm r svl 

C A T S N eTt 
L^iT TAB 


i 1395 1396 LCDNLV 
10 


107 


LCDN6L0C 91,2113 


0195 

» 56 

1 dll 

LGYROEIK 

93,2272 

2 36 

1 

236 

97C7 

a 5b 


LIFTTEMP 

1265 = 

11 

r 

77 

31 ,3 590 

692 

3 5 56 

887 LIGHICK 

27 ,2961 

575 

1 

575 


LGDNNTAe 92,2062 
52 9 LC0P4C E6, 1910 
LOOPHAlF 09,3950 


LAUNCFAZ 65,1633 

LbUFi 'CC ,29 70 


96 


1131 


a 168 53 2 LIGHT <n 05,^2 5 

2 1155 list Li M (-22 1 27,3321 


169 
13 52 


* 181 163 LCOPMAX 09,3963 

1 1397 LCDPMAXl 09,3965 


- 903 

7 

391 

399 

1975 

1 

1975 


* 1 15 

3 

115 

623 

263 

1 

263 


263 

1 

263 


318 

9 

317 

3 31 

263 

1 

318 


98 

1 

795 


» 31 

2 

672 

1269 “ 

1173 

2 

993 

1271 
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1 nfii»i / A 

CA»^A7fi 

m 

^7 

L 

120 7 


LQiaJj 

4362 

371 

i 

226 

1414 

M/SLIMIT 

42,3241 


332 

2 

332 


L£QiAHP t 



3 

14-8 

14i4_ 

LQn7 

6043 

1075 

14 

193 

1446 

M/SNCftM 

42,3255 


332 

7 

33 2 

333 

- Jj:£f<Efi£Y 


-1266 

1 

12-61 


LDh7>JI<_ 

_ 4 ?5Q_ 

1169 

1 

1081 


M/SCIT 

42 ,3216 


332 

1 

327 


UIG 

22»2155 


-ZAk - 

1 

810 


l-Llh 8 

41X3 

3 71 

1 ^ 

3 70 -1469 

M^uVEC2 

E5,1721 

JB 

93 

6 

93 

126 7 

LCLIK 



1261 

__ 1_1264 


L0W9 

4741 

li6b 

1 

222 

1165 

MAGVTP I 

65,1634 

S 

9L 

2 

91 

543 

LDMAT 

3£ tit tl 


469 

- 2_ . 4 -65 

i29 

LQ64EPCS 

04,3452 

« 31 

r 

663 

1255 

MAINRTNE 

04,3237 


517 

I 

52C 

- - - - 

i.mc 

1 IQ* 

s 

15 

-^2 

LS_ 

12C5 

LREGCFK 

_Q4.1070 

49J 

1 

492 


HA INRTiN 1 

04,3263 


518 

1 

517 


LCNGBASE lliS 


lb 

2_ 

11 U_ 

131i_ 

LRCRQVC 

3^ . 2h 24 

545 

1 

545 


M A J + 

07,3271 


1398 

1 

1397 


LGNGCADR 

1122 


71> 

2 1201 1202 

LPLPT 

OUll 

* 36 




M A J- 

07,3411 


1401 

1 

1397 


LLhGCALL 



■12 CO 

4_ 

415 

1383 LSDISP 

16.2533 

695 

1 

_ 695 


MAKECACR 



1071 

7 

381 

1452 

LCi^GCLCl 



nei _ 

2 

1182 


LSLCNG 

t*. .1 752 

= 87 

2 

8 66 


MAKEGEN 

10,3665 


14 48 

1 

1436 


LCf^GCYCL 

01 1 


1201 _ 

_1_ 

1202 


LSPOS 

26,2110 

737 

3 

701 

13C8 

makemark 

10,2515 


1430 

1 

1434 


J^CNG£j<I1 

F3.M34 


81 




LSTBNKCF 

43.3720 

1367 

1 

1366 


MAKCPLAY 

10,2674 


1434 

3 

1433 

1448 

lc^qcyrc 

C.7 , 2 


139Q 

1 

1396 


LSTIME 

26,2126 

736 


737 

738 

MAKEPP 10 

10 ,264C 


1433 

1 

1434 


LCNGPTRh 

01 .3505 


1201 

1 

1202 


LSTP TP 

014a 

* 6 7 




MAKESERV 

37,7752 


776 

1 

777 


LCMGSAVE 

fcA.173A 


fli 

3_ 

67 

889 

LS71 

1 3 1 1400 

01 

4 6 

127 

1378 

MAMAXl 

E 7 , 1 c 5 1 


124 

3 

1 24 

869 

LQNGTA5 

^t3t22 


893 

3 

- 556 

887 

LS72 

F3,lAlO 

ei 

36 

105 

1 198 

MAMAX2 

£7,1653 

. 

124 

3 

124 

869 

LONGTIME 

U27 


75 

n 

1200 

1 3 62 

LST2CCN 

41,2145 

318 

1 

316 


HANF<CT 

21,3022 


987 

3 

985 

993 

LCCNE 

34.3tC2 


5 66 

L 

564 


LST2FAN 

^3.2002 

229 

2 

229 

3 76 

MANTABLE 

21,3024 


987 

2 

986 

937 

LCOPSET 

3 2i212^ 


6 34 

4 

633 

634 

lthvaca 

05,3150 

188 

4 

186 


MANTCCSC 

06,3112 


157 

3 

156 

157 

LQCPSIN 

22.2414 


396 

1 

396 


LUNAan 

4677 

= 49 




MANTCMAN 

06 ,3107 


157 

1 

15 7 


LQOPI 

22ti<24 


1334 

I 1334 


LUNAFL AC 

00<- 0 

e A9 

2 7 

4 A 8 

1209 

MANUCALL 

22,3216 


4 07 

1 

407 


LC0P2 

i2,a623 


1334 

1 

1334 


LUNCHA2 1 

E3, 1633 

= 97 

r 

97 

4 34 

MANUCeS 

06 ,3077 


157 

1 

153 


LCwSE 

32,2173 


4il 

1_ 

431 


L_UKtNT 

26,2774 

761 

i 

759 


HANUEX IS 

34,3454 


584 

2 

581 

502 

LOPL 

-^G.iCOQ 

s 

24 




LUNLMKLC 

31.3064 

6 20 

1 

612 


KANUEXIT 

34,3455 


504 




lcscalab 

0004 

m 

38 

3 

422 


LUNPCS 

26,2115 

737 

2 

884 

1309 

M4NUCFF 

22,3133 


406 

1 

406 


LQSVEt 

£5.1413 


95 

5 

95 

442 

LUNSPF 

11,3263 

U09 

1 

1306 


MANUSTAL 

22,311 C 


4C6 




LCSl 

tl.i454 

* 

55 




LUNVCL 

26.2120 

738 

1 

1310 


MANUSTAT 

22, 3142 


406 

1 

405 


LQS^: 

_JJj14 62 


95 




LV 

0044 

» 37 

2 

1142 

U44 

MANUSTOP 

22,3232 


4 09 

1 

406 


LCTEMIM 

U124 

- 

bo 




LVBUF 

6242 

10S2 

1 

1106 


MANUVER 

27,2000 

JC 

29 

2 

381 

380 

LCTLMCUT 

ICIC 

s 

22 

1_ 

334 


LVSqUAPE 

0042 

* 37 

2 

1142 

1147 

MANOVERl 

27,200C 

X 

29 

1 

38 7 


lothflst 

20,2C21 


675 

1 

o73 


LVmTL IS7 

5152 

1190 

1 

1194 


MANYFEET 

36,2016 


540 

X 

542 


LCUNITX 

C4 ,345C 

m 

31 




LWCSTCPE 

25,2700 

612 

1 

812 


MARKCGNT 

07,2152 


221 

1 

271 


LL UNITY 

_C4.3446 

s 

31 




LX A 

0 1 , 2 Vo 1 

1159 

1 

1064 


HARKCCP 

10 ,2544 


1431 

1 

■ 43 1 


LCUNI T2 

C 4 ,3444 

- 

32 




LXC 

cl ,2405 

1159 

1 

1084 


MIRKCTR 

1126 

c 

75 

1 

502 


LCk lUCCO 

C5,2CCO 


165 

1 

1065 


L14/CL7 

40,2615 

329 

1 

329 


M ARKCATA 

1242 

X 

77 

7 

77 

611 

ICMLCAC 

10. 3^54 


1447 

1 

1443 


L35U 

25,3533 

e?4 




MARKC i F 

10 ,2203 


227 

1 

227 


LOWMt.MPY 

14,2CCC 


6 20 

1 

60S 


L353 

25,3546 

624 

1 

624 


MAPKC ISP 

37,2405 


5 59 

1 

221 


LCKSUPLR 

3C ,2CCC 

3 

29 

4 

32 

691 

L355 

25,3561 

624 

4 

624 

826 

MARKOCWN 

£7,1674 

s 

122 

9 

32 

122 

LcMVEFS 

41.2C34 


317 

1 

317 


L357 

25 , 3624 

e<t 

1 

624 


MAR K EdAN 

10 7 0 


7-. 

T 

1447 


L liW U 

4 74 7 


llt6 

20 

32 

1365 




£ £ S S 

= * * 2 C 


MARKENC 

10,2457 


14 2 i 

1 

142 9 


LOM 11 

4 372 


3 71 

7 

12S 

IQ86 

M.6r^ IE 

34,3710 

t 61 

1 

861 


MARKET 

'07,216 7 


221 

1 

221 

' ■ 

LLi ipi/ 

t214 

3 

1171 

1 

1125 


M/SCCM 

42,3312 

333 

1 

332 


MARKET 3 

07 ,2216 


221 

V 

221 


LCM3 

4 7 It 

* 

11 7L 

>* 

197 

1122 

M/SCCN2 

42,331.J 

333 

1 

332 


MAPKFLAG 

107C 


1447 

1 

1431 


LC^^ 

4721 


1166 

4 

83C 

14 5 0 

M/SCCM 

42 ,3315 

3 33 

4 

332 


MAPKFMSX 

10.3157 


1439 

2 

1 430 
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MARKf CRM 

Ifl.JATi 


1410 




HAXDUl 

_4ii.2C2a 


246 

1 

247 


M IDDGIP 

C4.2CaC 

S 

25 

1 

48 ? 


MARKihDX 

Q2CI 

9 

-69 

L 

6 9 

U3_ 

MAXPH 1 

32,2163 


6 34 

2 

634 


mioflag 

0002 


43 

5 

1288 

1 3 16 

MABK_U 

C7j2427 


216 

- 1 

219 


MAX PH IC 

32 ,2166 


6 34 

1 

634 


hicflbit 

4676 

* 

43 




MARMTl 

LlxZlSt 


22i 




MAXPLS 

10,2201 


164 

i 

163 


MIDGIM 

04,2653 


483 

3 

631 

665 

MARKNV 

Q27C 


71 

L_ 

1431 

1440 

MAXPL SI 

10 ,2202 


164 

2 

163 


MIOGIHl 

04,2673 


483 

1 

48 3 


MJM<KCCT 

lC*3tE0 


1448 

1 

1436 


MAXRA 

27,3022 


1343 

C 

1343 


H ICTCAVl 

13,3574 


1294 

1 

639 


mafkck 

CTt^ClS 


216 

L_ 

216 


MAXRNG 

25.3764 


030 

1 

822 


N10TCAV2 

13,3570 


1294 

2 

644 

755 

NARKCVEP 

10 #3547 


14 45 

1 

14 29 


MAXTEST 

00,2565 


1133 


1132 

1146 

H iniFB IT 

471C 

* 

61 




MARKPERF 

lCi257i 


1432 

1 

14 41 


MAXTFF 

27,3212 


1349 

1 

1348 


MTDIFLAG 

0223 

a 

6 1 

4 

1294 

1296 

MAHKPLAY 

1C. 2530 


1431 

4_ 

1431 

1447 

MAXTFF 1 

12,3211 


1349 

1 

1346 


MI02 

13,3667 


1295 

1 

1295 


NARKRET 

iOi35<l 


1445 

L_ 

1444 


MAXTF IPE 

lo f 356 7 


953 

1 

953 


MI 05 

4363 


371 

1 

338 


MARKRLPT 

C7 ,2 IC3 


218 

2 

126 

127 

MAXTST 

16 ,3573 


953 




H107 

416C 


349 

4 

349 

1 447 

pakkstat 

133G 


7B 

--A3 ■ 

167 

733 

MAXVTEST 

15,3410 


1051 

1 

iC5l 


H IN 

OOlC 

& 

1273 

4 

1252 

1253 

_ MASK T ME 

U24 

9 

77 



77 

612 

HAXV 1 IM 1 

15 ,3427 


1051 

1 

1051 


NIN> 

0 7 f i 2 6 1 


1393 

1 

139 7 


MAHKRAKE 



■1439 

1 

1446 


MAXV I 1M2 

15,3445 


IC52 




N IN- 

07,3406 


1401 

1 

1397 


NAKK2 

07.2224 


—221 

1 

221 


MAX25C 

35,3135 


4 75 

1 

459 


MINANG 

22,2366 


396 

1 

391 


RARKICRN 

Elil5Ca 

9 

114 

2 

166 

722 

HBDY TCTL 

34,3360 


565 

2 

535 

583 

MlNei2 

771C 

a 

IU66 

1 

1064 


HARK2PAC 

IC72 


74 

2 

1439 

1440 

MCOUYCCT 

E6,1657 

C 

102 


102 

927 

MINei314 

05,3403 


1064 

1 

1064 


RAfty3PSK 

lC.3t33 


1447 

2 

1430 


MCCU2CCT 

E6 f 1660 

& 

tC2 

4 

102 

927 

M iNChECK 

12,2576 


1252 

1 

1252 


NARK4MSK 

lC,3i34 


1447 

1 

1430 


HCCS22.5 

34,3745 


882 

1 

647 


MINCCCA 

12 ,3322 


1264 

1 

1267 


MAR SOP 

35 t372C 


627 

1 

627 


MCCS7.5 

34,3741 


882 

1 

847 


MINCCN 

42,3453 


345 

1 

344 


»»ARSLEEP 

1C.3EC2 


14^6 

L_ 

1431 


MDCTFAIL 

37,3144 


781 




MlNCGNl 

42 ,321 C 


331 

1 

334 


NASKREG 

E5 #1544 

S 

96 




HDCTH 1 

24,2361 


643 

m 

i 

6 51 

846 

MINCCN2 

42,3206 


331 

2 

331 


NASS 

fct f 1475 

9 

99 




MOCTLC 

17 ,2030 


f 61 

2 

680 

897 

MiNoa 

24,2210 


640 

1 

640 


MASSBACK 

24.2752 


651 




MOCTRCS 

34 ,0732 


bfc2 

1 

846 


HINOEX 

0774 


72 

4 

194 

197 

RASSPPCP 

05,3 176 


910 

5 

193 

910 

HDl 

E6 ,1636 

s 

I Cl 

1 

102 


NINIRFCT 

1 1 f 3 36 0 


1311 

2 

50 1 

1293 

RASSTNP 

86 , U62 

* 

1C2 

11 

102 

902 

MUl 

4376 


371 


368 

1466 

MINLIH 

16, 3726 


957 

1 

95 0 


rating 

a 14C 


67 

8 

67 

1111 

MEASINC 

36,2000 

= 

30 

1 

1219 


M INLIMAP 

16,3507 


952 




RATMCVE 

14 ,3C45 


714 

3 

714 

725 

MEAS IRC 1 

36,2000 

S 

30 

1 

1223 


HINPERE 

23,2461 


506 

3 

50 5 

762 

MATRX JOE 

34 ,2 127 


526 



2C6 

422 

MERRCPX 

E6 ,1541 


105 

£ 

m/t 

105 

987 

MINPERM 

23,2457 


506 

1 

50 8 


HAT lEl 

34,3556 


5 65 




HERRCRY 

E6, 1543 

M 

105 

I 

105 


MINT AU 

21 ,3302 


994 

3 

993 


HAX 

OC 16 

9 

12 73 

4 

1252 

1253 

HEPR0R2 

E6,1545 


105 

1 

105 


M INT IME2 

05,3350 


1063 

1 

1064 


HAXANC 

22,2367 


3S6 

1 

39 J 


HERUPCAT 

21,3001 


987 

1 

986 


HINTS! 

16,3566 


95 3 




HAXCHECK 

12.2632 


12 53 

1 

1253 


METHCCl 

22 ,2234 


39? 

1 

393 


H INU5 1 

7716 

a 

1171 

'7 

4^ 

1398 

1445 

HAXCHK 

23,2754 


512 

6 

511 

63C 

METHCCa 

22 ,2210 


393 




HINUS2 

7715 

a 

1383 

3 

185 

1370 

HAXCUCA 

12,3304 


1264 

2 

1263 

1264 

hetmcc 3 

22 ,2260 


393 

A 

393 


MIS 

£6,1720 

a 

111 

17 

1 It 

4 0 5 

HAXCe 

24 ,22 11 


640 

1 

64C 


MFI 

£7,1425 


1 18 

12 

390 


HISCJUMP 

6303 


10 64 

I 

108 1 


NAXOBB IT 

4677 

9 

60 




HF ISYM 

E6 f 1666 

* 

111 

12 

392 

394 

HIXAO 

41 ,2260 


320 

1 

320 


haxdeflg 

0212 

9 

60 

2 

246 

247 

MFS 

E 7, 142 5 


1X6 

5 

1 IS 

390 

MIXBP 

0140 

» 

67 

12 

263 

343 

PAXOT 

13,3316 


1289 

2 

1266 


HGC 

1 5 , 1763 


92 


97 

1323 

HIXCCN 

4726 

a 

263 

1 

263 


PAXDV 

CC ,2642 


1137 

1 

U33 


HGLVf en 

4711 

a 

5*7 




MlXNNl 

41,2234 


320 

1 

320 


HAXOVSki 

014C 

9 

67 

6 

1129 

1144 

MGLVFLAG 

Ui30 


54 

i. 

48 3 


HIXNN2 

41 ,2246 


320 

1 

320 


HAXIN 

4 2 ,2C54 


247 

1 

246 


MG2 

07,3526 


14 05 

1 

1405 


M IXNCUN 

41,7221 


320 

1 

317 


HAXLIR 

16,3730 


9 57 

2 

950 

952 

MlCAVe IT 

4711 

* 

62 




H I XTEMP 

012 5 

* 

66 

3 

314 

32C 

HAXNH 

23,2763 


5 12 

i 

512 


HIDAVFLG 

022 4 


6 2 


1295 

1313 

HKAtrCRT 

07,2013 


216 

1 

215 
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0201 

59 

CRCEFSF 

0331 

69 

OPVERBS V 

0736 

71 

STAPALCN 

10 20 

7 3 

HChsavE 

1102 

75 

COLPEO 

02L2 

59 

APSESE 

C332 

70 

CFLST4DR 

u74o 

71 

SINCOOZ 

1021 

7 3 

MGNSaVEl 

1103 

75 

LANCLAT 

0203 

59 

CCCAFLAG 

C332 

7C 

DMSTCOC 

0742 

71 

SINCDLiX 

1022 

73 

MdNS'iVt? 

1103 

7^ 

LAT 

0206 

6C 

36QSX 

0333 

70 

compCM 

0 744 

71 

COSCDb 

1023 

73 

DSPtAd 

U35 

75 

LONG 

12 C 7 

6C 

SE TCVER 

0334 

70 

ldatalst 

0744 

71 

COSCDL Y 

1037 

73 

hVCTEM 

1107 

TT" 

TO 

0210 

6C 

V67FLAG 

C334 

1066 

CtllST 

0746 

71 

COSCOOZ 

1 040 

73 

NVBNKTEM 

111 1 

75 

vV 
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SYMBOL 
















LLU- 

15— 

OK 

1222 

76 

AVChX 1 T 

1320 

La_ 

_iraLLS3C 

£3.1437 

61 

PHsee 1 

£3,1554 

83 

RRECTCSM |CTi(|« 

112^ 


VhEO^L 

_1222 

_17 

PC 1 

li2I_ 

78 

IKJUE S33 

E3f 1440 

81 

P H S ^ ^ ^ E 2 

£3,1554 

83 

RR EC this 

112£ 

75 

]*A PACT B 

1224 


TEHX 

1322 

78 

IMUCAOP 

E3. 1441 

61 

PHSBB2 

£3,1562 

83 

VRECTCSM If 

ILZL 

1^ 

TflKBKCM 

1224 

1I_ 

HARKT IME 

1322 

I6_ 

BCD EC A CR 

£3.1442 

81 

PHShAM63 

£3.1570 

83 

TFTCSH " 

1127 

75 

IRETLRM 

1225 

76 

TEHY 

1323 

78 

CPTCAOP 

£3,1443 

61 

pHsaes 

£3.1570 

83 

TETTHIS 

112? 

7 5 

P3Q/PLT 

1226 

76 

TEH2 

1324 

78 

P ADCAOP 

£3,1444 

81 

PHSN4ME4 

£3,1572 

33 

OELT ACSM 

113C 

15— 

RATEINDX 

1226- 

12_ 

vtemp 

1325 

78 

ATTCACR 

E3.1445 

81 

PHS8B4 

£3,1600 

83 

NUVC SM 

1121 

75 

CP71CN1 _ 

122X_ 

76_ 

P IPCTK 

1327 

78 

ATTPRiC 

£3.1446 

81 

PHSAAME5 

£3,1606 

83 

RCVCSM 

1132 

75 

CPT1CN2 

1230 

76 

p ipaah 

1330 

78 

MAF KST AT 

63,1447 

ei 

PHSBBS 

£3,1614 

83 

VCVCSM 

1123 

L2_ 

LChGCACR 

1231 

16_ 

-hhl 

1331 

78 

OPTMCDES 

E3.145C 

81 

PHSRAREt 

E3 ,1622 

83 

TCCSM 

1123 

15 

u:ngeas6 

1234 

77 

UP 

1332 

78 

HCLCFL AG 

£3,1451 

81 

PHSBBE 

£3,1624 

83 

XKEPCSM 

113? 

75 

LChGHME 

12 3? 

76 

VM 

1333 

78 

C PHIX 

£3,1452 

81 

P3 [ASX 

£3,1 626 

83 

RRECTL6M 

1141 

75 

LgLAVLCC 

1242 

77 

■AAHADATA 

1336 

78 

TFVE^T 

E3.1452 

81 

PIPABIAS 

£3,1626 

83 

RRECTGTF 

1141 

75 

NVKCPOl 

2 4 4 

77 

OSTAR 

1336 

78 

TLIFTCFF 

£3,1453 

81 

PIPASCF 

£3,1634 

83 

VRECTLFM 

1146 

7 5 

TEHFP60 

1245 

76 

P IPT IH6 1 

1340 

79 

NCRMEX 

63,1453 

81 

PIPASCFX 

63,1642 

83 

T-CTHFR 

1147 

75 

-B-RILIIHE 

1247 

76 

CDTl/2 

1341 

79 

( O'JCHK WO 

E3,1454 

81 

P81ASY 

£3,1642 

93 

TETLEM 

U10_ 

75 

TlPb2SAV 

1252 

77 

M IXA 

1342 

79 

ThUNbl AS 

£3,1455 

81 

PIPASCFV 

£3,1642 

33 

TETCTHER 

1150 

76 

PC I MAX 

1253 

77 

N 1X8 

1343 

79 

XBOUULC 

E3.1456 

ei 

PBIAS2 

£3,1644 

93 

OELTALEM 

1151 

li_ 

VHP! IHE 

12 54 

77 

ZIXA 

1J45 

79 

TBODULC 

£3.1457 

81 

PIPASCF2 

E3 ,1652 

03 

NUVLEM 

1152 

75 

SC AL5AVE 

1255 

76 

GCaCl/2 

1 347 

79 

£9S ILCM 

£3,1460 

81 

GB lASX 

£3,1660 

83 

RCVLEM 1 

1154 

75 

PECCCTP 

1255 

77 

2IXB 

1351 

60 

F TEOl 

£3,1460 

81 

N60X 

£3,1666 

83 

VCVLEM 

1155 

75 

XBtJ 

_U5iL 

77 

OELTAX 

1353 

60 

ovthresh 

£3,1461 

81 

N8DY 

E 3,1674 

83 

7CLEM 

U55 

75 

ThEUD 

1256 

77 

TRIPA 

1 354 

80 

HOP I ZAL7 

£3,1462 

82 

NdOZ 

£ 3 , 1676 

83 

XK6PLFM 

U55 

76 

FCCTREF 

1256 

77 

VFFRAhGE 

1356 

ec 

AL TVAP 

£3,1463 

82 

AG 1 AX 

63,1700 

83 

X7 89 

1156 

15_ 

CIHEIA 

1256 

6C3 

S22UL1 

1357 

79 

SELF LR AS 

£3.1464 

82 

ADI AY 

£3,1706 

83 

TtPHEM 

1157 

75 

CP SI 

„ 1261 

77 

TEMPVAR 

1357 

7s 

SFAIL 

63,1465 

82 

A0U2 

£3,1706 

84 

T IMSURQ 

115 7 

76 

VREF 

1263 

77 

EMPYVN 

1 360 

7 s 

ERE STCHC 

E 3 ♦ 1466 

62 

AOSRAX 

£3,1711 

83 

AZO 

1160 



CE 5CFT7 

1263 

77 

PACLGNG 

1361 

79 

SELF RLT 

E 3,1467 

82 

AOS^AY 

£3,1713 

83 

-AVC 

ueo 

45 

IRON/ 

1265 

77 

L ifttehf 

1362 

79 

SPOCE 

t 3 , 147C 

82 

AOSPA Z 

E3,l 71 3 

83 

UN I T 'a 

1161 

76 

CESCf 7 5 

1267 

77 

TEPHEMl 

1363 

79 

ALMCADR 

L 3,1471 

62 

COMMAND 

£3.1715 

83 

AXC 

iiti 

i5__ 

ShAFTA 

Jill 2 

77 

PGNC SAL T 

1365 

79 

t RCOUHT 

£3,1471 

82 

CCOMP 

E3,l72l 

83 

fi-CTHFP 

1162 

76 

CELV 

1272 

77 

UCL 

1366 

79 

SCDUM 

1 3 1 1 4 74 

82 

tOUINC 

£3,1727 

83 

V-OTHER 

1162 

76 

CEIVX 

1300 

77 

TEMPCRi 

U7l 

79 

SKEEP 1 

F3,i477 

82 

GCOMPSW 

£3,1735 

83 

PEFSMMAI 

1164 

76 

C E L V 7 

13C2 

77 

DSHUPTSh 

1372 

79 

Sl'EFP2 

£3,1500 

82 

C iFEQCNf 

£3,1757 

84 

UNITE 

il66 

76 

CELV2 

1303 

77 

CFTI40 

13 73 

79 

SI'E£P3 

£3,1501 

82 

OPSvFlAG 

63,1765 

64 

RHAC * 

1170 

76 

PN 

1304 

77 

LGYRC 

1374 

79 

SREEP4 

£3,1502 

82 

PRtCT 

£3,1767 

84 

END-E3 

1116 

76 

V^ 

1305 

77 

CCFMANDC 

13 75 

79 

SK6tP5 

E3,151C 

82 

\» R £ C T 

£4,1400 

85 

WPENOPCS 

I2t4 

76 

PlPl IME 

13C7 

78 

ZCNE 

13 76 

79 

SKEEPe 

£3,1516 

82 

TE T 

6 ^ f 1 400 

89 

TRANSMl 

1206 

76 

GC 7/2 

1310 

78 

T6LCC 

1377 

79 

SKt tP7 

E3,152C 

32 

TOELTAV 

£4,1401 

65 

WRENOVEL 

12G6 

77 

C5PPCS 

1311 

78 

T6ADP 

1377 

60 

EKb^Ut 

£3,1526 

82 

TNLIV 

£4,1402 

05 

RMAX 

1214 

76 

GC5L/2 

1312 

76 

75LCC 

E3i 1400 

81 

LSTl 

E3,1534 

82 

PCV 

64,1403 

65 

VMAX 

1214 

7 7 

LEHPCS 

1314 

78 

ShSAMPLE 

Eif 1410 

6 1 

LSTl 

£3,154. 

82 

vcy/ 

6 4 f 1 4 0 4 

85 

MORE PCS 

1214 

6C3 

S22CCFF 

1315 

78 

DESOFMOC 

Elf 1432 

61 

PSSbt 

£3,1550 

82 

TC 

£4 ,1405 

85 

MORDVEL 

1214 

6C3 

90ii)(}r 

1316 

70 

nTCPTICh 

E3f 1434 

81 

ICNGEX IT 

£3,1552 

82 

XKEP 

£4,1406 

85 

522WSUBL 

1222 

76 

AVfcGEX 11 

1317 

78 

ZCPTCM 

t 3 f 1 4 3 6 

81 

PH5NAH £ 1 

£3,1552 

93 

XPREV 

£4 ,1407 

85 

RPV4R 

















BfcV mnN 227 CF 4 lC PKrGf.AW COLCSSUS dY NASA 2021I11-C31 Hi? ALG. I<i6e PflGfc 154<. 


EAASAELi £ Ee tiLS CRCS :.-R FFFPgNCg TABLE SHCh l^Q. CfcF IN I T TON , PAGE CF r EF INI f I ONi AND SYMBOl 


lj£f _RAG£ 

SYf'ilCl^ 

LEF 

£1C£ 

SYMBOL 

OLF 

PACE 

bYMbOL 

CEF 

PACE 

SYMBOL 

OEF 

PACE 

SYMBOL 
















F ^ » U U 

15 

SCALE* 

LA. 1717 

ai_ 

lgress 

LA, 1766 

88 

OSAVfct 

E 5 1 1 *• 5A 

95 

LOSl 

£5,1562 

90 

YNBl 

LUIALI 

15 

IF salt 

tl 7ZQ 

_a7 

RANwE 

E A, 1767 

89 

T F N 

t ^ f 1 ^ 54 

96 

ALX IS 

65,1570 

90 

EMATBIX 


t5 

AllClWt. _ 

^A 1 1720 

17 

RHCSE 

EA, 177G 

89 

F Gt X 1 T 

E5, 1A55 

96 

CMPX 1 

E5,1570 

90 

ZNBl 

E<i.I422 

EA 

JiLUlM 

-E.AiITaQ 

ej_ 

xpihclo 

EA. 1770 

89 

SUBEX I T 

£*".^56 

96 

ALK 

£5.1570 

96 

MPLATI 

.£-UlA23__ 

__t5„ 

PTICJNC 

M.jITaQ 

81 

P 1 R F I h 

EA, 1771 

89 

VGKE • 

£*•-,1460 

96 

THETAX 

£5,1576 

90 

SAVQR52 



FL5 

E < .1720 

622 

htiPCS 

EA, 1777 

89 

END-FA 

t: ,lAtO 

97 

THET A A 1 

£5,1577 

96 

RESTAPPT 

£AiiA3i 

£5 

J_1F£FQ 

EA,n21 

_U1_ 

retlccn 

EA.1777 

89 

IMVAP 

ES.i A62 

95 

LCS2 

E5,16C0 

90 

PLANVEC 

fcA,l<t3(i 

E5 

VECCEM 

EA.1722 

87 

GAMMASa 

fc5, lAOO 

90 


E5,1A66 

96 

THETAN 

£5,1606 

90 

TSIGHT 

F -If 1532 

E5 

PE SC 

EA,1722 

87 

RRATE 

E5, lAOO 

95 

4Z IFCT F 

fc 5 f 14 6 6 

77 

THE TAM 

E5, 16 1C 

90 

DEL tar 


£6 

VESC 

tA.l722 

87 

VlCTlMfc 

1 5 i 1^02 

95 

LATITUCE 

L5,l A7C 

95 

CALCO IP 

e 5 , 161 0 

90 

OVLCS 

Ml 15^6 

66 

CFECAES 

EA,1722 

88 

RPAOUH 

E5, lAOA 

95 

tHVECTCA 

E5,1A71 

95 

cocflac 

E 5, 16 10 

90 

STARSAV 1 

fe_<t,l *50 

E6 

FfiCCT 

EA,1722 

622 

hUVEL 

E5, 1A12 

95 

LtNGTHCT 

E5,1A72 

95 

GYTCBETC 

E5,16LC 

90 

TINTSUI 

M.15 51 

E6 

ALPhiV 

£Atl72A 

87 

JLCOPCM 

65. 1A13 

95 

LCSVEC 

M.1A72 

96 

VLAUNS 

£5,161C 

91 

IT 

LA. 1557 


BETAN 

_MLtlI2A 

87 

RTHE TA 

E5, IA13 

95 

SXTOPTN 

£5,1473 

95 

OPTNRFG 

£5,1612 

90 

DELTT IME 

tA,i5E5 


PF I V 

EA.172A 

68 

ISTAPTSi 

E5t 1A21 

95 

NOXCTR 

£5,1A7A 

95 

SAVF 

65,1614 

90 

TARGTIME 

i 1 5 73 

- ie 

PSIV 

EA,I724 

822 

NNCPT 

E5.1A22 

95 

PIPING EX 

£5,1474 

96 

F iLDtLV 

E5,1616 

90 

STAPSAV2 

EA.AAOi 

16 

FV 

EA,1725 

87 

KLCOFCN 1 

fcS, 1A2 3 

95 

PCS ncF 

E5. 1474 

S6 

hPLATC 

E5,1616 

90 

UNRF 

EA,UC7 

86 

OETAF 

EA~.1726 

87 

NKVAL 

£5, 1A2A 

95 

CP LAC 

E5,1474 

97 

FILOELVI 

£5,1616 

91 

THETZERC 

M.iEll 

„£A_ 

F 

EA,1726 

87 

RCNE 

E5, IA25 

95 

CP lace 

E 5, 1476 

96 

INTVEC 

E 5 f 1 6 1 6 

91 

OS 

EAtl613 

16 

CHCCE 

LA, 1726 

88 

PPASS36 

£5, Ia26 

95 

CPLAC6S 

E5,1A76 

97 

INTVECl 

£5,1620 

91 

TFI 

EA il61A 

E6 

IPETCRN 

E A. 172 7 

87 

oeltal 

65, IA27 

95 

FUN 

E5,1A77 

95 

SFCCNSTl 

E5 ,1622 

91 

OELVEF 

£A.l6i5 

€6 

FCPFGAF 

EA.1731 

87 

TK 

E5, LA30 

95 

STOPt PL 

E5,150C 

96 

INTY 

E5 ,1624 

90 

ULO'S 

EAt LEU 

EE 

VECTAB 

EA,1733 

87 

1 NuEXNCF 

E5, 1A31 

95 

soutfdr 

£5,1500 

96 

TIMER 

65,1624 

91 

HP 

LA,i62A 

16 

BA SECTP 

eA,l73A 

87 

LCKGSAVE 

E5,lA3l 

95 

TARGl/2 

£5,1502 

96 

ANGZ 

E5,1626 

91 

TFO 

LA.162A 

- E6 

VACA 

bA,173A 

87 

VCNE 

£5, 1A32 

95 

TAZEL 1 

£5,1502 

96 

OATAPL 

E5, 1630 

91 

HPO 

LAvl626 

E 6 

VACY 

■»— - - - — ■— 

EA, n3A 

86 

UFP36 

E 5f 1 AAO 

95 

TEMPT! FE 

£5,1504 

96 

INTZ 

£5,1631 

96 

GEOSAVED 

fe^fl630 

£6 

VACZ 

6A,1736 

87 

pcsvect 

E5, 1AA2 

95 

T M A F K 

£5,1506 

96 

ANGV 

£5,1631 

97 

GEOSAVEl 

LA.UAQ 

EE 

fcASECIV 

E A , 1 7A2 

6 8 

li RONE 

k 5 . 1 AAA 

95 

CDUTIME I 

E5,1510 

96 

ANGX 

£5,1632 

90 

ACTCENT 

EA.IEAO 

£6 

ERACF 

EA ,UA2 

88 

V82FCAGS 

E 5 f 1 

9b 

GUI PL 

£5,1512 

96 

ORIfTC 

E5 ,1632 

91 

DELVED 

EA* 16A2 

E6 

INCCfPEX 

EA,17A3 

88 

TFF 

£5 , lAAA 

96 

A I ML A 

65,1514 

96 

0 P I F T I 

£5,1632 

96 

PREMTRXC 

EA.165A 

66 

BA SETFF 

£ A,17AA 

67 

VELVeCT 

ES.IAAA 

96 

FOSP 

£5,1520 

96 

VLAUN 

£5,1632 

97 

PREMTRXl 

EA,IE62 

£6 

EASEIFV 

EA,17A5 

88 

-TPER 

E5, lAAA 

96 


E5,1522 

96 

ACCMO 

£5,1633 

96 

LAUNCHAZ 

EA.ie62 

EE 

PPL V 

eA.l7A7 

86 

TFETAT 1 » 

E5, IAA6 

95 

CDUTIMEF 

£5,1530 

96 

PCSNV 

£5,1633 

97 

LUNCHAZl 

EA.167C 

£6 

KEPPTN 

EA,1751 

86 ■ 

HAPCX 

E5, 1AA6 

96 

WANGI 

£5,1532 

96 

OPIPAV 

£5,1634 

90 

OELVTPl 

i: ^ 1 1 6 7C 

EE 

CR IGEX 

£A,1752 

87 

LSLCFG 

E5, 1A50 

95 

IMU/OPT 

£5,1536 

96 

OP IPAZ 

£5,1634 

90 

tDEC2 

tA,167i 

6 6 

GASE1 IME 

E A ,1753 

€8 

hPLRX 

E5,1A50 

95 

TEMPADC 

E5,154C 

96 

ALT IF 

E3 ,1634 

91 

MAGVTPI 

£ A.ltll 

£6 

HC VV 

EA,1755 

86 

ACPTIME 

£5,1 A 50 

96 

TCPGNOX 

65,1541 

96 

ALT IMS 

E 5 , 163a 

603 

SZ2PL 

tA,1673 

E6 

CR IG 

EA, 1755 

68 

RSP'PREC 

£5,1A50 

96 

FANGT 

65,1542 

96 

ALOK 

£5,1635 

96 

NEMAZMTH 

£ A f 16 7 A 

EE 

SIAlEXn 

E4,1757 

86 

LANOLCNC 

E5, 1A51 

95 

COUKCACF 

£5,1544 

96 

MASKREG 

£5,1635 

97 

NEWAZl 

EA,1677 

£6 

RPSY 

E A ,1761 

88 

landalt 

E$,lA5i 

95 

TEMP 

£5,1546 

96 

COONOX 

65,1636 

90 

DEL VTPF 

EAtl 7CS 

EE 

XKEPNEV 

EA,17£3 

88 

KT 

£5, iA52 

95 

COUFb'AL I 

£5,1547 

96 

RESULTCT 

E5, 1636 

91 

PELCELV 

LA, 1 707 

£7 

ALPFIM 

EA,1763 

89 

HAPO 

E5, iA52 

95 

NO 8 1 T S 

£5,1552 

96 

COUNT PL 

65,1637 

96 

oldazmth 

EA,17L1 

El 

1AC, 

E A , 1 7 63 

EA 

NCFT FT 

£5, 1452 

96 

DP i FT T 

£5,1553 

96 

COUANG 

£5,1637 

97 

OLBSZl 

£A,1713 

t7 

C7 /2 

E 4,1765 

86 

VtRBMCGh 

£5,1A53 

95 

CDUL IM IT 

£5,1554 

90 

XNOl 

£5,1640 

90 

PCSTTP I 

EA,1715 

£7 

P2 LI IHL 

e A, 17 65 

8A 

HPEP 

E5, IA53 

95 

CHAN 

65,1560 

96 

OELF 

E5, L640 

91 

T3T0T4 
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E3«165Q 

Li.lfaSA 

E5ti6S5 

E 5tl6SS 

ES.1655 


U56 
1656 
16 56 
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L.5,U41 

S7 

-OLEXAif^.I 

£5,1713 

9:1 

-Li2 

£5. 1775 

92 

PAC 

Lb . 1 457 

99 

BLAST 

£ 6* f Jl ^ 1 3 

105 

EDOT 

h5»Xfc4X 

11 

iCEx i n 

££,1714 

94 

TUVtL 

£5,17? 7 

92 

QHIN 

E6.1461 

99 

BLA^Tl 

£6,1519 

105 

4- fe/ V f . 

YNOX 

EA«1642 

SC 

EhC-k 

£3^1721 

92 

YCC 

£5,1777 

9? 

fcND-€5 

66,1463 

99 

BLAST2 

66,1515 

109 

COSOCOSP 
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75 
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c4yK3 e 

FEF 
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TO 
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93 

93 
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HFF 

L 

i-A.Sl_ 
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30 

30 
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TQ 

202 : 

234 
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PFF 

1 LAST 
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la 
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1 LAST 
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TO 
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91 

91 
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fiiypSPQk. 
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3 
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PFF 

1 LAST 
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TO 
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40 7 
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06yiCCHP 
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16 
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2 LAST 
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TQ 
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6 

65 
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REF 
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46 

46 
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02yEXTVB 
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__L 
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1455 
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1457: 

19 

19 
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PEF 

2 
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1456 

TO 
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9 
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X 
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62 

62 
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1 
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TO 
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35 

35 
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75 
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5 

5 

2481 
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RFF 

2 
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TO 
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26 

42 
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1 

LAST 
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TQ 
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32 

32 

2513 

LO/S> TPK 

PEF 

1 

LAST 

227 

TC 
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26 

26 
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REP 
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LA ST 

1377 

Tg 
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1 

LAST 
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TO 
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34 

34 
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377: 

37 

246 

2863 
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PEF 

2 
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TO 

165: 

49 

89 

8743 

C2/P0Q 

REF 

L 

LAIT 

139 

TQ 
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4 

4 

2867 
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PEF 
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477 

TO 
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REF._ 
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620 

TO 
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0 
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1 

last 

1298 

TQ 

1319: 
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17 

2884 
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1 
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731 : 

156 
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SB 

2942 
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1259 

TC 
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15 
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2969 

13yLT-LG 

REF 

1 

LAST 

1203 

TO 

1210: 

159 

159 

11673 

02/V37 

REF 

1 

LAST 

192 

TO 

192 ; 

2 

2 

2971 

i3yp7t 

PEF 

1 

LAST 

50 C 

TO 

504 : 

96 

96 

11769 























REF 

1- 

LAST 

1199 

TQ 

12C1: 

24 

75 

3046 

13/S52.2 

kEF 

1 

LAST 

725 

TO 

726: 

26 

26 

11795 

03/L’APEN 

REF 

1 

LAST 
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19 
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TQ 
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32 

32 
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TC 
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39 
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PFF 

2 

LAST 
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12264 

__ :4/EX7Vd 

REP 

1 

LAST 

240 

TO 

24C ; 

7 

7 

4165 

14/R51 

PEF 

1 

LAST 

7Q8 

TC 

711 : 

I 16 

116 

12380 

J*./MICG 

PEF 

1 

LAST 

482 

TQ 

466 : 

6 1 

61 

4226 

14/R53 

RFF 

1 

LAST 

723 

TC 

725: 

51 

51 

12431 





















C4/P0C 

P E F 

4 

LAST 

194 

TC 

195 : 

15 

23 


14/STAPS 

PFF 

1 

LAST 

1353 

TC 

1359: 

223 

223 

12654 

04/P07 

REP 

2 

LAST 

413 

TQ 

413: 

5 

32 

4281 

14/S5C 

RfcF 

1 

LAST 

701 

TO 

70 4: 

90 

90 

12744 

04/P3e79 

REF 

1 

LA ST 

515 

TO 

524 : 

225 

225 

4506 

15/L A FEN 

REF 

3 

LAST 

103E 

TO 

1063: 


710 

13 4 3 4 

t4/k02 

REF 

1 

LAST 

1407 

70 

1410 : 

17 

17 

4523 

15/F5 2 

PEF 

1 

LAST 

691 

TO 

696 : 

161 

161 

13615 


f ftFV ICfi ^ 

CF 

AGC PftCCRAK LJLfSSLS 

fiY -NASA 


l: 

1 7 

ii G fl 

24. 1968 



PACE 1556 






















CCLM CATA _fXM AQLliK£*S 

LA XT 

RtACH : 

total: 

CURUL 

rolTI ^£; 

CCUPiT DATA 

FOR 

RLoT INE • 

S LAST 

RE ACh: 

TOTAL 

:CUPUL 





















1 5/R5^ 


J_JJLSL 

_6S6 

JXL 

_ 7Ql: 

X4U 

140 

13 755 

24/P4 1 

F- C F 

1 

last 

641 

TO 

64 4 : 

109 

109 

20503 

l5JAb5 

fllf 

X 

LAiT 

711 

TQ . 

Ti2 : 

27 

<7 

13?82_ 

r4/P47 

ctF 

1 

LAST 

644 

7C 

646 • 

5 8 

56 

20541 

1 57S52_^ 

SEF 

_J_ 

LAST 

731 

XlL_ 

732t 

Li_ 

18 

1 J-iOO 

/H/Kr 3 

PXF 

1 

LAST 

246 

TO 

247: 

50 

50 

20691 

L6/RCLL 

Ptf . 


JLAiT 

949 


960 : 

274 

274 

14074 

2A/S4C . 1 

PrF 

1 

LAST 

665 

TO 

667 : 

6 7 

67 

20750 





















jg/k-SAl 

«gP 

_X. 

lAST 

914 

xc_ 


85 

85 

14159 

24/ SAC. 2 

REF 

1 

LAST 

667 

TC 

'.lot 

117 

117 

20 8 75 

_Lt/£5t 

Rif . 

1 LAST 

732 TC 

737: 

130 

130 

14289 

24/T V N«. 

PFF 

1 

LAST 
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AEiB 
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TO 
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TQ 
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2 
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85 

85 
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65 
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X 

L A IT 
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429 
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1 
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7G 
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47 
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TO 
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TO 
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61 

61 
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27 

27 
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79 
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TC 
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4 

4 
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TQ 
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TQ 
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36 
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TQ 
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32 

32 
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1 

LAST 
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TO 
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69 

69 
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1 

LAST 
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TO 
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LAST 
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70 
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TC 
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17037 
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TO 
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54 

54 
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1 
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TO 
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35 

35 
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TG 
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TO 
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1 
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86 
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JL 
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TO 
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22 

22 
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27/P62 

REF 
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389 

TO 
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11 

11 

23256 

i2/CAFEX 
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1 

LAST 

1005 

TC 
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33 

33 

17738 

2T/TFF 

REF 

1 

LAST 

134C 

TO 

1353: 

268 

268 

23524 

22/KALC 

REF 

A 

LAST 

405 

TQ 

4Il: 

177 

712 

18450 

27/V6CPT 

REF 

1 

LAST 

385 

TC 

389: 

130 

130 

23634 

22/PeRAP 

REF 

1 

LAST 

4 86 

TO 

492 : 

78 

78 

18528 

30/P 22 

PEF 

1 

LAST 

553 

TO 

558: 

194 

194 

23848 





















22/HTE 

REF 

_x_ 

LAST 

1472 

TO 

14 72 : 

lei 
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16709 

'l/IN IT 

REF 

1 

LAST 

996 

TO 

901 ; 

115 

115 

23963 

22/SA 1. 1 

REF 

1 

LAST 

tic 

TC 

672 : 

14 

14 

18723 

31 /LNCPK 

P CF 

1 

LAST 

692 

TC 

896: 

150 

150 

24 113 

23/GECP 

REF 

2 

LAST 

264 

TO 

290: 

109 

218 

18941 

31/P37 

REF 

1 

LAST 

040 

TO 

849: 

350 

358 

24471 

23/lCCNS 

REF 

1 

LAST 

1172 

TO 

1173 1 

16 

16 

18957 

31/F 3 5 

REF 

1 

LAST 

966 

TO 

H92 : 

223 

223 

24694 


23/ INFLT 

REF 

1 

LAST 

1319 

TO 

1329: 

186 
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31/S23 

REF 

1 

LAST 

60 8 

TO 

623: 

568 
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25262 

23/PCkFL 

REF 

1 
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1329 

TO 

1340 : 

187 
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32/P3C 

REF 

2 

LAST 

63 4 

TO 

6 37: 

72 

177 

254 39 

ii3/P3C 

REF 

i 

LAST 

504 

TO 

511: 

221 

221 

19551 

32/P76 

REF 

2 

LAST 

854 

TO 

684: 

^ ^ H 
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25389 

23/SR3QS 

REF 

1 

LAST 

511 

TQ 

515: 

62 

62 
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PEF 

2 
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4 30 

TO 
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TO 
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65 

65 
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33/PC3 

REF 
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LAST 
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TC 
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61 

61 
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REF 
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LAST 
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TC 

567: 

55 

55 
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33 /PC 1 

REF 

1 

LAST 
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TO 

^ 34 ! 

Hi 

41 
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REF 

1 

LAST 

448 

TO 

453: 
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46 
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33/P02 

PEF 

3 

LAST 

445 

TO 
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40 
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2A/PAC 
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i 
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to 
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20474 


«r 
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to 
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TC 

840 : 
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I 

LA IT 
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J2J6 
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37/P2C 

RCF 

1 

LAST 
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TC 
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64 

84 
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i4ypi 1 

att- 

2 

1 a<;t 

533 

in 

5:36 J _ 

fl4 
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F L r 

1 LAST 

56C 

TQ 

562: 

57 

57 

31443 

^4/P22 

REF 

1 
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TJ 
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AM 

465 28498 

37/R57 

HFF 

1 

LAST 
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TO 

56Q: 

53 

53 
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R £F 

1 

LAST 

tij6 

in 
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41 
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37/F6 1 

KEF 

1 

LAST 
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TO 

564: 

38 

36 
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-ta 

^Qti 

172 _ 

772 293U 

37 /SI L V 

PEF 

1 

LAST 

773 

TO 

795: 

377 

377 
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45/ H 7 
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1 LAST 

-SAl 

TiL 

A5Q : 

75 

75 29386 

40/1 y TVB 

PFF 

1 

last 

621 

TC 

6241 

99 

99 

3201C 

35/P3g 

RIF 

_J_ 

LAST 

625 

TQ 

fe2a: 

82 

82 29468 

40/PlM 

FHF 

10 

LAST 

379 

TO 

381 : 

53 

889 
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i3yp3A 

HlF 

1 

62^ 

TQ _ 

625: 

32 

32 2950C 

41 /PI F 

PEF 

6 

LAST 

377 

TO 

179: 

71 

970 

33869 

35/P3475 

REF 

1 

lA^T 

453 

TO 

^ ft i2 * 
Af 3 O * 
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1Q7 29607 

42/MjLNS 

REF 

1 

LAST 
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TO 

278; 

561 
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34430 
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REF 

i 

LAST 
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TCL 

477 : 
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42/PI M 
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2 

LAST 

344 

TO 

347; 

92 
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34668 

35/R31 

REF 

i 

last 
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TQ 

5Qu : 

194 
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42/kC 5 

REF 

1 

LAST 

884 

TO 

886: 

60 

80 
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21/ S3 C S 

REF _ 

LA3^T 628 
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632 : 

7 5 
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43/tyTve 

BFF 

4 

LAST 

247 

TO 263: 
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615 
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io/INCOR 

REF 

2 LAST 122 3_ 

TO 

A 241: 
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43/P27 

REF 

1 

LAST 

1463 
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32 

32 

35395 


16/Pl 1 

REF 

1 LAST 531 

TC 

533: 

63 
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43/StlF 

REF 

1 
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TC 1368; 
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546 : 
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